From f73cffaad2561c29bfe19cefdad645a23c3c0074 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 13 May 1998 00:36:56 -0700
Subject: [PATCH] improved for NT
Rev: lib/master.pike.in:1.28
---
lib/master.pike.in | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/lib/master.pike.in b/lib/master.pike.in
index c1a2219134..b6e1a6be56 100644
--- a/lib/master.pike.in
+++ b/lib/master.pike.in
@@ -1,4 +1,4 @@
-/* $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);
}
--
GitLab