pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2004-02-27
2004-02-27 13:08:23 by Martin Nilsson <mani@lysator.liu.se>
3bc9eb92b70b1d06bbf9353372209f76aa5a0634 (
51
lines) (+
22
/-
29
)
[
Show
|
Annotate
]
Branch:
7.9
Cleaned up _error and main_resolv
Rev: lib/master.pike.in:1.334
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
333
2004/02/
08
16
:
03
:
13
grubba
Exp $
+
// $Id: master.pike.in,v 1.
334
2004/02/
27
13
:
08
:
23
nilsson
Exp $
#pike __REAL_VERSION__
2205:
else werror("Broken environment var %s\n",a);
-
void _error(string a, mixed ... b) {
-
werror(a, @b);
-
exit(1);
-
};
-
-
+
#ifndef NOT_INSTALLED { array parts = (getenv("PIKE_INCLUDE_PATH")||"")/PATH_SEPARATOR-({""});
2238:
" " + "\n"); };
-
mixed main_resolv(string
... syms
) {
-
mixed v = resolv(
syms[0]);
-
foreach(syms[1..], string
sym)
-
if(v) v = v[sym]
;
+
mixed main_resolv(string
sym
) {
+
mixed v = resolv(sym);
if(!v)
-
_
error("Could not resolv %s. (Perhaps the installed pike tree has been moved.)\n",
-
syms*"."
);
+
error("Could not resolv %s.
"
+
"
(Perhaps the installed pike tree has been moved.)\n",
sym
);
return v; };
2400:
exit(0); case "help":
-
werror( main_resolv("Tools
","
MasterHelp")->do_help(opts[1]) );
+
werror( main_resolv("Tools
.
MasterHelp")->do_help(opts[1]) );
exit(0); case "features":
2417:
case "execute": #ifdef __AUTO_BIGNUM__
-
main_resolv( "Gmp
", "
bignum" );
+
main_resolv( "Gmp
.
bignum" );
#endif /* __AUTO_BIGNUM__ */ random_seed((time() ^ (getpid()<<8)));
2465:
case "preprocess": #ifdef __AUTO_BIGNUM__
-
main_resolv( "Gmp
", "
bignum" );
+
main_resolv( "Gmp
.
bignum" );
#endif /* __AUTO_BIGNUM__ */ write(cpp(master_read_file(opts[1]),opts[1])); exit(0);
2478:
switch (postparseaction) { case "features":
-
write( main_resolv( "Tools
", "
Install
", "
features" )()*"\n"+"\n" );
+
write( main_resolv( "Tools
.
Install
.
features" )()*"\n"+"\n" );
exit(0); case "info":
2489:
"pike binary..."+_pike_file_name+"\n"+ format_paths() + "\n" "Features......"+
-
main_resolv( "Tools
","
Install
","
features" )()*"\n "+
+
main_resolv( "Tools
.
Install
.
features" )()*"\n "+
"\n"); exit(0); } #ifdef __AUTO_BIGNUM__
-
main_resolv( "Gmp
", "
bignum" );
+
main_resolv( "Gmp
.
bignum" );
#endif /* __AUTO_BIGNUM__ */ random_seed(time() ^ (getpid()<<8));
2507:
"Available tools:\n"); mapping t = ([]); int i;
-
object ts = main_resolv( "Tools
", "
Standalone" );
+
object ts = main_resolv( "Tools
.
Standalone" );
foreach (indices(ts), string s) { mixed val = ts[s]; if (programp (val)) {
2521:
werror(" %-"+i+"s %s\n", s, t[s]); exit(1); }
-
main_resolv( "Tools
", "
Hilfe" )->StdinHilfe();
+
main_resolv( "Tools
.
Hilfe" )->StdinHilfe();
exit(0); } else
2531:
if(run_tool) { mixed err = catch {
-
prog=main_resolv( "Tools
", "
Standalone"
,
argv[0] );
+
prog=main_resolv( "Tools
.
Standalone
.
"
+
argv[0] );
}; if (err)
-
_
error( "Pike: Failed to load tool %s:\n"
+
error( "Pike: Failed to load tool %s:\n"
"%s\n", argv[0], stringp(err[0])?err[0]:describe_backtrace(err) );
2548:
}; if (err)
-
_
error( "Pike: Failed to compile script:\n"
+
error( "Pike: Failed to compile script:\n"
"%s\n", stringp(err[0])?err[0]:describe_backtrace(err) ); } if(!prog)
-
_
error("Pike: Couldn't find script to execute\n(%O)\n", argv[0]);
+
error("Pike: Couldn't find script to execute\n(%O)\n", argv[0]);
#if constant(_debug) if(debug) _debug(debug);
2572:
script=prog(argv); } if(!script->main)
-
_
error("Error: %s has no main().\n", argv[0]);
+
error("Error: %s has no main().\n", argv[0]);
ret=script->main(sizeof(argv),argv,env); }; // Disable traceing.