version 1.17, 2001/03/19 01:26:36 |
version 1.21, 2001/08/20 09:03:27 |
|
|
* 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.16 2001/03/19 00:44:02 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.20 2001/06/27 09:14:08 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
#include <direct.h> |
#include <direct.h> |
#endif |
#endif |
|
|
#if defined(SYSV) |
#if defined(SYSV) && !defined(_IBMR2) |
#include <sys/ttold.h> |
#include <sys/ttold.h> |
#endif |
#endif |
|
|
Line 77 extern int GC_free_space_numerator; |
|
Line 77 extern int GC_free_space_numerator; |
|
extern FILE *asir_out; |
extern FILE *asir_out; |
|
|
IN asir_infile; |
IN asir_infile; |
jmp_buf env,debug_env,timer_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 132 F F_FALSE = &oF_FALSE; |
|
Line 132 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__) |
#if defined(__FreeBSD__) || defined(__NetBSD__) || (defined(__MACH__) && defined(__ppc__)) |
char cppname[BUFSIZ] = "/usr/bin/cpp "; |
char cppname[BUFSIZ] = "/usr/bin/cpp "; |
#else |
#else |
#if defined(VISUAL) |
#if defined(VISUAL) |
|
|
error("undefined arithmetic operation."); |
error("undefined arithmetic operation."); |
} |
} |
|
|
int kernelmode; |
|
int do_asirrc; |
int do_asirrc; |
int do_file; |
int do_file; |
int do_message; |
int do_message; |
Line 206 void ExitAsir() { |
|
Line 205 void ExitAsir() { |
|
void asir_terminate(status) |
void asir_terminate(status) |
int status; |
int status; |
{ |
{ |
|
int t; |
|
|
if ( read_exec_file ) { |
if ( read_exec_file ) { |
read_exec_file = 0; longjmp(env,status); |
t = read_exec_file; |
|
read_exec_file = 0; |
|
if ( t == 1 ) |
|
longjmp(main_env,status); |
|
else |
|
longjmp(exec_env,status); |
} else { |
} else { |
tty_reset(); |
tty_reset(); |
#if MPI |
#if MPI |
|
|
close_allconnections(); |
close_allconnections(); |
mpi_finalize(); |
mpi_finalize(); |
#else |
#else |
|
#if defined(SIGPIPE) |
|
signal(SIGPIPE,SIG_IGN); |
|
#endif |
close_allconnections(); |
close_allconnections(); |
#endif |
#endif |
if ( kernelmode ) |
|
fputc(0xff,asir_out); |
|
if ( asir_out ) |
if ( asir_out ) |
fflush(asir_out); |
fflush(asir_out); |
#if FEP |
#if FEP |
Line 242 void param_init() { |
|
Line 249 void param_init() { |
|
|
|
void prompt() { |
void prompt() { |
if ( !no_prompt && !do_fep && asir_infile->fp == stdin ) |
if ( !no_prompt && !do_fep && asir_infile->fp == stdin ) |
fprintf(asir_out,"[%d]%c",APVS->n,kernelmode?0xfe:' '); |
fprintf(asir_out,"[%d] ",APVS->n); |
fflush(asir_out); |
fflush(asir_out); |
} |
} |
|
|
void sprompt(ptr) |
void sprompt(ptr) |
char *ptr; |
char *ptr; |
{ |
{ |
sprintf(ptr,"[%d]%c",APVS->n,kernelmode?0xfe:' '); |
sprintf(ptr,"[%d] ",APVS->n); |
} |
} |
|
|
FILE *in_fp; |
FILE *in_fp; |
|
|
} |
} |
do_file = 1; |
do_file = 1; |
av += 2; ac -= 2; |
av += 2; ac -= 2; |
} else if ( !strcmp(*av,"-kernel") ) { |
|
kernelmode = 1; av++; ac--; |
|
} else if ( !strcmp(*av,"-norc") ) { |
} else if ( !strcmp(*av,"-norc") ) { |
do_asirrc = 0; av++; ac--; |
do_asirrc = 0; av++; ac--; |
} else if ( !strcmp(*av,"-nomessage") ) { |
} else if ( !strcmp(*av,"-nomessage") ) { |
|
|
#if !defined(VISUAL) |
#if !defined(VISUAL) |
reset_timer(); |
reset_timer(); |
#endif |
#endif |
longjmp(env,1); |
longjmp(main_env,1); |
} |
} |
|
|
void fatal(n) |
void fatal(n) |
|
|
return; |
return; |
} |
} |
#if defined(VISUAL) |
#if defined(VISUAL) |
suspend_timer(); signal(SIGINT,SIG_IGN); |
suspend_timer(); |
#endif |
#endif |
#if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__) |
|
signal(SIGINT,SIG_IGN); |
signal(SIGINT,SIG_IGN); |
#endif |
|
#if !defined(VISUAL) |
#if !defined(VISUAL) |
if ( do_server_in_X11 ) { |
if ( do_server_in_X11 ) { |
debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0); |
debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0); |
|
|
char c; |
char c; |
|
|
fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr); |
fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr); |
if ( kernelmode ) |
|
fputc('\0',stderr); |
|
buf[0] = '\n'; |
buf[0] = '\n'; |
while ( buf[0] == '\n' ) |
while ( buf[0] == '\n' ) |
fgets(buf,BUFSIZ,stdin); |
fgets(buf,BUFSIZ,stdin); |
|
|
} |
} |
if ( debug_mode ) |
if ( debug_mode ) |
debug_mode = 0; |
debug_mode = 0; |
if ( kernelmode ) |
|
fputc('\0',stderr); |
|
restore_handler(); |
restore_handler(); |
if ( c == 'u' ) { |
if ( c == 'u' ) { |
if ( registered_handler ) { |
if ( registered_handler ) { |
|
|
restore_handler(); |
restore_handler(); |
return; |
return; |
case 'c': |
case 'c': |
if ( kernelmode ) |
|
fputc('\0',stderr); |
|
restore_handler(); |
restore_handler(); |
return; break; |
return; break; |
case 'w': |
case 'w': |
|
|
|
|
void restore_handler() { |
void restore_handler() { |
#if defined(VISUAL) |
#if defined(VISUAL) |
resume_timer(); signal(SIGINT,int_handler); |
resume_timer(); |
#endif |
#endif |
#if defined(_PA_RISC1_1) || defined(linux) || defined(__svr4__) |
#if defined(SIGINT) |
signal(SIGINT,int_handler); |
signal(SIGINT,int_handler); |
#endif |
#endif |
} |
} |
Line 536 void restore_handler() { |
|
Line 533 void restore_handler() { |
|
void segv_handler(sig) |
void segv_handler(sig) |
int sig; |
int sig; |
{ |
{ |
#if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__) |
#if defined(SIGSEGV) |
signal(SIGSEGV,segv_handler); |
signal(SIGSEGV,segv_handler); |
#endif |
|
error("internal error (SEGV)"); |
error("internal error (SEGV)"); |
|
#endif |
} |
} |
|
|
void ill_handler(sig) |
void ill_handler(sig) |
int sig; |
int sig; |
{ |
{ |
#if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__) |
#if defined(SIGILL) |
signal(SIGILL,ill_handler); |
signal(SIGILL,ill_handler); |
#endif |
|
error("illegal instruction (ILL)"); |
error("illegal instruction (ILL)"); |
|
#endif |
} |
} |
|
|
void alrm_handler(sig) |
void alrm_handler(sig) |
|
|
void fpe_handler(sig) |
void fpe_handler(sig) |
int sig; |
int sig; |
{ |
{ |
#if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__) |
#if defined(SIGFPE) |
signal(SIGFPE,fpe_handler); |
signal(SIGFPE,fpe_handler); |
#endif |
|
error("internal error (FPE)"); |
error("internal error (FPE)"); |
|
#endif |
} |
} |
|
|
void pipe_handler(sig) |
void pipe_handler(sig) |
|
|
{ |
{ |
#if defined(SIGPIPE) |
#if defined(SIGPIPE) |
signal(SIGPIPE,pipe_handler); |
signal(SIGPIPE,pipe_handler); |
|
end_critical(); |
error("internal error (BROKEN PIPE)"); |
error("internal error (BROKEN PIPE)"); |
#endif |
#endif |
} |
} |