version 1.23, 2021/03/25 07:03:21 |
version 1.24, 2022/03/28 09:21:56 |
|
|
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.22 2020/11/10 04:48:49 noro Exp $ */ |
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.23 2021/03/25 07:03:21 noro Exp $ */ |
|
|
#include <signal.h> |
#include <signal.h> |
#include "ox_pari.h" |
#include "ox_pari.h" |
Line 276 int receive_and_execute_sm_command() |
|
Line 276 int receive_and_execute_sm_command() |
|
exit(0); |
exit(0); |
break; |
break; |
default: |
default: |
printf("receive_and_execute_sm_command : code=%d\n",code);fflush(stdout); |
ox_printf("receive_and_execute_sm_command : code=%d\n",code); |
break; |
break; |
} |
} |
return 0; |
return 0; |
|
|
tag = receive_ox_tag(fd_rw); |
tag = receive_ox_tag(fd_rw); |
switch(tag) { |
switch(tag) { |
case OX_DATA: |
case OX_DATA: |
printf("receive : ox_data %d\n",tag);fflush(stdout); |
ox_printf("receive : ox_data %d\n",tag); |
push(receive_cmo(fd_rw)); |
push(receive_cmo(fd_rw)); |
break; |
break; |
case OX_COMMAND: |
case OX_COMMAND: |
printf("receive : ox_command %d\n",tag);fflush(stdout); |
ox_printf("receive : ox_command %d\n",tag); |
receive_and_execute_sm_command(); |
receive_and_execute_sm_command(); |
break; |
break; |
default: |
default: |
printf("receive : tag=%d\n",tag);fflush(stdout); |
ox_printf("receive : tag=%d\n",tag); |
} |
} |
return 0; |
return 0; |
} |
} |
Line 317 void usr1_handler(int sig) |
|
Line 317 void usr1_handler(int sig) |
|
#endif |
#endif |
} |
} |
|
|
|
#if defined(USE_OXPARI_LOG) |
|
#define LOGFILE "/tmp/oxpari.log" |
|
#endif |
|
|
int main() |
int main() |
{ |
{ |
#if defined(ANDROID) |
#if defined(ANDROID) |
|
|
#else |
#else |
if ( sigsetjmp(ox_env,~0) ) { |
if ( sigsetjmp(ox_env,~0) ) { |
#endif |
#endif |
fprintf(stderr,"resetting libpari and sending OX_SYNC_BALL..."); |
ox_printf("resetting libpari and sending OX_SYNC_BALL..."); |
init_pari(); |
init_pari(); |
initialize_stack(); |
initialize_stack(); |
send_ox_tag(fd_rw,OX_SYNC_BALL); |
send_ox_tag(fd_rw,OX_SYNC_BALL); |
fprintf(stderr,"done\n"); |
ox_printf("done\n"); |
} else { |
} else { |
init_gc(); |
init_gc(); |
ox_stderr_init(stderr); |
|
|
#if defined(LOGFILE) |
|
ox_stderr_init(fopen(LOGFILE,"a")); |
|
#endif |
init_pari(); |
init_pari(); |
initialize_stack(); |
initialize_stack(); |
|
|
fprintf(stderr,"ox_pari\n"); |
ox_printf("ox_pari\n"); |
|
|
fd_rw = oxf_open(3); |
fd_rw = oxf_open(3); |
oxf_determine_byteorder_server(fd_rw); |
oxf_determine_byteorder_server(fd_rw); |