version 1.28, 2002/09/11 08:57:21 |
version 1.31, 2003/02/14 22:29:18 |
|
|
* 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.27 2002/07/26 00:33:03 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.30 2003/01/06 01:16:40 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
#include "parse.h" |
#include "parse.h" |
#include "ox.h" |
#include "ox.h" |
#if 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__) |
#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) |
Line 85 char *asir_pager; |
|
Line 85 char *asir_pager; |
|
|
|
NODE usrf,sysf,noargsysf,ubinf,parif; |
NODE usrf,sysf,noargsysf,ubinf,parif; |
NODE ONENODE; |
NODE ONENODE; |
int main_parser, ox_do_copy, ox_do_count, ox_count_length; |
int main_parser, allow_create_var, ox_do_copy, ox_do_count, ox_count_length; |
int ox_file_io, ox_need_conv; |
int ox_file_io, ox_need_conv; |
char *ox_copy_bptr; |
char *ox_copy_bptr; |
char *parse_strp; |
char *parse_strp; |
Line 211 void asir_terminate(int status) |
|
Line 211 void asir_terminate(int status) |
|
LONGJMP(exec_env,status); |
LONGJMP(exec_env,status); |
} else { |
} else { |
tty_reset(); |
tty_reset(); |
#if MPI |
#if defined(MPI) |
if ( !mpi_myid ) |
if ( !mpi_myid ) |
close_allconnections(); |
close_allconnections(); |
mpi_finalize(); |
mpi_finalize(); |
Line 223 void asir_terminate(int status) |
|
Line 223 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); |
|
|
void process_args(int ac,char **av) |
void process_args(int ac,char **av) |
{ |
{ |
do_asirrc = 1; |
do_asirrc = 1; |
#if !MPI |
#if !defined(MPI) |
do_message = 1; |
do_message = 1; |
#endif |
#endif |
while ( ac > 0 ) { |
while ( ac > 0 ) { |
Line 302 void process_args(int ac,char **av) |
|
Line 302 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--; |
#endif |
#endif |
#if PARI |
#if defined(PARI) |
} else if ( !strcmp(*av,"-paristack") ) { |
} else if ( !strcmp(*av,"-paristack") ) { |
extern int paristack; |
extern int paristack; |
|
|
Line 317 void process_args(int ac,char **av) |
|
Line 317 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 390 void resetenv(char *s) |
|
Line 390 void resetenv(char *s) |
|
w_noflush_stderr(0); |
w_noflush_stderr(0); |
#endif |
#endif |
asir_out = stdout; |
asir_out = stdout; |
#if PARI |
#if defined(PARI) |
pari_outfile = stdout; |
pari_outfile = stdout; |
#endif |
#endif |
/* restore states */ |
/* restore states */ |
Line 667 void copyright() { |
|
Line 667 void copyright() { |
|
get_asir_version(), get_asir_distribution()); |
get_asir_version(), get_asir_distribution()); |
#endif |
#endif |
printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n"); |
printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n"); |
printf("Copyright 2000,2001, Risa/Asir committers, http://www.openxm.org/.\n"); |
printf("Copyright 2000-2003, Risa/Asir committers, http://www.openxm.org/.\n"); |
printf("GC 6.1(alpha5) copyright 2001, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"); |
printf("GC 6.1(alpha5) copyright 2001, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n"); |
printf("PARI 2.2.4, copyright (C) 2002 The PARI Group.\n"); |
printf("PARI 2.2.4, copyright (C) 2002 The PARI Group.\n"); |
} |
} |