=================================================================== RCS file: /home/cvs/OpenXM/src/ox_gsl/ox_gsl.h,v retrieving revision 1.2 retrieving revision 1.9 diff -u -p -r1.2 -r1.9 --- OpenXM/src/ox_gsl/ox_gsl.h 2018/03/30 04:43:17 1.2 +++ OpenXM/src/ox_gsl/ox_gsl.h 2020/11/01 10:28:22 1.9 @@ -1,6 +1,10 @@ -/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.h,v 1.1 2018/03/29 11:52:18 takayama Exp $ +/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.h,v 1.8 2018/06/08 00:03:43 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" @@ -15,6 +19,9 @@ int main(); double get_double(); double *get_double_list(int *length); +// They will be replaced by the following functions. +double cmo2double(cmo *c); +double *cmo2double_list(int *length,cmo *c); void init_gc(); void *gc_realloc(void *p,size_t osize,size_t nsize); @@ -36,3 +43,18 @@ 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); +int get_length(cmo *c); + +void replace(int n, ...); +void replace2(int n, char *s[], double v[]);