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.329 2004/01/12 21:49:28 marcus Exp $ + // $Id: master.pike.in,v 1.330 2004/01/12 23:17:02 nilsson 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:3317:    return sprintf ("%s<Backtrace in error array is %t, expected array>\n",    ret, trace);    }    }       else    return sprintf ("<Invalid backtrace/error container: %O>\n", trace);       {    Describer desc = Describer(); -  desc->identify_parts (trace); +     array trace = [array]trace;       int end = 0;    if( (sizeof(trace)>1) &&    arrayp(trace[0]) &&    (sizeof([array]trace[0]) > 2) &&    (([array]trace[0])[2] == _main))    end = 1;       mapping(string:int) prev_pos = ([]);
pike.git/lib/master.pike.in:3343:    mixed tmp;    string row;    if (array err=[array]catch {    tmp = trace[e];    if(stringp(tmp))    {    row=[string]tmp;    }    else if(arrayp(tmp))    { +  if(sprintf("%t",tmp)) { +  // tmp is backtrace_frame +  desc->identify_parts( tmp->args ); +  } +  else +  desc->identify_parts( tmp );    array tmp = [array]tmp;    string pos;    if(sizeof(tmp)>=2 && stringp(tmp[0])) {    if (intp(tmp[1])) {    pos=trim_file_name([string]tmp[0])+":"+(string)tmp[1];    } else {    pos = sprintf("%s:Bad line %t",    trim_file_name([string]tmp[0]), tmp[1]);    }    }else{