version 1.22, 2000/11/14 08:38:39 |
version 1.23, 2000/12/05 01:24:54 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* 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/io/ox_asir.c,v 1.21 2000/11/07 06:35:38 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.22 2000/11/14 08:38:39 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 662 void ox_asir_init(int argc,char **argv) |
|
Line 662 void ox_asir_init(int argc,char **argv) |
|
#endif |
#endif |
srandom((int)get_current_time()); |
srandom((int)get_current_time()); |
|
|
#if defined(THINK_C) |
|
param_init(); |
|
#endif |
|
rtime_init(); |
rtime_init(); |
env_init(); |
env_init(); |
endian_init(); |
endian_init(); |
#if !defined(VISUAL) && !defined(THINK_C) |
|
/* check_key(); */ |
|
#endif |
|
GC_init(); |
GC_init(); |
process_args(--argc,++argv); |
process_args(--argc,++argv); |
output_init(); |
output_init(); |
Line 693 void ox_asir_init(int argc,char **argv) |
|
Line 687 void ox_asir_init(int argc,char **argv) |
|
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]; |
Line 704 void ox_asir_init(int argc,char **argv) |
|
Line 695 void ox_asir_init(int argc,char **argv) |
|
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")) ) { |
input_init(ifp,ifname); |
input_init(ifp,ifname); |
Line 899 int asir_ox_init(int byteorder) |
|
Line 889 int asir_ox_init(int byteorder) |
|
#endif |
#endif |
srandom((int)get_current_time()); |
srandom((int)get_current_time()); |
|
|
#if defined(THINK_C) |
|
param_init(); |
|
#endif |
|
rtime_init(); |
rtime_init(); |
env_init(); |
env_init(); |
endian_init(); |
endian_init(); |
#if !defined(VISUAL) && !defined(THINK_C) |
|
/* check_key(); */ |
|
#endif |
|
GC_init(); |
GC_init(); |
/* process_args(argc,argv); */ |
/* process_args(argc,argv); */ |
output_init(); |
output_init(); |
Line 926 int asir_ox_init(int byteorder) |
|
Line 910 int asir_ox_init(int byteorder) |
|
#if defined(UINIT) |
#if defined(UINIT) |
reg_sysf(); |
reg_sysf(); |
#endif |
#endif |
#if defined(THINK_C) |
|
sprintf(ifname,"asirrc"); |
|
#else |
|
sprintf(ifname,"%s/.asirrc",getenv("HOME")); |
sprintf(ifname,"%s/.asirrc",getenv("HOME")); |
#endif |
|
if ( do_asirrc && (ifp = fopen(ifname,"r")) ) { |
if ( do_asirrc && (ifp = fopen(ifname,"r")) ) { |
input_init(ifp,ifname); |
input_init(ifp,ifname); |
if ( !setjmp(env) ) { |
if ( !setjmp(env) ) { |