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.246 2003/01/07 19:41:57 nilsson Exp $ + // $Id: master.pike.in,v 1.247 2003/01/09 14:29:27 grubba 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:2461:    };    }    if (!object_program(parent_fun)) {    // We might be a top-level entity.    string path = get_clean_program_path(parent_fun, "", ".", "()->");    if(path) return path;    }    // Begin by describing our parent.    array(object) parent_obj = ({ 0 });    string res = describe_module(function_object(parent_fun)|| +  function_program(parent_fun)||    object_program(parent_fun),    parent_obj);    // werror("So far: %O parent_obj:%O\n", res, parent_obj);    object|program parent =    objectp (parent_obj[0]) ? parent_obj[0] : object_program(parent_fun);    if (mod && (objectp (parent) || parent)) {    // Object identified.    catch {    // Check if we're an object in parent.    int i = search(values(parent), mod);
pike.git/lib/master.pike.in:2512:   //!   string describe_object(object|program o)   {    string s;    if(!o) return 0;       function parent_fun = object_program(o);       /* Constant object? */    catch { -  object|program parent_obj = function_object(parent_fun); +  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;       /* Try finding ourselves in parent_obj. */    int i;    if (objectp(o)) {    i = search(values(parent_obj), o);
pike.git/lib/master.pike.in:2555:      //!   string describe_program(program p)   {    string s;    if(!p) return 0;       if(s=get_clean_program_path(p, "object_program(", ")", ""))    return s;    -  if(mixed tmp=function_object(p)) +  if(mixed tmp=(function_object(p) || function_program(p)))    if(s = function_name(p))    {    return describe_module(tmp) + s;    }       if(s=_static_modules.Builtin()->program_defined(p))    return EXPLODE_PATH(s)[-1];       return 0;   }