pike.git/
lib/
master.pike.in
Branch:
Tag:
Non-build tags
All tags
No tags
2004-05-01
2004-05-01 12:18:38 by Martin Nilsson <mani@lysator.liu.se>
d385d7a142871f213e2b3f409610880623e7fdad (
12
lines) (+
8
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed CHAR(X) in pike -e
Rev: lib/master.pike.in:1.347
6:
// Pike is distributed under GPL, LGPL and MPL. See the file COPYING // for more information. //
-
// $Id: master.pike.in,v 1.
346
2004/
04
/
19
22
:
45
:
58
nilsson Exp $
+
// $Id: master.pike.in,v 1.
347
2004/
05
/
01
12
:
18
:
38
nilsson Exp $
#pike __REAL_VERSION__ //#pragma strict_types
2496:
prog = compile_string( "mixed create(int argc, array(string) argv,array(string) env){"+ opts[1]+";}");
-
else
+
else
{
+
string code = opts[1];
+
while(sscanf(code, "%sCHAR(%1s)%s", code, string c, string rest)==3)
+
code += c[0] + rest;
prog = compile_string( "#define NOT(X) !(X)\n"
-
"#define CHAR(X) 'X'\n"
+
"mixed run(int argc, array(string) argv," "mapping(string:string) env){"+
-
opts[1]+
";}");
+
code+
";}");
+
}
#if constant(_debug) if(debug) _debug(debug);