version 1.18, 2002/11/07 23:35:23 |
version 1.24, 2004/02/27 09:46:46 |
|
|
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.17 2002/09/08 10:49:50 takayama Exp $ */ |
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.23 2004/02/23 04:54:45 takayama Exp $ */ |
#define DATE "2002/11/08" |
#define DATE "2004/02/23" |
#define RELEASE "3.021108" /* This "string" must be an increasing seq.*/ |
#define RELEASE "3.040223" /* 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 |
Line 28 extern int StartAString; |
|
Line 28 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) |
main(argc,argv) |
int argc; |
int argc; |
|
|
if (!Quiet) { |
if (!Quiet) { |
fprintf(Fstack,"\n"); |
fprintf(Fstack,"\n"); |
fprintf(Fstack,"Kan/StackMachine1"); |
fprintf(Fstack,"Kan/StackMachine1"); |
fprintf(Fstack," 1991 April --- 2000.\n"); |
fprintf(Fstack," 1991 April --- 2003.\n"); |
fprintf(Fstack," Release %s (C) N. Takayama\n", |
fprintf(Fstack," Release %s (C) N. Takayama\n", |
RELEASE); |
RELEASE); |
fprintf(Fstack,"gc 4.14 (C) Boehm, Demers, GNU MP 2.0.2 (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 (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 as is "); |
fprintf(Fstack,"with no warranty expressed.\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 |
fprintf(Fstack,"No garbage collector is installed.\n"); |
fprintf(Fstack,"No garbage collector is installed.\n"); |