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); |
} |
} |
|
|