version 1.3, 2004/07/15 07:50:40 |
version 1.4, 2004/08/21 00:39:53 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/trans/yylex_polymake.c,v 1.2 2004/04/08 01:49:04 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 82 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; |
} |
} |