| version 1.7, 2004/09/17 02:42:57 |
version 1.10, 2015/09/27 08:12:42 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.6 2004/05/13 10:37:30 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.9 2005/07/03 11:08:54 ohara Exp $ */ |
| /* |
/* |
| parser.c parser for poly.c |
parser.c parser for poly.c |
| */ |
*/ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| |
#include <string.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "setjmp.h" |
#include "setjmp.h" |
| #include "stackm.h" |
#include "stackm.h" |
| #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 |
| |
|
| Line 486 static void factor() { |
|
| Line 492 static void factor() { |
|
| |
|
| static void monom() { |
static void monom() { |
| union valObject utmp; |
union valObject utmp; |
| struct object obj; |
struct object obj = OINIT; |
| POLY f; |
POLY f; |
| extern struct context *CurrentContextp; |
extern struct context *CurrentContextp; |
| if (Symbol == 'x' || Symbol == 'd') { |
if (Symbol == 'x' || Symbol == 'd') { |