version 1.4, 2003/01/11 11:42:31 |
version 1.6, 2003/01/17 06:49:53 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.3 2000/12/14 01:39:31 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. |
This module includes functions for sending/receiveng CMO's. |
Line 223 cmo_zero* new_cmo_zero() |
|
Line 223 cmo_zero* new_cmo_zero() |
|
return m; |
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* new_cmo_dms_generic() |
{ |
{ |
cmo_dms_generic* m = malloc(sizeof(cmo_dms_generic)); |
cmo_dms_generic* m = malloc(sizeof(cmo_dms_generic)); |
Line 333 char *new_string_set_cmo(cmo *m) |
|
Line 341 char *new_string_set_cmo(cmo *m) |
|
default: |
default: |
#ifdef DEBUG |
#ifdef DEBUG |
symp = lookup_by_tag(m->tag); |
symp = lookup_by_tag(m->tag); |
fprintf(ox_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 |
#endif |
/* yet not implemented. */ |
/* yet not implemented. */ |
return NULL; |
return NULL; |