pike.git/ lib/ master.pike.in

1998-05-13

1998-05-13 07:36:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• f73cffaad2561c29bfe19cefdad645a23c3c0074 (21 lines) (+19/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

improved for NT

Rev: lib/master.pike.in:1.28

1: - /* $Id: master.pike.in,v 1.27 1998/05/11 23:25:21 mast Exp $ + /* $Id: master.pike.in,v 1.28 1998/05/13 07:36:56 hubbe Exp $    *    * Master-file for Pike.    *
556:       foreach(env,a) if(sscanf(a,"%s=%s",a,b)) environment[a]=b;    + #ifdef __NT__ +  function rget=lambda(string ent) { +  return +  RegGetValue(HKEY_CURRENT_USER,"SOFTWARE\\Idonex\\Pike\\0.6",ent) || +  RegGetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Idonex\\Pike\\0.6",ent) ; +  }; +  string tmp=rget("share_prefix");    // add path for architecture-shared files -  +  add_include_path(tmp+"/include"); +  add_module_path(tmp+"/modules"); +  +  string tmp=rget("lib_prefix"); +  // add path for architecture-dependant files +  add_include_path(tmp+"/include"); +  add_module_path(tmp+"/modules"); + #else +  // add path for architecture-shared files    add_include_path("¤share_prefix¤/include");    add_module_path("¤share_prefix¤/modules");       // add path for architecture-dependant files    add_include_path("¤lib_prefix¤/include");    add_module_path("¤lib_prefix¤/modules"); -  + #endif       q=(getenv("PIKE_INCLUDE_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_include_path(q[i]);
735:       if(trace) predef::trace(trace);    i=script->main(sizeof(argv),argv,env); -  predef::trace(0); +     if(i >=0) exit(i);   }