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 */ |