[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.44 and 1.100

version 1.44, 2004/02/04 07:42:07 version 1.100, 2019/03/29 04:43: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.43 2004/01/25 11:54:10 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.99 2018/03/29 01:32:54 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 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)  
 #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
   
 #define MAXHIST 100  #define MAXHIST 100
   
 extern int GC_free_space_divisor;  
 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,no_debug_on_error;
 char *asir_libdir;  char *asir_libdir;
   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 98  FUNC parse_targetf;
Line 96  FUNC parse_targetf;
 FILE *ox_istream,*ox_ostream;  FILE *ox_istream,*ox_ostream;
 int do_server_in_X11;  int do_server_in_X11;
 Obj LastVal;  Obj LastVal;
   LIST LastStackTrace;
 char LastError[BUFSIZ];  char LastError[BUFSIZ];
 int timer_is_set;  int timer_is_set;
   NODE current_option;
   NODE user_int_handler, user_quit_handler;
   
   
 struct oV oVAR[] = {  struct oV oVAR[] = {
         {"x",0,0}, {"y",0,0}, {"z",0,0}, {"u",0,0},    {"x",0,0}, {"y",0,0}, {"z",0,0}, {"u",0,0},
         {"v",0,0}, {"w",0,0}, {"p",0,0}, {"q",0,0},    {"v",0,0}, {"w",0,0}, {"p",0,0}, {"q",0,0},
         {"r",0,0}, {"s",0,0}, {"t",0,0}, {"a",0,0},    {"r",0,0}, {"s",0,0}, {"t",0,0}, {"a",0,0},
         {"b",0,0}, {"c",0,0}, {"d",0,0}, {"e",0,0},    {"b",0,0}, {"c",0,0}, {"d",0,0}, {"e",0,0},
         {"f",0,0}, {"g",0,0}, {"h",0,0}, {"i",0,0},    {"f",0,0}, {"g",0,0}, {"h",0,0}, {"i",0,0},
         {"j",0,0}, {"k",0,0}, {"l",0,0}, {"m",0,0},    {"j",0,0}, {"k",0,0}, {"l",0,0}, {"m",0,0},
         {"n",0,0}, {"o",0,0},    {"n",0,0}, {"o",0,0},
         {"_x",0,0}, {"_y",0,0}, {"_z",0,0}, {"_u",0,0},    {"_x",0,0}, {"_y",0,0}, {"_z",0,0}, {"_u",0,0},
         {"_v",0,0}, {"_w",0,0}, {"_p",0,0}, {"_q",0,0},    {"_v",0,0}, {"_w",0,0}, {"_p",0,0}, {"_q",0,0},
         {"_r",0,0}, {"_s",0,0}, {"_t",0,0}, {"_a",0,0},    {"_r",0,0}, {"_s",0,0}, {"_t",0,0}, {"_a",0,0},
         {"_b",0,0}, {"_c",0,0}, {"_d",0,0}, {"_e",0,0},    {"_b",0,0}, {"_c",0,0}, {"_d",0,0}, {"_e",0,0},
         {"_f",0,0}, {"_g",0,0}, {"_h",0,0}, {"_i",0,0},    {"_f",0,0}, {"_g",0,0}, {"_h",0,0}, {"_i",0,0},
         {"_j",0,0}, {"_k",0,0}, {"_l",0,0}, {"_m",0,0},    {"_j",0,0}, {"_k",0,0}, {"_l",0,0}, {"_m",0,0},
         {"_n",0,0}, {"_o",0,0}    {"_n",0,0}, {"_o",0,0}
 };  };
   
 struct oVL oVLIST[52];  struct oVL oVLIST[52];
   
 VL CO = oVLIST;  VL CO = oVLIST;
 VL ALG;  VL ALG;
   VL LASTCO;
   
 struct oVS oGPVS,oAPVS,oEPVS;  struct oVS oGPVS,oAPVS,oEPVS,oPPVS;
 VS GPVS = &oGPVS;  VS GPVS = &oGPVS;
 VS APVS = &oAPVS;  VS APVS = &oAPVS;
 VS EPVS = &oEPVS;  VS EPVS = &oEPVS;
   VS PPVS = &oPPVS;
 VS CPVS,MPVS;  VS CPVS,MPVS;
   
 NODE MODULE_LIST;  NODE MODULE_LIST;
 MODULE CUR_MODULE;  MODULE CUR_MODULE;
 char *CUR_FUNC;  char *CUR_FUNC;
   
 struct oSymbol oGrlex, oGlex, oLex;  struct oSYMBOL oGrlex, oGlex, oLex;
 Symbol Symbol_grlex = &oGrlex;  SYMBOL Symbol_grlex = &oGrlex;
 Symbol Symbol_glex = &oGlex;  SYMBOL Symbol_glex = &oGlex;
 Symbol Symbol_lex = &oLex;;  SYMBOL Symbol_lex = &oLex;;
   
 struct oF oF_TRUE,oF_FALSE;  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 155  int Verbose;
Line 157  int Verbose;
 int do_quiet;  int do_quiet;
   
 void glob_init() {  void glob_init() {
         int i;    int i;
   
         for ( i = 0; i < 51; i++ ) {    for ( i = 0; i < 51; i++ ) {
                 VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = &oVLIST[i+1];      VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = &oVLIST[i+1];
         }    }
         VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = 0;    VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = 0;
         reallocarray((char **)&GPVS->va,(int *)&GPVS->asize,(int *)&GPVS->n,(int)sizeof(struct oPV));    LASTCO = &oVLIST[i];
         reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV));    asir_reallocarray((char **)&GPVS->va,(int *)&GPVS->asize,(int *)&GPVS->n,(int)sizeof(struct oPV));
         CPVS = GPVS;    asir_reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV));
         MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),0);    asir_reallocarray((char **)&PPVS->va,(int *)&PPVS->asize,(int *)&PPVS->n,(int)sizeof(struct oPV));
         OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;    CPVS = GPVS;
         OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0;    MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),NULLP);
         OID(Symbol_grlex) = O_SYMBOL; Symbol_grlex->name = "@grlex";    OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;
         Symbol_grlex->value = 0;    OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0;
         OID(Symbol_glex) = O_SYMBOL; Symbol_glex->name = "@glex";    OID(Symbol_grlex) = O_SYMBOL; Symbol_grlex->name = "@grlex";
         Symbol_glex->value = 1;    Symbol_grlex->value = 0;
         OID(Symbol_lex) = O_SYMBOL; Symbol_glex->name = "@lex";    OID(Symbol_glex) = O_SYMBOL; Symbol_glex->name = "@glex";
         Symbol_lex->value = 1;    Symbol_glex->value = 1;
         sprintf(asirname,"%s/asir_symtab",asir_libdir);    OID(Symbol_lex) = O_SYMBOL; Symbol_lex->name = "@lex";
     Symbol_lex->value = 2;
     sprintf(asirname,"%s/asir_symtab",asir_libdir);
 }  }
   
 void input_init(FILE *fp,char *name)  void input_init(FILE *fp,char *name)
 {  {
         asir_infile = (INFILE)CALLOC(sizeof(struct oINFILE),1);    asir_infile = (INFILE)CALLOC(sizeof(struct oINFILE),1);
         asir_infile->name = name; asir_infile->fp = fp;    asir_infile->name = name; asir_infile->fp = fp;
         asir_infile->ln = 1; NEXT(asir_infile) = 0;    asir_infile->ln = 1; NEXT(asir_infile) = 0;
 }  }
   
 void notdef(VL vl,Obj a,Obj b,Obj *c)  void notdef(VL vl,Obj a,Obj b,Obj *c)
 {  {
         error("undefined arithmetic operation.");    error("undefined arithmetic operation.");
 }  }
   
   int disable_debugger;
 int do_asirrc;  int do_asirrc;
 int do_file;  int do_file;
 char *do_filename;  char *do_filename;
 int do_message;  int do_message;
   int do_terse;
 int do_fep;  int do_fep;
 int read_exec_file;  
 int asir_setenv;  int asir_setenv;
 static int buserr_sav;  static int buserr_sav;
 static char asir_history[BUFSIZ];  static char asir_history[BUFSIZ];
Line 202  extern int mpi_myid;
Line 207  extern int mpi_myid;
   
 #if !defined(VISUAL_LIB)  #if !defined(VISUAL_LIB)
 void ExitAsir() {  void ExitAsir() {
         exit(0);    exit(0);
 }  }
 #endif  #endif
   
 /*  /*
  * status = 1 abnormal termination (error() etc.)   * status = 1 abnormal termination (error() etc.)
  * status = 2 normal termination (end(), quit() etc.)   * status = 2 normal termination (end(), quit() etc.)
    * status = 3 absolute termination
  */   */
   
 void asir_terminate(int status)  void asir_terminate(int status)
 {  {
         int t;    int t;
     NODE n;
   
         if ( read_exec_file ) {    /* called from engine in Windows */
                 t = read_exec_file;    if ( status == 3 ) asir_infile = 0;
                 read_exec_file = 0;  
                 if ( t == 1 )    if ( asir_infile && asir_infile->ready_for_longjmp )
                         LONGJMP(main_env,status);      LONGJMP(asir_infile->jmpbuf,status);
                 else    else {
                         LONGJMP(exec_env,status);      if ( user_quit_handler ) {
         } else {        if ( !do_terse ) {
                 tty_reset();          fprintf(stderr,"Calling the registered quit callbacks...");
   #if defined(__MINGW32__)
           fflush(stderr);
   #endif
         }
         for ( n = user_quit_handler; n; n = NEXT(n) )
           bevalf((FUNC)BDY(n),0);
         if ( !do_terse ) {
           fprintf(stderr, "done.\n");
   #if defined(__MINGW32__)
           fflush(stderr);
   #endif
         }
       }
       tty_reset();
 #if defined(MPI)  #if defined(MPI)
                 if ( !mpi_myid )      if ( !mpi_myid )
                         close_allconnections();        close_allconnections();
                 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
                 if ( asir_out )      if ( asir_out )
                         fflush(asir_out);        fflush(asir_out);
 #if FEP  #if FEP
                 if ( do_fep ) {      if ( do_fep ) {
                         stifle_history(MAXHIST);        stifle_history(MAXHIST);
                         write_history(asir_history);        write_history(asir_history);
                 }      }
 #endif  #endif
                 ExitAsir();      ExitAsir();
         }    }
 }  }
   
 void param_init() {  void param_init() {
         unsigned int et = 0xff;    unsigned int et = 0xff;
         extern int paristack;    extern int paristack;
         if ( *((char *)&et) )    if ( *((char *)&et) )
                 little_endian = 1;      little_endian = 1;
         else    else
                 little_endian = 0;      little_endian = 0;
 }  }
   
 Obj user_defined_prompt;  Obj user_defined_prompt;
   
 void prompt() {  void prompt() {
         if ( !do_quiet && !do_fep && asir_infile->fp == stdin )    if ( !do_quiet && !do_fep && asir_infile->fp == stdin ) {
                 fprintf(asir_out,"[%d] ",APVS->n);      fprintf(asir_out,"[%d] ",APVS->n);
         else if ( do_quiet && user_defined_prompt      fflush(asir_out);
                 && OID(user_defined_prompt)==O_STR) {    } else if ( do_quiet && user_defined_prompt
                 fprintf(asir_out,BDY((STRING)user_defined_prompt),APVS->n);      && OID(user_defined_prompt)==O_STR) {
         }      fprintf(asir_out,BDY((STRING)user_defined_prompt),APVS->n);
         fflush(asir_out);      fflush(asir_out);
     }
 }  }
   
 void sprompt(char *ptr)  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 305  static int which(char *prog, char *path, char *buf, si
Line 327  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 oxcpp[BUFSIZ];
   #define OXCPP "/bin/ox_cpp"
   
     if ( oxhome = getenv("OpenXM_HOME") ) {
       if ( strlen(oxhome)+strlen(OXCPP)<BUFSIZ ) {
         sprintf(oxcpp,"%s%s",oxhome,OXCPP);
         if ( access(oxcpp,X_OK&R_OK) == 0 ) {
               strcpy(cppname,oxcpp);
           return;
         }
       }
     }
     if (access(cppname, X_OK&R_OK) != 0) {      if (access(cppname, X_OK&R_OK) != 0) {
         which("cpp", "/lib:/usr/ccs/lib:/usr/bin", cppname, BUFSIZ) ||          which("cpp", "/lib:/usr/ccs/lib:/usr/bin", cppname, BUFSIZ) ||
         which("cpp", getenv("PATH"), cppname, BUFSIZ);          which("cpp", getenv("PATH"), cppname, BUFSIZ);
Line 317  FILE *in_fp;
Line 352  FILE *in_fp;
   
 void process_args(int ac,char **av)  void process_args(int ac,char **av)
 {  {
         do_asirrc = 1;    int nm,dv;
     do_asirrc = 1;
 #if !defined(MPI)  #if !defined(MPI)
         do_message = 1;    do_message = 1;
 #endif  #endif
         do_quiet = 0;  #if defined(VISUAL) && defined(VISUAL_CONSOLE)
         while ( ac > 0 ) {    disable_debugger=1;
                 if ( !strcmp(*av,"-heap") && (ac >= 2) ) {  #endif
                         void GC_expand_hp(int);    do_quiet = 0;
     while ( ac > 0 ) {
       if ( !strcmp(*av,"-heap") && (ac >= 2) ) {
         void GC_expand_hp(int);
   
                         GC_expand_hp(atoi(*(av+1))); av += 2; ac -= 2;        GC_expand_hp(atoi(*(av+1))); av += 2; ac -= 2;
                 } else if ( !strcmp(*av,"-adj") && (ac >= 2) ) {      } else if ( !strcmp(*av,"-adj") && (ac >= 2) ) {
                         char *slash;        char *slash;
         slash = strrchr(*(av+1),'/');
         if ( slash ) {
           *slash = 0;
           nm = atoi(slash+1);
         }else {
           nm = 1;
         }
         dv = atoi(*(av+1));
         Risa_GC_set_adj(nm,dv);
         av += 2; ac -= 2;
       } else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) {
         strcpy(cppname,*(av+1)); av += 2; ac -= 2;
       } else if ( !strcmp(*av,"-d") && (ac >= 2) ) {
   #if defined(VISUAL) && defined(VISUAL_CONSOLE)
         disable_debugger=0;
   #endif
         av += 2; ac -= 2;
       } else if ( !strcmp(*av,"-f") && (ac >= 2) ) {
         do_quiet = 1;
         in_fp = fopen(*(av+1),"r");
         if ( !in_fp ) {
           fprintf(stderr,"%s does not exist!\n",*(av+1));
   #if defined(__MINGW32__)
           fflush(stderr);
   #endif
           asir_terminate(1);
         }
         do_file = 1;
         do_filename = *(av+1);
         av += 2; ac -= 2;
       } else if ( !strcmp(*av,"-E") ) {
         asir_setenv = 1; av++; ac--;
       } else if ( !strcmp(*av,"-quiet") ) {
         do_quiet = 1; av++; ac--;
       } else if ( !strcmp(*av,"-norc") ) {
         do_asirrc = 0; av++; ac--;
       } else if ( !strcmp(*av,"-nomessage") ) {
         do_message = 0; av++; ac--;
       } else if ( !strcmp(*av,"-rootdir") && (ac >= 2) ) {
         set_rootdir(*(av+1)); av += 2; ac -= 2;
       } else if ( !strcmp(*av,"-maxheap") && (ac >= 2) ) {
         void GC_set_max_heap_size(int);
   
                         slash = strrchr(*(av+1),'/');        GC_set_max_heap_size(atoi(*(av+1))); av += 2; ac -= 2;
                         if ( slash ) {  #if !defined(VISUAL) && !defined(__MINGW32__)
                                 *slash = 0;      } else if ( !strcmp(*av,"-display") && (ac >= 2) ) {
                                 GC_free_space_numerator = atoi(slash+1);        strcpy(displayname,*(av+1)); av += 2; ac -= 2;
                         }  
                         GC_free_space_divisor = atoi(*(av+1));  
                         av += 2; ac -= 2;  
                 } else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) {  
                         strcpy(cppname,*(av+1)); av += 2; ac -= 2;  
                 } else if ( !strcmp(*av,"-f") && (ac >= 2) ) {  
                         do_quiet = 1;  
                         in_fp = fopen(*(av+1),"r");  
                         if ( !in_fp ) {  
                                 fprintf(stderr,"%s does not exist!",*(av+1));  
                                 asir_terminate(1);  
                         }  
                         do_file = 1;  
                         do_filename = *(av+1);  
                         av += 2; ac -= 2;  
                 } else if ( !strcmp(*av,"-E") ) {  
                         asir_setenv = 1; av++; ac--;  
                 } else if ( !strcmp(*av,"-quiet") ) {  
                         do_quiet = 1; av++; ac--;  
                 } else if ( !strcmp(*av,"-norc") ) {  
                         do_asirrc = 0; av++; ac--;  
                 } else if ( !strcmp(*av,"-nomessage") ) {  
                         do_message = 0; av++; ac--;  
                 } else if ( !strcmp(*av,"-rootdir") && (ac >= 2) ) {  
                         set_rootdir(*(av+1)); av += 2; ac -= 2;  
                 } else if ( !strcmp(*av,"-maxheap") && (ac >= 2) ) {  
                         void GC_set_max_heap_size(int);  
   
                         GC_set_max_heap_size(atoi(*(av+1))); av += 2; ac -= 2;  
 #if !defined(VISUAL)  
                 } else if ( !strcmp(*av,"-display") && (ac >= 2) ) {  
                         strcpy(displayname,*(av+1)); av += 2; ac -= 2;  
 #endif  #endif
 #if FEP  #if FEP
                 } 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 {
                 } else if ( !strcmp(*av,"-paristack") ) {        fprintf(stderr,"%s : unknown option.\n",*av);
                         extern int paristack;  #if defined(__MINGW32__)
         fflush(stderr);
                         paristack = atoi(*(av+1)); av += 2; ac -= 2;  
 #endif  #endif
                 } else {        asir_terminate(1);
                         fprintf(stderr,"%s : unknown option.\n",*av);      }
                         asir_terminate(1);    }
                 }  
         }  
 #if FEP  #if FEP
         if ( do_fep ) {    if ( do_fep ) {
                 char *home;      char *home;
                 home = (char *)getenv("HOME");      home = (char *)getenv("HOME");
                 if (!home)      if (!home)
                         home = ".";        home = ".";
                 sprintf (asir_history, "%s/.asir_history",home);      sprintf (asir_history, "%s/.asir_history",home);
                 read_history(asir_history);      read_history(asir_history);
                 using_history();      using_history();
         }    }
 #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;
   
 void resetenv(char *s)  void resetenv(char *s)
 {  {
         extern FILE *outfile;    extern FILE *outfile;
   
         fprintf(stderr,"%s\n",s);    fprintf(stderr,"%s\n",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
         /* restore states */    asir_out = stdout;
         reset_engine();    /* restore states */
         reset_io();    reset_engine();
 #if !defined(VISUAL)    reset_io();
         reset_timer();  #if !defined(VISUAL) && !defined(__MINGW32__)
     reset_timer();
 #endif  #endif
         LONGJMP(main_env,1);    LONGJMP(main_env,1);
 }  }
   
 void fatal(int n)  void fatal(int n)
 {  {
         resetenv("return to toplevel");    resetenv("return to toplevel");
 }  }
   
 FUNC registered_handler;  
 extern int ox_int_received, critical_when_signal;  extern int ox_int_received, critical_when_signal;
   extern int in_gc, caught_intr;
   extern int ox_get_pari_result;
   
 void int_handler(int sig)  void int_handler(int sig)
 {  {
         extern NODE PVSS;    extern NODE PVSS;
     NODE t;
   
         if ( do_file ) {    if ( do_file || disable_debugger ) {
                 ExitAsir();      LEAVE_SIGNAL_CS_ALL;
         }      ExitAsir();
         if ( critical_when_signal ) {    }
                 ox_int_received = 1;    if ( !ox_get_pari_result && critical_when_signal ) {
                 return;      ox_int_received = 1;
         }      return;
 #if defined(VISUAL)    }
         suspend_timer();    if ( in_gc ) {
       caught_intr = 1;
       return;
     }
   #if defined(VISUAL) || defined(__MINGW32__)
     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();
                 return;      return;
         }    }
 #endif  #endif
 #if defined(linux)  #if defined(linux)
 #if 1  #if 1
         while ( stdin->_IO_read_ptr < stdin->_IO_read_end )    while ( stdin->_IO_read_ptr < stdin->_IO_read_end )
 #else  #else
         while ( stdin->_gptr < stdin->_egptr )    while ( stdin->_gptr < stdin->_egptr )
 #endif  #endif
                 getchar();      getchar();
 #endif  #endif
         while ( 1 ) {    while ( 1 ) {
                 char buf[BUFSIZ];      char buf[BUFSIZ];
                 char c;      char c;
   
                 fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr);      fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr);
                 buf[0] = '\n';      buf[0] = '\n';
                 while ( buf[0] == '\n' )      while ( !feof(stdin) && buf[0] == '\n' )
                         fgets(buf,BUFSIZ,stdin);        fgets(buf,BUFSIZ,stdin);
                 switch ( c = buf[0] ) {      if ( feof(stdin) ) {
                         case 'q':        clearerr(stdin);
                                 while ( 1 ) {        continue;
                                         fprintf(stderr,"Abort this session? (y or n) "); fflush(stderr);      }
                                         fgets(buf,BUFSIZ,stdin);      switch ( c = buf[0] ) {
                                         if ( !strncmp(buf,"y",1) ) {        case 'q':
                                                 read_exec_file = 0;          while ( 1 ) {
                                                 fprintf(stderr,"Bye\n"); asir_terminate(1);            fprintf(stderr,"Abort this session? (y or n) "); fflush(stderr);
                                         } else if ( !strncmp(buf,"n",1) ) {            fgets(buf,BUFSIZ,stdin);
                                                 restore_handler();            if ( !strncmp(buf,"y",1) ) {
                                                 return;              fprintf(stderr,"Bye\n");
                                         }  #if defined(__MINGW32__)
                                 }              fflush(stderr);
                                 break;  #endif
                         case 't':              /* for terminating myself */
                         case 'u':              asir_infile = 0;
                                 while ( 1 ) {              asir_terminate(1);
                                         fprintf(stderr,"Abort this computation? (y or n) "); fflush(stderr);            } else if ( !strncmp(buf,"n",1) ) {
                                         fgets(buf,BUFSIZ,stdin);              restore_handler();
                                         if ( !strncmp(buf,"y",1) )              return;
                                                 break;            }
                                         else if ( !strncmp(buf,"n",1) ) {          }
                                                 restore_handler();          break;
                                                 return;        case 't':
                                         }        case 'u':
                                 }          while ( 1 ) {
                                 if ( debug_mode )            fprintf(stderr,"Abort this computation? (y or n) "); fflush(stderr);
                                         debug_mode = 0;            fgets(buf,BUFSIZ,stdin);
                                 restore_handler();            if ( !strncmp(buf,"y",1) )
                                 if ( c == 'u' ) {              break;
                                         if ( registered_handler ) {            else if ( !strncmp(buf,"n",1) ) {
                                                 fprintf(stderr,              restore_handler();
                                                         "Calling the registered exception handler...");              return;
                                                 bevalf(registered_handler,0);            }
                                                 fprintf(stderr, "done.\n");          }
                                         }          if ( debug_mode )
                                 }            debug_mode = 0;
                                 if ( read_exec_file ) {          restore_handler();
                                         read_exec_file = 0;          if ( c == 'u' ) {
                                         resetenv("initialization aborted; return to toplevel");            if ( user_int_handler ) {
                                 } else              if ( !do_terse ) {
                                         resetenv("return to toplevel");                fprintf(stderr,
                                 break;                  "Calling the registered exception callbacks...");
                         case 'd':  #if defined(__MINGW32__)
                 fflush(stderr);
   #endif
               }
               for ( t = user_int_handler; t; t = NEXT(t) )
                 bevalf((FUNC)BDY(t),0);
               if ( !do_terse ) {
                 fprintf(stderr, "done.\n");
   #if defined(__MINGW32__)
                 fflush(stderr);
   #endif
               }
             }
           }
           LEAVE_SIGNAL_CS_ALL;
           resetenv("return to toplevel");
           break;
         case 'd':
 #if 0  #if 0
                                 nextbp = 1; nextbplevel = -1;          nextbp = 1; nextbplevel = -1;
 #endif  #endif
                                 debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0);          debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0);
                                 restore_handler();           restore_handler();
                                 return;           return;
                         case 'c':        case 'c':
                                 restore_handler();          restore_handler();
                                 return; break;          return; break;
                         case 'w':        case 'w':
                                 showpos(); break;          showpos();
                         case '?':          break;
                                 fprintf(stderr, "q:quit t:toplevel c:continue d:debug u:call registered handler w:where\n");        case '?':
                                 break;          fprintf(stderr, "q:quit t:toplevel c:continue d:debug u:call registered handler w:where\n");
                         default:  #if defined(__MINGW32__)
                                 break;          fflush(stderr);
                 }  #endif
         }          break;
         default:
           break;
       }
     }
 }  }
   
 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
 }  }
   
 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
 }  }
   
   #if defined(__DARWIN__)
   #define SIGNAL_FOR_TIMER SIGALRM
   #define ITIMER_TYPE ITIMER_REAL
   #else
   #define SIGNAL_FOR_TIMER SIGVTALRM
   #define ITIMER_TYPE ITIMER_VIRTUAL
   #endif
   
 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);  #if defined(__MINGW32__)
     fflush(stderr);
   #endif
     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
 }  }
   
 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
 }  }
   
 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 647  extern int evalstatline;
Line 749  extern int evalstatline;
   
 void set_lasterror(char *s)  void set_lasterror(char *s)
 {  {
         strncpy(LastError,s,BUFSIZ);    strncpy(LastError,s,BUFSIZ);
         LastError[BUFSIZ-1] = 0;    LastError[BUFSIZ-1] = 0;
 }  }
   
 SNODE error_snode;  SNODE error_snode;
   int error_in_timer;
   
 void error(char *s)  void error(char *s)
 {  {
         SNODE *snp=0;    SNODE *snp=0;
   
 #if !defined(VISUAL)  #if !defined(VISUAL) && !defined(__MINGW32__)
         if ( timer_is_set )    if ( !error_in_timer && timer_is_set )
                 alrm_handler(SIGVTALRM);      alrm_handler(SIGNAL_FOR_TIMER);
 #endif  #endif
         fprintf(stderr,"%s\n",s);    fprintf(stderr,"%s\n",s);
         set_lasterror(s);  #if defined(__MINGW32__)
         if ( CPVS != GPVS ) {    fflush(stderr);
                 if ( CPVS && CPVS->usrf && CPVS->usrf->f.usrf )  #endif
                         searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);    set_lasterror(s);
                 if ( snp )    if ( CPVS != GPVS ) {
                         error_snode = *snp;      if ( CPVS && CPVS->usrf && CPVS->usrf->f.usrf )
                 else        searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);
                         error_snode = 0;      if ( snp )
         } else        error_snode = *snp;
                 error_snode = 0;      else
         if ( do_file ) {        error_snode = 0;
                 char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */    } else
       error_snode = 0;
     if ( do_file ) {
       char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */
   
                 sprintf(errbuf,"%s\n",s);      sprintf(errbuf,"%s\n",s);
                 showpos_to_string(errbuf+strlen(errbuf));      showpos_to_string(errbuf+strlen(errbuf));
                 set_lasterror(errbuf);      set_lasterror(errbuf);
                 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 ( !no_debug_on_error && (do_server_in_X11 || isatty(0)) )
                         bp(error_snode);        bp(error_snode);
         if ( read_exec_file )    if ( I_am_server )
                 read_exec_file = 0;      showpos_to_list(&LastStackTrace);
         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(SIGVTALRM);      alrm_handler(SIGNAL_FOR_TIMER);
 #endif  #endif
         fprintf(stderr,"%s\n",s);    fprintf(stderr,"%s\n",s);
         if ( do_file ) {  #if defined(__MINGW32__)
                 char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */    fflush(stderr);
   #endif
     if ( do_file ) {
       char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */
   
                 sprintf(errbuf,"%s\n",s);      sprintf(errbuf,"%s\n",s);
                 showpos_to_string(errbuf+strlen(errbuf));      showpos_to_string(errbuf+strlen(errbuf));
                 ExitAsir();      ExitAsir();
         }    }
         if ( read_exec_file )    resetenv("return to toplevel");
                 read_exec_file = 0;  
         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)
 {  {
         struct itimerval it;    struct itimerval it;
   
         it.it_interval.tv_sec = interval;    it.it_interval.tv_sec = interval;
         it.it_interval.tv_usec = 0;    it.it_interval.tv_usec = 0;
         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_VIRTUAL,&it,0);    setitimer(ITIMER_TYPE,&it,0);
         signal(SIGVTALRM,alrm_handler);    set_signal(SIGNAL_FOR_TIMER,alrm_handler);
         timer_is_set = 1;    timer_is_set = 1;
 }  }
   
 void reset_timer()  void reset_timer()
 {  {
         struct itimerval it;    struct itimerval it;
   
         it.it_interval.tv_sec = 0;    it.it_interval.tv_sec = 0;
         it.it_interval.tv_usec = 0;    it.it_interval.tv_usec = 0;
         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_VIRTUAL,&it,0);    setitimer(ITIMER_TYPE,&it,0);
         signal(SIGVTALRM,SIG_IGN);    set_signal(SIGNAL_FOR_TIMER,SIG_IGN);
         timer_is_set = 0;    timer_is_set = 0;
 }  }
 #endif  #endif
   
 unsigned int get_asir_version();  unsigned int get_asir_version();
 char *get_asir_distribution();  char *get_asir_distribution();
   
 void copyright() {  char *get_gcversion()
   {
     return "GC 7.4.2 copyright 1988-2015, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n";
   }
   
   char *get_pariversion()
   {
     return "";
   }
   
   char *get_intervalversion()
   {
 #if defined(INTERVAL)  #if defined(INTERVAL)
         printf("This is Risa/Asir + Interval Arithmetic, Version %d (%s Distribution).\n",    return " + Interval Arithmetic";
                 get_asir_version(), get_asir_distribution());  
 #else  #else
         printf("This is Risa/Asir, Version %d (%s Distribution).\n",    return "";
                 get_asir_version(), get_asir_distribution());  
 #endif  #endif
         printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n");  
         printf("Copyright 2000-2003, Risa/Asir committers, http://www.openxm.org/.\n");  
         printf("GC 6.2(alpha6) copyright 1988-2003, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n");  
 #if PARI  
 #if 0  
         printf("PARI 2.2.4, copyright (C) 2002 The PARI Group.\n");  
 #endif  
         printf("PARI 2.0.17, copyright 1989-1999, C. Batut, K. Belabas, D. Bernardi,\n");  
         printf("   H. Cohen and M. Olivier.\n");  
 #endif  
 }  }
   
   void copyright()
   {
     char *scopyright();
     fputs(scopyright(), stdout);
   }
   
   char *scopyright()
   {
     static char *notice;
     char *s1, *s2, *s3, *s4;
     int d, len;
     char *format = "This is Risa/Asir%s, Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2007, Risa/Asir committers, http://www.openxm.org/.\n%s%s";
     if (!notice) {
       s1 = get_intervalversion();
       s2 = get_asir_distribution();
       s3 = get_gcversion();
       s4 = get_pariversion();
       d  = get_asir_version();
       len = (strlen(format)-8)+strlen(s1)+strlen(s2)+strlen(s3)+strlen(s4)+sizeof(int)*3;
       notice = MALLOC(len+1);
       sprintf(notice, format, s1, d, s2, s3, s4);
     }
     return notice;
   }
   
   #if defined(VISUAL) || defined(__MINGW32__)
   int recv_intr;
   
   static CRITICAL_SECTION signal_cs;
   static int initialized_signal_cs;
   static int signal_cs_count;
   
   static void init_signal_cs()
   {
       if (!initialized_signal_cs) {
           InitializeCriticalSection(&signal_cs);
       initialized_signal_cs=1;
           signal_cs_count=0;
       }
   }
   
   void try_enter_signal_cs()
   {
     init_signal_cs();
       if(TryEnterCriticalSection(&signal_cs)) {
           signal_cs_count++;
       }
   }
   
   void enter_signal_cs()
   {
       init_signal_cs();
       EnterCriticalSection(&signal_cs);
       signal_cs_count++;
   }
   
   void leave_signal_cs()
   {
     init_signal_cs();
       if(signal_cs_count>0) {
           LeaveCriticalSection(&signal_cs);
           signal_cs_count--;
       }
   }
   
   void leave_signal_cs_all()
   {
       if (!initialized_signal_cs) {
           init_signal_cs();
       }
       while(signal_cs_count>0) {
           LeaveCriticalSection(&signal_cs);
           signal_cs_count--;
       }
   }
   
   void check_intr()
   {
     extern int recv_intr;
     enter_signal_cs();
     if ( recv_intr ) {
       if ( recv_intr == 1 ) {
         recv_intr = 0;
         int_handler(SIGINT);
       } else {
         recv_intr = 0;
         ox_usr1_handler(0);
       }
     }
     leave_signal_cs_all();
   }
   #endif
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.100
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>