=================================================================== RCS file: /home/cvs/OpenXM/src/ox_math/Attic/serv2.c,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- OpenXM/src/ox_math/Attic/serv2.c 1999/11/04 03:05:51 1.4 +++ OpenXM/src/ox_math/Attic/serv2.c 1999/11/04 19:33:17 1.5 @@ -1,5 +1,5 @@ /* -*- mode: C; coding: euc-japan -*- */ -/* $OpenXM: OpenXM/src/ox_math/serv2.c,v 1.3 1999/11/03 10:56:40 ohara Exp $ */ +/* $OpenXM: OpenXM/src/ox_math/serv2.c,v 1.4 1999/11/04 03:05:51 ohara Exp $ */ /* Open Mathematica サーバ */ /* ファイルディスクリプタ 3, 4 は open されていると仮定して動作する. */ @@ -29,7 +29,7 @@ typedef cmo_zz mlo_zz; typedef struct { int tag; int length; - cell *head; + cell head[1]; char *function; } mlo_function; @@ -39,6 +39,7 @@ mlo *receive_mlo_zz() char *s; mlo *m; + fprintf(stderr, "--debug: MLO == MLTKINT.\n"); MLGetString(lp, &s); fprintf(stderr, "--debug: zz = %s.\n", s); m = (mlo *)new_cmo_zz_set_string(s); @@ -50,25 +51,66 @@ mlo *receive_mlo_string() { char *s; mlo *m; + fprintf(stderr, "--debug: MLO == MLTKSTR.\n"); MLGetString(lp, &s); + fprintf(stderr, "--debug: string = \"%s\".\n", s); m = (cmo *)new_cmo_string(s); MLDisownString(lp, s); return m; } +cmo *receive_mlo_function() +{ + char *s; + cmo *m; + cmo *ob; + int i,n; + + fprintf(stderr, "--debug: MLO == MLTKFUNC.\n"); + MLGetFunction(lp, &s, &n); + fprintf(stderr, "--debug: Function = \"%s\", # of args = %d\n", s, n); + m = new_cmo_list(); + append_cmo_list(m, new_cmo_string(s)); + + for (i=0; ii); +} + +int send_mlo_string(cmo *m) +{ + char *s = ((cmo_string *)m)->s; + MLPutString(lp, s); + fprintf(stderr, "ox_math:: put %s.", s); +} + +int send_mlo_zz(cmo *m) +{ + char *s; + MLPutFunction(lp, "ToExpression", 1); + s = convert_cmo_to_string(m); + MLPutString(lp, s); + fprintf(stderr, "put %s.", s); +} + +int send_mlo_list(cmo *c) +{ + char *s; + cell *cp = ((cmo_list *)c)->head; + int len = length_cmo_list((cmo_list *)c); + + fprintf(stderr, "ox_math:: put List with %d args.\n", len); + MLPutFunction(lp, "List", len); + while(cp->next != NULL) { + send_mlo(cp->cmo); + cp = cp->next; + } +} + int MATH_sendObject(cmo *m) { + send_mlo(m); + MLEndPacket(lp); +} + +int send_mlo(cmo *m) +{ char *s; switch(m->tag) { case CMO_INT32: - MLPutInteger(lp, ((cmo_int32 *)m)->i); + send_mlo_int32(m); break; case CMO_STRING: - s = ((cmo_string *)m)->s; - MLPutString(lp, s); - fprintf(stderr, "put %s.", s); + send_mlo_string(m); break; + case CMO_LIST: + send_mlo_list(m); + break; default: MLPutFunction(lp, "ToExpression", 1); s = convert_cmo_to_string(m); @@ -210,7 +236,7 @@ int MATH_executeFunction(char *function, int argc, cmo int i; MLPutFunction(lp, function, argc); for (i=0; itag); if (m->tag == CMO_STRING) { - fprintf(stderr, "server:: %s\n", ((cmo_string *)m)->s); - } + fprintf(stderr, "ox_math:: a cmo_string(%s) was pushed.\n", ((cmo_string *)m)->s); + }else { + fprintf(stderr, "ox_math:: a cmo(%d) was pushed.\n", m->tag); + } #endif Operand_Stack[Stack_Pointer] = m; Stack_Pointer++; if (Stack_Pointer >= SIZE_OPERAND_STACK) { fprintf(stderr, "stack over flow.\n"); - exit(1); + exit(1); /* 手抜き */ } } @@ -267,7 +294,7 @@ int sm_popCMO(int fd_write) { cmo* m = pop(); - fprintf(stderr, "code: SM_popCMO.\n"); + fprintf(stderr, "ox_math:: opecode = SM_popCMO. (tag = %d)\n", m->tag); if (m != NULL) { send_ox_cmo(fd_write, m); return 0; @@ -292,7 +319,7 @@ int sm_popString(int fd_write) cmo* m; #ifdef DEBUG - fprintf(stderr, "code: SM_popString.\n"); + fprintf(stderr, "ox_math:: opecode = SM_popString.\n"); #endif if ((m = pop()) != NULL && (s = convert_cmo_to_string(m)) != NULL) { @@ -307,7 +334,7 @@ int sm_executeStringByLocalParser(int fd_write) { cmo* m = NULL; #ifdef DEBUG - fprintf(stderr, "code: SM_executeStringByLocalParser.\n"); + fprintf(stderr, "ox_math:: opecode = SM_executeStringByLocalParser.\n"); #endif if ((m = pop()) != NULL && m->tag == CMO_STRING) { /* for mathematica */