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

Diff for /OpenXM/src/ox_math/sm_ext.c between version 1.2 and 1.4

version 1.2, 2000/12/03 22:09:34 version 1.4, 2003/01/13 12:04:53
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.1 2000/12/03 21:45:48 ohara Exp $ */  /* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.3 2003/01/11 12:38:57 ohara Exp $ */
   
 /*  /*
    Copyright (C) Katsuyoshi OHARA, 2000.     Copyright (C) Katsuyoshi OHARA, 2000.
Line 51  void sm_popString()
Line 51  void sm_popString()
     cmo *err;      cmo *err;
     cmo *m;      cmo *m;
   
 #ifdef DEBUG      ox_printf("ox_math:: opecode = SM_popString.\n");
     fprintf(stderr, "ox_math:: opecode = SM_popString.\n");  
 #endif  
   
     m = pop();      m = pop();
     if (m->tag == CMO_STRING) {      if (m->tag == CMO_STRING) {
         send_ox_cmo(stack_oxfp, m);          send_ox_cmo(stack_oxfp, m);
Line 90  void sm_executeStringByLocalParser()
Line 87  void sm_executeStringByLocalParser()
     symbol_t symp;      symbol_t symp;
     cmo* m = pop();      cmo* m = pop();
     char *s = NULL;      char *s = NULL;
 #ifdef DEBUG  
     fprintf(stderr, "ox_math:: opecode = SM_executeStringByLocalParser.\n");  
 #endif  
   
       ox_printf("ox_math:: opecode = SM_executeStringByLocalParser.\n");
     if (m->tag == CMO_STRING      if (m->tag == CMO_STRING
         && strlen(s = ((cmo_string *)m)->s) != 0) {          && strlen(s = ((cmo_string *)m)->s) != 0) {
         if (s[0] == ':') {          if (s[0] == ':') {
Line 108  void sm_executeStringByLocalParser()
Line 103  void sm_executeStringByLocalParser()
     }else {      }else {
 #ifdef DEBUG  #ifdef DEBUG
                 symp = lookup_by_tag(m->tag);                  symp = lookup_by_tag(m->tag);
                 fprintf(stderr, "ox_math:: error. the top of stack is %s.\n", symbol_get_key(symp));                  ox_printf("ox_math:: error. the top of stack is %s.\n", symbol_get_key(symp));
 #endif  #endif
                 push_error(SM_executeStringByLocalParser, m);                  push_error(SM_executeStringByLocalParser, m);
         }          }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>