=================================================================== RCS file: /home/cvs/OpenXM/src/ox_gsl/ox_gsl.h,v retrieving revision 1.1 retrieving revision 1.6 diff -u -p -r1.1 -r1.6 --- OpenXM/src/ox_gsl/ox_gsl.h 2018/03/29 11:52:18 1.1 +++ OpenXM/src/ox_gsl/ox_gsl.h 2018/06/07 11:13:05 1.6 @@ -1,6 +1,12 @@ -/* $OpenXM$ +/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.h,v 1.5 2018/04/06 01:56:49 takayama Exp $ */ // Todo, misc-2017/A3/kanazawa/ox_gsl.h.for_obj +#include +#include +#include +#include +#include "gmp.h" +#include "gmp-impl.h" #include "ox_toolkit.h" int sm_mathcap(); @@ -15,6 +21,8 @@ double get_double(); double *get_double_list(int *length); void init_gc(); +void *gc_realloc(void *p,size_t osize,size_t nsize); +void gc_free(void *p,size_t size); void pops(int n); void show_double_list(); void usr1_handler(int sig); @@ -24,6 +32,23 @@ void push(cmo* m); void get_xy(int *x, int *y); void my_add_int32(); void my_add_double(); +void restart(); +void push_error_from_file(); +void myhandler(const char *reason,const char *file,int line, int gsl_errno); char *get_string(); + cmo *pop(); +cmo *make_error2(const char *reason,const char *fname,int line,int code); + +int myfopen_w(char *fname); +int myfputs(int fd,const char *s); +int myfclose(int fd); + +void test_ox_eval(); +int eval_cmo(cmo *c,double *retval); +int register_entry(char *s,double v); +void init_dic(); + +cmo *element_of_at(cmo *list,int k); +