| version 1.7, 2004/09/17 02:42:57 |
version 1.9, 2005/07/03 11:08:54 |
|
|
| /* $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.8 2005/06/16 05:07:23 takayama 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" |
| Line 486 static void factor() { |
|
| Line 487 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') { |