version 1.11, 2003/06/02 10:25:56 |
version 1.13, 2003/06/05 21:12:07 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.10 2003/03/30 08:05:22 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.12 2003/06/03 16:06:48 ohara Exp $ */ |
|
|
/* |
/* |
This module includes functions for sending/receiveng CMO's. |
This module includes functions for sending/receiveng CMO's. |
|
|
#include "ox_toolkit.h" |
#include "ox_toolkit.h" |
#include "parse.h" |
#include "parse.h" |
|
|
static cell* new_cell(); |
static cell* new_cell(cmo *ob, int e); |
static char* new_string_set_cmo_null(); |
static char* new_string_set_cmo_null(); |
static char* new_string_set_cmo_int32(int integer); |
static char* new_string_set_cmo_int32(int integer); |
static char* new_string_set_cmo_list(cmo_list *c); |
static char* new_string_set_cmo_list(cmo_list *c); |
Line 22 static char* new_string_set_cmo_zz(cmo_zz *c); |
|
Line 22 static char* new_string_set_cmo_zz(cmo_zz *c); |
|
static char* new_string_set_cmo_double(cmo_double *m); |
static char* new_string_set_cmo_double(cmo_double *m); |
|
|
/* functions for a cmo_list */ |
/* functions for a cmo_list */ |
static cell* new_cell(cmo *ob) |
static cell* new_cell(cmo *ob, int e) |
{ |
{ |
cell* h = MALLOC(sizeof(cell)); |
cell* h = MALLOC(sizeof(cell)); |
h->next = NULL; |
h->next = NULL; |
h->prev = NULL; |
h->prev = NULL; |
h->cmo = ob; |
h->cmo = ob; |
|
h->exp = e; |
return h; |
return h; |
} |
} |
|
|
Line 63 static void list_cons(cell *head, cell *new) |
|
Line 64 static void list_cons(cell *head, cell *new) |
|
|
|
cmo_list *list_append(cmo_list* this, cmo* ob) |
cmo_list *list_append(cmo_list* this, cmo* ob) |
{ |
{ |
list_cons(this->head, new_cell(ob)); |
list_cons(this->head, new_cell(ob, 0)); |
this->length++; |
this->length++; |
return this; |
return this; |
} |
} |
|
|
|
cmo_list *list_append_monomial(cmo_list* this, cmo* coef, int exp) |
|
{ |
|
list_cons(this->head, new_cell(coef, exp)); |
|
this->length++; |
|
return this; |
|
} |
|
|
/* call as list_appendl(List, ob1, ob2, ob3, NULL) */ |
/* call as list_appendl(List, ob1, ob2, ob3, NULL) */ |
cmo_list *list_appendl(cmo_list* this, ...) |
cmo_list *list_appendl(cmo_list* this, ...) |
{ |
{ |
Line 112 void resize_mpz(mpz_ptr mpz, int size) |
|
Line 120 void resize_mpz(mpz_ptr mpz, int size) |
|
/* functions named new_cmo_*. */ |
/* functions named new_cmo_*. */ |
cmo_null* new_cmo_null() |
cmo_null* new_cmo_null() |
{ |
{ |
cmo_null* m = MALLOC(sizeof(cmo_null)); |
cmo_null* m = MALLOC_ATOMIC(sizeof(cmo_null)); |
m->tag = CMO_NULL; |
m->tag = CMO_NULL; |
return m; |
return m; |
} |
} |
Line 120 cmo_null* new_cmo_null() |
|
Line 128 cmo_null* new_cmo_null() |
|
cmo_int32* new_cmo_int32(int i) |
cmo_int32* new_cmo_int32(int i) |
{ |
{ |
cmo_int32* c; |
cmo_int32* c; |
c = MALLOC(sizeof(cmo_int32)); |
c = MALLOC_ATOMIC(sizeof(cmo_int32)); |
c->tag = CMO_INT32; |
c->tag = CMO_INT32; |
c->i = i; |
c->i = i; |
return c; |
return c; |
} |
} |
Line 131 cmo_string* new_cmo_string(char* s) |
|
Line 139 cmo_string* new_cmo_string(char* s) |
|
cmo_string* c = MALLOC(sizeof(cmo_string)); |
cmo_string* c = MALLOC(sizeof(cmo_string)); |
c->tag = CMO_STRING; |
c->tag = CMO_STRING; |
if (s != NULL) { |
if (s != NULL) { |
c->s = MALLOC(strlen(s)+1); |
c->s = MALLOC_ATOMIC(strlen(s)+1); |
strcpy(c->s, s); |
strcpy(c->s, s); |
}else { |
}else { |
c->s = NULL; |
c->s = NULL; |
Line 219 cmo_zz* new_cmo_zz_size(int size) |
|
Line 227 cmo_zz* new_cmo_zz_size(int size) |
|
|
|
cmo_zero* new_cmo_zero() |
cmo_zero* new_cmo_zero() |
{ |
{ |
cmo_zero* m = MALLOC(sizeof(cmo_zero)); |
cmo_zero* m = MALLOC_ATOMIC(sizeof(cmo_zero)); |
m->tag = CMO_ZERO; |
m->tag = CMO_ZERO; |
return m; |
return m; |
} |
} |
|
|
cmo_double *new_cmo_double(double d) |
cmo_double *new_cmo_double(double d) |
{ |
{ |
cmo_double* m = MALLOC(sizeof(cmo_double)); |
cmo_double* m = MALLOC_ATOMIC(sizeof(cmo_double)); |
m->tag = CMO_64BIT_MACHINE_DOUBLE; |
m->tag = CMO_64BIT_MACHINE_DOUBLE; |
m->d = d; |
m->d = d; |
return m; |
return m; |
Line 234 cmo_double *new_cmo_double(double d) |
|
Line 242 cmo_double *new_cmo_double(double d) |
|
|
|
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_ATOMIC(sizeof(cmo_dms_generic)); |
m->tag = CMO_DMS_GENERIC; |
m->tag = CMO_DMS_GENERIC; |
return m; |
return m; |
} |
} |
Line 329 static char *new_string_set_cmo_double(cmo_double *m) |
|
Line 337 static char *new_string_set_cmo_double(cmo_double *m) |
|
char buff[1024]; |
char buff[1024]; |
char *s; |
char *s; |
|
|
sprintf(buff, "%lf", m->d); |
sprintf(buff, "%.20f", m->d); |
s = MALLOC(strlen(buff)+1); |
s = MALLOC_ATOMIC(strlen(buff)+1); |
strcpy(s, buff); |
strcpy(s, buff); |
|
|
return s; |
return s; |