version 1.77, 2010/05/26 06:32:49 |
version 1.83, 2012/12/17 07:20:45 |
|
|
* 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.76 2009/03/18 05:13:47 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.82 2012/05/30 02:24:33 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 167 void glob_init() { |
|
Line 167 void glob_init() { |
|
reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV)); |
reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV)); |
reallocarray((char **)&PPVS->va,(int *)&PPVS->asize,(int *)&PPVS->n,(int)sizeof(struct oPV)); |
reallocarray((char **)&PPVS->va,(int *)&PPVS->asize,(int *)&PPVS->n,(int)sizeof(struct oPV)); |
CPVS = GPVS; |
CPVS = GPVS; |
MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),0); |
MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),NULLP); |
OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0; |
OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0; |
OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0; |
OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0; |
OID(Symbol_grlex) = O_SYMBOL; Symbol_grlex->name = "@grlex"; |
OID(Symbol_grlex) = O_SYMBOL; Symbol_grlex->name = "@grlex"; |
Line 318 static int which(char *prog, char *path, char *buf, si |
|
Line 318 static int which(char *prog, char *path, char *buf, si |
|
void cppname_init() |
void cppname_init() |
{ |
{ |
#if !defined(VISUAL) |
#if !defined(VISUAL) |
|
char *oxhome; |
|
char oxcpp[BUFSIZ]; |
|
#define OXCPP "/bin/ox_cpp" |
|
|
|
if ( oxhome = getenv("OpenXM_HOME") ) { |
|
if ( strlen(oxhome)+strlen(OXCPP)<BUFSIZ ) { |
|
sprintf(oxcpp,"%s%s",oxhome,OXCPP); |
|
if ( access(oxcpp,X_OK&R_OK) == 0 ) { |
|
strcpy(cppname,oxcpp); |
|
return; |
|
} |
|
} |
|
} |
if (access(cppname, X_OK&R_OK) != 0) { |
if (access(cppname, X_OK&R_OK) != 0) { |
which("cpp", "/lib:/usr/ccs/lib:/usr/bin", cppname, BUFSIZ) || |
which("cpp", "/lib:/usr/ccs/lib:/usr/bin", cppname, BUFSIZ) || |
which("cpp", getenv("PATH"), cppname, BUFSIZ); |
which("cpp", getenv("PATH"), cppname, BUFSIZ); |
Line 490 void fatal(int n) |
|
Line 503 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 504 void int_handler(int sig) |
|
Line 518 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 777 char *get_asir_distribution(); |
|
Line 795 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.1 copyright 1988-2008, 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() |