version 1.15, 2016/09/23 07:03:29 |
version 1.18, 2019/07/25 05:59:15 |
|
|
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.14 2016/08/23 03:03:26 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.17 2018/06/04 06:39:26 ohara Exp $ */ |
|
|
|
#include <signal.h> |
#include "ox_pari.h" |
#include "ox_pari.h" |
|
|
OXFILE *fd_rw; |
OXFILE *fd_rw; |
|
|
|
|
int sm_mathcap() |
int sm_mathcap() |
{ |
{ |
|
#if 0 |
char *opts[] = {"no_ox_reset", NULL}; |
char *opts[] = {"no_ox_reset", NULL}; |
mathcap_init2(OX_PARI_VERSION, ID_STRING, "ox_pari", NULL, NULL, opts); |
mathcap_init2(OX_PARI_VERSION, ID_STRING, "ox_pari", NULL, NULL, opts); |
|
#else |
|
mathcap_init2(OX_PARI_VERSION, ID_STRING, "ox_pari", NULL, NULL, NULL); |
|
#endif |
push((cmo*)oxf_cmo_mathcap(fd_rw)); |
push((cmo*)oxf_cmo_mathcap(fd_rw)); |
return 0; |
return 0; |
} |
} |
|
|
return 0; |
return 0; |
} |
} |
|
|
|
sigjmp_buf ox_env; |
|
|
|
void usr1_handler(int sig) |
|
{ |
|
siglongjmp(ox_env,1); |
|
} |
|
|
int main() |
int main() |
{ |
{ |
init_gc(); |
if ( sigsetjmp(ox_env,~0) ) { |
ox_stderr_init(stderr); |
fprintf(stderr,"resetting libpari and sending OX_SYNC_BALL..."); |
initialize_stack(); |
initialize_stack(); |
init_pari(); |
init_pari(); |
|
send_ox_tag(fd_rw,OX_SYNC_BALL); |
|
fprintf(stderr,"done\n"); |
|
} else { |
|
init_gc(); |
|
ox_stderr_init(stderr); |
|
initialize_stack(); |
|
init_pari(); |
|
|
|
fprintf(stderr,"ox_pari\n"); |
|
|
fprintf(stderr,"ox_pari\n"); |
fd_rw = oxf_open(3); |
|
oxf_determine_byteorder_server(fd_rw); |
|
} |
|
|
fd_rw = oxf_open(3); |
#if defined(__CYGWIN__) |
oxf_determine_byteorder_server(fd_rw); |
void *mysignal(int sig,void (*handler)(int m)); |
|
mysignal(SIGUSR1,usr1_handler); |
|
#else |
|
signal(SIGUSR1,usr1_handler); |
|
#endif |
|
|
while(1){ |
while(1){ |
receive(); |
receive(); |