pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.276 2003/05/07 10:49:23 grubba Exp $ + // $Id: master.pike.in,v 1.277 2003/05/07 20:10:03 mast Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:911:   program handle_inherit(string pname, string current_file, object|void handler)   {    resolv_debug ("handle_inherit(%O, %O)\n", pname, current_file);    INC_RESOLV_MSG_DEPTH();    program ret = low_cast_to_program(pname, current_file, handler);    DEC_RESOLV_MSG_DEPTH();    resolv_debug ("handle_inherit(%O, %O) => %O\n", pname, current_file, ret);    return ret;   }    - mapping (program:object) objects=([object_program(this_object()):this_object()]); + mapping (program:object) objects=([ +  object_program(this_object()):this_object(), +  object_program(_static_modules): _static_modules + ]);      object low_cast_to_object(string oname, string current_file,    object|void current_handler)   {    program p;    object o;       p = low_cast_to_program(oname, current_file, current_handler, 1);    if(!p) return 0;    // NB: p might be a function in a fake_object...
pike.git/lib/master.pike.in:2683:    // We're really out of luck here...    return res + (describe_program(parent_fun)||"unknown_program") + "()->";   }      //!   string describe_object(object o)   {    string s;    if(zero_type (o)) return 0; // Destructed.    -  function(mixed...:void|object) parent_fun = -  [function(mixed...:void|object)]object_program(o); +  if (o == _static_modules) return "_static_modules";    -  +  program|function(mixed...:void|object) parent_fun = object_program(o); +     /* Constant object? */    catch {    object|program parent_obj =    (function_object(parent_fun) || function_program(parent_fun));       if (objectp (parent_obj) || parent_obj) {    /* Check if we have a constant object. */    object tmp = objects[parent_obj];    if (objectp (tmp)) parent_obj = tmp;   
pike.git/lib/master.pike.in:2729:       return 0;   }      //!   string describe_program(program|function p)   {    string s;    if(!p) return 0;    +  if (p == object_program (_static_modules)) +  return "object_program(_static_modules)"; +     if(programp(p) &&    (s=get_clean_program_path([program]p, "object_program(", ")", "")))    return s;       if(object|program tmp=(function_object(p) || function_program(p))) {    if(s = function_name(p))    {    return describe_module(tmp) + s;    }    }