version 1.13, 2003/09/15 09:31:42 |
version 1.15, 2005/07/26 12:52:05 |
|
|
/* -*- mode: C -*- */ |
/* -*- 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.14 2005/07/20 17:48:03 ohara Exp $ */ |
|
|
/* A sample implementation of an OpenXM client with OpenXM C library */ |
/* A sample implementation of an OpenXM client with OpenXM C library */ |
|
|
Line 41 static void prompt() |
|
Line 41 static void prompt() |
|
{ |
{ |
fprintf(stdout, "> "); |
fprintf(stdout, "> "); |
fgets(cmdline, size, stdin); |
fgets(cmdline, size, stdin); |
init_parser(cmdline); |
|
} |
} |
|
|
#define VERSION 0x11121500 |
#define VERSION 0x11121500 |
|
|
ox_printf("testclient:: cmo received.(%p)\n", c); |
ox_printf("testclient:: cmo received.(%p)\n", c); |
print_cmo(c); |
print_cmo(c); |
|
|
mathcap_init(VERSION, ID_STRING, "testclient", NULL, NULL); |
mathcap_init(ID_STRING, "testclient"); |
send_ox_cmo(sv, (cmo *)oxf_cmo_mathcap(sv)); |
send_ox_cmo(sv, (cmo *)oxf_cmo_mathcap(sv)); |
|
|
ox_reset(sv); |
ox_reset(sv); |
|
|
{ |
{ |
cmo *c, *m; |
cmo *c, *m; |
|
|
mathcap_init(1000, "test!", "testclient", NULL, NULL); |
mathcap_init("test!", "testclient"); |
m = (cmo *)oxf_cmo_mathcap(sv); |
m = (cmo *)oxf_cmo_mathcap(sv); |
ox_printf("testclient:: test cmo_mathcap.\n"); |
ox_printf("testclient:: test cmo_mathcap.\n"); |
send_ox_cmo(sv, m); |
send_ox_cmo(sv, m); |
Line 113 int main(int argc, char* argv[]) |
|
Line 112 int main(int argc, char* argv[]) |
|
test_1(); |
test_1(); |
} |
} |
|
|
setflag_parse(PFLAG_ADDREV); |
while(prompt(), (m = ox_parse_lisp(cmdline)) != NULL) { |
|
|
while(prompt(), (m = parse()) != NULL) { |
|
send_ox(sv, m); |
send_ox(sv, m); |
if (m->tag == OX_COMMAND) { |
if (m->tag == OX_COMMAND) { |
code = ((ox_command *)m)->command; |
code = ((ox_command *)m)->command; |