=================================================================== RCS file: /home/cvs/OpenXM/src/ox_gsl/ox_gsl.h,v retrieving revision 1.3 retrieving revision 1.9 diff -u -p -r1.3 -r1.9 --- OpenXM/src/ox_gsl/ox_gsl.h 2018/03/30 08:48:23 1.3 +++ OpenXM/src/ox_gsl/ox_gsl.h 2020/11/01 10:28:22 1.9 @@ -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.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" @@ -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); @@ -44,3 +48,13 @@ 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[]);