version 1.35, 2001/12/25 02:39:05 |
version 1.38, 2002/02/25 06:39:12 |
|
|
* 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_asir.c,v 1.34 2001/12/21 08:23:14 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.37 2001/12/28 09:50:36 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
void ox_usr1_handler(); |
void ox_usr1_handler(); |
int asir_ox_init(); |
int asir_ox_init(); |
|
|
extern JMP_BUF environnement; |
/* environement is defined in libpari.a */ |
|
extern jmp_buf environnement; |
|
|
extern int do_message; |
extern int do_message; |
extern int ox_flushing; |
extern int ox_flushing; |
Line 488 int asir_executeString() |
|
Line 489 int asir_executeString() |
|
char *cmd; |
char *cmd; |
#if PARI |
#if PARI |
recover(0); |
recover(0); |
if ( SETJMP(environnement) ) { |
/* environement is defined in libpari.a */ |
|
if ( setjmp(environnement) ) { |
avma = top; recover(1); |
avma = top; recover(1); |
resetenv(""); |
resetenv(""); |
} |
} |
Line 641 void ox_asir_init(int argc,char **argv) |
|
Line 643 void ox_asir_init(int argc,char **argv) |
|
extern int read_exec_file; |
extern int read_exec_file; |
extern int do_asirrc; |
extern int do_asirrc; |
extern int do_server_in_X11; |
extern int do_server_in_X11; |
|
extern char displayname[]; |
char *getenv(); |
char *getenv(); |
static ox_asir_initialized = 0; |
static ox_asir_initialized = 0; |
FILE *ifp; |
FILE *ifp; |
Line 664 void ox_asir_init(int argc,char **argv) |
|
Line 667 void ox_asir_init(int argc,char **argv) |
|
endian_init(); |
endian_init(); |
GC_init(); |
GC_init(); |
process_args(--argc,++argv); |
process_args(--argc,++argv); |
|
#if defined(__CYGWIN__) |
|
if ( !displayname[0] ) |
|
do_server_in_X11 = 0; /* XXX */ |
|
#endif |
output_init(); |
output_init(); |
arf_init(); |
arf_init(); |
nglob_init(); |
nglob_init(); |
Line 893 int asir_ox_peek_cmo_size() |
|
Line 900 int asir_ox_peek_cmo_size() |
|
Obj obj; |
Obj obj; |
int len; |
int len; |
|
|
obj = asir_pop_one(); |
obj = asir_peek_one(); |
asir_push_one(obj); |
|
if ( !valid_as_cmo(obj) ) { |
if ( !valid_as_cmo(obj) ) { |
fprintf(stderr,"The object at the stack top is invalid as a CMO.\n"); |
fprintf(stderr,"The object at the stack top is invalid as a CMO.\n"); |
return 0; |
return 0; |
} |
} |
len = count_as_cmo(obj); |
len = count_as_cmo(obj); |
|
return len; |
|
} |
|
|
|
int asir_ox_peek_cmo_string_length() |
|
{ |
|
Obj obj; |
|
int len; |
|
|
|
obj = asir_peek_one(); |
|
if ( !valid_as_cmo(obj) ) { |
|
fprintf(stderr,"The object at the stack top is invalid as a CMO.\n"); |
|
return 0; |
|
} |
|
len = estimate_length(CO,obj); |
return len; |
return len; |
} |
} |
|
|