File: [local] / OpenXM / src / ox_toolkit / ox_toolkit.h (download)
Revision 1.1, Fri Mar 10 12:24:39 2000 UTC (24 years, 6 months ago) by ohara
Branch: MAIN
CVS Tags: RELEASE_1_1_3, RELEASE_1_1_2
ox.h and ox_tag.h have been renamed
|
/* -*- mode: C -*- */
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.1 2000/03/10 12:24:39 ohara Exp $ */
#ifndef _OX_TOOLKIT_H_
#define _OX_TOOLKIT_H_
#include <gmp.h>
#include "ox_toolkit_tags.h"
/* functions related to ox.c */
#define LOGFILE "/tmp/oxtk.XXXXXX"
/* Open Xm File Descripter */
typedef int oxfd;
#if 0
typedef struct {
int fd;
int byteorder;
} oxfile;
typedef oxfile *oxfd;
#endif
/* descripter pair. (needed by a client) */
typedef struct {
oxfd stream;
oxfd control;
} __ox_file_struct;
typedef __ox_file_struct *ox_file_t;
typedef struct {
int tag;
} cmo;
typedef cmo cmo_null;
typedef cmo cmo_zero;
typedef cmo cmo_dms_generic;
typedef struct {
int tag;
int i;
} cmo_int32;
typedef struct {
int tag;
int size;
char *body;
} cmo_datum;
typedef struct {
int tag;
char *s;
} cmo_string;
typedef struct {
int tag;
cmo *ob;
} cmo_mathcap;
typedef cmo_mathcap cmo_error2;
typedef cmo_mathcap cmo_ring_by_name;
typedef cmo_mathcap cmo_indeterminate;
typedef struct cell {
struct cell *next;
cmo *cmo;
} cell;
typedef struct {
int tag;
int length; /* length of this list (unnecessary) */
cell head[1];
} cmo_list;
typedef struct {
int tag;
int length;
int *exps;
cmo *coef;
} cmo_monomial32;
typedef struct {
int tag;
mpz_t mpz;
} cmo_zz;
typedef struct {
int tag;
cmo *num; /* Bunshi (cmo_zz) */
cmo *den; /* Bunbo (cmo_zz) */
} cmo_qq;
/* The following is a derived class from cmo_list.
that is, append_cmo_list can be used. */
typedef struct {
int tag;
int length; /* number of monomials */
cell head[1]; /* a list of monomials */
cmo *ringdef;
} cmo_distributed_polynomial;
typedef cmo ox;
typedef ox ox_sync_ball;
typedef struct {
int tag;
int command;
} ox_command;
typedef struct {
int tag;
cmo *cmo;
} ox_data;
cmo_null* new_cmo_null();
cmo_int32* new_cmo_int32(int i);
cmo_string* new_cmo_string(char* s);
cmo_mathcap* new_cmo_mathcap(cmo* ob);
cmo_list* new_cmo_list();
cmo_monomial32* new_cmo_monomial32();
cmo_monomial32* new_cmo_monomial32_size(int size);
cmo_zz* new_cmo_zz();
cmo_zz* new_cmo_zz_size(int size);
cmo_zz* new_cmo_zz_set_si(int integer);
cmo_zz* new_cmo_zz_set_mpz(mpz_ptr z);
cmo_zz* new_cmo_zz_noinit();
cmo_zz* new_cmo_zz_set_string(char* s);
cmo_zero* new_cmo_zero();
cmo_distributed_polynomial* new_cmo_distributed_polynomial();
cmo_dms_generic* new_cmo_dms_generic();
cmo_ring_by_name* new_cmo_ring_by_name(cmo* ob);
cmo_indeterminate* new_cmo_indeterminate(cmo* ob);
cmo_error2* new_cmo_error2(cmo* ob);
ox_data* new_ox_data(cmo* c);
ox_command* new_ox_command(int sm_code);
ox_sync_ball* new_ox_sync_ball();
char* new_string_set_cmo(cmo* m);
cmo_error2* make_error_object(int err_code, cmo* ob);
cmo* make_mathcap_object(int version, char *id_string);
/* Low level API */
cmo* receive_cmo(int fd);
int receive_int32(int fd);
int receive_ox_tag(int fd);
int send_cmo(int fd, cmo* m);
int send_int32(int fd, int integer);
int send_ox(int fd, ox* m);
int send_ox_cmo(int fd, cmo* m);
void send_ox_command(int fd, int sm_command);
int send_ox_tag(int fd, int tag);
int decideByteOrderClient(int fd, int order);
int decideByteOrderServer(int fd, int order);
int next_serial();
void setCmotypeDisable(int type);
cell* new_cell();
cmo* nth_cmo_list(cmo_list* this, int n);
int set_current_fd(int fd);
/* High level API */
ox_file_t ox_start(char* host, char* prog1, char* prog2);
ox_file_t ox_start_insecure_nonreverse(char* host, short portControl, short portStream);
ox_file_t ox_start_remote_with_ssh(char *dat_prog, char* host);
void ox_close(ox_file_t sv);
void ox_shutdown(ox_file_t sv);
void ox_reset(ox_file_t sv);
void ox_execute_string(ox_file_t sv, char* str);
cmo_mathcap* ox_mathcap(ox_file_t sv);
char* ox_popString(ox_file_t sv);
int ox_pops(ox_file_t sv, int num);
cmo* ox_pop_cmo(ox_file_t sv);
void ox_push_cmo(ox_file_t sv, cmo *c);
void ox_push_cmd(ox_file_t sv, int sm_code);
int ox_cmo_rpc(ox_file_t sv, char *function, int argc, cmo *argv[]);
int ox_flush(ox_file_t sv);
int append_cmo_list(cmo_list* this, cmo *ob);
int length_cmo_list(cmo_list* this);
cell* next_cell(cell *this);
int cmolen_cmo(cmo* m);
int init_dump_buff(char *buff);
int dump_cmo(cmo* m);
int dump_ox_command(ox_command* m);
int dump_ox_data(ox_data* m);
int print_cmo(cmo* c);
typedef cmo *(*hook_t)(int, cmo *);
int add_hook_before_send_cmo(hook_t func);
int add_hook_after_send_cmo(hook_t func);
/* functions related to parse.c */
#define PFLAG_ADDREV 1
typedef struct symbol *symbol_t;
int setflag_parse(int flag);
cmo *parse();
int init_parser(char *s);
symbol_t lookup_by_symbol(char *key);
symbol_t lookup_by_token(int tok);
symbol_t lookup_by_tag(int tag);
symbol_t lookup(int i);
char *symbol_get_key(symbol_t sp);
#endif /* _OX_TOOLKIT_H_ */