version 1.5, 2000/10/10 05:23:21 |
version 1.7, 2000/11/27 09:57:10 |
|
|
/* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/testclient.c,v 1.4 2000/03/10 12:24:40 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/testclient.c,v 1.6 2000/11/21 07:59:08 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 47 static int prompt() |
|
Line 47 static int prompt() |
|
#define VERSION 0x11121500 |
#define VERSION 0x11121500 |
#define ID_STRING "v0.11121500" |
#define ID_STRING "v0.11121500" |
|
|
|
mathcap *oxf_mathcap(OXFILE *oxfp) |
|
{ |
|
if (oxfp->mathcap == NULL) { |
|
oxfp->mathcap = new_mathcap(); |
|
} |
|
return oxfp->mathcap; |
|
} |
|
|
|
cmo_mathcap *oxf_cmo_mathcap(OXFILE *oxfp) |
|
{ |
|
return mathcap_get(oxf_mathcap(oxfp)); |
|
} |
|
|
int test_0() |
int test_0() |
{ |
{ |
cmo* c = NULL; |
cmo* c = NULL; |
|
|
print_cmo(c); |
print_cmo(c); |
fflush(stderr); |
fflush(stderr); |
|
|
mathcap_sysinfo_set(VERSION, ID_STRING, "testclient"); |
mathcap_init(VERSION, ID_STRING, "testclient", NULL, NULL); |
send_ox_cmo(sv, mathcap_get()); |
send_ox_cmo(sv, oxf_cmo_mathcap(sv)); |
|
|
ox_reset(sv); |
ox_reset(sv); |
send_ox_cmo(sv, (cmo *)new_cmo_string("N[ArcTan[1]]")); |
send_ox_cmo(sv, (cmo *)new_cmo_string("N[ArcTan[1]]")); |
|
|
{ |
{ |
cmo *c, *m; |
cmo *c, *m; |
|
|
mathcap_sysinfo_set(1000, "test!", "testclient"); |
mathcap_init(1000, "test!", "testclient", NULL, NULL); |
m = mathcap_get(); |
m = oxf_cmo_mathcap(sv); |
fprintf(stderr, "testclient:: test cmo_mathcap.\n"); |
fprintf(stderr, "testclient:: test cmo_mathcap.\n"); |
send_ox_cmo(sv, m); |
send_ox_cmo(sv, m); |
send_ox_command(sv, SM_popCMO); |
send_ox_command(sv, SM_popCMO); |