===================================================================
RCS file: /home/cvs/OpenXM/src/ox_math/Attic/serv2.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/ox_math/Attic/serv2.c	1999/10/29 08:06:41	1.1
+++ OpenXM/src/ox_math/Attic/serv2.c	1999/11/03 10:56:40	1.3
@@ -1,6 +1,5 @@
 /* -*- mode: C; coding: euc-japan -*- */
-/* $OpenXM$ */
-/* $Id: serv2.c,v 1.1 1999/10/29 08:06:41 ohara Exp $ */
+/* $OpenXM: OpenXM/src/ox_math/serv2.c,v 1.2 1999/11/02 06:11:58 ohara Exp $ */
 
 /* Open Mathematica サーバ */
 /* ファイルディスクリプタ 3, 4 は open されていると仮定して動作する. */
@@ -95,7 +94,7 @@ cmo *MATH_getObject2()
         break;
     case MLTKERR:
         fprintf(stderr, "type is ERROR.\n");
-        m = gen_error_object(MATH_ERROR);
+        m = (cmo *)gen_error_object(MATH_ERROR);
         break;
     case MLTKSYM:
         fprintf(stderr, "MLTKSYM.\n");
@@ -115,7 +114,7 @@ cmo *MATH_getObject2()
             fprintf(stderr, "%s ");
         }
         fprintf(stderr, "\n");
-        m = (cmo *)new_cmo_string(s[0]);
+        m = (cmo *)new_cmo_string(s);
         break;
     case MLTKREAL:
         fprintf(stderr, "MLTKREAL is not supported: we use MLTKSTR.\n");
@@ -144,7 +143,7 @@ int MATH_sendObject(cmo *m)
         break;
     default:
         MLPutFunction(lp, "ToExpression", 1);
-        s = CONVERT_CMO_TO_CSTRING(m);
+        s = convert_cmo_to_string(m);
         MLPutString(lp, s);
         fprintf(stderr, "put %s.", s);
         break;
@@ -196,17 +195,14 @@ int push(cmo* m)
     }
 }
 
-/* エラーのときは NULL を返す */
-/* gen_error_object(SM_popCMO); */
-/* CMO_ERROR2 */
-
+/* スタックが空のときは, (CMO_NULL) をかえす. */
 cmo* pop()
 {
     if (Stack_Pointer > 0) {
         Stack_Pointer--;
         return Operand_Stack[Stack_Pointer];
     }
-    return NULL;
+    return new_cmo_null();
 }
 
 void pops(int n)
@@ -217,7 +213,6 @@ void pops(int n)
     }
 }
 
-
 /* sm_XXX 関数群は、エラーのときは 0 以外の値を返し、呼び出し元で
    エラーオブジェクトをセットする */
 int sm_popCMO(int fd_write)
@@ -252,8 +247,8 @@ int sm_popString(int fd_write)
     fprintf(stderr, "code: SM_popString.\n");
 #endif
 
-    if ((m = pop()) != NULL && (s = CONVERT_CMO_TO_CSTRING(m)) != NULL) {
-        send_ox_cmo(fd_write, new_cmo_string(s));
+    if ((m = pop()) != NULL && (s = convert_cmo_to_string(m)) != NULL) {
+        send_ox_cmo(fd_write, (cmo *)new_cmo_string(s));
         return 0;
     }
     return SM_popString;
@@ -343,7 +338,7 @@ int execute_sm_command(int fd_write, int code)
     case SM_executeFunction:
         err = sm_executeFunction(fd_write);
         break;
-    case SM_setMathcap:
+    case SM_setMathCap:
         pop();  /* 無視する */
         break;
     default:
@@ -352,6 +347,6 @@ int execute_sm_command(int fd_write, int code)
     }
 
     if (err != 0) {
-        push(gen_error_object(err));
+        push((cmo *)gen_error_object(err));
     }
 }