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"); |
|
} |
} |
|
|
|
|