pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.182 2001/12/16 04:03:58 mast Exp $ +  * $Id: master.pike.in,v 1.183 2001/12/17 11:47:46 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #pike __REAL_VERSION__   #define PIKE_AUTORELOAD
pike.git/lib/master.pike.in:826:   {    string dirname;    object|void handler;    constant is_resolv_dirnode = 1;    mixed module=module_checker();    mapping(string:mixed) cache=([]);    array(string) files;       void create(string d, object|void h)    { + #ifdef MODULE_TRACE +  werror("%*ndirnode(%O,%O);\n",sizeof(backtrace())-1,d,h); +  _verify_internals(); + // werror(describe_backtrace( ({"HERE\n",backtrace()}))); + #endif    dirname=d;    handler=h;    fc[dirname]=this_object();    if(dirname[sizeof(dirname)-5..]==".pmod")    fc[dirname[..sizeof(dirname)-6]]=this_object(); - #ifdef MODULE_TRACE -  werror("%*ndirnode(%O,%O);\n",sizeof(backtrace())-1,dirname,h); - // werror(describe_backtrace( ({"HERE\n",backtrace()}))); - #endif +     }       class module_checker    {    int `!()    {   #ifdef MODULE_TRACE    werror("%*ndirnode(%O)->module_checker()->`!()\n",sizeof(backtrace()),dirname);   #endif    if(module=findmodule(dirname+"/module", handler))
pike.git/lib/master.pike.in:1155:    array(string) tmp;    string path;    if(current_file)    {    tmp=EXPLODE_PATH(current_file);    tmp[-1]=what;    path=combine_path_with_cwd( tmp*"/");    } else {    path = combine_path_with_cwd(what);    } + #ifdef MODULE_TRACE +  werror("%*nhandle_import(%O, %O, %O)\n", +  sizeof(backtrace()), what, current_file, handler); + #endif /* MODULE_TRACE */    if (handler) {    return dirnode(path, handler);    }    if(fc[path]) return fc[path];    return dirnode(path);   }            multiset no_resolv = (<>);
pike.git/lib/master.pike.in:1283:    * This kluge could cause problems with threads if the    * compiler was threaded. -Hubbe    */    int saved_compat_minor=compat_minor;    int saved_compat_major=compat_major;    compat_minor=-1;    compat_major=-1;       mixed x;    mixed err =catch { -  if(x=resolv("__default.all_constants")) x=x(); +  if(resolv("__default") && (x=resolv("__default.all_constants"))) +  x=x();    };       compat_major=saved_compat_major;    compat_minor=saved_compat_minor;    if(err) throw(err);    return x;    }       //!    mixed resolv_base(string identifier, string|void current_file,