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.353 2005/01/26 21:01:17 mast Exp $ + // $Id: master.pike.in,v 1.354 2005/04/15 18:24:23 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif   
pike.git/lib/master.pike.in:2324:    string format_paths() {    return ("master.pike...: " + (_master_file_name || __FILE__) + "\n"    "Module path...: " + pike_module_path*"\n"    " " + "\n"    "Include path..: " + pike_include_path*"\n"    " " + "\n"    "Program path..: " + pike_program_path*"\n"    " " + "\n");    };    -  mixed main_resolv(string sym) { -  mixed v = resolv(sym); +  mixed main_resolv(string sym, CompatResolver|void resolver) { +  mixed v = (resolver||this_object())->resolv(sym);    if(!v)    error("Could not resolv %s. "    "(Perhaps the installed pike tree has been moved.)\n", sym);    return v;    };       if(sizeof(argv)>1 && sizeof(argv[1]) && argv[1][0]=='-')    {    array q;    tmp = main_resolv( "Getopt" );
pike.git/lib/master.pike.in:2599:       random_seed(time() ^ (getpid()<<8));       if(sizeof(argv)==1)    {    if(run_tool) {    werror("Pike -x specificed without tool name.\n"    "Available tools:\n");    mapping t = ([]);    int i; -  object ts = main_resolv( "Tools.Standalone" ); +  object ts = main_resolv("Tools.Standalone", +  get_compilation_handler(compat_major, +  compat_minor));    foreach (indices(ts), string s) {    mixed val = ts[s];    if (programp (val)) {    object o = val();    if(!o->main) continue;    t[s] = o->description || "";    i = max(i, sizeof(s));    }    }    foreach(sort(indices(t)), string s)    werror(" %-"+i+"s %s\n", s, t[s]);    exit(1);    } -  main_resolv( "Tools.Hilfe" )->StdinHilfe(); +  main_resolv("Tools.Hilfe", +  get_compilation_handler(compat_major, +  compat_minor))->StdinHilfe();    exit(0);    }    else    argv=argv[1..];       program prog;       if(run_tool) {    mixed err = catch { -  prog=main_resolv( "Tools.Standalone." + argv[0] ); +  prog = main_resolv("Tools.Standalone." + argv[0], +  get_compilation_handler(compat_major, compat_minor));    };       if (err)    error( "Pike: Failed to load tool %s:\n"    "%s\n", argv[0],    stringp(err[0])?err[0]:describe_backtrace(err) );       argv[0] = search(programs, prog) || argv[0];    } else {    argv[0]=combine_path_with_cwd(argv[0]);