pike.git
/
src
/
dumpmaster.pike
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/dumpmaster.pike:54:
mixed encode_object(object o) { if (o->_encode) return o->_encode(); werror("Can't encode object %O without _encode function.\n", o); throw(({ "No _encode().\n", backtrace() })); } string nameof(mixed x) { if(mixed tmp=search(all_constants(),x)) return tmp;
-
switch(x)
-
{
-
#define CONST(X)
case
X
:
return #X
+
#define CONST(X)
if
(x ==
X
)
return #X
CONST(_static_modules._Stdio.Stat); CONST(_static_modules.Builtin.__backend);
-
}
+
encoded+=({x}); return UNDEFINED; } } void _main(array(string) argv, array(string) env) { foreach(argv[1..sizeof(argv)-2], string f) sscanf(f, "--fakeroot=%s", fr); program p=compile_file(argv[-1]); string s=encode_value(p, Codec()); _static_modules._Stdio()->Fd(fakeroot(argv[-1]) + ".o","wct")->write(s); exit(0); } mixed resolv() { return UNDEFINED; }