pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:2390:    }    file_paths[base] = paths[..index-1] + ({ fname }) + paths[index..];    }    }       class module_checker    {    int `!()    {    resolv_debug ("dirnode(%O)->module_checker()->`!()\n",dirname); -  INC_RESOLV_MSG_DEPTH(); +        if (mixed err = catch {    // Look up module.    if (module = cache["module"] || low_ind("module", 1)) {    /* This allows for `[] to have side effects first time    * it is called. (Specifically, the Calendar module uses    * this).    */    cache=([]);    _cache_full=0;    } -  DEC_RESOLV_MSG_DEPTH(); +     resolv_debug("dirnode(%O)->module_checker()->`!() => %s\n",    dirname, !module ? "doesn't exist" : "exists");    return !module;    }) {    //werror ("findmodule error: " + call_describe_backtrace (err));       // findmodule() failed. This can occur due to circularities    // between encode_value()'ed programs.    // The error will then typically be:    // "Cannot call functions in unfinished objects."       // Pretend not to exist for now... -  DEC_RESOLV_MSG_DEPTH(); +     resolv_debug("dirnode(%O)->module_checker()->`!() => failure, doesn't exist\n",    dirname);    return 1;    }    }       mixed `[](string index)    {    resolv_debug ("dirnode(%O)->module_checker()[%O] => %O\n",    dirname, index, module && module[index]);    return module && module[index];    }    array(string) _indices() { if(module) return indices(module); }    array _values() { if(module) return values(module); }    }       protected mixed low_ind(string index, int(0..1)|void set_module)    {    array(string) paths;    -  +  INC_RESOLV_MSG_DEPTH(); +     if (!(paths = file_paths[index])) {    DEC_RESOLV_MSG_DEPTH();    resolv_debug("dirnode(%O)->ind(%O) => no file match\n",    dirname, index);    return UNDEFINED;    }       foreach(paths, string fname) {    resolv_debug("dirnode(%O)->ind(%O) Trying file %O...\n",    dirname, index, fname);
pike.git/lib/master.pike.in:2551:    resolv_debug ("dirnode(%O)->ind(%O) => found %O\n",    dirname, index, o);    return o;    }    resolv_debug ("dirnode(%O)->ind(%O) => not found in module\n",    dirname, index);    }    else    resolv_debug ("dirnode(%O)->ind(%O) => no module\n", dirname, index);    +  DEC_RESOLV_MSG_DEPTH();    return low_ind(index);    }       mixed `[](string index)    {    mixed ret;   #ifdef MODULE_TRACE    werror("%*nDirnode(%O) cache[%O] ?????\n",    sizeof(backtrace()),dirname,index);   #endif