version 1.27, 2002/07/26 00:33:03 |
version 1.33, 2003/03/07 06:39:59 |
|
|
* 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.26 2001/12/25 02:39:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.32 2003/03/07 03:12:31 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(); |
|
|
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 306 void process_args(int ac,char **av) |
|
Line 306 void process_args(int ac,char **av) |
|
} 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 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.1(alpha), copyright (C) 2000,\n"); |
#if PARI |
printf(" C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n"); |
#if 0 |
|
printf("PARI 2.2.4, copyright (C) 2002 The PARI Group.\n"); |
|
#endif |
|
printf("PARI 2.0.17, copyright 1989-1999, C. Batut, K. Belabas, D. Bernardi,\n"); |
|
printf(" H. Cohen and M. Olivier.\n"); |
|
#endif |
} |
} |
|
|
|
|