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