| version 1.1, 2000/03/10 12:24:39 |
version 1.5, 2000/11/18 04:49:55 |
|
|
| /* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
| /* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.4 2000/10/12 15:53:25 ohara Exp $ */ |
| |
|
| #ifndef _OX_TOOLKIT_H_ |
#ifndef _OX_TOOLKIT_H_ |
| |
|
| #define _OX_TOOLKIT_H_ |
#define _OX_TOOLKIT_H_ |
| |
|
| #include <gmp.h> |
#include <stdio.h> |
| #include "ox_toolkit_tags.h" |
#include <gmp.h> |
| |
#include <ox/cmotag.h> |
| |
#include <ox/oxMessageTag.h> |
| |
#include <ox/smCommand.h> |
| |
|
| |
#if !defined(__GNUC__) && !defined(__inline__) |
| |
#define __inline__ |
| |
#endif |
| |
|
| /* functions related to ox.c */ |
/* functions related to ox.c */ |
| |
|
| #define LOGFILE "/tmp/oxtk.XXXXXX" |
#define MATHCAP_FLAG_DENY 0 |
| |
#define MATHCAP_FLAG_ALLOW 1 |
| |
|
| /* Open Xm File Descripter */ |
/* Open Xm File Descripter */ |
| typedef int oxfd; |
typedef struct OXFILE{ |
| |
int fd; |
| |
int (*send_int32)(struct OXFILE *oxfp, int int32); |
| |
int (*receive_int32)(struct OXFILE *oxfp); |
| |
int serial_number; |
| |
struct OXFILE *control; /* pointer to his control server. */ |
| |
int error; |
| |
} OXFILE; |
| |
|
| #if 0 |
|
| typedef struct { |
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; |
int tag; |
| } cmo; |
} cmo; |
| |
|
| Line 64 typedef cmo_mathcap cmo_error2; |
|
| Line 63 typedef cmo_mathcap cmo_error2; |
|
| typedef cmo_mathcap cmo_ring_by_name; |
typedef cmo_mathcap cmo_ring_by_name; |
| typedef cmo_mathcap cmo_indeterminate; |
typedef cmo_mathcap cmo_indeterminate; |
| |
|
| |
/* a double linked list */ |
| typedef struct cell { |
typedef struct cell { |
| struct cell *next; |
|
| cmo *cmo; |
cmo *cmo; |
| |
struct cell *next; |
| |
struct cell *prev; |
| } cell; |
} cell; |
| |
|
| typedef struct { |
typedef struct { |
|
|
| cell head[1]; |
cell head[1]; |
| } cmo_list; |
} cmo_list; |
| |
|
| |
|
| typedef struct { |
typedef struct { |
| int tag; |
int tag; |
| int length; |
int length; |
|
|
| } cmo_qq; |
} cmo_qq; |
| |
|
| /* The following is a derived class from cmo_list. |
/* The following is a derived class from cmo_list. |
| that is, append_cmo_list can be used. */ |
that is, list_append can be used. */ |
| typedef struct { |
typedef struct { |
| int tag; |
int tag; |
| int length; /* number of monomials */ |
int length; /* number of monomials */ |
| Line 144 ox_sync_ball* new_ox_sync_ball(); |
|
| Line 144 ox_sync_ball* new_ox_sync_ball(); |
|
| char* new_string_set_cmo(cmo* m); |
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* make_mathcap_object(int version, char *id_string); |
|
| |
|
| /* Low level API */ |
/* Low level API */ |
| cmo* receive_cmo(int fd); |
cmo* receive_cmo(OXFILE *fp); |
| int receive_int32(int fd); |
int receive_int32(OXFILE *fp); |
| int receive_ox_tag(int fd); |
int receive_ox_tag(OXFILE *fp); |
| |
|
| int send_cmo(int fd, cmo* m); |
void send_cmo(OXFILE *fp, cmo* m); |
| int send_int32(int fd, int integer); |
int send_int32(OXFILE *fp, int integer); |
| int send_ox(int fd, ox* m); |
void send_ox(OXFILE *fp, ox* m); |
| int send_ox_cmo(int fd, cmo* m); |
void send_ox_cmo(OXFILE *fp, cmo* m); |
| void send_ox_command(int fd, int sm_command); |
void send_ox_command(OXFILE *fp, int sm_command); |
| int send_ox_tag(int fd, int tag); |
int send_ox_tag(OXFILE *fp, int tag); |
| |
|
| int decideByteOrderClient(int fd, int order); |
|
| int decideByteOrderServer(int fd, int order); |
|
| int next_serial(); |
int next_serial(); |
| void setCmotypeDisable(int type); |
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 */ |
/* High level API */ |
| ox_file_t ox_start(char* host, char* prog1, char* prog2); |
void ox_close(OXFILE *sv); |
| ox_file_t ox_start_insecure_nonreverse(char* host, short portControl, short portStream); |
void ox_shutdown(OXFILE *sv); |
| ox_file_t ox_start_remote_with_ssh(char *dat_prog, char* host); |
void ox_reset(OXFILE *sv); |
| |
void ox_execute_string(OXFILE *sv, char* str); |
| |
cmo_mathcap* ox_mathcap(OXFILE *sv); |
| |
char* ox_popString(OXFILE *sv); |
| |
void ox_pops(OXFILE *sv, int num); |
| |
cmo* ox_pop_cmo(OXFILE *sv); |
| |
void ox_push_cmo(OXFILE *sv, cmo *c); |
| |
void ox_push_cmd(OXFILE *sv, int sm_code); |
| |
void ox_cmo_rpc(OXFILE *sv, char *function, int argc, cmo *argv[]); |
| |
int ox_flush(OXFILE *sv); |
| |
|
| void ox_close(ox_file_t sv); |
cell* list_first(cmo_list *this); |
| void ox_shutdown(ox_file_t sv); |
int list_endof(cmo_list *this, cell *el); |
| void ox_reset(ox_file_t sv); |
cell* list_next(cell *el); |
| void ox_execute_string(ox_file_t sv, char* str); |
cmo_list* list_append(cmo_list* this, cmo *ob); |
| cmo_mathcap* ox_mathcap(ox_file_t sv); |
cmo_list* list_appendl(cmo_list* this, ...); |
| char* ox_popString(ox_file_t sv); |
int list_length(cmo_list* this); |
| int ox_pops(ox_file_t sv, int num); |
cmo* list_nth(cmo_list* this, int n); |
| 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 cmolen_cmo(cmo* m); |
| int init_dump_buff(char *buff); |
void dump_buffer_init(char *s); |
| int dump_cmo(cmo* m); |
void dump_cmo(cmo* m); |
| int dump_ox_command(ox_command* m); |
void dump_ox_command(ox_command* m); |
| int dump_ox_data(ox_data* m); |
void dump_ox_data(ox_data* m); |
| |
|
| int print_cmo(cmo* c); |
void print_cmo(cmo* c); |
| |
void resize_mpz(mpz_ptr mpz, int size); |
| |
|
| typedef cmo *(*hook_t)(int, cmo *); |
typedef cmo *(*hook_t)(OXFILE *, cmo *); |
| |
|
| int add_hook_before_send_cmo(hook_t func); |
int add_hook_before_send_cmo(hook_t func); |
| int add_hook_after_send_cmo(hook_t func); |
int add_hook_after_send_cmo(hook_t func); |
| Line 206 int add_hook_after_send_cmo(hook_t func); |
|
| Line 202 int add_hook_after_send_cmo(hook_t func); |
|
| |
|
| typedef struct symbol *symbol_t; |
typedef struct symbol *symbol_t; |
| |
|
| int setflag_parse(int flag); |
void setflag_parse(int flag); |
| cmo *parse(); |
cmo *parse(); |
| int init_parser(char *s); |
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); |
| symbol_t lookup_by_tag(int tag); |
symbol_t lookup_by_tag(int tag); |
| symbol_t lookup(int i); |
symbol_t lookup(int i); |
| char *symbol_get_key(symbol_t sp); |
char *symbol_get_key(symbol_t sp); |
| |
|
| |
/* for mathcap database */ |
| |
cmo_mathcap *mathcap_get(); |
| |
int mathcap_cmo_isallow_cmo(cmo *ob); |
| |
void mathcap_sysinfo_set(int version, char *id, char *sysname); |
| |
|
| |
int oxf_read(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 */ |
| |
int oxf_listen(short *portp); |
| |
OXFILE *oxf_connect_active(char *hostname, short port); |
| |
OXFILE *oxf_connect_passive(int listened); |
| |
OXFILE *oxf_open(int fd); |
| |
OXFILE *oxf_control_set(OXFILE *oxfp, OXFILE *control); |
| |
OXFILE *oxf_control(OXFILE *oxfp); |
| |
int oxf_confirm_client(OXFILE *oxfp, char *passwd); |
| |
int oxf_confirm_server(OXFILE *oxfp, char *passwd); |
| |
void oxf_flush(OXFILE *oxfp); |
| |
void oxf_close(OXFILE *oxfp); |
| |
void oxf_setopt(OXFILE *oxfp, int mode); |
| |
void oxf_determine_byteorder_client(OXFILE *oxfp); |
| |
void oxf_determine_byteorder_server(OXFILE *oxfp); |
| |
OXFILE *oxf_execute_cmd(OXFILE *oxfp, char *cmd); |
| |
|
| |
/* example: which("xterm", getenv("PATH")); */ |
| |
char *which(char *exe, const char *env); |
| |
char *generate_otp(); |
| |
|
| #endif /* _OX_TOOLKIT_H_ */ |
#endif /* _OX_TOOLKIT_H_ */ |