===================================================================
RCS file: /home/cvs/OpenXM/src/ox_toolkit/cmo.c,v
retrieving revision 1.2
retrieving revision 1.6
diff -u -p -r1.2 -r1.6
--- OpenXM/src/ox_toolkit/cmo.c	2000/10/12 15:50:10	1.2
+++ OpenXM/src/ox_toolkit/cmo.c	2003/01/17 06:49:53	1.6
@@ -1,5 +1,5 @@
 /* -*- 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.
@@ -73,6 +73,9 @@ 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);
     }
@@ -220,6 +223,14 @@ 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));
@@ -330,7 +341,7 @@ 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;