Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtsearchpath/dtsp/InfoLibSearchPath.C

@@ -0,0 +1,236 @@
+/* $TOG: InfoLibSearchPath.C /main/5 1998/08/17 10:33:55 mgreess $
+/*
+ * (c) Copyright 1996 Digital Equipment Corporation.
+ * (c) Copyright 1996 Hewlett-Packard Company.
+ * (c) Copyright 1996 International Business Machines Corp.
+ * (c) Copyright 1996 Sun Microsystems, Inc.
+ * (c) Copyright 1996 Novell, Inc. 
+ * (c) Copyright 1996 FUJITSU LIMITED.
+ * (c) Copyright 1996 Hitachi.
+ */
+#include <stdlib.h>
+#include "SearchPath.h"
+#include "Environ.h"
+#include "TTFile.h"
+#include "Options.h"
+
+extern Options * options;
+
+/**********************************************************************
+ *
+ * InfoLibSearchPath
+ *
+ *	this constructor creates DTINFOLIBSEARCHPATH in a three-step 
+ *	process.
+ *
+ *	1. gathers environment variables and defaults to create a 
+ *	   colon-separated list of paths
+ *	2. normalizes the list into host:/path format
+ *	3. builds the final version of the path
+ *
+ *	Hierarchy of search paths:
+ *		DTSPUSERINFOLIB
+ *		DTSPUSERAPPHOSTS
+ *		System Administrator's configuration directory
+ *		DTSPSYSINFOLIB
+ *		DTSPSYSAPPHOSTS
+ *		Factory location
+ *
+ **********************************************************************/
+InfoLibSearchPath::InfoLibSearchPath
+	(
+	CDEEnvironment * user,
+	const char *     envvar,
+	const char *     sep
+	) : SearchPath(user, envvar, sep)
+{
+    CString oldSysAdmConfig = user->sysAdmConfig;
+    CString oldFactoryInstall = user->factoryInstall;
+
+    // Need to re-initialize the defaults.
+    user->sysAdmConfig   = "/etc/dt";
+    user->factoryInstall = "/usr/dt";
+
+    if (user->DTINFOLIBSP()) {
+	if (user->DTUSERINFOLIBSP()) {
+	    search_path = *user->DTUSERINFOLIBSP() + ",";
+	    if (user->DTUSERAPPSP())
+		search_path += *user->DTUSERAPPSP() + ",";
+	    if (!user->DTINFOLIBSP()->contains(user->OS()->LocalHost(),",",":") &&
+		(!user->DTAPPSP() ||
+		 !user->DTAPPSP()->contains(user->OS()->LocalHost(),",",":")))
+		search_path += user->SysAdmConfig() + ",";
+	    search_path += *user->DTINFOLIBSP() + ",";
+	    if (user->DTINFOLIBSP()->contains(user->OS()->LocalHost(),",",":") &&
+		user->DTAPPSP() &&
+		user->DTAPPSP()->contains(user->SysAdmConfig(),",",","))
+		search_path.replace(user->OS()->LocalHost() + ":,","");
+	    if (user->DTAPPSP())
+		search_path += *user->DTAPPSP() + ",";
+	    search_path += user->FactoryInstall();
+	}
+        else {
+	    if (user->DTUSERAPPSP())
+		search_path = *user->DTUSERAPPSP() + ",";
+	    if (!user->DTINFOLIBSP()->contains(user->OS()->LocalHost(),",",":") &&
+		(!user->DTAPPSP() ||
+		 !user->DTAPPSP()->contains(user->OS()->LocalHost(),",",":")))
+		search_path += user->SysAdmConfig() + ",";
+	    search_path += *user->DTINFOLIBSP() + ",";
+	    if (user->DTINFOLIBSP()->contains(user->OS()->LocalHost(),",",":") &&
+		user->DTAPPSP() &&
+		user->DTAPPSP()->contains(user->SysAdmConfig(),",",","))
+		search_path.replace(user->OS()->LocalHost() + ":,","");
+	    if (user->DTAPPSP())
+		search_path += *user->DTAPPSP() + ",";
+	    search_path += user->FactoryInstall();
+	}
+    }
+    else if (user->DTUSERINFOLIBSP()) {
+	search_path = *user->DTUSERINFOLIBSP() + ",";
+
+	if (user->DTUSERAPPSP())
+	    search_path += *user->DTUSERAPPSP() + ",";
+
+	search_path += user->SysAdmConfig() + ",";
+	if (user->DTAPPSP())
+	    search_path += *user->DTAPPSP() + ",";
+	search_path += user->FactoryInstall();
+    }
+    else {
+	if (user->DTUSERAPPSP())
+	    search_path = *user->DTUSERAPPSP() + ",";
+
+	search_path += user->SysAdmConfig() + ",";
+	if (user->DTAPPSP())
+	    search_path += *user->DTAPPSP() + ",";
+	search_path += user->FactoryInstall();
+    }
+
+    if (options->CheckingUser())
+    {
+	if (user->DTAPPSP())
+	    search_path = *user->DTAPPSP();
+    }
+
+    NormalizePath();
+    TraversePath();
+
+    user->sysAdmConfig = oldSysAdmConfig;
+    user->factoryInstall = oldFactoryInstall;
+}
+
+
+/***********************************************************************
+ *  MakePath()
+ *
+ *     Given a search path element (host name:path name pair), construct
+ *     the appropriate path for this particular desktop subsystem:
+ *
+ *     DTINFOLIBSEARCHPATH
+ *
+ *     A path is constructed so that each host:/path pair is appended.
+ ***********************************************************************/
+void InfoLibSearchPath::MakePath
+	(
+	const CString & pair
+	) 
+{
+    CTokenizedString element(pair,":");
+    CString host_element = element.next();
+    CString path_element = element.next();
+
+    if (path_element.contains(user->HOME())) {
+        if (host_element == user->OS()->LocalHost()) {
+	    CString infolibPath(path_element);
+	    if (user->OS()->isDirectory(infolibPath + "/infolib")
+		 || options->dontOptimize()) {
+                AddToPath (infolibPath + "/infolib/" + user->UserHostDir() + 
+			   "%I.dti");
+                AddToPath (infolibPath + "/infolib/%L/%I.dti");
+	    }
+	}
+        else {
+	    CString dir(ConstructPath(path_element + "/infolib", &host_element));
+	    if (user->OS()->isDirectory(dir) || options->dontOptimize()) {
+                AddToPath (dir + "/" + user->UserHostDir() + "/%I.dti");
+                AddToPath (dir + "/%I.dti");
+	    }
+	}
+    }
+    else {
+	if (host_element == user->OS()->LocalHost()) {
+	    CString infolibPath(path_element);
+	    if (validSearchPath(infolibPath)) {
+		infolibPath += "/infolib";
+	        if (user->OS()->isDirectory(infolibPath)
+		     || options->dontOptimize()) {
+		    AddToPath (infolibPath + "/%L/%I.dti");
+		}
+		infolibPath += "/C";
+	    }
+	    if (user->OS()->isDirectory(infolibPath) || 
+				options->dontOptimize()) {
+		AddToPath (infolibPath + "/%I.dti");
+	    }
+	}
+	else {
+	    CString dir(ConstructPath(path_element, &host_element));
+	    if (validSearchPath(dir)) {
+		dir += "/infolib";
+		if (user->OS()->isDirectory(dir) || options->dontOptimize()) {
+	            AddToPath (dir + "/%L/%I.dti");
+		}
+		dir += "/C";
+            }
+	    if (user->OS()->isDirectory(dir) || options->dontOptimize()) {
+                AddToPath (dir + "/%I.dti");
+            }
+	}
+    }
+}
+
+/*********************************************************************
+ *  validSearchPath()
+ *
+ *    This member function verifies that the path in question is a
+ *    standard CDE location, i.e. /etc/dt/appconfig or /usr/dt/appconfig
+ *    so that the appropriate massaging can take place.
+ *
+ *********************************************************************/
+int InfoLibSearchPath::validSearchPath
+	(
+	const CString & st
+	) const
+{
+    if (st == user->SysAdmConfig())	// ...,/etc/dt/appconfig,...
+	return 1;
+
+    if (st == user->FactoryInstall())	// ...,/usr/dt/appconfig,...
+	return 1;
+
+    // ...,/nfs/machine/etc/dt/appconfig,...
+
+    if (st.contains(user->SysAdmConfig(), "", Separator().data()))
+	return 1;
+
+    // ...,/nfs/machine/usr/dt/appconfig,...
+
+    if (st.contains(user->FactoryInstall(),"",Separator().data()))
+	return 1;
+
+    // If this is an APP-specified path, it also needs to be massaged.
+    // The elements in the APP paths were originally specified using 
+    // host:/path, but were converted to /path for InfoLib searchpaths
+    // so use the comma as the leader and the trailer.
+
+    if (user->DTAPPSP() && 
+	user->DTAPPSP()->contains (st, ",", ","))
+	return 1;
+
+    if (user->DTUSERAPPSP() && 
+	user->DTUSERAPPSP()->contains (st, ",", ","))
+	return 1;
+
+    return 0;
+}