version 1.22, 2003/02/04 14:22:04 |
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.21 2003/01/13 12:04:53 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. |
Line 85 int OX_parse(int id, char *s) |
|
Line 85 int OX_parse(int id, char *s) |
|
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. */ |
Line 184 static int ss_id_stream(int id) |
|
Line 175 static int ss_id_stream(int id) |
|
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); |
} |
} |