[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.12 and 1.20

version 1.12, 2000/12/05 01:24:57 version 1.20, 2001/06/27 09:14:08
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.11 2000/11/08 06:21:18 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.19 2001/06/15 07:56:06 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 62 
Line 62 
 #include <direct.h>  #include <direct.h>
 #endif  #endif
   
 #if defined(SYSV)  #if defined(SYSV) && !defined(_IBMR2)
 #include <sys/ttold.h>  #include <sys/ttold.h>
 #endif  #endif
   
Line 94  FILE *ox_istream,*ox_ostream;
Line 94  FILE *ox_istream,*ox_ostream;
 int do_server_in_X11;  int do_server_in_X11;
 Obj LastVal;  Obj LastVal;
 char LastError[BUFSIZ];  char LastError[BUFSIZ];
   int timer_is_set;
   
   
 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},
Line 130  F F_FALSE = &oF_FALSE;
Line 132  F F_FALSE = &oF_FALSE;
 #if defined(__SVR4) && defined(sun)  #if defined(__SVR4) && defined(sun)
 char cppname[BUFSIZ] = "/usr/ccs/lib/cpp ";  char cppname[BUFSIZ] = "/usr/ccs/lib/cpp ";
 #else  #else
 #if defined(__FreeBSD__) || defined(__NetBSD__)  #if defined(__FreeBSD__) || defined(__NetBSD__) || (defined(__MACH__) && defined(__ppc__))
 char cppname[BUFSIZ] = "/usr/bin/cpp ";  char cppname[BUFSIZ] = "/usr/bin/cpp ";
 #else  #else
 #if defined(VISUAL)  #if defined(VISUAL)
Line 213  int status;
Line 215  int status;
                         close_allconnections();                          close_allconnections();
                 mpi_finalize();                  mpi_finalize();
 #else  #else
   #if defined(SIGPIPE)
                   signal(SIGPIPE,SIG_IGN);
   #endif
                 close_allconnections();                  close_allconnections();
 #endif  #endif
                 if ( kernelmode )                  if ( kernelmode )
                         fputc(0xff,asir_out);                          fputc(0xff,asir_out);
                 if ( asir_out )                  if ( asir_out )
                         fflush(asir_out);                          fflush(asir_out);
   #if FEP
                   if ( do_fep ) {
                           stifle_history(MAXHIST);
                           write_history(asir_history);
                   }
   #endif
                 ExitAsir();                  ExitAsir();
         }          }
 }  }
Line 297  char **av;
Line 308  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
                   } else if ( !strcmp(*av,"-fep") ) {
                           do_fep = 1; av++; ac--;
   #endif
 #if PARI  #if PARI
                 } else if ( !strcmp(*av,"-paristack") ) {                  } else if ( !strcmp(*av,"-paristack") ) {
                         extern int paristack;                          extern int paristack;
Line 308  char **av;
Line 323  char **av;
                         asir_terminate(1);                          asir_terminate(1);
                 }                  }
         }          }
   #if FEP
           if ( do_fep ) {
                   char *home;
                   home = (char *)getenv("HOME");
                   if (!home)
                           home = ".";
                   sprintf (asir_history, "%s/.asir_history",home);
                   read_history(asir_history);
                   using_history();
           }
   #endif
 }  }
   
 #include <signal.h>  #include <signal.h>
Line 375  char *s;
Line 401  char *s;
         /* restore states */          /* restore states */
         reset_engine();          reset_engine();
         reset_io();          reset_io();
   #if !defined(VISUAL)
           reset_timer();
   #endif
         longjmp(env,1);          longjmp(env,1);
 }  }
   
Line 400  int sig;
Line 429  int sig;
                 return;                  return;
         }          }
 #if defined(VISUAL)  #if defined(VISUAL)
         suspend_timer(); signal(SIGINT,SIG_IGN);          suspend_timer();
 #endif  #endif
 #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  
         signal(SIGINT,SIG_IGN);          signal(SIGINT,SIG_IGN);
 #endif  
 #if !defined(VISUAL)  #if !defined(VISUAL)
     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);
Line 500  int sig;
Line 527  int sig;
   
 void restore_handler() {  void restore_handler() {
 #if defined(VISUAL)  #if defined(VISUAL)
         resume_timer(); signal(SIGINT,int_handler);          resume_timer();
 #endif  #endif
 #if defined(_PA_RISC1_1) || defined(linux) || defined(__svr4__)  #if defined(SIGINT)
         signal(SIGINT,int_handler);          signal(SIGINT,int_handler);
 #endif  #endif
 }  }
Line 510  void restore_handler() {
Line 537  void restore_handler() {
 void segv_handler(sig)  void segv_handler(sig)
 int sig;  int sig;
 {  {
 #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(SIGSEGV)
         signal(SIGSEGV,segv_handler);          signal(SIGSEGV,segv_handler);
 #endif  
         error("internal error (SEGV)");          error("internal error (SEGV)");
   #endif
 }  }
   
 void ill_handler(sig)  void ill_handler(sig)
 int sig;  int sig;
 {  {
 #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(SIGILL)
         signal(SIGILL,ill_handler);          signal(SIGILL,ill_handler);
 #endif  
         error("illegal instruction (ILL)");          error("illegal instruction (ILL)");
   #endif
 }  }
   
 void alrm_handler(sig)  void alrm_handler(sig)
Line 544  int sig;
Line 571  int sig;
 void fpe_handler(sig)  void fpe_handler(sig)
 int sig;  int sig;
 {  {
 #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(SIGFPE)
         signal(SIGFPE,fpe_handler);          signal(SIGFPE,fpe_handler);
 #endif  
         error("internal error (FPE)");          error("internal error (FPE)");
   #endif
 }  }
   
 void pipe_handler(sig)  void pipe_handler(sig)
Line 555  int sig;
Line 582  int sig;
 {  {
 #if defined(SIGPIPE)  #if defined(SIGPIPE)
         signal(SIGPIPE,pipe_handler);          signal(SIGPIPE,pipe_handler);
           end_critical();
         error("internal error (BROKEN PIPE)");          error("internal error (BROKEN PIPE)");
 #endif  #endif
 }  }
Line 585  char *s;
Line 613  char *s;
 {  {
         SNODE *snp;          SNODE *snp;
   
   #if !defined(VISUAL)
           if ( timer_is_set )
                   alrm_handler(SIGVTALRM);
   #endif
         fprintf(stderr,"%s\n",s);          fprintf(stderr,"%s\n",s);
         set_lasterror(s);          set_lasterror(s);
         if ( CPVS != GPVS ) {          if ( CPVS != GPVS ) {
Line 628  int interval;
Line 660  int interval;
         it.it_value.tv_usec = 0;          it.it_value.tv_usec = 0;
         setitimer(ITIMER_VIRTUAL,&it,0);          setitimer(ITIMER_VIRTUAL,&it,0);
         signal(SIGVTALRM,alrm_handler);          signal(SIGVTALRM,alrm_handler);
           timer_is_set = 1;
 }  }
   
 void reset_timer()  void reset_timer()
Line 640  void reset_timer()
Line 673  void reset_timer()
         it.it_value.tv_usec = 0;          it.it_value.tv_usec = 0;
         setitimer(ITIMER_VIRTUAL,&it,0);          setitimer(ITIMER_VIRTUAL,&it,0);
         signal(SIGVTALRM,SIG_IGN);          signal(SIGVTALRM,SIG_IGN);
           timer_is_set = 0;
 }  }
 #endif  #endif
   
 unsigned int get_asir_version();  unsigned int get_asir_version();
   char *get_asir_distribution();
   
 void copyright() {  void copyright() {
         printf("This is Risa/Asir, Version %d.\n",get_asir_version());  #if defined(INTERVAL)
         printf("Copyright (C) FUJITSU LABORATORIES LIMITED.\n");          printf("This is Risa/Asir + Interval Arithmetic, Version %d (%s Distribution).\n",
         printf("1994-2000. All rights reserved.\n");                  get_asir_version(), get_asir_distribution());
   #else
           printf("This is Risa/Asir, Version %d (%s Distribution).\n",
                   get_asir_version(), get_asir_distribution());
   #endif
           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("GC 5.3, copyright 1999, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n");
           printf("PARI 2.0.17(beta), copyright (C) 1989-1999,\n");
           printf("     C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n");
 }  }
   
   
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.20
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>