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.277 2003/05/07 20:10:03 mast Exp $ + // $Id: master.pike.in,v 1.278 2003/05/15 13:54:07 grubba 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:1548:    compat_minor=saved_compat_minor;    if(err) throw(err);    return x;    }       //!    mixed resolv_base(string identifier, string|void current_file,    object|void current_handler)    {   // werror("Resolv_base(%O)\n",identifier); -  if (identifier == "_static_modules") return _static_modules; -  +  mapping(string:mixed)|object static_modules = _static_modules; +  if (current_handler && current_handler->get_default_module) { +  mapping(string:mixed) default_module = +  current_handler->get_default_module(); +  if (default_module) { +  static_modules = (default_module->_static_modules || ([])); +  } +  }    array(mixed) tmp = ({}); -  +  +  if (static_modules[identifier]) { +  tmp += ({ static_modules[identifier] }); +  } +  if (identifier == "_static_modules") { +  tmp += ({ static_modules }); +  } +     string dir=current_file ? dirname(current_file) : "/";       foreach(pike_module_path, string path)    {    string file=combine_path(dir, path, identifier);    mixed ret = findmodule(file, current_handler);    if(objectp (ret)) { // ret is either zero or an object here.    if (ret->is_resolv_dirnode || ret->is_resolv_joinnode) {    if (mixed new_ret = ret->_module_value) {    ret = new_ret;
pike.git/lib/master.pike.in:1970:       case "info":    postparseaction="info";    break;       case "showpaths":    werror(format_paths());    exit(0);       case "execute": -  random_seed(time() ^ (getpid()<<8)); -  argv = tmp->get_args(argv,1); +    #ifdef __AUTO_BIGNUM__    main_resolv( "Gmp", "bignum" );   #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    prog = compile_string(    "#define NOT(X) !(X)\n"    "#define CHAR(X) 'X'\n"    "mixed run(int argc, array(string) argv,"