pike.git/ lib/ master.pike.in

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);