pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // 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: 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      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif   
pike.git/lib/master.pike.in:2489:   #endif /* __AUTO_BIGNUM__ */       random_seed((time() ^ (getpid()<<8)));    argv = tmp->get_args(argv,1);       program prog;    if(Version(compat_major,compat_minor) <= Version(7,4))    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);   #endif    if(trace) trace = predef::trace(trace);    mixed ret;    mixed err = catch {    // One reason for this catch is to get a new call to    // eval_instruction in interpret.c so that the debug and    // trace levels set above take effect in the bytecode