[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.60 and 1.61

version 1.60, 2005/10/26 07:33:03 version 1.61, 2006/02/03 03:55: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.59 2005/10/10 15:16:38 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.60 2005/10/26 07:33:03 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 479  void resetenv(char *s)
Line 479  void resetenv(char *s)
 #if !defined(VISUAL)  #if !defined(VISUAL)
         reset_timer();          reset_timer();
 #endif  #endif
         LONGJMP(main_env,1);          if ( read_exec_file <= 1 ) {
                   read_exec_file = 0;
                   LONGJMP(main_env,1);
           } else {
                   read_exec_file = 0;
                   LONGJMP(exec_env,1);
           }
 }  }
   
 void fatal(int n)  void fatal(int n)
Line 570  void int_handler(int sig)
Line 576  void int_handler(int sig)
                                                         fprintf(stderr, "done.\n");                                                          fprintf(stderr, "done.\n");
                                         }                                          }
                                 }                                  }
                                 if ( read_exec_file ) {                                  if ( read_exec_file )
                                         read_exec_file = 0;  
                                         resetenv("initialization aborted; return to toplevel");                                          resetenv("initialization aborted; return to toplevel");
                                 } else                                  else
                                         resetenv("return to toplevel");                                          resetenv("return to toplevel");
                                 break;                                  break;
                         case 'd':                          case 'd':
Line 707  void error(char *s)
Line 712  void error(char *s)
         if ( CPVS != GPVS )          if ( CPVS != GPVS )
                 if ( !no_debug_on_error && (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 )  
                 read_exec_file = 0;  
         resetenv("return to toplevel");          resetenv("return to toplevel");
 }  }
   
Line 728  void toplevel(char *s)
Line 731  void toplevel(char *s)
                 showpos_to_string(errbuf+strlen(errbuf));                  showpos_to_string(errbuf+strlen(errbuf));
                 ExitAsir();                  ExitAsir();
         }          }
         if ( read_exec_file )  
                 read_exec_file = 0;  
         resetenv("return to toplevel");          resetenv("return to toplevel");
 }  }
   
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>