[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.5 and 1.16

version 1.5, 2000/02/08 04:47:12 version 1.16, 2001/03/19 00:44:02
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.4 2000/01/19 01:49:36 noro Exp $ */  /*
    * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED
    * All rights reserved.
    *
    * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,
    * non-exclusive and royalty-free license to use, copy, modify and
    * redistribute, solely for non-commercial and non-profit purposes, the
    * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
    * conditions of this Agreement. For the avoidance of doubt, you acquire
    * only a limited right to use the SOFTWARE hereunder, and FLL or any
    * third party developer retains all rights, including but not limited to
    * copyrights, in and to the SOFTWARE.
    *
    * (1) FLL does not grant you a license in any way for commercial
    * purposes. You may use the SOFTWARE only for non-commercial and
    * non-profit purposes only, such as academic, research and internal
    * business use.
    * (2) The SOFTWARE is protected by the Copyright Law of Japan and
    * international copyright treaties. If you make copies of the SOFTWARE,
    * with or without modification, as permitted hereunder, you shall affix
    * to all such copies of the SOFTWARE the above copyright notice.
    * (3) An explicit reference to this SOFTWARE and its copyright owner
    * shall be made on your publication or presentation in any form of the
    * results obtained by use of the SOFTWARE.
    * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
    * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
    * for such modification or the source code of the modified part of the
    * SOFTWARE.
    *
    * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL
    * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND
    * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
    * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'
    * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY
    * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.
    * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,
    * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY
    * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL
    * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES
    * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES
    * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY
    * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF
    * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART
    * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
    * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
    * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
    *
    * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.15 2001/03/16 01:54:55 noro Exp $
   */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
 #include "parse.h"  #include "parse.h"
 #if PARI  #if PARI
 #include "genpari.h"  #include "genpari.h"
 #endif  #endif
 #if !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV)  #if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV)
 #include <sgtty.h>  #include <sgtty.h>
 #else  
 #if defined(THINK_C) && !defined(__MWERKS__)  
 #include <console.h>  
 #endif  #endif
 #endif  
   
 #if defined(VISUAL)  #if defined(VISUAL)
 #include <io.h>  #include <io.h>
Line 22 
Line 66 
 #include <sys/ttold.h>  #include <sys/ttold.h>
 #endif  #endif
   
 #if defined(THINK_C) || defined(VISUAL)  
 #if defined(VISUAL)  #if defined(VISUAL)
 #define HISTORY asir_history  #define HISTORY asir_history
 #else  
 #define HISTORY "history"  
 #endif  #endif
 #endif  
 #define MAXHIST 100  #define MAXHIST 100
   
 extern int GC_free_space_divisor;  extern int GC_free_space_divisor;
Line 53  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 118  void glob_init() {
Line 161  void glob_init() {
         OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;          OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;
         OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0;          OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0;
         sprintf(asirname,"%s/asir_symtab",asir_libdir);          sprintf(asirname,"%s/asir_symtab",asir_libdir);
 #if defined(THINK_C)  
         initVol();  
 #endif  
 }  }
   
 void input_init(fp,name)  void input_init(fp,name)
Line 170  int status;
Line 210  int status;
                 read_exec_file = 0; longjmp(env,status);                  read_exec_file = 0; longjmp(env,status);
         } else {          } else {
                 tty_reset();                  tty_reset();
 #if INET && !defined(THINK_C)  
 #if MPI  #if MPI
                 if ( !mpi_myid )                  if ( !mpi_myid )
                         close_allconnections();                          close_allconnections();
Line 178  int status;
Line 217  int status;
 #else  #else
                 close_allconnections();                  close_allconnections();
 #endif  #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 defined(THINK_C) && !defined(__MWERKS__)  #if FEP
                 *((int *)0x8) = buserr_sav;                  if ( do_fep ) {
                 while ( NEXT(asir_infile) )                          stifle_history(MAXHIST);
                 closecurrentinput();                          write_history(asir_history);
                 console_options.pause_atexit = 0;                  }
                 resetDir();  
                 write_hist(HISTORY);  
 #endif  #endif
                 ExitAsir();                  ExitAsir();
         }          }
Line 198  int status;
Line 234  int status;
 void param_init() {  void param_init() {
         unsigned int et = 0xff;          unsigned int et = 0xff;
         extern int paristack;          extern int paristack;
 #if defined(THINK_C)  
         char name[BUFSIZ];  
         int c;  
         int val;  
         FILE *fp;  
         int stacksize;  
   
 #include <Memory.h>  
         GC_free_space_divisor = 4; stacksize = 0x40000;  
         if ( fp = fopen("params","r") ) {  
                 while ( 1 ) {  
                         c = fgetc(fp);  
                         if ( c == EOF )  
                                 break;  
                         else  
                                 ungetc(c,fp);  
                         fscanf(fp,"%s %d",name,&val);  
                         if ( !strcmp(name,"stacksize") )  
                                 stacksize = val;  
                         else if ( !strcmp(name,"adj") )  
                                 GC_free_space_divisor = val;  
 #if PARI  
                         else if ( !strcmp(name,"paristack") )  
                                 paristack = val;  
 #endif  
                 }  
                 fclose(fp);  
         }  
 #if defined(__MWERKS__)  
         {  
                 Ptr al;  
                 al = LMGetApplLimit();  
                 LMSetApplLimit(al-stacksize);  
         }  
 #else  
         ApplLimit = (Ptr)((char *)ApplLimit-stacksize);  
         console_options.title = "\pAsir";  
 #endif  
 #endif  
         if ( *((char *)&et) )          if ( *((char *)&et) )
                 little_endian = 1;                  little_endian = 1;
         else          else
Line 255  char *ptr;
Line 252  char *ptr;
         sprintf(ptr,"[%d]%c",APVS->n,kernelmode?0xfe:' ');          sprintf(ptr,"[%d]%c",APVS->n,kernelmode?0xfe:' ');
 }  }
   
 #if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)  
 static struct tchars tc;  
 static char oldeof;  
 struct winsize wsize;  
 int ttywidth;  
 char *upperbuf,*lowerbuf;  
 #endif  
   
 FILE *in_fp;  FILE *in_fp;
   
 void process_args(ac,av)  void process_args(ac,av)
 int ac;  int ac;
 char **av;  char **av;
 {  {
 #if !defined(THINK_C)  
         do_asirrc = 1;          do_asirrc = 1;
 #if !MPI  #if !MPI
         do_message = 1;          do_message = 1;
Line 307  char **av;
Line 295  char **av;
                         do_message = 0; av++; ac--;                          do_message = 0; av++; ac--;
                 } else if ( !strcmp(*av,"-terse") ) {                  } else if ( !strcmp(*av,"-terse") ) {
                         no_prompt = 0; av++; ac--;                          no_prompt = 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) ) {                  } else if ( !strcmp(*av,"-maxheap") && (ac >= 2) ) {
                         void GC_set_max_heap_size(int);                          void GC_set_max_heap_size(int);
   
Line 315  char **av;
Line 305  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 326  char **av;
Line 320  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  #endif
 #if (defined(THINK_C) && !defined(__MWERKS__))  
         init_hist(MAXHIST);  
         read_hist(HISTORY);  
 #endif  
 }  }
   
 #include <signal.h>  #include <signal.h>
Line 355  void sig_init() {
Line 355  void sig_init() {
         signal(SIGILL,ill_handler);          signal(SIGILL,ill_handler);
 #endif  #endif
   
 #if defined(THINK_C)  
         buserr_sav = *((int *)0x8);  
         *((int *)0x8) = (int)bus_handler;  
 #else /* THINK_C */  
   
 #if !defined(VISUAL)  #if !defined(VISUAL)
         signal(SIGBUS,bus_handler);          signal(SIGBUS,bus_handler);
 #endif  #endif
   
 #if 0  
 #if !defined(VISUAL) && !defined(_PA_RISC1_1)  
         signal(SIGWINCH,winch_handler);  
 #endif  
 #endif  
   
 #endif /* THINK_C */  
 }  }
   
 static void (*old_int)(int);  static void (*old_int)(int);
Line 411  char *s;
Line 398  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 435  int sig;
Line 425  int sig;
                 ox_int_received = 1;                  ox_int_received = 1;
                 return;                  return;
         }          }
 #if defined(THINK_C) || defined(VISUAL)  #if defined(VISUAL)
         suspend_timer(); signal(SIGINT,SIG_IGN);          suspend_timer(); signal(SIGINT,SIG_IGN);
 #endif  #endif
 #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)
Line 535  int sig;
Line 525  int sig;
 }  }
   
 void restore_handler() {  void restore_handler() {
 #if defined(THINK_C) || defined(VISUAL)  #if defined(VISUAL)
         resume_timer(); signal(SIGINT,int_handler);          resume_timer(); signal(SIGINT,int_handler);
 #endif  #endif
 #if defined(_PA_RISC1_1) || defined(linux) || defined(__svr4__)  #if defined(_PA_RISC1_1) || defined(linux) || defined(__svr4__)
Line 546  void restore_handler() {
Line 536  void restore_handler() {
 void segv_handler(sig)  void segv_handler(sig)
 int sig;  int sig;
 {  {
 #if defined(THINK_C) || defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)
         signal(SIGSEGV,segv_handler);          signal(SIGSEGV,segv_handler);
 #endif  #endif
         error("internal error (SEGV)");          error("internal error (SEGV)");
Line 555  int sig;
Line 545  int sig;
 void ill_handler(sig)  void ill_handler(sig)
 int sig;  int sig;
 {  {
 #if defined(THINK_C) || defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)
         signal(SIGILL,ill_handler);          signal(SIGILL,ill_handler);
 #endif  #endif
         error("illegal instruction (ILL)");          error("illegal instruction (ILL)");
Line 580  int sig;
Line 570  int sig;
 void fpe_handler(sig)  void fpe_handler(sig)
 int sig;  int sig;
 {  {
 #if defined(THINK_C) || defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)  #if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)
         signal(SIGFPE,fpe_handler);          signal(SIGFPE,fpe_handler);
 #endif  #endif
         error("internal error (FPE)");          error("internal error (FPE)");
 }  }
   
 void winch_handler(sig)  
 int sig;  
 {  
 #if 0  
 #if !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(__svr4__)  
         if ( isatty(1) ) {  
                 struct winsize t;  
   
                 if ( ioctl(1,TIOCGWINSZ,&t) == -1 )  
                         perror("TIOCGWINSZ");  
                 if ( t.ws_col != wsize.ws_col || t.ws_row != wsize.ws_row ) {  
                         resize_buffer();  
                         if ( killpg(getpgrp(0),SIGWINCH) == -1 )  
                                 perror("killpg");  
                 }  
         }  
 #endif  
 #endif  
 }  
   
 void pipe_handler(sig)  void pipe_handler(sig)
 int sig;  int sig;
 {  {
Line 617  int sig;
Line 587  int sig;
   
 void resize_buffer()  void resize_buffer()
 {  {
 #if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)  
         if ( isatty(1) ) {  
                 if ( ioctl(1,TIOCGWINSZ,&wsize) == -1 )  
                         perror("TIOCGWINSZ");  
                 if ( wsize.ws_col > 2 ) {  
                         ttywidth = wsize.ws_col - 2;  
                         upperbuf = (char *)MALLOC(wsize.ws_col);  
                         lowerbuf = (char *)MALLOC(wsize.ws_col);  
                 }  
         }  
 #endif  
 }  }
   
 void tty_init() {  void tty_init() {
 #if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)  
         if ( isatty(0) ) {  
                 if ( ioctl(0,TIOCGETC,&tc) == -1 )  
                         perror("TIOCGETC");  
                 oldeof = tc.t_eofc; tc.t_eofc = 0xff;  
                 if ( ioctl(0,TIOCSETC,&tc) == -1 )  
                         perror("TIOCSETC");  
                 setpgrp(0, getpid());  
         }  
         resize_buffer();  
 #endif  
 }  }
   
 void tty_reset() {  void tty_reset() {
 #if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)  
         if ( oldeof ) {  
                 tc.t_eofc = oldeof;  
                 if ( ioctl(0,TIOCSETC,&tc) == -1 )  
                         perror("TIOCSETC");  
         }  
 #endif  
 }  }
   
 extern int evalstatline;  extern int evalstatline;
Line 670  char *s;
Line 611  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 ) {
                 searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);                  if ( CPVS->usrf && CPVS->usrf && CPVS->usrf->f.usrf )
                 error_snode = *snp;                          searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);
                   if ( snp )
                           error_snode = *snp;
                   else
                           error_snode = 0;
         } else          } else
                 error_snode = 0;                  error_snode = 0;
         if ( do_file ) {          if ( do_file ) {
Line 709  int interval;
Line 658  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 721  void reset_timer()
Line 671  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());          printf("This is Risa/Asir, Version %d (%s Distribution).\n",
         printf("Copyright (C) FUJITSU LABORATORIES LIMITED.\n");                  get_asir_version(), get_asir_distribution());
         printf("1994-1999. All rights reserved.\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("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.5  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>