=================================================================== RCS file: /home/cvs/OpenXM/src/kxx/sm1stackmachine.c,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/kxx/sm1stackmachine.c 1999/10/08 02:12:13 1.1.1.1 +++ OpenXM/src/kxx/sm1stackmachine.c 2001/05/06 07:53:01 1.3 @@ -31,8 +31,8 @@ int Sm1_start(int argc, char *fnames[],char *myname) { for (i=0; i 1024) { - fprintf(stderr,"Too long name for sm1 library file to load.\n"); - exit(10); + fprintf(stderr,"Too long name for sm1 library file to load.\n"); + exit(10); } sprintf(cmd," [(parse) (%s) pushfile ] extension pop ",fnames[i]); KSexecuteString(cmd); @@ -176,5 +176,16 @@ void Sm1_dupErrors(void) { KSpush(KSdupErrors()); } +void Sm1_pushCMOtag(int serial) { + struct object obj; + int t; + obj = KSpeek(0); + t = KgetCmoTagOfObject(obj); + if (t != -1) { + KSpush(KpoInteger(t)); + }else{ + Sm1_pushError2(serial,-1,"The top object on the server stack cannot be translated to cmo."); + } +}