version 1.7, 2020/06/20 05:56:08 |
version 1.11, 2022/09/07 03:10:56 |
|
|
* 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/asir2018/parse/glob.c,v 1.6 2020/06/19 08:14:38 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/parse/glob.c,v 1.10 2021/03/25 23:25:03 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 257 void asir_terminate(int status) |
|
Line 257 void asir_terminate(int status) |
|
#endif |
#endif |
if ( asir_out ) |
if ( asir_out ) |
fflush(asir_out); |
fflush(asir_out); |
#if FEP |
#if defined(FEP) |
if ( do_fep ) { |
if ( do_fep ) { |
stifle_history(MAXHIST); |
stifle_history(MAXHIST); |
write_history(asir_history); |
write_history(asir_history); |
Line 332 void cppname_init() |
|
Line 332 void cppname_init() |
|
char oxcpp[BUFSIZ]; |
char oxcpp[BUFSIZ]; |
#define OXCPP "/bin/ox_cpp" |
#define OXCPP "/bin/ox_cpp" |
|
|
if ( oxhome = getenv("OpenXM_HOME") ) { |
if ( ( oxhome = getenv("OpenXM_HOME") ) != 0 ) { |
if ( strlen(oxhome)+strlen(OXCPP)<BUFSIZ ) { |
if ( strlen(oxhome)+strlen(OXCPP)<BUFSIZ ) { |
sprintf(oxcpp,"%s%s",oxhome,OXCPP); |
sprintf(oxcpp,"%s%s",oxhome,OXCPP); |
if ( access(oxcpp,X_OK&R_OK) == 0 ) { |
if ( access(oxcpp,X_OK&R_OK) == 0 ) { |
Line 360 void process_args(int ac,char **av) |
|
Line 360 void process_args(int ac,char **av) |
|
#if defined(VISUAL) && defined(VISUAL_CONSOLE) |
#if defined(VISUAL) && defined(VISUAL_CONSOLE) |
disable_debugger=1; |
disable_debugger=1; |
#endif |
#endif |
|
#if defined(FEP) |
|
do_fep = 1; |
|
#endif |
do_quiet = 0; |
do_quiet = 0; |
while ( ac > 0 ) { |
while ( ac > 0 ) { |
if ( !strcmp(*av,"-heap") && (ac >= 2) ) { |
if ( !strcmp(*av,"-heap") && (ac >= 2) ) { |
Line 416 void process_args(int ac,char **av) |
|
Line 419 void process_args(int ac,char **av) |
|
} else if ( !strcmp(*av,"-display") && (ac >= 2) ) { |
} else if ( !strcmp(*av,"-display") && (ac >= 2) ) { |
strcpy(displayname,*(av+1)); av += 2; ac -= 2; |
strcpy(displayname,*(av+1)); av += 2; ac -= 2; |
#endif |
#endif |
#if FEP |
#if defined(FEP) |
} else if ( !strcmp(*av,"-fep") ) { |
} else if ( !strcmp(*av,"-fep") ) { |
do_fep = 1; av++; ac--; |
do_fep = 1; av++; ac--; |
|
} else if ( !strcmp(*av,"-nofep") ) { |
|
do_fep = 0; av++; ac--; |
#endif |
#endif |
} else { |
} else { |
fprintf(stderr,"%s : unknown option.\n",*av); |
fprintf(stderr,"%s : unknown option.\n",*av); |
Line 428 void process_args(int ac,char **av) |
|
Line 433 void process_args(int ac,char **av) |
|
asir_terminate(1); |
asir_terminate(1); |
} |
} |
} |
} |
#if FEP |
#if defined(FEP) |
if ( do_fep ) { |
if ( do_fep ) { |
char *home; |
char *home; |
home = (char *)getenv("HOME"); |
home = (char *)getenv("HOME"); |
Line 567 void int_handler(int sig) |
|
Line 572 void int_handler(int sig) |
|
return; |
return; |
} |
} |
#endif |
#endif |
#if !defined(ANDROID) && defined(linux) |
#if defined(linux) |
/* |
#if !defined(__GLIBC__) && !defined(ANDROID) |
#if 1 |
if( __freadahead(stdin) > 0 ) __fpurge(stdin); |
while ( stdin->_IO_read_ptr < stdin->_IO_read_end ) |
|
#else |
#else |
while ( stdin->_gptr < stdin->_egptr ) |
while ( FP_DATA_IS_AVAILABLE(stdin) ) |
#endif |
|
getchar(); |
getchar(); |
*/ |
|
if( __freadable(stdin) ) __fpurge(stdin); |
|
#endif |
#endif |
|
#endif |
while ( 1 ) { |
while ( 1 ) { |
char buf[BUFSIZ]; |
char buf[BUFSIZ]; |
char c; |
char c; |
Line 856 char *get_asir_distribution(); |
|
Line 858 char *get_asir_distribution(); |
|
|
|
char *get_gcversion() |
char *get_gcversion() |
{ |
{ |
return "GC 7.4.2 copyright 1988-2015, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"; |
return "GC 7.6.12 copyright 1988-2018, H-J. Boehm, A. J. Demers, Xerox, SGI, HP, I. Maidanski.\n"; |
} |
} |
|
|
char *get_pariversion() |
char *get_pariversion() |
Line 884 char *scopyright() |
|
Line 886 char *scopyright() |
|
static char *notice; |
static char *notice; |
char *s1, *s2, *s3, *s4; |
char *s1, *s2, *s3, *s4; |
int d, len; |
int d, len; |
char *format = "This is Risa/Asir%s, full GMP Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2019, Risa/Asir committers, http://www.openxm.org/.\n%s%s"; |
char *format = "This is Risa/Asir%s, full GMP Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2021, Risa/Asir committers, http://www.openxm.org/.\n%s%s"; |
if (!notice) { |
if (!notice) { |
s1 = get_intervalversion(); |
s1 = get_intervalversion(); |
s2 = get_asir_distribution(); |
s2 = get_asir_distribution(); |