===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/sm1stackmachine.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/kxx/sm1stackmachine.c	1999/10/08 02:12:13	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<argc; i++) {
       /* load files from the search path */
       if (strlen(fnames[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.");
+  }
+}