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

Return to parser.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/parser.c between version 1.4 and 1.11

version 1.4, 2002/02/24 10:27:18

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

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/parser.c,v 1.3 2001/05/04 01:06:24 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 410 static void term() {

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

if (strlen(s) < 1000-strlen(tmpc)) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>