OpenXM/src/kan96xx/Kan/parser.c - diff

Return to parser.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.5, 2002/11/04 10:53:55

version 1.9, 2005/07/03 11:08:54

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.4 2002/02/24 10:27:18 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

#include <stdio.h>

#include <string.h>

#include "datatype.h"

#include "setjmp.h"

#include "stackm.h"

Line 410 static void term() {

Line 411 static void term() {

}else {

if (ftype == NUM && gtype == NUM) {

errorParser("num/num is not supported yet.\n");

mpz_div(f,f,g);

utmp.ival = f;

push(NUM,utmp);

Line 485 static void factor() {

Line 487 static void factor() {

static void monom() {

union valObject utmp;

struct object obj;

struct object obj = OINIT;

POLY f;

extern struct context *CurrentContextp;

if (Symbol == 'x' || Symbol == 'd') {

Line 566 static void errorParser(s) char s[]; {

Line 568 static void errorParser(s) char s[]; {

extern char *GotoLabel;

extern int GotoP;

extern int ErrorMessageMode;

extern int RestrictedMode, RestrictedMode_saved;

int j;

char tmpc[1024];

RestrictedMode = RestrictedMode_saved;

cancelAlarm();

if (ErrorMessageMode == 1 || ErrorMessageMode == 2) {

sprintf(tmpc,"\nError(parser.c): ");