pike.git
/
src
/
dumpmaster.pike
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/dumpmaster.pike:1:
/* || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: dumpmaster.pike,v 1.
9
2002/10/11 02:
06
:
25
nilsson Exp $
+
|| $Id: dumpmaster.pike,v 1.
10
2002/10/11 02:
39
:
03
nilsson Exp $
*/
-
#define UNDEFINED (([])[0])
-
+
string fr; array encoded=({}); void handle_error(mixed err) { foreach(encoded, mixed o) { werror("***Failed to encode %t: %O\n",o,o); #if constant(_describe) _describe(o); #endif } werror("%O\n",err); } void compile_error(string file,int line,string err) {
-
werror(
sprintf(
"%s:%s:%s\n",file, line?(string)line:"-",err)
)
;
+
werror("%s:%s:%s\n",
file, line?(string)line:"-",
err);
} string fakeroot(string s) { if(fr) s=fr+combine_path(getcwd(),s); return s; } string read_file(string s) {
pike.git/src/dumpmaster.pike:53:
switch(x) { #define CONST(X) case X: return #X CONST(_static_modules.files.Stat); CONST(_static_modules.Builtin.__backend); } encoded+=({x}); return UNDEFINED; } }
-
void _main(string
*
argv, string
*
env)
+
+
void _main(
array(
string
)
argv,
array(
string
)
env)
{ foreach(argv[1..sizeof(argv)-2], string f)
-
sscanf(f,"--fakeroot=%s",fr);
+
sscanf(f,
"--fakeroot=%s",
fr);
program p=compile_file(argv[-1]); string s=encode_value(p, Codec()); _static_modules.files()->Fd(fakeroot(argv[-1]) + ".o","wct")->write(s); exit(0); }
-
-
mixed resolv() { return
([])[0]
; }
+
mixed resolv() { return
UNDEFINED
; }