version 1.38, 2016/08/24 00:52:50 |
version 1.41, 2018/03/12 02:37:08 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.37 2016/06/29 05:10:14 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.40 2017/08/30 09:40:30 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 428 void end_critical() { |
|
Line 428 void end_critical() { |
|
} |
} |
|
|
extern NODE user_int_handler; |
extern NODE user_int_handler; |
|
extern int caught_intr,in_gc; |
|
|
void ox_usr1_handler(int sig) |
void ox_usr1_handler(int sig) |
{ |
{ |
NODE t; |
NODE t; |
|
|
#if !defined(VISUAL) && !defined(__MINGW32__) |
#if !defined(VISUAL) && !defined(__MINGW32__) |
signal(SIGUSR1,ox_usr1_handler); |
set_signal_for_restart(SIGUSR1,ox_usr1_handler); |
#endif |
#endif |
if ( critical_when_signal ) { |
if ( critical_when_signal ) { |
fprintf(stderr,"usr1 : critical\n"); |
fprintf(stderr,"usr1 : critical\n"); |
ox_usr1_sent = 1; |
ox_usr1_sent = 1; |
|
} else if ( in_gc ) { |
|
fprintf(stderr,"usr1 : in_gc\n"); |
|
caught_intr = 2; |
} else { |
} else { |
ox_flushing = 1; |
ox_flushing = 1; |
if ( user_int_handler ) { |
if ( user_int_handler ) { |
Line 448 void ox_usr1_handler(int sig) |
|
Line 452 void ox_usr1_handler(int sig) |
|
bevalf((FUNC)BDY(t),0); |
bevalf((FUNC)BDY(t),0); |
fprintf(stderr, "done.\n"); |
fprintf(stderr, "done.\n"); |
} |
} |
|
LEAVE_SIGNAL_CS_ALL; |
ox_resetenv("usr1 : return to toplevel by SIGUSR1"); |
ox_resetenv("usr1 : return to toplevel by SIGUSR1"); |
} |
} |
} |
} |
Line 540 void wait_for_data_102(int rank) |
|
Line 545 void wait_for_data_102(int rank) |
|
void ox_send_data(int s,pointer p) |
void ox_send_data(int s,pointer p) |
{ |
{ |
ERR err; |
ERR err; |
|
Obj p0; |
|
|
|
p0 = (Obj)p; |
if ( ox_check && !ox_check_cmo(s,(Obj)p) ) { |
if ( ox_check && !ox_check_cmo(s,(Obj)p) ) { |
create_error(&err,ox_serial,"ox_send_data : Mathcap violation",0); |
create_error(&err,ox_serial,"ox_send_data : Mathcap violation",0); |
p = (pointer)err; |
p = (pointer)err; |