improved for NT

Rev: lib/master.pike.in:1.28

lib/master.pike.in

-/* $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,6 +556,22 @@ void _main(string *orig_argv, string *env)
 
   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");
@@ -563,6 +579,7 @@ void _main(string *orig_argv, string *env)
   // 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,7 +752,6 @@ void _main(string *orig_argv, string *env)
 
   if(trace) predef::trace(trace);
   i=script->main(sizeof(argv),argv,env);
-  predef::trace(0);
   if(i >=0) exit(i);
 }