===================================================================
RCS file: /home/cvs/OpenXM/src/ox_gsl/ox_gsl.h,v
retrieving revision 1.1
retrieving revision 1.8
diff -u -p -r1.1 -r1.8
--- OpenXM/src/ox_gsl/ox_gsl.h	2018/03/29 11:52:18	1.1
+++ OpenXM/src/ox_gsl/ox_gsl.h	2018/06/08 00:03:43	1.8
@@ -1,6 +1,12 @@
-/* $OpenXM$
+/* $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 <fcntl.h>
+#include <unistd.h>
+#include <string.h>
+#include <signal.h>
+#include "gmp.h"
+#include "gmp-impl.h"
 #include "ox_toolkit.h"
 
 int sm_mathcap();
@@ -13,8 +19,13 @@ 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);
+void gc_free(void *p,size_t size);
 void pops(int n);
 void show_double_list();
 void usr1_handler(int sig);
@@ -24,6 +35,24 @@ 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);
+int get_length(cmo *c);
+