| version 1.3, 2001/01/08 05:26:48 |
version 1.5, 2015/09/29 01:52:14 |
|
|
| /* $OpenXM: OpenXM/src/k097/k2.c,v 1.2 2000/01/17 13:57:26 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/k2.c,v 1.4 2001/01/28 02:40:04 takayama Exp $ */ |
| /* k2.c main program of k. */ |
/* k2.c main program of k. */ |
| |
|
| #define DATE "1998,12/15" |
#define DATE "1998,12/15" |
| Line 51 main(int argc,char *argv[]) { |
|
| Line 51 main(int argc,char *argv[]) { |
|
| } |
} |
| } |
} |
| #ifdef CALLASIR |
#ifdef CALLASIR |
| GC_init(); |
GC_INIT(); /* GC_init(); */ |
| KasirKanAsirInit(); |
KasirKanAsirInit(); |
| #endif |
#endif |
| KSstart(); /******** initialize ***********/ |
KSstart(); /******** initialize ***********/ |
| Line 72 main(int argc,char *argv[]) { |
|
| Line 72 main(int argc,char *argv[]) { |
|
| execFile("incmac.sm1"); |
execFile("incmac.sm1"); |
| execFile("slib.sm1"); |
execFile("slib.sm1"); |
| |
|
| printf("\n\nIn(1)="); |
printf("\n\nIn(1)= "); |
| s = "startup.k"; |
s = "startup.k"; |
| if (Startupk2) { |
if (Startupk2) { |
| strcpy(tname,s); |
strcpy(tname,s); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to k2.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097