version 1.21, 2003/06/02 20:38:41 |
version 1.29, 2005/03/03 06:21:23 |
|
|
/* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.20 2003/06/02 10:25:57 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.28 2005/03/03 04:40:51 ohara Exp $ */ |
|
|
#ifndef _OX_TOOLKIT_H_ |
#ifndef _OX_TOOLKIT_H_ |
|
|
|
|
#endif |
#endif |
|
|
#include <stdio.h> |
#include <stdio.h> |
#if defined(WITH_GMP) |
|
#include <gmp.h> |
#include <gmp.h> |
#else |
|
#include "gmp_fake.h" |
|
#endif /* WITH_GMP */ |
|
#include <ox/cmotag.h> |
#include <ox/cmotag.h> |
#include <ox/oxMessageTag.h> |
#include <ox/oxMessageTag.h> |
#include <ox/smCommand.h> |
#include <ox/smCommand.h> |
#include <gc/gc.h> |
#include <gc/gc.h> |
|
|
#define MALLOC(x) GC_MALLOC((x)) |
#define MALLOC(x) GC_MALLOC((x)) |
|
#define MALLOC_ATOMIC(x) GC_MALLOC_ATOMIC((x)) |
#define ALLOCA(x) alloca((x)) |
#define ALLOCA(x) alloca((x)) |
/* #define FREE(x) free((x)) */ |
/* #define FREE(x) free((x)) */ |
#define FREE(x) |
#define FREE(x) |
Line 53 typedef struct OXFILE{ |
|
Line 50 typedef struct OXFILE{ |
|
char *wbuf; |
char *wbuf; |
int wbuf_size; |
int wbuf_size; |
int wbuf_count; |
int wbuf_count; |
|
int (*send_double)(struct OXFILE *oxfp, double int64); |
|
double (*receive_double)(struct OXFILE *oxfp); |
} OXFILE; |
} OXFILE; |
|
|
typedef struct cmo { |
typedef struct cmo { |
Line 93 typedef struct cell { |
|
Line 92 typedef struct cell { |
|
struct cmo *cmo; |
struct cmo *cmo; |
struct cell *next; |
struct cell *next; |
struct cell *prev; |
struct cell *prev; |
|
int exp; |
} cell; |
} cell; |
|
|
typedef struct { |
typedef struct { |
Line 133 typedef struct { |
|
Line 133 typedef struct { |
|
cmo *ringdef; |
cmo *ringdef; |
} cmo_distributed_polynomial; |
} cmo_distributed_polynomial; |
|
|
|
/* The following is a derived class from cmo_list. |
|
that is, list_append can be used. */ |
|
typedef struct { |
|
int tag; |
|
int length; /* number of monomials */ |
|
cell head[1]; /* list of monomials */ |
|
int var; /* name of the main variable */ |
|
} cmo_polynomial_in_one_variable; |
|
|
|
typedef struct { |
|
int tag; |
|
cmo_list *ringdef; /* list of variables */ |
|
cmo *coef; /* ZZ, QQ, int32, Poly_in_1var, Tree, Zero, DPoly */ |
|
} cmo_recursive_polynomial; |
|
|
|
typedef struct { |
|
int tag; |
|
cmo_string *name; |
|
cmo_list *attributes; |
|
cmo_list *leaves; |
|
} cmo_tree; |
|
|
|
typedef struct { |
|
int tag; |
|
cmo_list *args; |
|
cmo_tree *body; |
|
} cmo_lambda; |
|
|
typedef cmo ox; |
typedef cmo ox; |
|
|
typedef ox ox_sync_ball; |
typedef ox ox_sync_ball; |
Line 166 cmo_distributed_polynomial* new_cmo_distributed_polyno |
|
Line 194 cmo_distributed_polynomial* new_cmo_distributed_polyno |
|
cmo_dms_generic* new_cmo_dms_generic(); |
cmo_dms_generic* new_cmo_dms_generic(); |
cmo_ring_by_name* new_cmo_ring_by_name(cmo* ob); |
cmo_ring_by_name* new_cmo_ring_by_name(cmo* ob); |
cmo_indeterminate* new_cmo_indeterminate(cmo* ob); |
cmo_indeterminate* new_cmo_indeterminate(cmo* ob); |
|
cmo_polynomial_in_one_variable* new_cmo_polynomial_in_one_variable(int var); |
|
cmo_recursive_polynomial* new_cmo_recursive_polynomial(cmo_list* ringdef, cmo* coef); |
|
cmo_tree* new_cmo_tree(cmo_string* name, cmo_list *attributes, cmo_list *leaves); |
|
cmo_lambda* new_cmo_lambda(cmo_list* args, cmo_tree* body); |
cmo_error2* new_cmo_error2(cmo* ob); |
cmo_error2* new_cmo_error2(cmo* ob); |
|
|
ox_data* new_ox_data(cmo* c); |
ox_data* new_ox_data(cmo* c); |
Line 210 cell* list_first(cmo_list *); |
|
Line 242 cell* list_first(cmo_list *); |
|
int list_endof(cmo_list *, cell *el); |
int list_endof(cmo_list *, cell *el); |
cell* list_next(cell *el); |
cell* list_next(cell *el); |
cmo_list* list_append(cmo_list*, cmo *ob); |
cmo_list* list_append(cmo_list*, cmo *ob); |
|
cmo_list* list_append_monomial(cmo_list* , cmo* coef, int exp); |
cmo_list* list_appendl(cmo_list*, ...); |
cmo_list* list_appendl(cmo_list*, ...); |
int list_length(cmo_list* ); |
int list_length(cmo_list* ); |
cmo* list_nth(cmo_list* , int n); |
cmo* list_nth(cmo_list* , int n); |
Line 255 int oxf_read(void *buffer, size_t size, size_t num, OX |
|
Line 288 int oxf_read(void *buffer, size_t size, size_t num, OX |
|
int oxf_write(void *buffer, size_t size, size_t num, OXFILE *oxfp); |
int oxf_write(void *buffer, size_t size, size_t num, OXFILE *oxfp); |
|
|
/* for OXFILE */ |
/* for OXFILE */ |
int oxf_listen(short *portp); |
int oxf_listen(int *portp); |
OXFILE *oxf_connect_active(char *hostname, short port); |
OXFILE *oxf_connect_active(char *hostname, short port); |
OXFILE *oxf_connect_passive(int listened); |
OXFILE *oxf_connect_passive(int listened); |
OXFILE *oxf_open(int fd); |
OXFILE *oxf_open(int fd); |