Changeset 73a0cd in git
- Timestamp:
- Mar 25, 2008, 4:04:42 PM (15 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- 701f0a0d4bc3ca76701b9d2a8148a2eb4b927dbb
- Parents:
- 889f6ee1899e5ff13c842d4224c6cded2263cea4
- Location:
- Singular
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/libparse.h
r889f6e r73a0cd 4 4 * Computer Algebra System SINGULAR * 5 5 ****************************************/ 6 /* $Id: libparse.h,v 1.1 7 2008-03-25 14:51:58Singular Exp $ */6 /* $Id: libparse.h,v 1.18 2008-03-25 15:04:42 Singular Exp $ */ 7 7 /* 8 8 * ABSTRACT: lib parsing 9 9 */ 10 #ifndef STANDALONE_PARSER11 10 # include "structs.h" 12 11 # include "subexpr.h" 13 #endif14 12 typedef enum { LOAD_LIB, GET_INFO } lp_modes; 15 13 typedef enum { OLD_LIBSTYLE, NEW_LIBSTYLE } lib_style_types; -
Singular/utils.cc
r889f6e r73a0cd 3 3 #include <stdlib.h> 4 4 #include <ctype.h> 5 #include "mod2.h" 5 6 #include "fegetopt.h" 7 #include "libparse.h" 6 8 #include "utils.h" 7 9 … … 106 108 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/ 107 109 108 procinfo *iiInitSingularProcinfo(procinfov pi, c har *libname,109 c har *procname, int line, long pos,110 BOOLEAN pstatic = FALSE)110 procinfo *iiInitSingularProcinfo(procinfov pi, const char *libname, 111 const char *procname, int line, long pos, 112 BOOLEAN pstatic /*= FALSE*/) 111 113 { 112 114 pi->libname = (char *)malloc(strlen(libname)+1); -
Singular/utils.h
r889f6e r73a0cd 1 1 /* 2 2 */ 3 4 typedef short BOOLEAN;5 3 6 4 #ifndef FALSE … … 12 10 #endif 13 11 14 class procinfo;15 typedef procinfo * procinfov;16 17 class proc_singular18 {19 public:20 long proc_start; // position where proc is starting21 long def_end; // position where proc header is ending22 long help_start; // position where help is starting23 long help_end; // position where help is starting24 long body_start; // position where proc-body is starting25 long body_end; // position where proc-body is ending26 long example_start; // position where example is starting27 long proc_end; // position where proc is ending28 int proc_lineno;29 int body_lineno;30 int example_lineno;31 char *body;32 long help_chksum;33 };34 35 struct proc_object36 {37 int (*function)( void );38 };39 40 union uprocinfodata;41 42 union uprocinfodata43 {44 public:45 proc_singular s; // data of Singular-procedure46 struct proc_object o; // pointer to binary-function47 };48 49 typedef union uprocinfodata procinfodata;50 51 typedef enum { LANG_NONE, LANG_SINGULAR, LANG_C, LANG_MAX } language_defs;52 53 class procinfo54 {55 public:56 char *libname;57 char *procname;58 language_defs language;59 short ref;60 char is_static; // if set, proc not accessible for user61 procinfodata data;62 };63 64 65 typedef void * idhdl;66
Note: See TracChangeset
for help on using the changeset viewer.