version 1.73, 2008/01/04 16:42:19 |
version 1.78, 2010/08/01 08:44: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.72 2007/11/15 05:39:39 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.77 2010/05/26 06:32:49 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
|
|
#define MAXHIST 100 |
#define MAXHIST 100 |
|
|
extern int GC_free_space_divisor; |
|
extern int GC_free_space_numerator; |
|
extern FILE *asir_out; |
extern FILE *asir_out; |
|
|
INFILE asir_infile; |
INFILE asir_infile; |
Line 320 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) |
if (access(cppname, X_OK&R_OK) != 0) { |
char oxcpp[BUFSIZ]; |
|
if(which("ox_cpp", getenv("PATH"), oxcpp, BUFSIZ) && access(oxcpp, X_OK&R_OK) == 0) { |
|
strncpy(cppname,oxcpp,BUFSIZ-1); |
|
}else 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); |
} |
} |
|
|
|
|
void process_args(int ac,char **av) |
void process_args(int ac,char **av) |
{ |
{ |
|
int nm,dv; |
do_asirrc = 1; |
do_asirrc = 1; |
#if !defined(MPI) |
#if !defined(MPI) |
do_message = 1; |
do_message = 1; |
Line 343 void process_args(int ac,char **av) |
|
Line 345 void process_args(int ac,char **av) |
|
GC_expand_hp(atoi(*(av+1))); av += 2; ac -= 2; |
GC_expand_hp(atoi(*(av+1))); av += 2; ac -= 2; |
} else if ( !strcmp(*av,"-adj") && (ac >= 2) ) { |
} else if ( !strcmp(*av,"-adj") && (ac >= 2) ) { |
char *slash; |
char *slash; |
|
|
slash = strrchr(*(av+1),'/'); |
slash = strrchr(*(av+1),'/'); |
if ( slash ) { |
if ( slash ) { |
*slash = 0; |
*slash = 0; |
GC_free_space_numerator = atoi(slash+1); |
nm = atoi(slash+1); |
|
}else { |
|
nm = 1; |
} |
} |
GC_free_space_divisor = atoi(*(av+1)); |
dv = atoi(*(av+1)); |
|
Risa_GC_set_adj(nm,dv); |
av += 2; ac -= 2; |
av += 2; ac -= 2; |
} else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) { |
} else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) { |
strcpy(cppname,*(av+1)); av += 2; ac -= 2; |
strcpy(cppname,*(av+1)); av += 2; ac -= 2; |
Line 528 void int_handler(int sig) |
|
Line 532 void int_handler(int sig) |
|
|
|
fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr); |
fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr); |
buf[0] = '\n'; |
buf[0] = '\n'; |
while ( buf[0] == '\n' ) |
while ( !feof(stdin) && buf[0] == '\n' ) |
fgets(buf,BUFSIZ,stdin); |
fgets(buf,BUFSIZ,stdin); |
|
if ( feof(stdin) ) { |
|
clearerr(stdin); |
|
continue; |
|
} |
switch ( c = buf[0] ) { |
switch ( c = buf[0] ) { |
case 'q': |
case 'q': |
while ( 1 ) { |
while ( 1 ) { |
Line 773 char *get_asir_distribution(); |
|
Line 781 char *get_asir_distribution(); |
|
char *get_gcversion() |
char *get_gcversion() |
{ |
{ |
#if defined(GC7) |
#if defined(GC7) |
return "GC 7.0 copyright 1988-2007, 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 |
#else |
return "GC 6.5 copyright 1988-2005, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"; |
return "GC 6.8 copyright 1988-2006, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"; |
#endif |
#endif |
} |
} |
|
|