| version 1.19, 2003/07/17 23:37:02 |
version 1.27, 2005/07/03 11:08:54 |
|
|
| /* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.18 2002/11/07 23:35:23 takayama Exp $ */ |
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.26 2005/06/15 02:22:51 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 "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| #include "extern.h" |
#include "extern.h" |
| Line 28 extern int StartAString; |
|
| Line 29 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 --- 2004.\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 "); |
| 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"); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sm.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan