version 1.81, 2012/05/09 06:17:13 |
version 1.86, 2015/03/16 00:08:32 |
|
|
* 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.80 2011/06/16 08:17:15 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.85 2014/03/30 10:48:16 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 84 JMP_BUF main_env,debug_env,timer_env,exec_env; |
|
Line 84 JMP_BUF main_env,debug_env,timer_env,exec_env; |
|
int little_endian,debug_mode,no_debug_on_error; |
int little_endian,debug_mode,no_debug_on_error; |
char *asir_libdir; |
char *asir_libdir; |
char *asir_contrib_dir; |
char *asir_contrib_dir; |
|
char *asir_private_dir; |
char *asir_pager; |
char *asir_pager; |
|
|
NODE usrf,sysf,noargsysf,ubinf,parif; |
NODE usrf,sysf,noargsysf,ubinf,parif; |
Line 503 void fatal(int n) |
|
Line 504 void fatal(int n) |
|
} |
} |
|
|
extern int ox_int_received, critical_when_signal; |
extern int ox_int_received, critical_when_signal; |
|
extern int in_gc, caught_intr; |
|
|
void int_handler(int sig) |
void int_handler(int sig) |
{ |
{ |
Line 517 void int_handler(int sig) |
|
Line 519 void int_handler(int sig) |
|
ox_int_received = 1; |
ox_int_received = 1; |
return; |
return; |
} |
} |
|
if ( in_gc ) { |
|
caught_intr = 1; |
|
return; |
|
} |
#if defined(VISUAL) |
#if defined(VISUAL) |
suspend_timer(); |
suspend_timer(); |
#endif |
#endif |
Line 736 void error(char *s) |
|
Line 742 void error(char *s) |
|
resetenv("return to toplevel"); |
resetenv("return to toplevel"); |
} |
} |
|
|
void toplevel(char *s) |
void goto_toplevel(char *s) |
{ |
{ |
SNODE *snp=0; |
SNODE *snp=0; |
|
|
Line 790 char *get_asir_distribution(); |
|
Line 796 char *get_asir_distribution(); |
|
|
|
char *get_gcversion() |
char *get_gcversion() |
{ |
{ |
#if defined(GC7) |
return "GC 7.2 copyright 1988-2012, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"; |
return "GC 7.2 alpha6 copyright 1988-2011, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"; |
|
#else |
|
return "GC 6.8 copyright 1988-2006, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"; |
|
#endif |
|
} |
} |
|
|
char *get_pariversion() |
char *get_pariversion() |
Line 842 char *scopyright() |
|
Line 844 char *scopyright() |
|
} |
} |
return notice; |
return notice; |
} |
} |
|
|
|
#if defined(VISUAL) |
|
void check_intr() |
|
{ |
|
extern int recv_intr; |
|
if ( recv_intr ) { |
|
if ( recv_intr == 1 ) { |
|
recv_intr = 0; |
|
int_handler(0); |
|
} else { |
|
recv_intr = 0; |
|
ox_usr1_handler(0); |
|
} |
|
} |
|
} |
|
#endif |