version 1.33, 2005/06/09 04:47:16 |
version 1.38, 2020/10/06 11:33:46 |
|
|
/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.32 2004/09/21 05:46:15 takayama Exp $ */ |
/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.37 2015/09/29 01:52:14 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include <setjmp.h> |
#include <setjmp.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "stackm.h" |
#include "stackm.h" |
#include "lookup.h" |
#include "lookup.h" |
|
|
|
void hashInitialize(struct dictionary *dic); /* declared in extern.h */ |
|
void initClassDataBase(void); |
/*-------- variables to define a ring ----------------*/ |
/*-------- variables to define a ring ----------------*/ |
/* |
/* |
The numbers L,M, LL,MM,NN are set in setUpRing() in setupring.c now. |
The numbers L,M, LL,MM,NN are set in setUpRing() in setupring.c now. |
Line 79 int Commutative = 0; |
|
Line 81 int Commutative = 0; |
|
int UseCriterion1 = 0; |
int UseCriterion1 = 0; |
int UseCriterion2B = 0; |
int UseCriterion2B = 0; |
int OutputStyle = '*'; |
int OutputStyle = '*'; |
|
int COutput = 0; /* C sytle output of polynomial */ |
int Wrap = 0; /* output.c */ |
int Wrap = 0; /* output.c */ |
int Verbose = 0; |
int Verbose = 0; |
int ReduceLowerTerms = 1; |
int ReduceLowerTerms = 1; |
Line 111 int TraceLift = 0; |
|
Line 114 int TraceLift = 0; |
|
struct ring *TraceLift_ringmod = NULL; |
struct ring *TraceLift_ringmod = NULL; |
int DoCancel = 0; |
int DoCancel = 0; |
int QuoteMode = 0; |
int QuoteMode = 0; |
|
int UseDsmall = 0; |
|
|
/* global variables for stackmachine.c */ |
/* global variables for stackmachine.c */ |
int VerboseStack = 1; /* 0 is quiet, 1 is standard, 2 ... */ |
int VerboseStack = 1; /* 0 is quiet, 1 is standard, 2 ... */ |
Line 139 int Lookup[TYPES][TYPES]; |
|
Line 143 int Lookup[TYPES][TYPES]; |
|
int Quiet = 0; |
int Quiet = 0; |
int TimerOn = 0; |
int TimerOn = 0; |
|
|
char *VersionString = "3.040921"; |
char *VersionString = "3.050615"; |
|
|
char *LeftBracket = NULL; |
char *LeftBracket = NULL; |
char *RightBracket = NULL; |
char *RightBracket = NULL; |
Line 156 int VerboseK = 1; /* 1 is standard */ |
|
Line 160 int VerboseK = 1; /* 1 is standard */ |
|
int DebugK = 0; |
int DebugK = 0; |
FILE *Fk = NULL; /* Initialized to stdout in stackmachine_init() */ |
FILE *Fk = NULL; /* Initialized to stdout in stackmachine_init() */ |
|
|
stackmachine_init() { |
void stackmachine_init() { |
int i,j; |
int i,j; |
extern FILE *BaseFp; |
extern FILE *BaseFp; |
GC_init(); |
/* GC_init(); */ |
|
GC_INIT(); |
OxSystemVersion = VersionString; |
OxSystemVersion = VersionString; |
Fstack = stdout; /* initialize output stream */ |
Fstack = stdout; /* initialize output stream */ |
Fk = stdout; |
Fk = stdout; |
Line 186 stackmachine_init() { |
|
Line 191 stackmachine_init() { |
|
} |
} |
|
|
|
|
stackmachine_close() { |
int stackmachine_close() { |
/* close output stream */ |
/* close output stream */ |
} |
} |
|
|
|
|
|
|
Kclose() { |
void Kclose() { |
/* close Fk */ |
/* close Fk */ |
} |
} |
|
|