[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.84 and 1.93

version 1.84, 2013/11/29 08:21:29 version 1.93, 2016/08/24 08:21:03
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.83 2012/12/17 07:20:45 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.92 2016/08/24 05:33:58 ohara 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 defined(PARI)  #include <signal.h>
 #include "genpari.h"  #if !defined(VISUAL) && !defined(__MINGW32__) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) && !defined(__INTERIX) && !defined(__FreeBSD__)
 #endif  
 #if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) && !defined(__INTERIX) && !defined(__FreeBSD__)  
 #include <sgtty.h>  #include <sgtty.h>
 #endif  #endif
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 #include <io.h>  #include <io.h>
 #include <direct.h>  #include <direct.h>
 #else  #else
Line 71 
Line 69 
 #include <sys/ttold.h>  #include <sys/ttold.h>
 #endif  #endif
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 #define HISTORY asir_history  #define HISTORY asir_history
 #endif  #endif
   
Line 84  JMP_BUF main_env,debug_env,timer_env,exec_env;
Line 82  JMP_BUF main_env,debug_env,timer_env,exec_env;
 int little_endian,debug_mode,no_debug_on_error;  int little_endian,debug_mode,no_debug_on_error;
 char *asir_libdir;  char *asir_libdir;
 char *asir_contrib_dir;  char *asir_contrib_dir;
   char *asir_private_dir;
 char *asir_pager;  char *asir_pager;
   
 NODE usrf,sysf,noargsysf,ubinf,parif;  NODE usrf,sysf,noargsysf,ubinf,parif;
Line 145  struct oF oF_TRUE,oF_FALSE;
Line 144  struct oF oF_TRUE,oF_FALSE;
 F F_TRUE = &oF_TRUE;  F F_TRUE = &oF_TRUE;
 F F_FALSE = &oF_FALSE;  F F_FALSE = &oF_FALSE;
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 char cppname[BUFSIZ] = "c:\\asir\\stdlib\\cpp ";  char cppname[BUFSIZ] = "c:\\asir\\stdlib\\cpp ";
 #else  #else
 char cppname[BUFSIZ] = "/lib/cpp ";  char cppname[BUFSIZ] = "/lib/cpp ";
Line 227  void asir_terminate(int status)
Line 226  void asir_terminate(int status)
                 LONGJMP(asir_infile->jmpbuf,status);                  LONGJMP(asir_infile->jmpbuf,status);
         else {          else {
                 if ( user_quit_handler ) {                  if ( user_quit_handler ) {
                         if ( !do_terse )                          if ( !do_terse ) {
                                 fprintf(stderr,"Calling the registered quit callbacks...");                                  fprintf(stderr,"Calling the registered quit callbacks...");
   #if defined(__MINGW32__)
                                   fflush(stderr);
   #endif
                           }
                         for ( n = user_quit_handler; n; n = NEXT(n) )                          for ( n = user_quit_handler; n; n = NEXT(n) )
                                 bevalf((FUNC)BDY(n),0);                                  bevalf((FUNC)BDY(n),0);
                         if ( !do_terse )                          if ( !do_terse ) {
                                 fprintf(stderr, "done.\n");                                  fprintf(stderr, "done.\n");
   #if defined(__MINGW32__)
                                   fflush(stderr);
   #endif
                           }
                 }                  }
                 tty_reset();                  tty_reset();
 #if defined(MPI)  #if defined(MPI)
Line 241  void asir_terminate(int status)
Line 248  void asir_terminate(int status)
                 mpi_finalize();                  mpi_finalize();
 #else  #else
 #if defined(SIGPIPE)  #if defined(SIGPIPE)
                 signal(SIGPIPE,SIG_IGN);                  set_signal(SIGPIPE,SIG_IGN);
 #endif  #endif
                 close_allconnections();                  close_allconnections();
 #endif  #endif
Line 284  void sprompt(char *ptr)
Line 291  void sprompt(char *ptr)
         sprintf(ptr,"[%d] ",APVS->n);          sprintf(ptr,"[%d] ",APVS->n);
 }  }
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
 static int which(char *prog, char *path, char *buf, size_t size)  static int which(char *prog, char *path, char *buf, size_t size)
 {  {
     char *tok;      char *tok;
Line 317  static int which(char *prog, char *path, char *buf, si
Line 324  static int which(char *prog, char *path, char *buf, si
   
 void cppname_init()  void cppname_init()
 {  {
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         char *oxhome;          char *oxhome;
         char oxcpp[BUFSIZ];          char oxcpp[BUFSIZ];
 #define OXCPP "/bin/ox_cpp"  #define OXCPP "/bin/ox_cpp"
Line 372  void process_args(int ac,char **av)
Line 379  void process_args(int ac,char **av)
                         in_fp = fopen(*(av+1),"r");                          in_fp = fopen(*(av+1),"r");
                         if ( !in_fp ) {                          if ( !in_fp ) {
                                 fprintf(stderr,"%s does not exist!\n",*(av+1));                                  fprintf(stderr,"%s does not exist!\n",*(av+1));
   #if defined(__MINGW32__)
                                   fflush(stderr);
   #endif
                                 asir_terminate(1);                                  asir_terminate(1);
                         }                          }
                         do_file = 1;                          do_file = 1;
Line 391  void process_args(int ac,char **av)
Line 401  void process_args(int ac,char **av)
                         void GC_set_max_heap_size(int);                          void GC_set_max_heap_size(int);
   
                         GC_set_max_heap_size(atoi(*(av+1))); av += 2; ac -= 2;                          GC_set_max_heap_size(atoi(*(av+1))); av += 2; ac -= 2;
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
                 } 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
Line 399  void process_args(int ac,char **av)
Line 409  void process_args(int ac,char **av)
                 } else if ( !strcmp(*av,"-fep") ) {                  } else if ( !strcmp(*av,"-fep") ) {
                         do_fep = 1; av++; ac--;                          do_fep = 1; av++; ac--;
 #endif  #endif
 #if defined(PARI)  
                 } else if ( !strcmp(*av,"-paristack") ) {  
                         extern int paristack;  
   
                         paristack = atoi(*(av+1)); av += 2; ac -= 2;  
 #endif  
                 } else {                  } else {
                         fprintf(stderr,"%s : unknown option.\n",*av);                          fprintf(stderr,"%s : unknown option.\n",*av);
   #if defined(__MINGW32__)
                           fflush(stderr);
   #endif
                         asir_terminate(1);                          asir_terminate(1);
                 }                  }
         }          }
Line 423  void process_args(int ac,char **av)
Line 430  void process_args(int ac,char **av)
 #endif  #endif
 }  }
   
 #include <signal.h>  #if defined(HAVE_SIGACTION)
   void (*set_signal(int sig, void (*handler)(int)))(int)
   {
           struct sigaction act;
           struct sigaction oldact;
           if (handler == SIG_IGN || handler == SIG_DFL) {
                   return signal(sig,handler);
           }
           act.sa_handler=handler;
           act.sa_flags=0;
           act.sa_flags |= SA_RESTART;
           sigemptyset(&act.sa_mask);
           sigaction(sig,&act,&oldact);
           return oldact.sa_handler;
   }
   #endif
   
 void sig_init() {  void sig_init() {
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         signal(SIGINT,int_handler);          set_signal(SIGINT,int_handler);
 #else  #else
         void register_ctrlc_handler();          void register_ctrlc_handler();
   
         register_ctrlc_handler();          register_ctrlc_handler();
 #endif  #endif
         signal(SIGSEGV,segv_handler);          set_signal(SIGSEGV,segv_handler);
   
 #if defined(SIGFPE)  #if defined(SIGFPE)
         signal(SIGFPE,fpe_handler);          set_signal(SIGFPE,fpe_handler);
 #endif  #endif
   
 #if defined(SIGPIPE)  #if defined(SIGPIPE)
         signal(SIGPIPE,pipe_handler);          set_signal(SIGPIPE,pipe_handler);
 #endif  #endif
   
 #if defined(SIGILL)  #if defined(SIGILL)
         signal(SIGILL,ill_handler);          set_signal(SIGILL,ill_handler);
 #endif  #endif
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         signal(SIGBUS,bus_handler);          set_signal(SIGBUS,bus_handler);
 #endif  #endif
 }  }
   
 static void (*old_int)(int);  static void (*old_int)(int);
   
 void asir_save_handler() {  void asir_save_handler() {
         old_int = signal(SIGINT,SIG_IGN);          old_int = set_signal(SIGINT,SIG_IGN);
         signal(SIGINT,old_int);          set_signal(SIGINT,old_int);
 }  }
   
 void asir_set_handler() {  void asir_set_handler() {
         signal(SIGINT,int_handler);          set_signal(SIGINT,int_handler);
 }  }
   
 void asir_reset_handler() {  void asir_reset_handler() {
         signal(SIGINT,old_int);          set_signal(SIGINT,old_int);
 }  }
   
 extern int I_am_server;  extern int I_am_server;
Line 477  void resetenv(char *s)
Line 499  void resetenv(char *s)
         while ( NEXT(asir_infile) )          while ( NEXT(asir_infile) )
                 closecurrentinput();                  closecurrentinput();
         resetpvs();          resetpvs();
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         if ( do_server_in_X11 )          if ( do_server_in_X11 )
 #endif  #endif
                 show_debug_window(0);                  show_debug_window(0);
 #if defined(VISUAL_LIB)  #if defined(VISUAL_LIB)
         w_noflush_stderr(0);          w_noflush_stderr(0);
 #endif  #endif
         asir_out = stdout;  #if defined(__MINGW32__)
 #if defined(PARI)          fflush(stderr);
         pari_outfile = stdout;  
 #endif  #endif
           asir_out = stdout;
         /* restore states */          /* restore states */
         reset_engine();          reset_engine();
         reset_io();          reset_io();
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         reset_timer();          reset_timer();
 #endif  #endif
         LONGJMP(main_env,1);          LONGJMP(main_env,1);
Line 504  void fatal(int n)
Line 526  void fatal(int n)
   
 extern int ox_int_received, critical_when_signal;  extern int ox_int_received, critical_when_signal;
 extern int in_gc, caught_intr;  extern int in_gc, caught_intr;
   extern int ox_get_pari_result;
   
 void int_handler(int sig)  void int_handler(int sig)
 {  {
Line 514  void int_handler(int sig)
Line 537  void int_handler(int sig)
         if ( do_file ) {          if ( do_file ) {
                 ExitAsir();                  ExitAsir();
         }          }
         if ( critical_when_signal ) {          if ( !ox_get_pari_result && critical_when_signal ) {
                 ox_int_received = 1;                  ox_int_received = 1;
                 return;                  return;
         }          }
Line 522  void int_handler(int sig)
Line 545  void int_handler(int sig)
                 caught_intr = 1;                  caught_intr = 1;
                 return;                  return;
         }          }
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
         suspend_timer();          suspend_timer();
 #endif  #endif
         signal(SIGINT,SIG_IGN);          set_signal(SIGINT,SIG_IGN);
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
     if ( do_server_in_X11 ) {      if ( do_server_in_X11 ) {
                 debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0);                  debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0);
                 restore_handler();                  restore_handler();
Line 560  void int_handler(int sig)
Line 583  void int_handler(int sig)
                                         fgets(buf,BUFSIZ,stdin);                                          fgets(buf,BUFSIZ,stdin);
                                         if ( !strncmp(buf,"y",1) ) {                                          if ( !strncmp(buf,"y",1) ) {
                                                 fprintf(stderr,"Bye\n");                                                  fprintf(stderr,"Bye\n");
   #if defined(__MINGW32__)
                                                   fflush(stderr);
   #endif
                                                 /* for terminating myself */                                                  /* for terminating myself */
                                                 asir_infile = 0;                                                  asir_infile = 0;
                                                 asir_terminate(1);                                                  asir_terminate(1);
Line 586  void int_handler(int sig)
Line 612  void int_handler(int sig)
                                 restore_handler();                                  restore_handler();
                                 if ( c == 'u' ) {                                  if ( c == 'u' ) {
                                         if ( user_int_handler ) {                                          if ( user_int_handler ) {
                                                 if ( !do_terse )                                                  if ( !do_terse ) {
                                                         fprintf(stderr,                                                          fprintf(stderr,
                                                                 "Calling the registered exception callbacks...");                                                                  "Calling the registered exception callbacks...");
   #if defined(__MINGW32__)
                                                           fflush(stderr);
   #endif
                                                   }
                                                 for ( t = user_int_handler; t; t = NEXT(t) )                                                  for ( t = user_int_handler; t; t = NEXT(t) )
                                                         bevalf((FUNC)BDY(t),0);                                                          bevalf((FUNC)BDY(t),0);
                                                 if ( !do_terse )                                                  if ( !do_terse ) {
                                                         fprintf(stderr, "done.\n");                                                          fprintf(stderr, "done.\n");
   #if defined(__MINGW32__)
                                                           fflush(stderr);
   #endif
                                                   }
                                         }                                          }
                                 }                                  }
                                 resetenv("return to toplevel");                                  resetenv("return to toplevel");
Line 612  void int_handler(int sig)
Line 646  void int_handler(int sig)
                                 break;                                  break;
                         case '?':                          case '?':
                                 fprintf(stderr, "q:quit t:toplevel c:continue d:debug u:call registered handler w:where\n");                                  fprintf(stderr, "q:quit t:toplevel c:continue d:debug u:call registered handler w:where\n");
   #if defined(__MINGW32__)
                                   fflush(stderr);
   #endif
                                 break;                                  break;
                         default:                          default:
                                 break;                                  break;
Line 620  void int_handler(int sig)
Line 657  void int_handler(int sig)
 }  }
   
 void restore_handler() {  void restore_handler() {
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
         resume_timer();          resume_timer();
 #endif  #endif
 #if defined(SIGINT)  #if defined(SIGINT)
         signal(SIGINT,int_handler);          set_signal(SIGINT,int_handler);
 #endif  #endif
 }  }
   
 void segv_handler(int sig)  void segv_handler(int sig)
 {  {
 #if defined(SIGSEGV)  #if defined(SIGSEGV)
         signal(SIGSEGV,segv_handler);          set_signal_for_restart(SIGSEGV,segv_handler);
         error("internal error (SEGV)");          error("internal error (SEGV)");
 #endif  #endif
 }  }
Line 639  void segv_handler(int sig)
Line 676  void segv_handler(int sig)
 void ill_handler(int sig)  void ill_handler(int sig)
 {  {
 #if defined(SIGILL)  #if defined(SIGILL)
         signal(SIGILL,ill_handler);          set_signal_for_restart(SIGILL,ill_handler);
         error("illegal instruction (ILL)");          error("illegal instruction (ILL)");
 #endif  #endif
 }  }
Line 655  void ill_handler(int sig)
Line 692  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");
   #if defined(__MINGW32__)
           fflush(stderr);
   #endif
         LONGJMP(timer_env,1);          LONGJMP(timer_env,1);
 }  }
   
 void bus_handler(int sig)  void bus_handler(int sig)
 {  {
 #if defined(SIGBUS)  #if defined(SIGBUS)
         signal(SIGBUS,bus_handler);          set_signal_for_restart(SIGBUS,bus_handler);
         error("internal error (BUS ERROR)");          error("internal error (BUS ERROR)");
 #endif  #endif
 }  }
Line 669  void bus_handler(int sig)
Line 709  void bus_handler(int sig)
 void fpe_handler(int sig)  void fpe_handler(int sig)
 {  {
 #if defined(SIGFPE)  #if defined(SIGFPE)
         signal(SIGFPE,fpe_handler);          set_signal_for_restart(SIGFPE,fpe_handler);
         error("internal error (FPE)");          error("internal error (FPE)");
 #endif  #endif
 }  }
Line 677  void fpe_handler(int sig)
Line 717  void fpe_handler(int sig)
 void pipe_handler(int sig)  void pipe_handler(int sig)
 {  {
 #if defined(SIGPIPE)  #if defined(SIGPIPE)
         signal(SIGPIPE,pipe_handler);          set_signal_for_restart(SIGPIPE,pipe_handler);
         end_critical();          end_critical();
         error("internal error (BROKEN PIPE)");          error("internal error (BROKEN PIPE)");
 #endif  #endif
Line 708  void error(char *s)
Line 748  void error(char *s)
 {  {
         SNODE *snp=0;          SNODE *snp=0;
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         if ( !error_in_timer && timer_is_set )          if ( !error_in_timer && timer_is_set )
                 alrm_handler(SIGNAL_FOR_TIMER);                  alrm_handler(SIGNAL_FOR_TIMER);
 #endif  #endif
         fprintf(stderr,"%s\n",s);          fprintf(stderr,"%s\n",s);
   #if defined(__MINGW32__)
           fflush(stderr);
   #endif
         set_lasterror(s);          set_lasterror(s);
         if ( CPVS != GPVS ) {          if ( CPVS != GPVS ) {
                 if ( CPVS && CPVS->usrf && CPVS->usrf->f.usrf )                  if ( CPVS && CPVS->usrf && CPVS->usrf->f.usrf )
Line 741  void error(char *s)
Line 784  void error(char *s)
         resetenv("return to toplevel");          resetenv("return to toplevel");
 }  }
   
 void toplevel(char *s)  void goto_toplevel(char *s)
 {  {
         SNODE *snp=0;          SNODE *snp=0;
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         if ( timer_is_set )          if ( timer_is_set )
                 alrm_handler(SIGNAL_FOR_TIMER);                  alrm_handler(SIGNAL_FOR_TIMER);
 #endif  #endif
         fprintf(stderr,"%s\n",s);          fprintf(stderr,"%s\n",s);
   #if defined(__MINGW32__)
           fflush(stderr);
   #endif
         if ( do_file ) {          if ( do_file ) {
                 char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */                  char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */
   
Line 760  void toplevel(char *s)
Line 806  void toplevel(char *s)
         resetenv("return to toplevel");          resetenv("return to toplevel");
 }  }
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
 #include <sys/time.h>  #include <sys/time.h>
   
 void set_timer(int interval)  void set_timer(int interval)
Line 772  void set_timer(int interval)
Line 818  void set_timer(int interval)
         it.it_value.tv_sec = interval;          it.it_value.tv_sec = interval;
         it.it_value.tv_usec = 0;          it.it_value.tv_usec = 0;
         setitimer(ITIMER_TYPE,&it,0);          setitimer(ITIMER_TYPE,&it,0);
         signal(SIGNAL_FOR_TIMER,alrm_handler);          set_signal(SIGNAL_FOR_TIMER,alrm_handler);
         timer_is_set = 1;          timer_is_set = 1;
 }  }
   
Line 785  void reset_timer()
Line 831  void reset_timer()
         it.it_value.tv_sec = 0;          it.it_value.tv_sec = 0;
         it.it_value.tv_usec = 0;          it.it_value.tv_usec = 0;
         setitimer(ITIMER_TYPE,&it,0);          setitimer(ITIMER_TYPE,&it,0);
         signal(SIGNAL_FOR_TIMER,SIG_IGN);          set_signal(SIGNAL_FOR_TIMER,SIG_IGN);
         timer_is_set = 0;          timer_is_set = 0;
 }  }
 #endif  #endif
Line 800  char *get_gcversion() 
Line 846  char *get_gcversion() 
   
 char *get_pariversion()  char *get_pariversion()
 {  {
 #if PARI  
 #if 0  
         return PARIVERSION", Copyright (C) 2000-2005 The PARI Group.\n";  
 #else  
         return "PARI 2.0.17, copyright 1989-1999, C. Batut, K. Belabas, D. Bernardi,\n   H. Cohen and M. Olivier.\n";  
 #endif  
 #endif  
         return "";          return "";
 }  }
   
Line 844  char *scopyright()
Line 883  char *scopyright()
         return notice;          return notice;
 }  }
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 void check_intr()  void check_intr()
 {  {
         extern int recv_intr;          extern int recv_intr;
         if ( recv_intr ) {          if ( recv_intr ) {
                 if ( recv_intr == 1 ) {                  if ( recv_intr == 1 ) {
                         recv_intr = 0;                          recv_intr = 0;
                         int_handler(0);                          int_handler(SIGINT);
                 } else {                  } else {
                         recv_intr = 0;                          recv_intr = 0;
                         ox_usr1_handler(0);                          ox_usr1_handler(0);
Legend:
Removed from v.1.84  
changed lines
  Added in v.1.93
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>