pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.81 1999/12/06 22:16:05 grubba Exp $ +  * $Id: master.pike.in,v 1.82 1999/12/06 23:55:41 grubba 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:58:    string *tmp=EXPLODE_PATH(x);    return tmp[-1];   }   #define DIRNAME dirname   #define BASENAME(X) (EXPLODE_PATH(X)[-1])      #define GETCWD_CACHE   #define FILE_STAT_CACHE      #define UNDEFINED (([])[0]) - #define error(X) throw( ({ (X), backtrace()[0..sizeof(backtrace())-2] }) ) + #define error(X) throw( ({ (X), backtrace()/*[0..sizeof(backtrace())-2]*/ }) )      string describe_backtrace(mixed *trace);   object low_cast_to_object(string oname, string current_file);      string *pike_include_path=({});   string *pike_module_path=({});   string *pike_program_path=({});   int want_warnings;      #ifdef PIKE_AUTORELOAD
pike.git/lib/master.pike.in:1454:       if (mixed err=catch {    tmp = trace[e];    if(stringp(tmp))    {    row=tmp;    }    else if(arrayp(tmp))    {    string pos; -  if(sizeof(tmp)>=2 && stringp(tmp[0]) && intp(tmp[1])) -  { +  if(sizeof(tmp)>=2 && stringp(tmp[0])) { +  if (intp(tmp[1])) {    pos=trim_file_name(tmp[0])+":"+tmp[1]; -  +  } else { +  pos = sprintf("%s:Bad line %t", trim_file_name(tmp[0]), tmp[1]); +  }    }else{    mixed desc="Unknown program";    if(sizeof(tmp)>=3 && functionp(tmp[2]))    {    catch {    if(mixed tmp=function_object(tmp[2]))    if(tmp=object_program(tmp))    if(tmp=describe_program(tmp))    desc=tmp;    };
pike.git/lib/master.pike.in:1492:    data+="("+    stupid_describe_comma_list(tmp[3..], backtrace_len)+    ")";       if(sizeof(pos)+sizeof(data) < linewidth-4)    {    row=sprintf("%s: %s",pos,data);    }else{    row=sprintf("%s:\n%s",pos,sprintf(" %*-/s",linewidth-6,data));    } +  } else { +  row = pos;    }    }    else    {    if (tmp) {    row = sprintf("%O", tmp);    } else {    row = "Destructed object";    }    }