pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.171 2001/10/14 19:25:41 mast Exp $ +  * $Id: master.pike.in,v 1.172 2001/10/26 15:21:09 grubba 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:509:    } )    {   // werror("-3: %O\n",fname);    ret=programs[fname]=0;    throw(e);    }    break;   #if constant(load_module)    case ".so":    if (fname == "") { -  werror(sprintf("low_find_prog(\"%s\", \"%s\") => load_module(\"\")\n" +  werror(sprintf("low_findprog(\"%s\", \"%s\") => load_module(\"\")\n"    "%s\n", pname, ext, describe_backtrace(backtrace())));    }       ret=load_module(fakeroot(fname));   #endif /* load_module */    }       AUTORELOAD_FINISH(ret,programs,fname);      // werror("3: %O (%O)\n",fname, ret);
pike.git/lib/master.pike.in:2027:    else return "multiset["+sizeof(m)+"]";    }       string describe (mixed m, int maxlen)    {    if (stringp (ident[m])) return ident[m];    else if (intp (ident[m]) && ident[m] > 1)    ident[m] = "@" + identcount++;       string res, typ; +  catch {    if (catch (typ=sprintf("%t",m)))    typ = "object"; // Object with a broken _sprintf(), probably.    switch(typ)    {    case "int":    case "float":    return (string)m;    case "string":    return describe_string (m, maxlen);    case "array":
pike.git/lib/master.pike.in:2061:    else res = typ;    break;    default:    if (objectp(m))    if(string tmp=describe_object(m)) {    res = tmp;    break;    }    res = typ;    } -  +  }; +  if (!res) { +  // Extra paranoia case. +  res = sprintf("Instance of %O", _typeof(m)); +  }    if (stringp (ident[m]))    return ident[m] + "=" + res;    return res;    }       string describe_comma_list(array x, int maxlen)    {    string ret="";       if(!sizeof(x)) return "";