pike.git/ lib/ master.pike.in

2005-04-15

2005-04-15 18:19:22 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• f306b15a73eadce856aa03220f413d0b9a373659 (18 lines) (+12/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Added support for versioned pike -x.

Rev: lib/master.pike.in:1.374

6:   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.373 2005/04/15 09:57:58 grubba Exp $ + // $Id: master.pike.in,v 1.374 2005/04/15 18:19:22 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types
2382:    " " + "\n");    };    -  mixed main_resolv(string sym) { -  mixed v = resolv(sym); +  mixed main_resolv(string sym, CompatResolver|void resolver) { +  mixed v = (resolver||this)->resolv(sym);    if(!v)    error("Could not resolv %s. "    "(Perhaps the installed pike tree has been moved.)\n", sym);
2659:    "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)) {
2673:    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
2683:       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)