=================================================================== RCS file: /home/cvs/OpenXM/src/ox_gsl/ox_gsl.c,v retrieving revision 1.9 retrieving revision 1.11 diff -u -p -r1.9 -r1.11 --- OpenXM/src/ox_gsl/ox_gsl.c 2018/04/18 02:20:51 1.9 +++ OpenXM/src/ox_gsl/ox_gsl.c 2018/06/06 07:40:32 1.11 @@ -1,4 +1,4 @@ -/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.c,v 1.8 2018/04/17 00:56:38 takayama Exp $ +/* $OpenXM: OpenXM/src/ox_gsl/ox_gsl.c,v 1.10 2018/06/04 06:39:26 ohara Exp $ */ #include @@ -6,6 +6,7 @@ #include #include #include +#include #include #include "ox_gsl.h" #include "call_gsl.h" // need only when you bind call_gsl functions. @@ -331,6 +332,8 @@ int sm_executeFunction() call_gsl_sf_lngamma_complex_e(); }else if (strcmp(func->s,"gsl_integration_qags")==0) { call_gsl_integration_qags(); + }else if (strcmp(func->s,"gsl_monte_plain_integrate")==0) { + call_gsl_monte_plain_integrate(); }else { push(make_error2("sm_executeFunction, unknown function",NULL,0,-1)); return -1; @@ -454,7 +457,12 @@ int main() fd_rw = oxf_open(3); oxf_determine_byteorder_server(fd_rw); } +#if defined(__CYGWIN__) + void *mysignal(int sig,void (*handler)(int m)); + mysignal(SIGUSR1,usr1_handler); +#else signal(SIGUSR1,usr1_handler); +#endif while(1) { receive();