pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2002-11-06
2002-11-06 19:36:19 by Martin Nilsson <mani@lysator.liu.se>
a35e5c262e711570056bf04037a7d2f35c188d8b (
18
lines) (+
3
/-
15
)
[
Show
|
Annotate
]
Branch:
7.9
Reverted.
Rev: lib/master.pike.in:1.222
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
221
2002/11/06 19:
29
:
49
nilsson Exp $
+
// $Id: master.pike.in,v 1.
222
2002/11/06 19:
36
:
19
nilsson Exp $
#pike __REAL_VERSION__
1810:
random_seed(time() ^ (getpid()<<8)); argv = tmp->get_args(argv,1); if(trace) predef::trace(trace);
-
compile_string(
#
"
-
string read(void|string fn) {
-
if(fn) return Stdio.read_file(fn);
-
return Stdio.stdin.read();
-
}
-
int write(string a, void|string b, void|int access) {
-
if(b) {
-
if(query_num_arg()==3)
-
return Stdio.write_file(a, b, access);
-
return Stdio.write_file(a, b);
-
}
-
return Stdio.stdout.write(a);
-
}
-
mixed create(int argc, array(string) argv,
array(string) env){"+
+
compile_string("mixed create(int argc, array(string) argv,array(string) env){"+
opts[1]+";}")(sizeof(argv),argv,env); exit(0);