version 1.21, 2003/08/21 12:30:15 |
version 1.25, 2004/09/21 05:46:15 |
|
|
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.20 2003/07/25 23:55:32 takayama Exp $ */ |
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.24 2004/02/27 09:46:46 takayama Exp $ */ |
#define DATE "2003/08/21" |
#define DATE "2004/09/21" |
#define RELEASE "3.030821" /* This "string" must be an increasing seq.*/ |
#define RELEASE "3.040921" /* 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 --- 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 |