[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.38 and 1.40

version 1.38, 2003/10/19 02:54:41 version 1.40, 2003/11/11 06: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.37 2003/09/12 01:12:41 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.39 2003/10/20 09:17:52 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 181  int do_asirrc;
Line 181  int do_asirrc;
 int do_file;  int do_file;
 int do_message;  int do_message;
 int do_fep;  int do_fep;
 int no_prompt;  
 int read_exec_file;  int read_exec_file;
 static int buserr_sav;  static int buserr_sav;
 static char asir_history[BUFSIZ];  static char asir_history[BUFSIZ];
Line 242  void param_init() {
Line 241  void param_init() {
         else          else
                 little_endian = 0;                  little_endian = 0;
 }  }
   
   Obj user_defined_prompt;
   
 void prompt() {  void prompt() {
         if ( !no_prompt && !do_fep && asir_infile->fp == stdin )          if ( !do_quiet && !do_fep && asir_infile->fp == stdin )
                 fprintf(asir_out,"[%d] ",APVS->n);                  fprintf(asir_out,"[%d] ",APVS->n);
           else if ( do_quiet && user_defined_prompt
                   && OID(user_defined_prompt)==O_STR) {
                   fprintf(asir_out,BDY((STRING)user_defined_prompt),APVS->n);
           }
         fflush(asir_out);          fflush(asir_out);
 }  }
   
Line 331  void process_args(int ac,char **av)
Line 336  void process_args(int ac,char **av)
                         do_file = 1;                          do_file = 1;
                         av += 2; ac -= 2;                          av += 2; ac -= 2;
                 } else if ( !strcmp(*av,"-quiet") ) {                  } else if ( !strcmp(*av,"-quiet") ) {
                         do_quiet = 1;   av++; ac--;                          do_quiet = 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") ) {
                         do_message = 0; av++; ac--;                          do_message = 0; av++; ac--;
                 } else if ( !strcmp(*av,"-terse") ) {  
                         no_prompt = 0; av++; ac--;  
                 } else if ( !strcmp(*av,"-rootdir") && (ac >= 2) ) {                  } else if ( !strcmp(*av,"-rootdir") && (ac >= 2) ) {
                         set_rootdir(*(av+1)); av += 2; ac -= 2;                          set_rootdir(*(av+1)); av += 2; ac -= 2;
                 } else if ( !strcmp(*av,"-maxheap") && (ac >= 2) ) {                  } else if ( !strcmp(*av,"-maxheap") && (ac >= 2) ) {
Line 666  void error(char *s)
Line 669  void error(char *s)
         if ( CPVS != GPVS )          if ( CPVS != GPVS )
                 if ( do_server_in_X11 || isatty(0) )                  if ( do_server_in_X11 || isatty(0) )
                         bp(error_snode);                          bp(error_snode);
           if ( read_exec_file )
                   read_exec_file = 0;
           resetenv("return to toplevel");
   }
   
   void toplevel(char *s)
   {
           SNODE *snp=0;
   
   #if !defined(VISUAL)
           if ( timer_is_set )
                   alrm_handler(SIGVTALRM);
   #endif
           fprintf(stderr,"%s\n",s);
           if ( do_file ) {
                   char errbuf[BUFSIZ*5]; /* sufficient to store stack information ? */
   
                   sprintf(errbuf,"%s\n",s);
                   showpos_to_string(errbuf+strlen(errbuf));
                   ExitAsir();
           }
         if ( read_exec_file )          if ( read_exec_file )
                 read_exec_file = 0;                  read_exec_file = 0;
         resetenv("return to toplevel");          resetenv("return to toplevel");

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.40

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>