version 1.24, 2001/10/09 01:36:24 |
version 1.28, 2002/09/11 08:57:21 |
|
|
* 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.23 2001/10/05 10:23:07 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.27 2002/07/26 00:33:03 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
#if PARI |
#if PARI |
#include "genpari.h" |
#include "genpari.h" |
#endif |
#endif |
#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) |
#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) |
#include <sgtty.h> |
#include <sgtty.h> |
#endif |
#endif |
|
|
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; |
Line 133 F F_FALSE = &oF_FALSE; |
|
Line 133 F F_FALSE = &oF_FALSE; |
|
#if defined(__SVR4) && defined(sun) |
#if defined(__SVR4) && defined(sun) |
char cppname[BUFSIZ] = "/usr/ccs/lib/cpp "; |
char cppname[BUFSIZ] = "/usr/ccs/lib/cpp "; |
#else |
#else |
#if defined(__FreeBSD__) || defined(__NetBSD__) || (defined(__MACH__) && defined(__ppc__)) |
#if defined(__FreeBSD__) || defined(__NetBSD__) || (defined(__MACH__) && defined(__ppc__)) || defined(__CYGWIN__) |
char cppname[BUFSIZ] = "/usr/bin/cpp "; |
char cppname[BUFSIZ] = "/usr/bin/cpp "; |
#else |
#else |
#if defined(VISUAL) |
#if defined(VISUAL) |
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"); |
|
} |
} |
|
|
|
|