pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.93 2000/01/10 00:39:55 hubbe Exp $ +  * $Id: master.pike.in,v 1.94 2000/01/11 19:16:42 mast Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #define PIKE_AUTORELOAD   
pike.git/lib/master.pike.in:445:       "compile_string",    "compile_file",    "add_include_path",    "remove_include_path",    "add_module_path",    "remove_module_path",    "add_program_path",    "remove_program_path",    "describe_backtrace", +  "describe_error",    "mkmultiset",    "new",    "clone",       "getenv",    "putenv",      #ifdef GETCWD_CACHE    "cd",    "getcwd",
pike.git/lib/master.pike.in:1552:    }) {    row += sprintf("Error indexing backtrace line %d (%O)!", e, err[1]);    }    ret += row + "\n";    }    }       return ret;   }    + // Returns a short description of a backtrace, containing only the + // error message. + string describe_error (mixed trace) + { +  if((arrayp(trace) && sizeof(trace)==2 && stringp(trace[0])) || +  (objectp(trace) && trace->is_generic_error)) +  { +  if (catch { +  return trace[0] || "No error message!\n"; +  }) { +  return "Error indexing backtrace!\n"; +  } +  } +  return sprintf ("Backtrace is of unknown type %t!\n", trace); + }    -  +    class Codec   {    mapping f=all_constants();       string nameof(mixed x)    {    if(mixed tmp=search(f,x))    return "efun:"+tmp;       switch(sprintf("%t",x))