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.435 2008/06/05 15:08:10 mast Exp $ + // $Id: master.pike.in,v 1.436 2008/06/06 10:14:24 grubba 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:1877:   #if constant(__embedded_resource_directory)    // for use with embedded interpreters    // add path for architecture-dependant files    add_include_path(__embedded_resource_directory + "/lib/include");    add_module_path(__embedded_resource_directory + "/lib/modules");    add_module_path(__embedded_resource_directory + "/" + replace(uname()->machine, " ", "_") + "/modules");      #endif       system_module_path=pike_module_path; -  if (master() && master() != this_object() && -  (compat_major < 7 || (compat_major == 7 && compat_minor <= 6))) { +  if (master() && master() != this_object()) {    // getenv() and putenv() will get confused if we don't do this.    // This is only for pike <= 7.6 compat. -  if (mapping e = master()->environment) environment = e; +  if (mapping e = (master()->environment || +  (master()->get_compat_master && +  master()->get_compat_master(7,6)->environment))) +  Pike_7_6_master::environment = e;    }   }         //! This function is called whenever a inherit is called for.   //! It is supposed to return the program to inherit.   //! The first argument is the argument given to inherit, and the second   //! is the file name of the program currently compiling. Note that the   //! file name can be changed with #line, or set by compile_string, so   //! it can not be 100% trusted to be a filename.
pike.git/lib/master.pike.in:3315:    mapping(string:array(string)) compat_env = ([]);    foreach (Builtin._getenv(); string var; string val) {   #ifdef __NT__    compat_env[lower_case (var)] = ({var, val});   #else    compat_env[var] = ({var, val});   #endif    }    compat_master->environment = compat_env;    } -  -  // Kludge: Override the efuns with the right compat versions. -  // Note that this approach is a bit simplistic since it only -  // reflects the compat chosen with -V, not #pike etc. If that -  // isn't good enough we'll need compat dispatchers in these -  // functions. The right solution is to move the constants -  // mapping from the C level to the master. -  foreach (master_efuns + compat_master->master_efuns, string e) -  add_constant (e, compat_master[e]); +     }       foreach(q, array opts)    {    switch(opts[0])    {    case "dumpversion":    write("%d.%d.%d\n", __REAL_MAJOR__, __REAL_MINOR__, __REAL_BUILD__);    exit(0);