| version 1.4, 2002/02/24 10:27:18 |
version 1.6, 2004/05/13 10:37:30 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.3 2001/05/04 01:06:24 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.5 2002/11/04 10:53:55 takayama Exp $ */ |
| /* |
/* |
| parser.c parser for poly.c |
parser.c parser for poly.c |
| */ |
*/ |
| Line 410 static void term() { |
|
| Line 410 static void term() { |
|
| |
|
| }else { |
}else { |
| if (ftype == NUM && gtype == NUM) { |
if (ftype == NUM && gtype == NUM) { |
| |
errorParser("num/num is not supported yet.\n"); |
| mpz_div(f,f,g); |
mpz_div(f,f,g); |
| utmp.ival = f; |
utmp.ival = f; |
| push(NUM,utmp); |
push(NUM,utmp); |
| Line 568 static void errorParser(s) char s[]; { |
|
| Line 569 static void errorParser(s) char s[]; { |
|
| extern int ErrorMessageMode; |
extern int ErrorMessageMode; |
| int j; |
int j; |
| char tmpc[1024]; |
char tmpc[1024]; |
| |
cancelAlarm(); |
| if (ErrorMessageMode == 1 || ErrorMessageMode == 2) { |
if (ErrorMessageMode == 1 || ErrorMessageMode == 2) { |
| sprintf(tmpc,"\nError(parser.c): "); |
sprintf(tmpc,"\nError(parser.c): "); |
| if (strlen(s) < 1000-strlen(tmpc)) { |
if (strlen(s) < 1000-strlen(tmpc)) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to parser.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan