pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2003-05-15
2003-05-15 13:54:07 by Henrik Grubbström (Grubba) <grubba@grubba.org>
3215c941baf492be508c3c53e960b533207f231e (
26
lines) (+
21
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Support -e and --execute on OSes where pids are largish (eg IRIX).
Rev: lib/master.pike.in:1.278
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
277
2003/05/
07
20
:
10
:
03
mast
Exp $
+
// $Id: master.pike.in,v 1.
278
2003/05/
15
13
:
54
:
07
grubba
Exp $
#pike __REAL_VERSION__
1555:
object|void current_handler) { // werror("Resolv_base(%O)\n",identifier);
-
if (
identifier
=
=
"
_static_modules
")
return
_static_modules;
-
+
mapping(string:mixed)|object static_modules = _static_modules;
+
if (
current_handler
&& current_handler->get_default_module) {
+
mapping(string:mixed) default_module
=
+
current
_
handler->get_default_module();
+
if (default_module) {
+
static_modules
=
(default
_
module->_
static_modules
|| ([]))
;
+
}
+
}
array(mixed) tmp = ({});
-
+
+
if (static_modules[identifier]) {
+
tmp += ({ static_modules[identifier] });
+
}
+
if (identifier == "_static_modules") {
+
tmp += ({ static_modules });
+
}
+
string dir=current_file ? dirname(current_file) : "/"; foreach(pike_module_path, string path)
1977:
exit(0); case "execute":
-
random_seed(time() ^ (getpid()<<8));
-
argv = tmp->get_args(argv,1);
+
#ifdef __AUTO_BIGNUM__ main_resolv( "Gmp", "bignum" ); #endif /* __AUTO_BIGNUM__ */
-
+
random_seed((time() ^ (getpid()<<8)));
+
argv = tmp->get_args(argv,1);
+
program prog; if(Version(compat_major,compat_minor) <= Version(7,4)) prog = compile_string(