OpenXM_contrib2/asir2000/io/ox_asir.c - diff

Return to ox_asir.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.49, 2003/12/12 09:01:11

version 1.51, 2004/02/13 05:48:36

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.48 2003/12/12 04:59:59 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.50 2003/12/13 08:03:56 noro Exp $

#include "ca.h"

#include "parse.h"

Line 59 void ox_usr1_handler();

int asir_ox_init();

/* environement is defined in libpari.a */

# if !( PARI_VERSION_CODE > 131588)

extern jmp_buf environnement;

# endif

extern int myrank_102,nserver_102;

extern int do_message;

Line 479 void asir_reset_102(unsigned int serial)

Line 481 void asir_reset_102(unsigned int serial)

do {

ox_recv_102(i,&id,&obj);

} while ( id != OX_SYNC_BALL );

for ( i = myrank_102; i < nserver_102; i++ )

for ( i = myrank_102+1; i < nserver_102; i++ )

ox_send_sync_102(i);

}

Line 670 int asir_executeString()

Line 672 int asir_executeString()

#if defined(PARI)

recover(0);

/* environement is defined in libpari.a */

# if !(PARI_VERSION_CODE > 131588 )

if ( setjmp(environnement) ) {

avma = top; recover(1);

resetenv("");

}

# endif

#endif

cmd = ((STRING)asir_pop_one())->body;

parse_strp = cmd;