| version 1.2, 2004/04/08 01:49:04 |
version 1.4, 2004/08/21 00:39:53 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/trans/yylex_polymake.c,v 1.1 2003/11/24 02:33:39 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/trans/yylex_polymake.c,v 1.3 2004/07/15 07:50:40 takayama Exp $ */ |
| /* parser for polymake output */ |
/* parser for polymake output */ |
| /* This program requires |
/* This program requires |
| |
|
| Line 67 int PMlex_aux() { |
|
| Line 67 int PMlex_aux() { |
|
| if (S[Pt] == PM_emptyLineCode) {Pt++; return PM_emptyLine; } |
if (S[Pt] == PM_emptyLineCode) {Pt++; return PM_emptyLine; } |
| if (S[Pt] == '{') { Pt++; return PM_LCurryBrace; } |
if (S[Pt] == '{') { Pt++; return PM_LCurryBrace; } |
| if (S[Pt] == '}') { Pt++; return PM_RCurryBrace; } |
if (S[Pt] == '}') { Pt++; return PM_RCurryBrace; } |
| |
if (S[Pt] == '<') { Pt++; return PM_LAngle; } |
| |
if (S[Pt] == '>') { Pt++; return PM_RAngle; } |
| |
if (S[Pt] == '(') { Pt++; return PM_LBrace; } |
| |
if (S[Pt] == ')') { Pt++; return PM_RBrace; } |
| |
if (S[Pt] == '[') { Pt++; return PM_LBracket; } |
| |
if (S[Pt] == ']') { Pt++; return PM_RBracket; } |
| |
if (S[Pt] == ':') { Pt++; return PM_colon; } |
| 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 75 int PMlex_aux() { |
|
| Line 82 int PMlex_aux() { |
|
| } |
} |
| if (((S[Pt] >= 'A') && (S[Pt] <= 'Z')) || |
if (((S[Pt] >= 'A') && (S[Pt] <= 'Z')) || |
| ((S[Pt] >= 'a') && (S[Pt] <= 'z')) || |
((S[Pt] >= 'a') && (S[Pt] <= 'z')) || |
| (S[Pt] == '_')) { |
(S[Pt] == '_') || S[Pt] == '!') { |
| putstr(-1); putstr(S[Pt++]); |
if (S[Pt] != '!') {putstr(-1); putstr(S[Pt++]);} |
| while (((S[Pt] >= 'A') && (S[Pt] <= 'Z')) || |
else { |
| ((S[Pt] >= 'a') && (S[Pt] <= 'z')) || |
putstr(-1); Pt++; |
| (S[Pt] == '_')) putstr(S[Pt++]); |
putstr('N'); putstr('O'); putstr('T'); putstr('_'); putstr('_'); |
| PMlval = pmNewStrObject(putstr(0)); |
} |
| return PM_keyword; |
while (((S[Pt] >= 'A') && (S[Pt] <= 'Z')) || |
| |
((S[Pt] >= 'a') && (S[Pt] <= 'z')) || |
| |
(S[Pt] == '_')) putstr(S[Pt++]); |
| |
PMlval = pmNewStrObject(putstr(0)); |
| |
return PM_keyword; |
| } |
} |
| Pt++; return PM_unknown; |
Pt++; return PM_unknown; |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to yylex_polymake.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / trans