version 1.19, 2005/07/20 17:48:03 |
version 1.20, 2005/07/26 12:52:04 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.18 2005/03/03 07:25:17 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.19 2005/07/20 17:48:03 ohara Exp $ */ |
|
|
/* |
/* |
This module includes functions for sending/receiveng CMO's. |
This module includes functions for sending/receiveng CMO's. |
Line 110 cmo *list_nth(cmo_list* this, int n) |
|
Line 110 cmo *list_nth(cmo_list* this, int n) |
|
return NULL; |
return NULL; |
} |
} |
|
|
|
void **list_to_array(cmo_list *c) |
|
{ |
|
int i; |
|
int n = list_length(c); |
|
void **array = MALLOC(sizeof(void *)*(n+1)); |
|
for(i=0; i<n; i++) { |
|
array[i] = list_nth(c, i); |
|
} |
|
array[n] = NULL; |
|
return array; |
|
} |
|
|
|
void **list_to_array_map(cmo_list *c, void *(* mapf)(void *)) |
|
{ |
|
int i; |
|
int n = list_length(c); |
|
void **array = MALLOC(sizeof(void *)*(n+1)); |
|
for(i=0; i<n; i++) { |
|
array[i] = mapf(list_nth(c, i)); |
|
} |
|
array[n] = NULL; |
|
return array; |
|
} |
|
|
/* for GNU mpz */ |
/* for GNU mpz */ |
void resize_mpz(mpz_ptr mpz, int size) |
void resize_mpz(mpz_ptr mpz, int size) |
{ |
{ |
Line 165 cmo_list* new_cmo_list() |
|
Line 189 cmo_list* new_cmo_list() |
|
return c; |
return c; |
} |
} |
|
|
cmo_list* new_cmo_list_array(void *array[], int n) |
cmo_list* new_cmo_list_set(void *array[], int n) |
{ |
{ |
int i; |
int i; |
cmo_list* c = new_cmo_list(); |
cmo_list* c = new_cmo_list(); |
Line 175 cmo_list* new_cmo_list_array(void *array[], int n) |
|
Line 199 cmo_list* new_cmo_list_array(void *array[], int n) |
|
return c; |
return c; |
} |
} |
|
|
cmo_list* new_cmo_list_array_map(void *array[], int n, void *(* mapf)(void *)) |
cmo_list* new_cmo_list_map(void *array[], int n, void *(* mapf)(void *)) |
{ |
{ |
int i; |
int i; |
cmo_list* c = new_cmo_list(); |
cmo_list* c = new_cmo_list(); |