[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.19 and 1.23

version 1.19, 2001/06/15 07:56:06 version 1.23, 2001/10/05 10:23:07
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.18 2001/06/04 02:49:48 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.22 2001/09/05 01:20:19 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 77  extern int GC_free_space_numerator;
Line 77  extern int GC_free_space_numerator;
 extern FILE *asir_out;  extern FILE *asir_out;
   
 IN asir_infile;  IN asir_infile;
 jmp_buf env,debug_env,timer_env;  jmp_buf main_env,debug_env,timer_env,exec_env;
 int little_endian,debug_mode;  int little_endian,debug_mode;
 char *asir_libdir;  char *asir_libdir;
 char *asir_pager;  char *asir_pager;
Line 176  void notdef(vl,a,b,c)
Line 176  void notdef(vl,a,b,c)
 VL vl;  VL vl;
 Obj a,b,*c;  Obj a,b,*c;
 {  {
         *c = 0;  
         error("undefined arithmetic operation.");          error("undefined arithmetic operation.");
 }  }
   
 int kernelmode;  
 int do_asirrc;  int do_asirrc;
 int do_file;  int do_file;
 int do_message;  int do_message;
Line 206  void ExitAsir() {
Line 204  void ExitAsir() {
 void asir_terminate(status)  void asir_terminate(status)
 int status;  int status;
 {  {
           int t;
   
         if ( read_exec_file ) {          if ( read_exec_file ) {
                 read_exec_file = 0; longjmp(env,status);                  t = read_exec_file;
                   read_exec_file = 0;
                   if ( t == 1 )
                           longjmp(main_env,status);
                   else
                           longjmp(exec_env,status);
         } else {          } else {
                 tty_reset();                  tty_reset();
 #if MPI  #if MPI
Line 215  int status;
Line 220  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 )  
                         fputc(0xff,asir_out);  
                 if ( asir_out )                  if ( asir_out )
                         fflush(asir_out);                          fflush(asir_out);
 #if FEP  #if FEP
Line 242  void param_init() {
Line 248  void param_init() {
   
 void prompt() {  void prompt() {
         if ( !no_prompt && !do_fep && asir_infile->fp == stdin )          if ( !no_prompt && !do_fep && asir_infile->fp == stdin )
                 fprintf(asir_out,"[%d]%c",APVS->n,kernelmode?0xfe:' ');                  fprintf(asir_out,"[%d] ",APVS->n);
         fflush(asir_out);          fflush(asir_out);
 }  }
   
 void sprompt(ptr)  void sprompt(ptr)
 char *ptr;  char *ptr;
 {  {
         sprintf(ptr,"[%d]%c",APVS->n,kernelmode?0xfe:' ');          sprintf(ptr,"[%d] ",APVS->n);
 }  }
   
 FILE *in_fp;  FILE *in_fp;
Line 287  char **av;
Line 293  char **av;
                         }                          }
                         do_file = 1;                          do_file = 1;
                         av += 2; ac -= 2;                          av += 2; ac -= 2;
                 } else if ( !strcmp(*av,"-kernel") ) {  
                         kernelmode = 1; av++; ac--;  
                 } else if ( !strcmp(*av,"-norc") ) {                  } else if ( !strcmp(*av,"-norc") ) {
                         do_asirrc = 0; av++; ac--;                          do_asirrc = 0; av++; ac--;
                 } else if ( !strcmp(*av,"-nomessage") ) {                  } else if ( !strcmp(*av,"-nomessage") ) {
Line 343  void sig_init() {
Line 347  void sig_init() {
 #endif  #endif
         signal(SIGSEGV,segv_handler);          signal(SIGSEGV,segv_handler);
   
 #if defined SIGFPE  #if defined(SIGFPE)
         signal(SIGFPE,fpe_handler);          signal(SIGFPE,fpe_handler);
 #endif  #endif
   
 #if defined SIGPIPE  #if defined(SIGPIPE)
         signal(SIGPIPE,pipe_handler);          signal(SIGPIPE,pipe_handler);
 #endif  #endif
   
 #if defined SIGILL  #if defined(SIGILL)
         signal(SIGILL,ill_handler);          signal(SIGILL,ill_handler);
 #endif  #endif
   
Line 401  char *s;
Line 405  char *s;
 #if !defined(VISUAL)  #if !defined(VISUAL)
         reset_timer();          reset_timer();
 #endif  #endif
         longjmp(env,1);          longjmp(main_env,1);
 }  }
   
 void fatal(n)  void fatal(n)
Line 449  int sig;
Line 453  int sig;
                 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);
                 if ( kernelmode )  
                         fputc('\0',stderr);  
                 buf[0] = '\n';                  buf[0] = '\n';
                 while ( buf[0] == '\n' )                  while ( buf[0] == '\n' )
                         fgets(buf,BUFSIZ,stdin);                          fgets(buf,BUFSIZ,stdin);
Line 482  int sig;
Line 484  int sig;
                                 }                                  }
                                 if ( debug_mode )                                  if ( debug_mode )
                                         debug_mode = 0;                                          debug_mode = 0;
                                 if ( kernelmode )  
                                         fputc('\0',stderr);  
                                 restore_handler();                                  restore_handler();
                                 if ( c == 'u' ) {                                  if ( c == 'u' ) {
                                         if ( registered_handler ) {                                          if ( registered_handler ) {
Line 507  int sig;
Line 507  int sig;
                                 restore_handler();                                  restore_handler();
                                 return;                                  return;
                         case 'c':                          case 'c':
                                 if ( kernelmode )  
                                         fputc('\0',stderr);  
                                 restore_handler();                                  restore_handler();
                                 return; break;                                  return; break;
                         case 'w':                          case 'w':
Line 579  int sig;
Line 577  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 687  void copyright() {
Line 686  void copyright() {
         printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n");          printf("Copyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\n");
         printf("Copyright 2000,2001, Risa/Asir committers, http://www.openxm.org/.\n");          printf("Copyright 2000,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("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("PARI 2.2.1(alpha), copyright (C) 2000,\n");
         printf("     C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n");          printf("     C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n");
 }  }
   
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.23
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>