[BACK]Return to sm1stackmachine.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kxx

Diff for /OpenXM/src/kxx/sm1stackmachine.c between version 1.1.1.1 and 1.3

version 1.1.1.1, 1999/10/08 02:12:13 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 176  void Sm1_dupErrors(void) {
Line 176  void Sm1_dupErrors(void) {
   KSpush(KSdupErrors());    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.");
     }
   }
   
   
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>