===================================================================
RCS file: /home/cvs/OpenXM/src/ox_toolkit/cmo.c,v
retrieving revision 1.18
retrieving revision 1.21
diff -u -p -r1.18 -r1.21
--- OpenXM/src/ox_toolkit/cmo.c	2005/03/03 07:25:17	1.18
+++ OpenXM/src/ox_toolkit/cmo.c	2005/10/12 04:03:37	1.21
@@ -1,5 +1,5 @@
 /* -*- mode: C; coding: euc-japan -*- */
-/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.17 2003/11/02 03:09:16 iwane Exp $ */
+/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.20 2005/07/26 12:52:04 ohara Exp $ */
 
 /* 
    This module includes functions for sending/receiveng CMO's.
@@ -162,6 +162,26 @@ cmo_list* new_cmo_list()
     c->length = 0;
     c->head->next = c->head;
     c->head->prev = c->head;
+    return c;
+}
+
+cmo_list* new_cmo_list_array(void *array[], int n)
+{
+    int i;
+    cmo_list* c = new_cmo_list();
+    for(i=0; i<n; i++) {
+        list_append(c, array[i]);
+    }
+    return c;
+}
+
+cmo_list* new_cmo_list_array_map(void *array[], int n, void *(* mapf)(void *))
+{
+    int i;
+    cmo_list* c = new_cmo_list();
+    for(i=0; i<n; i++) {
+        list_append(c, (cmo *)mapf(array[i]));
+    }
     return c;
 }