===================================================================
RCS file: /home/cvs/OpenXM/src/ox_toolkit/testclient.c,v
retrieving revision 1.13
retrieving revision 1.17
diff -u -p -r1.13 -r1.17
--- OpenXM/src/ox_toolkit/testclient.c	2003/09/15 09:31:42	1.13
+++ OpenXM/src/ox_toolkit/testclient.c	2016/08/23 06:13:10	1.17
@@ -1,8 +1,11 @@
 /* -*- mode: C -*- */
-/* $OpenXM: OpenXM/src/ox_toolkit/testclient.c,v 1.12 2003/03/23 20:17:35 ohara Exp $ */
+/* $OpenXM: OpenXM/src/ox_toolkit/testclient.c,v 1.16 2005/10/12 04:03:37 takayama Exp $ */
 
 /* A sample implementation of an OpenXM client with OpenXM C library */
-
+/* Sample input
+  (OX_DATA, (CMO_STRING,"printf(\"%a\");"))
+  (OX_COMMAND,(SM_executeStringByLocalParser))
+ */
 #include <stdio.h>
 #include <stdlib.h>
 #include <unistd.h>
@@ -41,7 +44,6 @@ static void prompt()
 {
     fprintf(stdout, "> ");
     fgets(cmdline, size, stdin);
-    init_parser(cmdline);
 }
 
 #define VERSION 0x11121500
@@ -95,7 +97,7 @@ int main(int argc, char* argv[])
     ox* m = NULL;
     cmo* c = NULL;
     int code;
-    char *server = "ox_sm1";
+    char *server = "ox_asir";
 
     ox_stderr_init(stderr);
 
@@ -103,7 +105,7 @@ int main(int argc, char* argv[])
         server = argv[1];
     }
     ox_printf("testclient:: I use %s as an OX server.\n", server);
-/*    sv = ox_start("localhost", "ox", server);  */
+    sv = ox_start("localhost", "ox", server);  
     if (sv == NULL) {
         ox_printf("testclient:: I cannot connect to servers.\n");
         exit(1);
@@ -113,9 +115,7 @@ int main(int argc, char* argv[])
         test_1();
     }
 
-    setflag_parse(PFLAG_ADDREV);
-
-    while(prompt(), (m = parse()) != NULL) {
+    while(prompt(), (m = ox_parse_lisp(cmdline)) != NULL) {
         send_ox(sv, m);
         if (m->tag == OX_COMMAND) {
             code = ((ox_command *)m)->command;