OpenXM/src/kan96xx/trans/yylex_polymake.c - diff

Return to yylex_polymake.c CVS log

Up to [local] / OpenXM / src / kan96xx / trans

version 1.1, 2003/11/24 02:33:39

version 1.3, 2004/07/15 07:50:40

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/kan96xx/trans/yylex_polymake.c,v 1.2 2004/04/08 01:49:04 takayama Exp $ */

/* parser for polymake output */

/* This program requires

Line 67 int PMlex_aux() {

if (S[Pt] == PM_emptyLineCode) {Pt++; return PM_emptyLine; }

if (S[Pt] == '{') { Pt++; return PM_LCurryBrace; }

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] == '-')) {

putstr(-1); putstr(S[Pt++]);

while (((S[Pt]>='0') && (S[Pt]<='9')) || (S[Pt] == '/')) putstr(S[Pt++]);

Line 186 pmPreprocess() {

Line 193 pmPreprocess() {

break;

case 1:

if ((S[oldp] == ' ') || (S[oldp] == '\t')) break;

if ((S[oldp] == '#') || ((S[oldp]=='_') && (S[oldp-1]<' '))) {

if ((S[oldp] == '#') || ((S[oldp]=='_') && (oldp == 0))

|| ((S[oldp]=='_') && (S[oldp-1]<' '))) {

/* skip the rest of the line, state=1; */

for (; S[oldp] != 0 ; oldp++) {

if (S[oldp] == '\n') {oldp--; break;}