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.235 2002/12/03 21:17:58 nilsson Exp $ + // $Id: master.pike.in,v 1.236 2002/12/04 15:21:57 marcus 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:2450:   {    string s;    if(!o) return 0;       function parent_fun = object_program(o);       /* Constant object? */    catch {    object|program parent_obj = function_object(parent_fun);    -  if (objectp (parent_obj)) { +  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);    } else {    i = search(map(values(parent_obj),
pike.git/lib/master.pike.in:2492:   //!   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(s = function_name(p))    { -  return describe_module(tmp) + function_name(p); +  return describe_module(tmp) + s;    }       if(s=_static_modules.Builtin()->program_defined(p))    return EXPLODE_PATH(s)[-1];       return 0;   }      //!   string describe_function (function f)