| version 1.17, 2018/06/04 06:39:26 |
version 1.18, 2019/07/25 05:59:15 |
|
|
| /* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.16 2018/03/27 07:05:17 noro Exp $ */ |
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.17 2018/06/04 06:39:26 ohara Exp $ */ |
| |
|
| #include <signal.h> |
#include <signal.h> |
| #include "ox_pari.h" |
#include "ox_pari.h" |
|
|
| return 0; |
return 0; |
| } |
} |
| |
|
| jmp_buf ox_env; |
sigjmp_buf ox_env; |
| |
|
| void usr1_handler(int sig) |
void usr1_handler(int sig) |
| { |
{ |
| longjmp(ox_env,1); |
siglongjmp(ox_env,1); |
| } |
} |
| |
|
| int main() |
int main() |
| { |
{ |
| if ( setjmp(ox_env) ) { |
if ( sigsetjmp(ox_env,~0) ) { |
| fprintf(stderr,"resetting libpari and sending OX_SYNC_BALL..."); |
fprintf(stderr,"resetting libpari and sending OX_SYNC_BALL..."); |
| initialize_stack(); |
initialize_stack(); |
| init_pari(); |
init_pari(); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ox_pari.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_pari