pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in: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.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #define PIKE_AUTORELOAD   
pike.git/lib/master.pike.in:1022:   {    inhibit_compile_errors=f;   }   #endif /* constant(thread_local) */      string trim_file_name(string s)   {    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;   }      /*    * This function is called whenever a compiling error occurs,    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */
pike.git/lib/master.pike.in:1050:    {    werror(sprintf("%s:%d:%s\n",trim_file_name(file),line,err));    }    else if(objectp(val) ||    programp(val) ||    functionp(val))    {    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);    }    }   }      /*    * This function is called whenever a compiling error occurs,    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */
pike.git/lib/master.pike.in:1072:   {    mixed val;       if(!(val = inhibit_compile_errors   #if constant(thread_local)    ->get()   #endif /* constant(thread_local) */    ))    {    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);    }   }         static mixed _charset_mod;   /* This function is called by cpp() when it wants to do    * character code conversion.    */