[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.53 and 1.58

version 1.53, 2004/12/17 03:09:08 version 1.58, 2005/08/24 06:28:39
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.52 2004/12/15 22:51:40 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.57 2005/07/12 02:37:32 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 85  INFILE asir_infile;
Line 85  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,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_pager;  char *asir_pager;
   
 NODE usrf,sysf,noargsysf,ubinf,parif;  NODE usrf,sysf,noargsysf,ubinf,parif;
Line 193  int do_asirrc;
Line 194  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 read_exec_file;
 int asir_setenv;  int asir_setenv;
Line 225  void asir_terminate(int status)
Line 227  void asir_terminate(int status)
                 else                  else
                         LONGJMP(exec_env,status);                          LONGJMP(exec_env,status);
         } else {          } else {
                   if ( user_quit_handler ) {
                           if ( !do_terse )
                                   fprintf(stderr,"Calling the registered quit callbacks...");
                           for ( n = user_quit_handler; n; n = NEXT(n) )
                                   bevalf((FUNC)BDY(n),0);
                           if ( !do_terse )
                                   fprintf(stderr, "done.\n");
                   }
                 tty_reset();                  tty_reset();
 #if defined(MPI)  #if defined(MPI)
                 if ( !mpi_myid )                  if ( !mpi_myid )
Line 244  void asir_terminate(int status)
Line 254  void asir_terminate(int status)
                         write_history(asir_history);                          write_history(asir_history);
                 }                  }
 #endif  #endif
                 if ( user_quit_handler ) {  
                         fprintf(stderr,"Calling the registered quit callbacks...");  
                         for ( n = user_quit_handler; n; n = NEXT(n) )  
                                 bevalf((FUNC)BDY(n),0);  
                         fprintf(stderr, "done.\n");  
                 }  
                 ExitAsir();                  ExitAsir();
         }          }
 }  }
Line 555  void int_handler(int sig)
Line 559  void int_handler(int sig)
                                 restore_handler();                                  restore_handler();
                                 if ( c == 'u' ) {                                  if ( c == 'u' ) {
                                         if ( user_int_handler ) {                                          if ( user_int_handler ) {
                                                 fprintf(stderr,                                                  if ( !do_terse )
                                                         "Calling the registered exception callbacks...");                                                          fprintf(stderr,
                                                                   "Calling the registered exception callbacks...");
                                                 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);
                                                 fprintf(stderr, "done.\n");                                                  if ( !do_terse )
                                                           fprintf(stderr, "done.\n");
                                         }                                          }
                                 }                                  }
                                 if ( read_exec_file ) {                                  if ( read_exec_file ) {
Line 780  char *get_intervalversion()
Line 786  char *get_intervalversion()
   
 void copyright()  void copyright()
 {  {
         char *format = "This is Risa/Asir%s, Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2004, Risa/Asir committers, http://www.openxm.org/.\nGC 6.2(alpha6) copyright 1988-2003, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n%s";          char *format = "This is Risa/Asir%s, Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2005, Risa/Asir committers, http://www.openxm.org/.\nGC 6.5 copyright 1988-2005, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n%s";
         printf(format, get_intervalversion(), get_asir_version(), get_asir_distribution(), get_pariversion());          printf(format, get_intervalversion(), get_asir_version(), get_asir_distribution(), get_pariversion());
 }  }
   
Line 789  char *scopyright()
Line 795  char *scopyright()
         static char *notice;          static char *notice;
         char *s1, *s2, *s3;          char *s1, *s2, *s3;
         int d, len;          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-2003, Risa/Asir committers, http://www.openxm.org/.\nGC 6.2(alpha6) copyright 1988-2003, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n%s";          char *format = "This is Risa/Asir%s, Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2005, Risa/Asir committers, http://www.openxm.org/.\nGC 6.5 copyright 1988-2005, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n%s";
         if (!notice) {          if (!notice) {
                 s1 = get_intervalversion();                  s1 = get_intervalversion();
                 s2 = get_asir_distribution();                  s2 = get_asir_distribution();
Legend:
Removed from v.1.53  
changed lines
  Added in v.1.58
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>