![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to math2ox.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_math|
Return to math2ox.c CVS log | Up to [local] / OpenXM / src / ox_math |
| version 1.21, 2003/01/13 12:04:53 | version 1.24, 2005/07/26 12:52:04 | ||
|---|---|---|---|
|
|
||
| /* -*- mode: C; coding: euc-japan -*- */ | /* -*- mode: C; coding: euc-japan -*- */ | ||
| /* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.20 2003/01/11 12:38:57 ohara Exp $ */ | /* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.23 2005/07/20 17:48:03 ohara Exp $ */ | ||
| /* | /* | ||
| Copyright (C) Katsuyoshi OHARA, 2000. | Copyright (C) Katsuyoshi OHARA, 2000. | ||
|
|
||
| #include <signal.h> | #include <signal.h> | ||
| #include <mathlink.h> | #include <mathlink.h> | ||
| #include <ox_toolkit.h> | #include <ox_toolkit.h> | ||
| #include "sm.h" | |||
| static char *host = "localhost"; | static char *host = "localhost"; | ||
| static char *ctlserv = "ox"; | static char *ctlserv = "ox"; | ||
|
|
||
| the function send the message to the OX server id. */ | the function send the message to the OX server id. */ | ||
| int OX_sendMessage(int id, char *s) | int OX_sendMessage(int id, char *s) | ||
| { | { | ||
| cmo *m; | cmo *m = ox_parse_lisp(s); | ||
| int len = strlen(s); | if(m != NULL) { | ||
| init_parser(s); | send_ox(ss[id], m); | ||
| if(s != NULL && len > 0 && (m = parse()) != NULL) { | |||
| if (m->tag == OX_DATA) { | |||
| send_ox_cmo(ss[id], ((ox_data *)m)->cmo); | |||
| }else if (m->tag == OX_COMMAND) { | |||
| send_ox_command(ss[id], ((ox_command *)m)->command); | |||
| }else { | |||
| send_ox_cmo(ss[id], m); | |||
| } | |||
| return 0; | return 0; | ||
| } | } | ||
| return -1; /* if we failed. */ | return -1; /* if we failed. */ | ||
|
|
||
| return ss[id]; | return ss[id]; | ||
| } | } | ||
| #define VERSION 0x11121400 | #define VERSION "2000/11/29" | ||
| #define ID_STRING "2000/11/29" | |||
| int main(int argc, char *argv[]) | int main(int argc, char *argv[]) | ||
| { | { | ||
| ox_stderr_init(NULL); | ox_stderr_init(NULL); | ||
| /* setting the OX parser */ | ss = new_sstack(20); | ||
| setflag_parse(PFLAG_ADDREV); | mathcap_init(VERSION, "math2ox"); | ||
| ss = new_sstack(20); | |||
| mathcap_init(VERSION, ID_STRING, "math2ox", NULL, NULL); | |||
| MLMain(argc, argv); | MLMain(argc, argv); | ||
| } | } |