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

Return to global.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/global.c between version 1.16 and 1.36

version 1.16, 2001/05/06 08:11:48

version 1.36, 2011/10/05 05:46:14

Line 1

/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.15 2001/05/04 01:06:23 takayama Exp $ */

/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.35 2006/12/21 05:29:49 takayama Exp $ */

#include <stdio.h>

#include <setjmp.h>

#include "datatype.h"

Line 79 int Commutative = 0;

int UseCriterion1 = 0;

int UseCriterion2B = 0;

int OutputStyle = '*';

int COutput = 0; /* C sytle output of polynomial */

int Wrap = 0; /* output.c */

int Verbose = 0;

int ReduceLowerTerms = 1;

Line 103 int CmoDMSOutputOption = 0; /* Output with

Line 104 int CmoDMSOutputOption = 0; /* Output with

(1) RING_BY_NAME or (0) DMS_OF_N_VARIABLES.

plugin/cmo.c */

int SecureMode = 0;

int RestrictedMode = 0;

int RestrictedMode_saved = 0;

int Ecart = 0;

int EcartAutomaticHomogenization = 0;

int TraceLift = 0;

struct ring *TraceLift_ringmod = NULL;

int DoCancel = 0;

int QuoteMode = 0;

int UseDsmall = 0;

/* global variables for stackmachine.c */

int VerboseStack = 1; /* 0 is quiet, 1 is standard, 2 ... */

Line 116 FILE *Fstack = NULL; /* Initialized to standard output

Line 126 FILE *Fstack = NULL; /* Initialized to standard output

/* in case of Solaris, use the following: */

int EnvOfStackMachine[2000];

#else

#if defined(__CYGIWN__)

sigjmp_buf EnvOfStackMachine;

#else

jmp_buf EnvOfStackMachine;

#endif

#if defined(__CYGWIN__)

int errno;

#endif

struct object NullObject;

Line 131 int Lookup[TYPES][TYPES];

Line 141 int Lookup[TYPES][TYPES];

int Quiet = 0;

int TimerOn = 0;

char *VersionString = "3.001203";

char *VersionString = "3.050615";

char *LeftBracket = NULL;

char *RightBracket = NULL;

Line 151 FILE *Fk = NULL; /* Initialized to stdout in stackmac

Line 161 FILE *Fk = NULL; /* Initialized to stdout in stackmac

stackmachine_init() {

int i,j;

extern FILE *BaseFp;

GC_init();

OxSystemVersion = VersionString;

Fstack = stdout; /* initialize output stream */

Fk = stdout;

Line 159 stackmachine_init() {

Line 170 stackmachine_init() {

/* initialize null object */

NullObject.tag = 0;

NullObject.lc.op = NullObject.rc.op = (struct object *)NULL;

NullObject.attr = (struct object *)NULL;

/* findUserdictionary returns NoObject if it cannot find the key.*/

NoObject.tag = -1;

NoObject.lc.op = NoObject.rc.op = (struct object *)NULL;

NoObject.attr = (struct object *)NULL;

/* Initalize lookup table */

for (i=0; i<TYPES; i++) {

for (j=0; j<TYPES; j++)

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