version 1.17, 2001/08/21 14:12:46 |
version 1.32, 2004/09/21 05:46:15 |
|
|
/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.16 2001/05/06 08:11:48 takayama Exp $ */ |
/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.31 2004/09/17 02:42:57 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include <setjmp.h> |
#include <setjmp.h> |
#include "datatype.h" |
#include "datatype.h" |
Line 103 int CmoDMSOutputOption = 0; /* Output with |
|
Line 103 int CmoDMSOutputOption = 0; /* Output with |
|
(1) RING_BY_NAME or (0) DMS_OF_N_VARIABLES. |
(1) RING_BY_NAME or (0) DMS_OF_N_VARIABLES. |
plugin/cmo.c */ |
plugin/cmo.c */ |
int SecureMode = 0; |
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; |
|
|
/* 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 116 FILE *Fstack = NULL; /* Initialized to standard output |
|
Line 124 FILE *Fstack = NULL; /* Initialized to standard output |
|
/* in case of Solaris, use the following: */ |
/* in case of Solaris, use the following: */ |
int EnvOfStackMachine[2000]; |
int EnvOfStackMachine[2000]; |
#else |
#else |
|
#if defined(__CYGIWN__) |
|
sigjmp_buf EnvOfStackMachine; |
|
#else |
jmp_buf EnvOfStackMachine; |
jmp_buf EnvOfStackMachine; |
#endif |
#endif |
|
|
#if defined(__CYGWIN__) |
|
int errno; |
|
#endif |
#endif |
|
|
struct object NullObject; |
struct object NullObject; |
Line 131 int Lookup[TYPES][TYPES]; |
|
Line 139 int Lookup[TYPES][TYPES]; |
|
int Quiet = 0; |
int Quiet = 0; |
int TimerOn = 0; |
int TimerOn = 0; |
|
|
char *VersionString = "3.010821"; |
char *VersionString = "3.040921"; |
|
|
char *LeftBracket = NULL; |
char *LeftBracket = NULL; |
char *RightBracket = NULL; |
char *RightBracket = NULL; |
Line 151 FILE *Fk = NULL; /* Initialized to stdout in stackmac |
|
Line 159 FILE *Fk = NULL; /* Initialized to stdout in stackmac |
|
stackmachine_init() { |
stackmachine_init() { |
int i,j; |
int i,j; |
extern FILE *BaseFp; |
extern FILE *BaseFp; |
|
GC_init(); |
OxSystemVersion = VersionString; |
OxSystemVersion = VersionString; |
Fstack = stdout; /* initialize output stream */ |
Fstack = stdout; /* initialize output stream */ |
Fk = stdout; |
Fk = stdout; |