OpenXM/src/ox_math/math2ox.c - diff

Return to math2ox.c CVS log

Up to [local] / OpenXM / src / ox_math

version 1.22, 2003/02/04 14:22:04

version 1.23, 2005/07/20 17:48:03

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.21 2003/01/13 12:04:53 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_math/math2ox.c,v 1.22 2003/02/04 14:22:04 ohara Exp $ */

Line 85 int OX_parse(int id, char *s)

the function send the message to the OX server id. */

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 -1; /* if we failed. */

Line 191 int main(int argc, char *argv[])

Line 182 int main(int argc, char *argv[])

{

ox_stderr_init(NULL);

/* setting the OX parser */

ss = new_sstack(20);

setflag_parse(PFLAG_ADDREV);

ss = new_sstack(20);

mathcap_init(VERSION, ID_STRING, "math2ox", NULL, NULL);

MLMain(argc, argv);