version 1.11, 2000/03/16 04:55:21 |
version 1.13, 2000/03/19 12:35:20 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.10 2000/03/16 01:07:00 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.12 2000/03/16 08:23:16 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#include "signal.h" |
#include "signal.h" |
|
|
#endif |
#endif |
|
|
void ox_usr1_handler(); |
void ox_usr1_handler(); |
void asir_ox_init(); |
int asir_ox_init(); |
|
|
extern jmp_buf environnement; |
extern jmp_buf environnement; |
|
|
Line 42 static void asir_popString(); |
|
Line 42 static void asir_popString(); |
|
static void asir_popCMO(unsigned int); |
static void asir_popCMO(unsigned int); |
static void asir_popSerializedLocalObject(); |
static void asir_popSerializedLocalObject(); |
static LIST asir_GetErrorList(); |
static LIST asir_GetErrorList(); |
static char *name_of_cmd(unsigned int); |
static char *name_of_cmd(int); |
static char *name_of_id(int); |
static char *name_of_id(int); |
static void asir_do_cmd(unsigned int,unsigned int); |
static void asir_do_cmd(int,unsigned int); |
|
|
#if MPI |
#if MPI |
extern int mpi_nprocs,mpi_myid; |
extern int mpi_nprocs,mpi_myid; |
Line 90 static void create_error(ERR *err,unsigned int serial, |
|
Line 90 static void create_error(ERR *err,unsigned int serial, |
|
|
|
void ox_main(int argc,char **argv) { |
void ox_main(int argc,char **argv) { |
int id; |
int id; |
unsigned int cmd; |
int cmd; |
Obj obj; |
Obj obj; |
USINT ui; |
USINT ui; |
ERR err; |
ERR err; |
Line 160 void ox_main(int argc,char **argv) { |
|
Line 160 void ox_main(int argc,char **argv) { |
|
} |
} |
} |
} |
|
|
static void asir_do_cmd(unsigned int cmd,unsigned int serial) |
static void asir_do_cmd(int cmd,unsigned int serial) |
{ |
{ |
MATHCAP client_mathcap; |
MATHCAP client_mathcap; |
Q q; |
Q q; |
Line 242 static char *name_of_id(int id) |
|
Line 242 static char *name_of_id(int id) |
|
} |
} |
} |
} |
|
|
static char *name_of_cmd(unsigned cmd) |
static char *name_of_cmd(int cmd) |
{ |
{ |
switch ( cmd ) { |
switch ( cmd ) { |
case SM_popSerializedLocalObject: |
case SM_popSerializedLocalObject: |
Line 725 int asir_ox_pop_cmo(void *cmo, int limit) |
|
Line 725 int asir_ox_pop_cmo(void *cmo, int limit) |
|
* Executes an SM command. |
* Executes an SM command. |
*/ |
*/ |
|
|
void asir_ox_push_cmd(unsigned int cmd) |
void asir_ox_push_cmd(int cmd) |
{ |
{ |
int ret; |
int ret; |
ERR err; |
ERR err; |
extern char LastError[]; |
extern char LastError[]; |
|
|
if ( ret = setjmp(env) ) { |
if ( ret = setjmp(env) ) { |
|
asir_reset_handler(); |
if ( ret == 1 ) { |
if ( ret == 1 ) { |
create_error(&err,0,LastError); /* XXX */ |
create_error(&err,0,LastError); /* XXX */ |
asir_push_one((Obj)err); |
asir_push_one((Obj)err); |
} |
} |
} else |
} else { |
|
asir_save_handler(); |
|
asir_set_handler(); |
asir_do_cmd(cmd,0); |
asir_do_cmd(cmd,0); |
|
asir_reset_handler(); |
|
} |
} |
} |
|
|
/* |
/* |
Line 754 void asir_ox_execute_string(char *s) |
|
Line 759 void asir_ox_execute_string(char *s) |
|
MKSTR(str,s); |
MKSTR(str,s); |
asir_push_one((Obj)str); |
asir_push_one((Obj)str); |
if ( ret = setjmp(env) ) { |
if ( ret = setjmp(env) ) { |
|
asir_reset_handler(); |
if ( ret == 1 ) { |
if ( ret == 1 ) { |
create_error(&err,0,LastError); /* XXX */ |
create_error(&err,0,LastError); /* XXX */ |
asir_push_one((Obj)err); |
asir_push_one((Obj)err); |
} |
} |
} else |
} else { |
|
asir_save_handler(); |
|
asir_set_handler(); |
asir_executeString(); |
asir_executeString(); |
|
asir_reset_handler(); |
|
} |
} |
} |
|
|
/* |
/* |
Line 788 int asir_ox_peek_cmo_size() |
|
Line 798 int asir_ox_peek_cmo_size() |
|
* =1 => network byte order |
* =1 => network byte order |
*/ |
*/ |
|
|
void asir_ox_init(int byteorder) |
int asir_ox_init(int byteorder) |
{ |
{ |
int tmp; |
int tmp; |
char ifname[BUFSIZ]; |
char ifname[BUFSIZ]; |
Line 862 void asir_ox_init(int byteorder) |
|
Line 872 void asir_ox_init(int byteorder) |
|
lib_ox_need_conv = 0; |
lib_ox_need_conv = 0; |
do_message = 0; |
do_message = 0; |
create_my_mathcap("ox_asir"); |
create_my_mathcap("ox_asir"); |
|
asir_reset_handler(); |
|
return 0; |
} |
} |