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

Diff for /OpenXM/src/ox_math/Attic/serv2.c between version 1.1 and 1.2

version 1.1, 1999/10/29 08:06:41 version 1.2, 1999/11/02 06:11:58
Line 95  cmo *MATH_getObject2()
Line 95  cmo *MATH_getObject2()
         break;          break;
     case MLTKERR:      case MLTKERR:
         fprintf(stderr, "type is ERROR.\n");          fprintf(stderr, "type is ERROR.\n");
         m = gen_error_object(MATH_ERROR);          m = (cmo *)gen_error_object(MATH_ERROR);
         break;          break;
     case MLTKSYM:      case MLTKSYM:
         fprintf(stderr, "MLTKSYM.\n");          fprintf(stderr, "MLTKSYM.\n");
Line 115  cmo *MATH_getObject2()
Line 115  cmo *MATH_getObject2()
             fprintf(stderr, "%s ");              fprintf(stderr, "%s ");
         }          }
         fprintf(stderr, "\n");          fprintf(stderr, "\n");
         m = (cmo *)new_cmo_string(s[0]);          m = (cmo *)new_cmo_string(s);
         break;          break;
     case MLTKREAL:      case MLTKREAL:
         fprintf(stderr, "MLTKREAL is not supported: we use MLTKSTR.\n");          fprintf(stderr, "MLTKREAL is not supported: we use MLTKSTR.\n");
Line 144  int MATH_sendObject(cmo *m)
Line 144  int MATH_sendObject(cmo *m)
         break;          break;
     default:      default:
         MLPutFunction(lp, "ToExpression", 1);          MLPutFunction(lp, "ToExpression", 1);
         s = CONVERT_CMO_TO_CSTRING(m);          s = convert_cmo_to_cstring(m);
         MLPutString(lp, s);          MLPutString(lp, s);
         fprintf(stderr, "put %s.", s);          fprintf(stderr, "put %s.", s);
         break;          break;
Line 252  int sm_popString(int fd_write)
Line 252  int sm_popString(int fd_write)
     fprintf(stderr, "code: SM_popString.\n");      fprintf(stderr, "code: SM_popString.\n");
 #endif  #endif
   
     if ((m = pop()) != NULL && (s = CONVERT_CMO_TO_CSTRING(m)) != NULL) {      if ((m = pop()) != NULL && (s = convert_cmo_to_cstring(m)) != NULL) {
         send_ox_cmo(fd_write, new_cmo_string(s));          send_ox_cmo(fd_write, (cmo *)new_cmo_string(s));
         return 0;          return 0;
     }      }
     return SM_popString;      return SM_popString;
Line 343  int execute_sm_command(int fd_write, int code)
Line 343  int execute_sm_command(int fd_write, int code)
     case SM_executeFunction:      case SM_executeFunction:
         err = sm_executeFunction(fd_write);          err = sm_executeFunction(fd_write);
         break;          break;
     case SM_setMathcap:      case SM_setMathCap:
         pop();  /* 無視する */          pop();  /* 無視する */
         break;          break;
     default:      default:
Line 352  int execute_sm_command(int fd_write, int code)
Line 352  int execute_sm_command(int fd_write, int code)
     }      }
   
     if (err != 0) {      if (err != 0) {
         push(gen_error_object(err));          push((cmo *)gen_error_object(err));
     }      }
 }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>