pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:131:   private object(_static_modules.Builtin) Builtin = _static_modules.Builtin();   private constant Files = _static_modules._Stdio;      #define Stat Files.Stat   #define capitalize(X) (upper_case((X)[..0])+(X)[1..])   #define trim(X) (Builtin.string_trim (X))      private function(string,mixed...:int) write = Files()->_stdout->write;   private function(string,mixed...:int) werror = Files()->_stderr->write;    + private object|zero Pike_Lazy; // Used by the default encoder. +    // Tell Pike.count_memory this is global.   constant pike_cycle_depth = 0;      //#define RECUR_COMPILE_DEBUG   // More brief than RESOLV_DEBUG. Usually enough to find those pesky   // "Recursive module dependency" bugs. :P      #if defined (RESOLV_DEBUG) || defined (RECUR_COMPILE_DEBUG)      #if constant (thread_local)
pike.git/lib/master.pike.in:5719:    module_object[0] = val;    id = ({inds[i]});    }    else    id = ({inds[i], 'p'});    ENC_MSG (" found as program of parent value object %O with index %O\n",    val, id[0]);    break find_id;    }    +  if (objectp(child)) { +  if (!Pike_Lazy) { +  Pike_Lazy = resolv("Pike.Lazy"); +  } +  +  if (parent == Pike_Lazy) { +  id = child->path/"."; +  ENC_MSG(" found as LazyValue%{.%s%}.\n", id); +  break find_id; +  } +  } +     if (try) {    ENC_MSG("Cannot find %O in %O.\n", child, parent);    return UNDEFINED;    }    error ("Cannot find %O in %O.\n", child, parent);    }    }       if (!stringp (id[0])) {    if (try) {