version 1.28, 2015/09/19 09:56:06 |
version 1.30, 2020/10/06 11:33:47 |
|
|
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.27 2005/07/03 11:08:54 ohara Exp $ */ |
/* sm.c $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.29 2015/09/29 01:52:14 takayama 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 |
|
|
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.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 31 extern int Quiet; |
|
Line 32 extern int Quiet; |
|
extern char *VersionString; |
extern char *VersionString; |
//extern unsigned int GC_version; |
//extern unsigned int GC_version; |
|
|
main(argc,argv) |
int main(argc,argv) |
int argc; |
int argc; |
char *argv[]; |
char *argv[]; |
{ |
{ |
|
|
} |
} |
} |
} |
|
|
|
stackmachine_init(); /* GC is also initialized here */ |
gc_version = GC_get_version(); |
gc_version = GC_get_version(); |
stackmachine_init(); |
|
if (!Quiet) { |
if (!Quiet) { |
fprintf(Fstack,"\n"); |
fprintf(Fstack,"\n"); |
fprintf(Fstack,"Kan/StackMachine1"); |
fprintf(Fstack,"Kan/StackMachine1"); |
|
|
} |
} |
scanner(); |
scanner(); |
Kclose(); stackmachine_close(); |
Kclose(); stackmachine_close(); |
|
return(0); |
} |
} |
|
|
|
|