pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:94:   mapping(string:object) fs_map = ([]);   object root_fs;   // --- Functions begin here.      // Have to access some stuff without going through the resolver.   private object(_static_modules.Builtin) Builtin = _static_modules.Builtin();   private constant Files = _static_modules._Stdio;      #define Stat Files.Stat   #define capitalize(X) (upper_case((X)[..0])+(X)[1..]) - #define trim_all_whites(X) (Builtin.string_trim_all_whites (X)) + #define trim(X) (Builtin.string_trim (X))      private function write = Files()->_stdout->write;   private function werror = Files()->_stderr->write;      // Tell Pike.count_memory this is global.   constant pike_cycle_depth = 0;      //#define RECUR_COMPILE_DEBUG   // More brief than RESOLV_DEBUG. Usually enough to find those pesky   // "Recursive module dependency" bugs. :P
pike.git/lib/master.pike.in:1176:    array bt;    if (array|object e = catch (bt = get_backtrace (err)))    handle_error (e);    throw (CompileCallbackError (call_describe_error (err), bt));   }      protected void call_compile_warning (object handler, string file,    string msg, mixed ... args)   {    if (sizeof (args)) msg = sprintf (msg, @args); -  msg = trim_all_whites (msg); +  msg = trim (msg);    if (handler?->compile_warning)    handler->compile_warning (file, 0, msg);    else if (master()->compile_warning)    master()->compile_warning (file, 0, msg);    else    compile_warning (file, 0, msg);   }      #if constant(_static_modules.Builtin.mutex)   #define THREADED
pike.git/lib/master.pike.in:2850:    string evaluate_define(string def, string arguments)    {    mixed val = arguments ? predefines[def+"()"] : predefines[def];    if( callablep(val) )    {    object C = resolv("Parser.C");    array args;    if( arguments )    args = map(    map(C.group(C.split(arguments))/({","}),C.simple_reconstitute), -  Builtin.string_trim_all_whites); +  Builtin.string_trim);    else    args = ({});       val = val( @args );    }    return (string)val;    }       //! Instantiate static modules in the same way that dynamic modules    //! are instantiated.
pike.git/lib/master.pike.in:4384:    // like arrays.    trace = err_obj[1];    if (!trace)    return ret + "<No backtrace>\n";    else if (!arrayp (trace))    return sprintf ("%s<Backtrace in %O is %t, expected array>\n",    ret, err_obj, trace);       })    return sprintf ("<Failed to index backtrace object %O: %s>\n", -  err_obj, trim_all_whites (call_describe_error (err))); +  err_obj, trim (call_describe_error (err)));    }       else if (arrayp(trace)) {    if (sizeof([array]trace)==2 && stringp(ret = ([array]trace)[0])) {    trace = ([array] trace)[1];    if(!trace)    return ret + "<No backtrace>\n";    else if (!arrayp (trace))    return sprintf ("%s<Backtrace in error array is %t, expected array>\n",    ret, trace);
pike.git/lib/master.pike.in:4604:    if (stringp (msg))    return msg;    else if (!msg)    return "<No error message>\n";    else    return sprintf ("<Message in %O is %t, expected string>\n",    err_obj, msg);       })    return sprintf ("<Failed to index error object %O: %s>\n", -  err_obj, trim_all_whites (call_describe_error (err))); +  err_obj, trim (call_describe_error (err)));    }       else if (arrayp(err) && sizeof([array]err)==2 &&    (!(msg = ([array]err)[0]) || stringp (msg)))    return [string] msg || "<No error message>\n";       else    return sprintf ("<Invalid error container: %O>\n", err);   }