pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2001-04-09
2001-04-09 11:02:18 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
e8ce5eeb0317e7c1fe938c28951c4d0070535102 (
17
lines) (+
14
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
fixed some incompatibilities with the resent prog->parent change..
Rev: lib/master.pike.in:1.152
1:
/* -*- Pike -*- *
-
* $Id: master.pike.in,v 1.
151
2001/04/
07
00
:
54
:
47
nilsson
Exp $
+
* $Id: master.pike.in,v 1.
152
2001/04/
09
11
:
02
:
18
hubbe
Exp $
* * Master-file for Pike. *
1995:
return trim_file_name(s); }
-
if(functionp(p))
+
if(mixed tmp=function_object(p))
-
+
{
+
if(objectp(tmp))
+
{
if(s=describe_program(object_program(tmp))) return s+"."+function_name(p);
-
+
}
+
if(programp(tmp))
+
{
+
if(s=describe_program(tmp))
+
return s+"."+function_name(p);
+
}
+
}
-
+
if(s=_static_modules.Builtin()->program_defined(p)) return EXPLODE_PATH(s)[-1];