[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.2 and 1.3

version 1.2, 1999/11/02 06:11:58 version 1.3, 1999/11/03 10:56:40
Line 1 
Line 1 
 /* -*- mode: C; coding: euc-japan -*- */  /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM$ */  /* $OpenXM: OpenXM/src/ox_math/serv2.c,v 1.2 1999/11/02 06:11:58 ohara Exp $ */
 /* $Id$ */  
   
 /* Open Mathematica サーバ */  /* Open Mathematica サーバ */
 /* ファイルディスクリプタ 3, 4 は open されていると仮定して動作する. */  /* ファイルディスクリプタ 3, 4 は open されていると仮定して動作する. */
Line 144  int MATH_sendObject(cmo *m)
Line 143  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_string(m);
         MLPutString(lp, s);          MLPutString(lp, s);
         fprintf(stderr, "put %s.", s);          fprintf(stderr, "put %s.", s);
         break;          break;
Line 196  int push(cmo* m)
Line 195  int push(cmo* m)
     }      }
 }  }
   
 /* エラーのときは NULL を返す */  /* スタックが空のときは, (CMO_NULL) をかえす. */
 /* gen_error_object(SM_popCMO); */  
 /* CMO_ERROR2 */  
   
 cmo* pop()  cmo* pop()
 {  {
     if (Stack_Pointer > 0) {      if (Stack_Pointer > 0) {
         Stack_Pointer--;          Stack_Pointer--;
         return Operand_Stack[Stack_Pointer];          return Operand_Stack[Stack_Pointer];
     }      }
     return NULL;      return new_cmo_null();
 }  }
   
 void pops(int n)  void pops(int n)
Line 217  void pops(int n)
Line 213  void pops(int n)
     }      }
 }  }
   
   
 /* sm_XXX 関数群は、エラーのときは 0 以外の値を返し、呼び出し元で  /* sm_XXX 関数群は、エラーのときは 0 以外の値を返し、呼び出し元で
    エラーオブジェクトをセットする */     エラーオブジェクトをセットする */
 int sm_popCMO(int fd_write)  int sm_popCMO(int fd_write)
Line 252  int sm_popString(int fd_write)
Line 247  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_string(m)) != NULL) {
         send_ox_cmo(fd_write, (cmo *)new_cmo_string(s));          send_ox_cmo(fd_write, (cmo *)new_cmo_string(s));
         return 0;          return 0;
     }      }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>