![[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|
Return to parser.c CVS log | Up to [local] / OpenXM / src / kan96xx / Kan |
| version 1.10, 2015/09/27 08:12:42 | version 1.12, 2015/10/08 11:49:37 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.9 2005/07/03 11:08:54 ohara Exp $ */ | /* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.11 2015/09/29 01:52:14 takayama Exp $ */ | ||
| /* | /* | ||
| parser.c parser for poly.c | parser.c parser for poly.c | ||
| */ | */ | ||
|
|
||
| #include "extern.h" | #include "extern.h" | ||
| #include "extern2.h" | #include "extern2.h" | ||
| #if defined(__MSYS__) | |||
| #define setjmp(e) _setjmp(e) | |||
| #define sigsetjmp(e,n) _setjmp(e) | |||
| #endif | |||
| #define NUM 1 /* NUM means struct Bignum */ | #define NUM 1 /* NUM means struct Bignum */ | ||
| #define POL 0 | #define POL 0 | ||
|
|
||
| Ring0.p = 0; | Ring0.p = 0; | ||
| Ring0.next = (struct ring *)NULL; | Ring0.next = (struct ring *)NULL; | ||
| #if defined(__CYGWIN__) | #if defined(__CYGWIN__) | ||
| if (sigsetjmp(EnvOfParser,1)) { | if (MYSIGSETJMP(EnvOfParser,1)) { | ||
| #else | #else | ||
| if (setjmp(EnvOfParser)) { | if (MYSETJMP(EnvOfParser)) { | ||
| #endif | #endif | ||
| fprintf(stderr,"\nERROR: You have syntax errors in the expression: %s\n",s); | fprintf(stderr,"\nERROR: You have syntax errors in the expression: %s\n",s); | ||
| errorKan1("%s\n"," parser.c : Syntax error in the input polynomial."); | errorKan1("%s\n"," parser.c : Syntax error in the input polynomial."); | ||
|
|
||
| GotoP = 0; | GotoP = 0; | ||
| } | } | ||
| #if defined(__CYGWIN__) | #if defined(__CYGWIN__) | ||
| siglongjmp(EnvOfParser,1); | MYSIGLONGJMP(EnvOfParser,1); | ||
| #else | #else | ||
| longjmp(EnvOfParser,1); | MYLONGJMP(EnvOfParser,1); | ||
| #endif | #endif | ||
| } | } | ||