| version 1.25, 2001/12/21 08:23:15 |
version 1.29, 2002/12/09 00:42:15 |
|
|
| * 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/parse/glob.c,v 1.24 2001/10/09 01:36:24 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.28 2002/09/11 08:57:21 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "al.h" |
#include "al.h" |
| Line 78 extern int GC_free_space_numerator; |
|
| Line 78 extern int GC_free_space_numerator; |
|
| extern FILE *asir_out; |
extern FILE *asir_out; |
| |
|
| INFILE asir_infile; |
INFILE asir_infile; |
| jmp_buf main_env,debug_env,timer_env,exec_env; |
JMP_BUF main_env,debug_env,timer_env,exec_env; |
| int little_endian,debug_mode; |
int little_endian,debug_mode; |
| char *asir_libdir; |
char *asir_libdir; |
| char *asir_pager; |
char *asir_pager; |
| |
|
| NODE usrf,sysf,noargsysf,ubinf,parif; |
NODE usrf,sysf,noargsysf,ubinf,parif; |
| NODE ONENODE; |
NODE ONENODE; |
| int main_parser, ox_do_copy, ox_do_count, ox_count_length; |
int main_parser, allow_create_var, ox_do_copy, ox_do_count, ox_count_length; |
| int ox_file_io, ox_need_conv; |
int ox_file_io, ox_need_conv; |
| char *ox_copy_bptr; |
char *ox_copy_bptr; |
| char *parse_strp; |
char *parse_strp; |
| Line 206 void asir_terminate(int status) |
|
| Line 206 void asir_terminate(int status) |
|
| t = read_exec_file; |
t = read_exec_file; |
| read_exec_file = 0; |
read_exec_file = 0; |
| if ( t == 1 ) |
if ( t == 1 ) |
| longjmp(main_env,status); |
LONGJMP(main_env,status); |
| else |
else |
| longjmp(exec_env,status); |
LONGJMP(exec_env,status); |
| } else { |
} else { |
| tty_reset(); |
tty_reset(); |
| #if MPI |
#if MPI |
| Line 399 void resetenv(char *s) |
|
| Line 399 void resetenv(char *s) |
|
| #if !defined(VISUAL) |
#if !defined(VISUAL) |
| reset_timer(); |
reset_timer(); |
| #endif |
#endif |
| longjmp(main_env,1); |
LONGJMP(main_env,1); |
| } |
} |
| |
|
| void fatal(int n) |
void fatal(int n) |
| Line 540 void ill_handler(int sig) |
|
| Line 540 void ill_handler(int sig) |
|
| void alrm_handler(int sig) |
void alrm_handler(int sig) |
| { |
{ |
| fprintf(stderr,"interval timer expired (VTALRM)\n"); |
fprintf(stderr,"interval timer expired (VTALRM)\n"); |
| longjmp(timer_env,1); |
LONGJMP(timer_env,1); |
| } |
} |
| |
|
| void bus_handler(int sig) |
void bus_handler(int sig) |
| Line 616 void error(char *s) |
|
| Line 616 void error(char *s) |
|
| ExitAsir(); |
ExitAsir(); |
| } |
} |
| if ( debug_mode ) |
if ( debug_mode ) |
| longjmp(debug_env,1); |
LONGJMP(debug_env,1); |
| if ( CPVS != GPVS ) |
if ( CPVS != GPVS ) |
| if ( do_server_in_X11 || isatty(0) ) |
if ( do_server_in_X11 || isatty(0) ) |
| bp(error_snode); |
bp(error_snode); |
| Line 668 void copyright() { |
|
| Line 668 void copyright() { |
|
| #endif |
#endif |
| printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n"); |
printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n"); |
| printf("Copyright 2000,2001, Risa/Asir committers, http://www.openxm.org/.\n"); |
printf("Copyright 2000,2001, Risa/Asir committers, http://www.openxm.org/.\n"); |
| printf("GC 5.3, copyright 1999, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"); |
printf("GC 6.1(alpha5) copyright 2001, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"); |
| printf("PARI 2.2.1(alpha), copyright (C) 2000,\n"); |
printf("PARI 2.2.4, copyright (C) 2002 The PARI Group.\n"); |
| printf(" C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n"); |
|
| } |
} |
| |
|
| |
|