OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.2, 2000/10/12 15:50:10

version 1.6, 2003/01/17 06:49:53

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.1 2000/10/10 05:23:20 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.5 2003/01/13 12:03:12 ohara Exp $ */

This module includes functions for sending/receiveng CMO's.

Line 73 cmo_list *list_appendl(cmo_list* this, ...)

cmo *ob;

va_list ap;

va_start(ap, this);

if (this == NULL) {

this = new_cmo_list();

}

while((ob = va_arg(ap, cmo *)) != NULL) {

list_append(this, ob);

}

Line 220 cmo_zero* new_cmo_zero()

Line 223 cmo_zero* new_cmo_zero()

return m;

}

cmo_double *new_cmo_double(double d)

{

cmo_double* m = malloc(sizeof(cmo_double));

m->tag = CMO_64BIT_MACHINE_DOUBLE;

m->d = d;

return m;

}

cmo_dms_generic* new_cmo_dms_generic()

{

cmo_dms_generic* m = malloc(sizeof(cmo_dms_generic));

Line 330 char *new_string_set_cmo(cmo *m)

Line 341 char *new_string_set_cmo(cmo *m)

default:

#ifdef DEBUG

symp = lookup_by_tag(m->tag);

fprintf(stderr, "I do not know how to convert %s to a string.\n", symp->key);

ox_printf("I do not know how to convert %s to a string.\n", symp->key);

#endif

/* yet not implemented. */

return NULL;