Changeset 56459d in git
- Timestamp:
- Apr 16, 1998, 10:12:55 AM (25 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- d342489c79babd63859a72fa96b3277dae827b3e
- Parents:
- 0f678f9af2ce804297ea85555d74aeef2879cded
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/libparse.l
r0f678f r56459d 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 /* $Id: libparse.l,v 1. 5 1998-04-06 16:27:20 kruegerExp $ */5 /* $Id: libparse.l,v 1.6 1998-04-16 08:12:55 pohl Exp $ */ 6 6 #include <stdio.h> 7 7 #include <string.h> … … 83 83 #define YYLP_MISS_BR3 12 84 84 85 #ifdef __MWERKS__ 85 86 #ifdef __cplusplus 86 87 extern "C" { … … 92 93 long tell(int filedes); 93 94 int isatty(int filedes); 95 #else 96 int _fileno(FILE *stream); 97 FILE *_fdopen(int filedes, char *type); 98 long _ftell(FILE *fp); 99 long _tell(int filedes); 100 int _isatty(int filedes); 101 #define fileno _fileno 102 #define fdopen _fdopen 103 #define ftell _ftell 104 #define tell _tell 105 #define isatty _isatty 94 106 #endif /* macintosh */ 95 107 #ifdef __cplusplus 96 108 } 109 #endif 97 110 #endif 98 111 … … 108 121 } 109 122 #else /* STANDALONE_PARSER */ 110 idhdl h ;111 # define pi IDPROC(h )123 idhdl h0; 124 # define pi IDPROC(h0) 112 125 extern "C" 113 126 { … … 244 257 sscanf( yytext, "%*[^p]proc %s", proc); 245 258 if(strlen(proc)<1) sscanf( yytext, "proc %s", proc); 246 h = enterid( mstrdup(proc), myynest, PROC_CMD,259 h0 = enterid( mstrdup(proc), myynest, PROC_CMD, 247 260 &idroot, FALSE ); 248 if (h !=NULL) {249 iiInitSingularProcinfo(IDPROC(h ), newlib, proc,261 if (h0!=NULL) { 262 iiInitSingularProcinfo(IDPROC(h0), newlib, proc, 250 263 yylplineno, current_pos(0),p_static); 251 264 if (BVERBOSE(V_LOAD_PROC))
Note: See TracChangeset
for help on using the changeset viewer.