pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.37 1999/02/04 23:44:20 mast Exp $ + /* $Id: master.pike.in,v 1.38 1999/04/09 04:53:34 hubbe Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)
pike.git/lib/master.pike.in:687:   {    string *argv=copy_value(orig_argv);    int i,debug,trace;    object script;    object tmp;    string a,b;    mixed *q;       _pike_file_name = orig_argv[0];    -  foreach(env,a) if(sscanf(a,"%s=%s",a,b)) environment[a]=b; +  foreach(env,a) +  { +  if(sscanf(a,"%s=%s",a,b)) +  { +  if(a=="") // Special hack for NT +  { +  sscanf(b,"%s=%s",a,b); +  a="="+a; +  } +  environment[a]=b; +  } +  }      #if defined(__NT__) && !defined(NOT_INSTALLED)    function rget=lambda(string ent) {    catch { return RegGetValue(HKEY_CURRENT_USER,"SOFTWARE\\Idonex\\Pike\\0.6",ent); };    catch { return RegGetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Idonex\\Pike\\0.6",ent); };       };    string tmppath=rget("share_prefix");    // add path for architecture-shared files    add_include_path(tmppath+"/include");