version 1.72, 2007/11/15 05:39:39 |
version 1.77, 2010/05/26 06:32:49 |
|
|
* 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.71 2007/09/19 05:56:01 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.76 2009/03/18 05:13:47 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
#if defined(PARI) |
#if defined(PARI) |
#include "genpari.h" |
#include "genpari.h" |
#endif |
#endif |
#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) && !defined(__INTERIX) |
#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) && !defined(__INTERIX) && !defined(__FreeBSD__) |
#include <sgtty.h> |
#include <sgtty.h> |
#endif |
#endif |
|
|
|
|
|
|
#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; |
|
|
|
|
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 342 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 529 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 778 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 |
} |
} |
|
|