pike.git/ lib/ master.pike.in

1999-11-04

1999-11-04 18:47:18 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 0eef1b8b4f74b3bad4e72d0120410363e5db193f (10 lines) (+7/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Some cosmetic changes to the compile error handling.

Rev: lib/master.pike.in:1.68

1: - /* $Id: master.pike.in,v 1.67 1999/11/04 17:00:14 grubba Exp $ + /* $Id: master.pike.in,v 1.68 1999/11/04 18:47:18 grubba Exp $    *    * Master-file for Pike.    *
1029:    if(getenv("LONG_PIKE_ERRORS")) return s;    if(getenv("SHORT_PIKE_ERRORS")) return BASENAME(s);    string cwd=getcwd(); +  if (sizeof(cwd) && (cwd[-1] != '/')) { +  cwd += "/"; +  }    if(s[..sizeof(cwd)-1]==cwd) return s[sizeof(cwd)..];    return s;   }
1057:    if (objectp(val) && val->compile_error) {    val->compile_error(file, line, err);    } else { -  inhibit_compile_errors(file,line,err); +  inhibit_compile_errors(file, line, err);    }    }   }
1079:    ))    {    if(want_warnings) -  werror(sprintf("%s:%d:Warning: %s\n",trim_file_name(file),line,err)); +  werror(sprintf("%s:%d: Warning: %s\n",trim_file_name(file),line,err));    } else if (objectp(val) && val->compile_warning) {    val->compile_warning(file, line, err);    }