pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.178 2001/11/13 15:46:22 tomas Exp $ +  * $Id: master.pike.in,v 1.179 2001/11/19 00:15:18 nilsson 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:2222:    return 0;   }      //!   string describe_program(program p)   {    string s;    if(!p) return 0;    if(s=search(programs,p))    { -  if(sscanf(reverse(s),"%s.%s",string ext,string rest) && ext=="domp") -  return EXPLODE_PATH(reverse(rest))[-1]; +  if(has_suffix(s, ".pmod")) +  return EXPLODE_PATH(s[..sizeof(s)-6])[-1];    return trim_file_name(s);    }       if(mixed tmp=function_object(p))    {    if(objectp(tmp))    {    if(s=describe_program(object_program(tmp)))    return s+"."+function_name(p);    }    if(programp(tmp))    {    if(s=describe_program(tmp))    return s+"."+function_name(p);    }    }    -  +     if(s=_static_modules.Builtin()->program_defined(p))    return EXPLODE_PATH(s)[-1];       return 0;   }      //!   string describe_function (function f)   {    if (!f) return 0;       string name;       if(string s=search(programs,f))    { -  if(sscanf(reverse(s),"%s.%s",string ext,string rest) && ext=="domp") -  name = EXPLODE_PATH(reverse(rest))[-1]; +  if(has_suffix(s, ".pmod")) +  name = EXPLODE_PATH(s[..sizeof(s)-6])[-1];    else    name = trim_file_name(s);    }    else    if (catch (name = function_name (f))) name = "function";       object o = function_object(f);    if(objectp (o)) { // Check if it's an object in a way that (hopefully) doesn't    // call any functions in it (neither `== nor `!).    string s;