=================================================================== RCS file: /home/cvs/OpenXM/src/ox_gsl/ox_gsl.h,v retrieving revision 1.3 retrieving revision 1.8 diff -u -p -r1.3 -r1.8 --- OpenXM/src/ox_gsl/ox_gsl.h 2018/03/30 08:48:23 1.3 +++ OpenXM/src/ox_gsl/ox_gsl.h 2018/06/08 00:03:43 1.8 @@ -1,9 +1,10 @@ -/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.h,v 1.2 2018/03/30 04:43:17 takayama Exp $ +/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.h,v 1.7 2018/06/07 11:49:51 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" @@ -18,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); @@ -43,4 +47,12 @@ cmo *make_error2(const char *reason,const char *fname, 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);