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.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__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:1803:    break;       case "showpaths":    werror(format_paths());    exit(0);       case "execute":    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);       case "preprocess":    _static_modules.files()->_stdout->write(cpp(master_read_file(opts[1]),    opts[1]));    exit(0);    }    }