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

Diff for /OpenXM/src/kxx/nullstackmachine.c between version 1.1 and 1.2

version 1.1, 1999/10/08 02:12:13 version 1.2, 2001/05/06 07:53:00
Line 82  void printCMO_object(FILE *fp,CMO_Object *op)
Line 82  void printCMO_object(FILE *fp,CMO_Object *op)
       n = ntohl(((CMO_string_object *)op)->size);        n = ntohl(((CMO_string_object *)op)->size);
       fprintf(stderr,"n=%d :"); fflush(NULL);        fprintf(stderr,"n=%d :"); fflush(NULL);
       for (i=0; i<n; i++) {        for (i=0; i<n; i++) {
         fprintf(fp,"%c",((CMO_string_object *)op)->data[i]);          fprintf(fp,"%c",((CMO_string_object *)op)->data[i]);
       }        }
       break;        break;
     default:      default:
Line 124  int Sm1_executeStringByLocalParser(void) {
Line 124  int Sm1_executeStringByLocalParser(void) {
   if (s != NULL) {    if (s != NULL) {
     if (strcmp(s,"sleep") == 0) {      if (strcmp(s,"sleep") == 0) {
       while (1) {        while (1) {
         fprintf(stderr,"Sleeping...  "); fflush(NULL);          fprintf(stderr,"Sleeping...  "); fflush(NULL);
         sleep(10);          sleep(10);
       }        }
     }else if (strcmp(s,"pstack") == 0) {      }else if (strcmp(s,"pstack") == 0) {
       fprintf(stderr,"pstack -------------- Stackp = %d\n",Stackp);        fprintf(stderr,"pstack -------------- Stackp = %d\n",Stackp);
       for (i=Stackp-1; i>=0; i--) {        for (i=Stackp-1; i>=0; i--) {
         printCMO_object(stdout,LocalStack[i]); fprintf(stderr,"\n");          printCMO_object(stdout,LocalStack[i]); fprintf(stderr,"\n");
       }        }
       fprintf(stderr,"\n--------------------\n");        fprintf(stderr,"\n--------------------\n");
     }else{      }else{
Line 242  int Sm1_pushCMO(ox_stream ostream) /* old one went to 
Line 242  int Sm1_pushCMO(ox_stream ostream) /* old one went to 
       n = nullCmoGetInt32(ostream);        n = nullCmoGetInt32(ostream);
       fprintf(stderr,"size=%d ",n);        fprintf(stderr,"size=%d ",n);
       if (n > 1000-2) {        if (n > 1000-2) {
         fprintf(stderr," size is too large. \n");          fprintf(stderr," size is too large. \n");
       }else{        }else{
         for (i=0; i<n; i++) {          for (i=0; i<n; i++) {
           data[i] = fp2fgetc(ostream);            data[i] = fp2fgetc(ostream);
           data[i+1] = '\0';            data[i+1] = '\0';
         }          }
         fprintf(stderr," string=%s ",data);          fprintf(stderr," string=%s ",data);
         Sm1_pushToLocalStack(CMO_new_string(data));          Sm1_pushToLocalStack(CMO_new_string(data));
       }        }
       break;        break;
     default:      default:
       do {        do {
         if ((c = fp2fgetc(ostream)) == EOF) {          if ((c = fp2fgetc(ostream)) == EOF) {
           fprintf(stderr,"pushCMOFromStrem: Select returns 0, but there is no data or unexpected EOF.\n");            fprintf(stderr,"pushCMOFromStrem: Select returns 0, but there is no data or unexpected EOF.\n");
           return(-1);            return(-1);
         }          }
         fprintf(stderr,"%2x ",c);          fprintf(stderr,"%2x ",c);
       }while(isData(ostream));        }while(isData(ostream));
     }      }
   }    }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>