[BACK]Return to global.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/global.c between version 1.10 and 1.14

version 1.10, 2000/02/24 12:33:47 version 1.14, 2000/12/03 07:29:38
Line 1 
Line 1 
 /* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.9 2000/02/24 00:27:12 takayama Exp $ */  /* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.13 2000/07/26 02:21:30 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include <setjmp.h>  #include <setjmp.h>
 #include "datatype.h"  #include "datatype.h"
Line 108  int SecureMode = 0;
Line 108  int SecureMode = 0;
 int VerboseStack = 1;     /* 0 is quiet, 1 is standard, 2 ... */  int VerboseStack = 1;     /* 0 is quiet, 1 is standard, 2 ... */
 int DebugStack   = 0;  int DebugStack   = 0;
   
 FILE *Fstack = stdout;             /* standard output stream  FILE *Fstack = NULL; /* Initialized to standard output stream
                                       for module: stackmachine */                          in stackmachine_init()
                           for module: stackmachine */
   
 #if defined(sun)  #if defined(sun)
 /* in case of Solaris, use the following: */  /* in case of Solaris, use the following: */
Line 126  int Lookup[TYPES][TYPES];
Line 127  int Lookup[TYPES][TYPES];
 int Quiet = 0;  int Quiet = 0;
 int TimerOn = 0;  int TimerOn = 0;
   
 char *VersionString = "3.000224";  char *VersionString = "3.001203";
   
 char *LeftBracket = NULL;  char *LeftBracket = NULL;
 char *RightBracket = NULL;  char *RightBracket = NULL;
Line 138  int OXprintMessage = 1; /* referred only from ox_sm1  
Line 139  int OXprintMessage = 1; /* referred only from ox_sm1  
 char *OxSystem = "ox_sm1.plain";         /* Example :  ox_sm1.plain */  char *OxSystem = "ox_sm1.plain";         /* Example :  ox_sm1.plain */
 char *OxSystemVersion = NULL;            /* Example :  0.1 */  char *OxSystemVersion = NULL;            /* Example :  0.1 */
   
   /*  global variables for kanExport0.c */
   int VerboseK = 1;  /* 1 is standard */
   int DebugK   = 0;
   FILE *Fk = NULL;  /* Initialized to stdout in stackmachine_init() */
   
 stackmachine_init() {  stackmachine_init() {
   int i,j;    int i,j;
     extern FILE *BaseFp;
   OxSystemVersion = VersionString;    OxSystemVersion = VersionString;
   Fstack = stdout;  /* initialize output stream */    Fstack = stdout;  /* initialize output stream */
     Fk = stdout;
     BaseFp = stdin;
   LeftBracket = "["; RightBracket = "]";    LeftBracket = "["; RightBracket = "]";
   /* initialize null object */    /* initialize null object */
   NullObject.tag = 0;    NullObject.tag = 0;
Line 167  stackmachine_close() {
Line 176  stackmachine_close() {
 }  }
   
   
 /*  global variables for kanExport0.c */  
 int VerboseK = 1;  /* 1 is standard */  
 int DebugK   = 0;  
 FILE *Fk = stdout;  
   
 Kclose() {  Kclose() {
   /* close Fk */    /* close Fk */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>