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

Diff for /OpenXM/src/kan96xx/Kan/sm.c between version 1.20 and 1.30

version 1.20, 2003/07/25 23:55:32 version 1.30, 2020/10/06 11:33:47
Line 1 
Line 1 
 /* sm.c   $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.19 2003/07/17 23:37:02 takayama Exp $ */  /* sm.c   $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.29 2015/09/29 01:52:14 takayama Exp $ */
 #define DATE "2003/07/18"  #define DATE "2005/06/15"
 #define RELEASE "3.030718"    /* This "string" must be an increasing seq.*/  #define RELEASE "3.050615"    /* This "string" must be an increasing seq.*/
 /* You should write the same string in global.c  /* You should write the same string in global.c
                      VersionString for ox_sm1.                       VersionString for ox_sm1.
                  Change also OxVersion in plugin/oxmisc.c                   Change also OxVersion in plugin/oxmisc.c
                  if you install new openXM protocol.*/                   if you install new openXM protocol.*/
   
 #include <stdio.h>  #include <stdio.h>
   #include <stdlib.h>
   #include <string.h>
 #include "datatype.h"  #include "datatype.h"
 #include "stackm.h"  #include "stackm.h"
 #include "extern.h"  #include "extern.h"
Line 28  extern int StartAString;
Line 30  extern int StartAString;
 extern char *StartString;  extern char *StartString;
 extern int Quiet;  extern int Quiet;
 extern char *VersionString;  extern char *VersionString;
   //extern unsigned int GC_version;
   
 main(argc,argv)  int main(argc,argv)
      int argc;       int argc;
      char *argv[];       char *argv[];
 {  {
   int i;    int i;
     int gc_version;
   StandardMacros = 1;    StandardMacros = 1;
   VersionString = RELEASE;    VersionString = RELEASE;
   if (argc > 1) {    if (argc > 1) {
Line 72  main(argc,argv) 
Line 76  main(argc,argv) 
     }      }
   }    }
   
     stackmachine_init(); /* GC is also initialized here */
   stackmachine_init();    gc_version = GC_get_version();
   if (!Quiet) {    if (!Quiet) {
     fprintf(Fstack,"\n");      fprintf(Fstack,"\n");
     fprintf(Fstack,"Kan/StackMachine1");      fprintf(Fstack,"Kan/StackMachine1");
     fprintf(Fstack,"                         1991 April --- 2003.\n");      fprintf(Fstack,"                         1991 April --- 2004.\n");
     fprintf(Fstack,"                              Release %s (C) N. Takayama\n",      fprintf(Fstack,"                              Release %s (C) N. Takayama\n",
             RELEASE);              RELEASE);
     fprintf(Fstack,"gc 5.3 (C) Boehm, Demers, GNU MP 3.1.1 (C) Free Software Foundation,\n");      fprintf(Fstack,"gc %d.%d-%d (C) Boehm, Demers, Xerox, SGI, HP,\nGNU MP 4.1 (C) Free Software Foundation,\n",gc_version >>16, (gc_version >> 8)&0xff,gc_version & 0xff);
     fprintf(Fstack,"OpenXM RFC100, 101, 103 (C) OpenXM developing team. \n");      fprintf(Fstack,"OpenXM RFC100, 101, 103 (C) OpenXM developing team. \n");
     fprintf(Fstack,"This software may be freely distributed as is ");      fprintf(Fstack,"This software may be freely distributed  ");
     fprintf(Fstack,"with no warranty expressed. \nSee OpenXM/Copyright/Copyright.generic\n");      fprintf(Fstack,"with no warranty expressed. \nSee OpenXM/Copyright/Copyright.generic\n");
     fprintf(Fstack,"Info: http://www.math.kobe-u.ac.jp/KAN, kan@math.kobe-u.ac.jp. ? for help.\n");      fprintf(Fstack,"Info: http://www.math.kobe-u.ac.jp/KAN, kan@math.kobe-u.ac.jp. ? for help.\n");
 #ifdef NOGC  #ifdef NOGC
Line 95  main(argc,argv) 
Line 99  main(argc,argv) 
   }    }
   scanner();    scanner();
   Kclose();  stackmachine_close();    Kclose();  stackmachine_close();
     return(0);
 }  }
   
   
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.30
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>