=================================================================== RCS file: /home/cvs/OpenXM/src/ox_toolkit/sample1.c,v retrieving revision 1.2 retrieving revision 1.8 diff -u -p -r1.2 -r1.8 --- OpenXM/src/ox_toolkit/sample1.c 2000/03/10 12:24:39 1.2 +++ OpenXM/src/ox_toolkit/sample1.c 2003/09/15 09:31:42 1.8 @@ -1,5 +1,5 @@ /* -*- mode: C -*- */ -/* $OpenXM: OpenXM/src/ox_toolkit/sample1.c,v 1.1 1999/12/16 06:09:42 ohara Exp $ */ +/* $OpenXM: OpenXM/src/ox_toolkit/sample1.c,v 1.7 2003/03/30 08:05:23 ohara Exp $ */ /* This sample program explains how to construct @@ -16,32 +16,35 @@ #include #include "ox_toolkit.h" +OXFILE* ox_start(char* host, char* prog1, char* prog2); + /* This program uses High-level functions of OpenXM C library. */ int main() { - ox_file_t s; - cmo_list *c; + OXFILE *s; + cmo_list *c; - /* starting an OpenXM server */ + ox_stderr_init(stderr); + /* starting an OpenXM server */ s = ox_start("localhost", "ox", "ox_sm1"); - ox_push_cmo(s, (cmo *)new_cmo_int32(32)); - ox_push_cmo(s, (cmo *)new_cmo_string("Hello")); + ox_push_cmo(s, (cmo *)new_cmo_int32(32)); + ox_push_cmo(s, (cmo *)new_cmo_string("Hello")); - /* making a list {10000, -2342, 3141592653289793238462643383279}. + /* making a list {10000, -2342, 3141592653289793238462643383279}. the elements are a bignum. */ - c = new_cmo_list(); + c = new_cmo_list(); - append_cmo_list(c, new_cmo_zz_set_si(10000)); - append_cmo_list(c, new_cmo_zz_set_si(-2342)); - append_cmo_list(c, new_cmo_zz_set_string("3141592653289793238462643383279")); + list_append(c, (cmo *)new_cmo_zz_set_si(10000)); + list_append(c, (cmo *)new_cmo_zz_set_si(-2342)); + list_append(c, (cmo *)new_cmo_zz_set_string("3141592653289793238462643383279")); - /* sending the list above. */ - ox_push_cmo(s, (cmo *)c); + /* sending the list above. */ + ox_push_cmo(s, (cmo *)c); - ox_push_cmd(s, SM_popCMO); - ox_push_cmd(s, SM_popCMO); - ox_push_cmd(s, SM_popCMO); + ox_push_cmd(s, SM_popCMO); + ox_push_cmd(s, SM_popCMO); + ox_push_cmd(s, SM_popCMO); ox_close(s); return 0;