version 1.26, 2003/09/18 12:46:08 |
version 1.33, 2005/10/12 04:03:37 |
|
|
/* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.25 2003/09/15 09:31:41 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.32 2005/07/26 12:52:05 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> |
Line 54 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 182 cmo_int32* new_cmo_int32(int i); |
|
Line 180 cmo_int32* new_cmo_int32(int i); |
|
cmo_string* new_cmo_string(char* s); |
cmo_string* new_cmo_string(char* s); |
cmo_mathcap* new_cmo_mathcap(cmo* ob); |
cmo_mathcap* new_cmo_mathcap(cmo* ob); |
cmo_list* new_cmo_list(); |
cmo_list* new_cmo_list(); |
|
cmo_list* new_cmo_list_array(void *a[], int n); |
|
cmo_list* new_cmo_list_array_map(void *a[], int n, void *(* mapf)(void *)); |
cmo_monomial32* new_cmo_monomial32(); |
cmo_monomial32* new_cmo_monomial32(); |
cmo_monomial32* new_cmo_monomial32_size(int size); |
cmo_monomial32* new_cmo_monomial32_size(int size); |
cmo_zz* new_cmo_zz(); |
cmo_zz* new_cmo_zz(); |
Line 190 cmo_zz* new_cmo_zz_set_si(int integer); |
|
Line 190 cmo_zz* new_cmo_zz_set_si(int integer); |
|
cmo_zz* new_cmo_zz_set_mpz(mpz_ptr z); |
cmo_zz* new_cmo_zz_set_mpz(mpz_ptr z); |
cmo_zz* new_cmo_zz_noinit(); |
cmo_zz* new_cmo_zz_noinit(); |
cmo_zz* new_cmo_zz_set_string(char* s); |
cmo_zz* new_cmo_zz_set_string(char* s); |
|
cmo_qq* new_cmo_qq_noinit(); |
|
cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q); |
|
cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den); |
cmo_zero* new_cmo_zero(); |
cmo_zero* new_cmo_zero(); |
cmo_double* new_cmo_double(double d); |
cmo_double* new_cmo_double(double d); |
cmo_distributed_polynomial* new_cmo_distributed_polynomial(); |
cmo_distributed_polynomial* new_cmo_distributed_polynomial(); |
Line 210 char* new_string_set_cmo(cmo* m); |
|
Line 213 char* new_string_set_cmo(cmo* m); |
|
|
|
cmo_error2* make_error_object(int err_code, cmo* ob); |
cmo_error2* make_error_object(int err_code, cmo* ob); |
|
|
|
cmo* ox_parse_lisp(char *s); |
|
|
/* Low level API */ |
/* Low level API */ |
cmo* receive_cmo(OXFILE *fp); |
cmo* receive_cmo(OXFILE *fp); |
cmo* receive_cmo_tag(OXFILE *fp, int tag); |
cmo* receive_cmo_tag(OXFILE *fp, int tag); |
Line 268 int add_hook_after_send_cmo(hook_t func); |
|
Line 273 int add_hook_after_send_cmo(hook_t func); |
|
#define PFLAG_ADDREV 1 |
#define PFLAG_ADDREV 1 |
|
|
typedef struct symbol *symbol_t; |
typedef struct symbol *symbol_t; |
|
|
void setflag_parse(int flag); |
|
cmo *parse(); |
|
void init_parser(char *s); |
|
|
|
symbol_t lookup_by_symbol(char *key); |
symbol_t lookup_by_symbol(char *key); |
symbol_t lookup_by_token(int tok); |
symbol_t lookup_by_token(int tok); |