| version 1.2, 2000/02/02 03:30:49 |
version 1.3, 2001/05/06 07:53:01 |
| Line 31 int Sm1_start(int argc, char *fnames[],char *myname) { |
|
| Line 31 int Sm1_start(int argc, char *fnames[],char *myname) { |
|
| for (i=0; i<argc; i++) { |
for (i=0; i<argc; i++) { |
| /* load files from the search path */ |
/* load files from the search path */ |
| if (strlen(fnames[i]) > 1024) { |
if (strlen(fnames[i]) > 1024) { |
| fprintf(stderr,"Too long name for sm1 library file to load.\n"); |
fprintf(stderr,"Too long name for sm1 library file to load.\n"); |
| exit(10); |
exit(10); |
| } |
} |
| sprintf(cmd," [(parse) (%s) pushfile ] extension pop ",fnames[i]); |
sprintf(cmd," [(parse) (%s) pushfile ] extension pop ",fnames[i]); |
| KSexecuteString(cmd); |
KSexecuteString(cmd); |
| Line 182 void Sm1_pushCMOtag(int serial) { |
|
| Line 182 void Sm1_pushCMOtag(int serial) { |
|
| obj = KSpeek(0); |
obj = KSpeek(0); |
| t = KgetCmoTagOfObject(obj); |
t = KgetCmoTagOfObject(obj); |
| if (t != -1) { |
if (t != -1) { |
| KSpush(KpoInteger(t)); |
KSpush(KpoInteger(t)); |
| }else{ |
}else{ |
| Sm1_pushError2(serial,-1,"The top object on the server stack cannot be translated to cmo."); |
Sm1_pushError2(serial,-1,"The top object on the server stack cannot be translated to cmo."); |
| } |
} |
| } |
} |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sm1stackmachine.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kxx