OpenXM/src/ox_toolkit/sample1.c - diff

Return to sample1.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.1, 1999/12/16 06:09:42

version 1.8, 2003/09/15 09:31:42

Line 1

/* -*- mode: C -*- */

/* $OpenXM$ */

/* $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

Line 14

#include <stdio.h>

#include <stdlib.h>

#include <unistd.h>

#include "ox.h"

#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;

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"));

/* making a list {10000, -2342, 3141592653289793238462643383279}.

the elements are a bignum. */

c = new_cmo_list();

append_cmo_list(c, new_cmo_zz_set_si(10000));

list_append(c, (cmo *)new_cmo_zz_set_si(10000));

append_cmo_list(c, new_cmo_zz_set_si(-2342));

list_append(c, (cmo *)new_cmo_zz_set_si(-2342));

append_cmo_list(c, new_cmo_zz_set_string("3141592653289793238462643383279"));

list_append(c, (cmo *)new_cmo_zz_set_string("3141592653289793238462643383279"));

/* sending the list above. */

ox_push_cmo(s, (cmo *)c);

ox_push_cmd(s, SM_popCMO);

ox_close(s);

return 0;