| version 1.74, 2008/03/19 07:05:56 | version 1.79, 2010/08/03 04:34:44 | 
|  |  | 
| * 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.73 2008/01/04 16:42:19 saito Exp $ | * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.78 2010/08/01 08:44:15 ohara 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) | 
|  | 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); | 
|  |  | 
|  |  | 
| 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 355  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 542  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 791  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.8 copyright 1988-2006, 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 |