version 1.7, 2000/12/01 08:48:01 |
version 1.8, 2000/12/05 01:24:57 |
|
|
* 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/main.c,v 1.6 2000/11/14 08:38:40 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/main.c,v 1.7 2000/12/01 08:48:01 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#if defined(THINK_C) |
|
#include <console.h> |
|
#endif |
|
|
|
#if PARI |
#if PARI |
#include "genpari.h" |
#include "genpari.h" |
|
|
srandom((int)get_current_time()); |
srandom((int)get_current_time()); |
/* mt_sgenrand((unsigned long)get_current_time()); */ |
/* mt_sgenrand((unsigned long)get_current_time()); */ |
|
|
#if defined(THINK_C) |
|
param_init(); |
|
#endif |
|
rtime_init(); |
rtime_init(); |
env_init(); |
env_init(); |
endian_init(); |
endian_init(); |
#if 0 && !defined(VISUAL) && !defined(THINK_C) |
|
check_key(); |
|
#endif |
|
GC_init(); |
GC_init(); |
process_args(--argc,++argv); |
process_args(--argc,++argv); |
#if PARI |
#if PARI |
|
|
if ( ptr = getenv("ASIR_CONFIG") ) |
if ( ptr = getenv("ASIR_CONFIG") ) |
strcpy(ifname,ptr); |
strcpy(ifname,ptr); |
else { |
else { |
#if defined(THINK_C) |
|
sprintf(ifname,"asirrc"); |
|
#else |
|
homedir = getenv("HOME"); |
homedir = getenv("HOME"); |
if ( !homedir ) { |
if ( !homedir ) { |
char rootname[BUFSIZ]; |
char rootname[BUFSIZ]; |
|
|
homedir = rootname; |
homedir = rootname; |
} |
} |
sprintf(ifname,"%s/.asirrc",homedir); |
sprintf(ifname,"%s/.asirrc",homedir); |
#endif |
|
} |
} |
|
|
if ( do_asirrc && (ifp = fopen(ifname,"r")) ) { |
if ( do_asirrc && (ifp = fopen(ifname,"r")) ) { |