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

Return to parser.c CVS log

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

version 1.6, 2004/05/13 10:37:30

version 1.11, 2015/09/29 01:52:14

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.5 2002/11/04 10:53:55 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.10 2015/09/27 08:12:42 takayama Exp $ */

parser.c parser for poly.c

#include <stdio.h>

#include <string.h>

#include "datatype.h"

#include "setjmp.h"

#include "stackm.h"

#include "extern.h"

#include "extern2.h"

#if defined(__MSYS__) || defined(__CYGWIN__)

#define setjmp(e) _setjmp(e)

#define sigsetjmp(e,n) _setjmp(e)

#endif

#define NUM 1 /* NUM means struct Bignum */

#define POL 0

Line 486 static void factor() {

Line 492 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 567 static void errorParser(s) char s[]; {

Line 573 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): ");