| version 1.30, 2003/01/06 01:16:40 |
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.29 2002/12/09 00:42:15 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 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 */ |