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

Diff for /OpenXM_contrib2/asir2000/parse/glob.c between version 1.25 and 1.31

version 1.25, 2001/12/21 08:23:15 version 1.31, 2003/02/14 22:29:18
Line 45 
Line 45 
  * 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.24 2001/10/09 01:36:24 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 78  extern int GC_free_space_numerator;
Line 78  extern int GC_free_space_numerator;
 extern FILE *asir_out;  extern FILE *asir_out;
   
 INFILE asir_infile;  INFILE asir_infile;
 jmp_buf main_env,debug_env,timer_env,exec_env;  JMP_BUF main_env,debug_env,timer_env,exec_env;
 int little_endian,debug_mode;  int little_endian,debug_mode;
 char *asir_libdir;  char *asir_libdir;
 char *asir_pager;  char *asir_pager;
   
 NODE usrf,sysf,noargsysf,ubinf,parif;  NODE usrf,sysf,noargsysf,ubinf,parif;
 NODE ONENODE;  NODE ONENODE;
 int main_parser, ox_do_copy, ox_do_count, ox_count_length;  int main_parser, allow_create_var, ox_do_copy, ox_do_count, ox_count_length;
 int ox_file_io, ox_need_conv;  int ox_file_io, ox_need_conv;
 char *ox_copy_bptr;  char *ox_copy_bptr;
 char *parse_strp;  char *parse_strp;
Line 206  void asir_terminate(int status)
Line 206  void asir_terminate(int status)
                 t = read_exec_file;                  t = read_exec_file;
                 read_exec_file = 0;                  read_exec_file = 0;
                 if ( t == 1 )                  if ( t == 1 )
                         longjmp(main_env,status);                          LONGJMP(main_env,status);
                 else                  else
                         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);
Line 258  FILE *in_fp;
Line 258  FILE *in_fp;
 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 */
Line 399  void resetenv(char *s)
Line 399  void resetenv(char *s)
 #if !defined(VISUAL)  #if !defined(VISUAL)
         reset_timer();          reset_timer();
 #endif  #endif
         longjmp(main_env,1);          LONGJMP(main_env,1);
 }  }
   
 void fatal(int n)  void fatal(int n)
Line 540  void ill_handler(int sig)
Line 540  void ill_handler(int sig)
 void alrm_handler(int sig)  void alrm_handler(int sig)
 {  {
         fprintf(stderr,"interval timer expired (VTALRM)\n");          fprintf(stderr,"interval timer expired (VTALRM)\n");
         longjmp(timer_env,1);          LONGJMP(timer_env,1);
 }  }
   
 void bus_handler(int sig)  void bus_handler(int sig)
Line 616  void error(char *s)
Line 616  void error(char *s)
                 ExitAsir();                  ExitAsir();
         }          }
         if ( debug_mode )          if ( debug_mode )
                 longjmp(debug_env,1);                  LONGJMP(debug_env,1);
         if ( CPVS != GPVS )          if ( CPVS != GPVS )
                 if ( do_server_in_X11 || isatty(0) )                  if ( do_server_in_X11 || isatty(0) )
                         bp(error_snode);                          bp(error_snode);
Line 667  void copyright() {
Line 667  void copyright() {
                 get_asir_version(), get_asir_distribution());                  get_asir_version(), get_asir_distribution());
 #endif  #endif
         printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n");          printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n");
         printf("Copyright 2000,2001, Risa/Asir committers, http://www.openxm.org/.\n");          printf("Copyright 2000-2003, Risa/Asir committers, http://www.openxm.org/.\n");
         printf("GC 5.3, copyright 1999, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n");          printf("GC 6.1(alpha5) copyright 2001, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n");
         printf("PARI 2.2.1(alpha), copyright (C) 2000,\n");          printf("PARI 2.2.4, copyright (C) 2002 The PARI Group.\n");
         printf("     C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n");  
 }  }
   
   
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.31
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>