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.442 2008/06/10 12:39:44 mast Exp $ + // $Id: master.pike.in,v 1.443 2008/06/10 12:43:17 mast 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:1042:   #ifdef __NT__    set_lc_env (Builtin._getenv());   #else    environment = Builtin._getenv();   #endif    // Kill the compat environment if forced.    compat_environment = compat_environment_copy = 0;    }      #ifdef __NT__ -  var = lower_case(var); +  varname = lower_case(varname);   #endif       if (compat_environment) {    array(string) res; -  if (!equal(res = compat_environment[var], compat_environment_copy[var])) { +  if (!equal(res = compat_environment[varname], +  compat_environment_copy[varname])) {    // Something has messed with the compat environment mapping. -  putenv(var, res && res[1]); +  putenv(varname, res && res[1]);    }    }    -  return environment[var]; +  return environment[varname];    }       else {    force_update = varname;       mapping(string:string) res;       if (force_update) {    res = Builtin._getenv();   #ifdef __NT__
pike.git/lib/master.pike.in:1075:   #else    environment = res + ([]);   #endif    // Kill the compat environment if forced.    compat_environment = compat_environment_copy = 0;    }       else {    if (compat_environment &&    !equal(compat_environment, compat_environment_copy)) { -  foreach(compat_environment; var; array(string) pair) { -  if (!equal(pair, compat_environment_copy[var])) { +  foreach(compat_environment; varname; array(string) pair) { +  if (!equal(pair, compat_environment_copy[varname])) {    putenv(pair[0], pair[1]);    }    } -  foreach(compat_environment_copy; var; array(string) pair) { -  if (!compat_environment[var]) { +  foreach(compat_environment_copy; varname; array(string) pair) { +  if (!compat_environment[varname]) {    putenv(pair[0]);    }    }    }   #ifdef __NT__    // Can't use the cached environment since variable names have been    // lowercased there.    res = Builtin._getenv();    if (!environment) set_lc_env (res);   #else