pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.96 2000/01/27 23:07:27 hubbe Exp $ +  * $Id: master.pike.in,v 1.97 2000/02/04 11:27:21 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:643:   class joinnode   {    array(object|mapping) joined_modules;    mapping cache=([]);       void create(array(object|mapping) _joined_modules)    {    joined_modules = _joined_modules;    }    -  static object|mapping ind(string index) +  static object|mapping|program ind(string index)    {    array(mixed) res = ({});    foreach(joined_modules, object|mapping o)    {    mixed ret;    if (!zero_type(ret = o[index]))    {    if (objectp(ret = o[index]) &&    (< joinnode, dirnode >)[object_program(ret)])    {
pike.git/lib/master.pike.in:671:    }    }    }    if (sizeof(res) > 1)    return joinnode(res);    else if (sizeof(res))    return res[0];    return UNDEFINED;    }    -  object|mapping `[](string index) +  object|mapping|program `[](string index)    { -  object|mapping ret; +  object|mapping|program ret;    if (!zero_type(ret = cache[index])) {    if (ret != ZERO_TYPE) {    return ret;    }    return UNDEFINED;    }    ret = ind(index);    if (zero_type(ret)) {    cache[index] = ZERO_TYPE;    } else {
pike.git/lib/master.pike.in:698:    int _cache_full;    void fill_cache()    {   #ifdef RESOLV_DEBUG    werror(describe_backtrace(({ "Filling cache in joinnode\n",    backtrace() })));   #endif /* RESOLV_DEBUG */    if (_cache_full) {    return;    } -  foreach(joined_modules, object|mapping o) { +  foreach(joined_modules, object|mapping|program o) {    foreach(indices(o), string index) {    if (zero_type(cache[index])) {    `[](index);    }    }    }    _cache_full = 1;    }    array(string) _indices()    {
pike.git/lib/master.pike.in:1094:    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, +  * 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.    */   void compile_error(string file,int line,string err)   {    mixed val;    if(! (val = inhibit_compile_errors   #if constant(thread_local)    ->get()
pike.git/lib/master.pike.in:1124:    {    if (objectp(val) && val->compile_error) {    val->compile_error(file, line, err);    } else {    inhibit_compile_errors(file, line, err);    }    }   }      /* -  * This function is called whenever a compiling error occurs, +  * This function is called whenever a compiling warning occurs.    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */   void compile_warning(string file,int line,string err)   {    mixed val;       if(!(val = inhibit_compile_errors   #if constant(thread_local)