[BACK]Return to ox_asir.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/ox_asir.c between version 1.22 and 1.23

version 1.22, 2000/11/14 08:38:39 version 1.23, 2000/12/05 01:24:54
Line 44 
Line 44 
  * 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) ) {
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>