version 1.26, 2005/06/15 02:22:51 |
version 1.28, 2015/09/19 09:56:06 |
|
|
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.25 2004/09/21 05:46:15 takayama Exp $ */ |
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.27 2005/07/03 11:08:54 ohara Exp $ */ |
#define DATE "2005/06/15" |
#define DATE "2005/06/15" |
#define RELEASE "3.050615" /* 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 |
|
|
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; |
//extern unsigned int GC_version; |
|
|
main(argc,argv) |
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) { |
|
|
} |
} |
} |
} |
|
|
|
gc_version = GC_get_version(); |
stackmachine_init(); |
stackmachine_init(); |
if (!Quiet) { |
if (!Quiet) { |
fprintf(Fstack,"\n"); |
fprintf(Fstack,"\n"); |
|
|
fprintf(Fstack," 1991 April --- 2004.\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 %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,"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 "); |
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"); |