version 1.18, 2005/03/03 07:25:17 |
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.17 2003/11/02 03:09:16 iwane 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 162 cmo_list* new_cmo_list() |
|
Line 186 cmo_list* new_cmo_list() |
|
c->length = 0; |
c->length = 0; |
c->head->next = c->head; |
c->head->next = c->head; |
c->head->prev = c->head; |
c->head->prev = c->head; |
|
return c; |
|
} |
|
|
|
cmo_list* new_cmo_list_set(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_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; |
return c; |
} |
} |
|
|