| version 1.4, 2004/08/21 00:39:53 |
version 1.7, 2020/10/06 11:33:48 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/trans/yylex_polymake.c,v 1.3 2004/07/15 07:50:40 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/trans/yylex_polymake.c,v 1.6 2018/05/03 13:20:35 takayama Exp $ */ |
| /* parser for polymake output */ |
/* parser for polymake output */ |
| /* This program requires |
/* This program requires |
| |
|
| Line 38 char *pmPutstr(int c) { |
|
| Line 38 char *pmPutstr(int c) { |
|
| return putstr(c); |
return putstr(c); |
| } |
} |
| |
|
| pmSetS(char *s) { |
int pmSetS(char *s) { |
| S = s; |
S = s; |
| return 0; |
return 0; |
| } |
} |
| Line 74 int PMlex_aux() { |
|
| Line 74 int PMlex_aux() { |
|
| if (S[Pt] == '[') { Pt++; return PM_LBracket; } |
if (S[Pt] == '[') { Pt++; return PM_LBracket; } |
| if (S[Pt] == ']') { Pt++; return PM_RBracket; } |
if (S[Pt] == ']') { Pt++; return PM_RBracket; } |
| if (S[Pt] == ':') { Pt++; return PM_colon; } |
if (S[Pt] == ':') { Pt++; return PM_colon; } |
| |
if (S[Pt] == '=') { Pt++; return PM_eq; } |
| if (((S[Pt] >= '0') && (S[Pt] <= '9')) || (S[Pt] == '-')) { |
if (((S[Pt] >= '0') && (S[Pt] <= '9')) || (S[Pt] == '-')) { |
| putstr(-1); putstr(S[Pt++]); |
putstr(-1); putstr(S[Pt++]); |
| while (((S[Pt]>='0') && (S[Pt]<='9')) || (S[Pt] == '/')) putstr(S[Pt++]); |
while (((S[Pt]>='0') && (S[Pt]<='9')) || (S[Pt] == '/')) putstr(S[Pt++]); |
| Line 163 static char *putstr2s(char *s) { |
|
| Line 164 static char *putstr2s(char *s) { |
|
| return ss; |
return ss; |
| } |
} |
| |
|
| pmPreprocess() { |
int pmPreprocess() { |
| int newp,oldp; |
int newp,oldp; |
| int state; |
int state; |
| int i,j; |
int i,j; |
| Line 342 pmObjectp pmAddChild(pmObjectp c,pmObjectp a) { |
|
| Line 343 pmObjectp pmAddChild(pmObjectp c,pmObjectp a) { |
|
| return a; |
return a; |
| } |
} |
| |
|
| warning_yylex_polymake(char *s) { |
void warning_yylex_polymake(char *s) { |
| fprintf(stderr,"Warning: %s",s); |
fprintf(stderr,"Warning: %s",s); |
| } |
} |
| |
|