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

cde/programs/dtsearchpath/dtsp/IconSearchPath.C

@@ -0,0 +1,225 @@
+/* $XConsortium: IconSearchPath.C /main/3 1995/11/03 12:31:13 rswiston $ */
+/*******************************************************************
+**  (c) Copyright Hewlett-Packard Company, 1990, 1991, 1992, 1993.
+**  All rights are reserved.  Copying or other reproduction of this
+**  program except for archival purposes is prohibited without prior
+**  written consent of Hewlett-Packard Company.
+********************************************************************
+****************************<+>*************************************/
+
+#include "SearchPath.h"
+#include <stdlib.h>
+#include "TTFile.h"
+#include "Options.h"
+
+extern Options * options;
+
+/**********************************************************************
+ *
+ * IconSearchPath
+ *
+ *	This constructor creates DTICONSEARCHPATH 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:
+ *		DTSPUSERICON
+ *		User's home directory
+ *		System Administrator's configuration directory
+ *		DTSPSYSICON
+ *		Factory location
+ *
+ **********************************************************************/
+IconSearchPath::IconSearchPath
+	(
+	CDEEnvironment * user,
+	const char *     envvar,
+	const char *     ist,
+	const char *     znd,
+	const char *     sep
+	) : SearchPath(user,envvar,sep),
+	    first(ist),
+	    second(znd)
+{
+    if (user->DTICONSP()) {
+	if (user->DTUSERICONSP()) {
+            search_path = *user->DTUSERICONSP() + ",";
+	    if (user->DTUSERAPPSP())
+		search_path += *user->DTUSERAPPSP() + ",";
+	    search_path += user->HOME() + ",";
+	    if (!user->DTICONSP()->contains(user->OS()->LocalHost(),",",":") &&
+		!user->DTAPPSP()->contains(user->OS()->LocalHost(),",",":"))
+		search_path += user->SysAdmConfig() + ",";
+	    search_path += *user->DTICONSP() + ",";
+	    if (user->DTICONSP()->contains(user->OS()->LocalHost(),",",":") &&
+		user->DTAPPSP()->contains(user->SysAdmConfig(),",",","))
+		search_path.replace(user->OS()->LocalHost() + ":,","");
+	    if (user->DTAPPSP())
+		search_path += *user->DTAPPSP() + ",";
+	    search_path += user->SysAdmConfig() + "," +
+			   user->FactoryInstall();
+	}
+        else {
+	    if (user->DTUSERAPPSP())
+		search_path = *user->DTUSERAPPSP() + ",";
+            search_path += user->HOME() + ",";
+	    if (!user->DTICONSP()->contains(user->OS()->LocalHost(),",",":") &&
+		!user->DTAPPSP()->contains(user->OS()->LocalHost(),",",":"))
+		search_path += user->SysAdmConfig() + ",";
+	    search_path += *user->DTICONSP() + ",";
+	    if (user->DTICONSP()->contains(user->OS()->LocalHost(),",",":") &&
+		user->DTAPPSP()->contains(user->SysAdmConfig(),",",","))
+		search_path.replace(user->OS()->LocalHost() + ":,","");
+	    if (user->DTAPPSP())
+		search_path += *user->DTAPPSP() + ",";
+	    search_path += user->SysAdmConfig() + "," +
+			   user->FactoryInstall();
+	}
+    }
+    else if (user->DTUSERICONSP()) {
+	search_path = *user->DTUSERICONSP() + ",";
+	if (user->DTUSERAPPSP())
+	    search_path += *user->DTUSERAPPSP() + ",";
+	search_path += *user->DTAPPSP();
+    }
+    else {
+	if (user->DTUSERAPPSP())
+	    search_path = *user->DTUSERAPPSP() + ",";
+	search_path += *user->DTAPPSP();
+    }
+
+    // NormalizePath should remove duplicates
+    AddPredefinedPath();
+
+    if (options->CheckingUser())
+	search_path = *user->DTAPPSP();
+
+    NormalizePath();
+    TraversePath();
+}
+
+
+/************************************************************************
+ *  MakeIconSearchPath()
+ *
+ *     Given a search path element (host name:path name pair), construct
+ *     the appropriate path for this particular desktop subsystem:
+ *
+ *     DTICONSEARCHPATH
+ *
+ *     A path is constructed so that each host:/path pair is appended.
+ ************************************************************************/
+void IconSearchPath::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()) {
+            if (user->OS()->isDirectory(path_element + "/icons")
+		 || options->dontOptimize()) {
+                AddToPath (path_element + "/icons/%B%M" + first);
+                AddToPath (path_element + "/icons/%B%M" + second);
+                AddToPath (path_element + "/icons/%B");
+	    }
+	}
+        else {
+	    CString dir(ConstructPath(path_element + "/icons", &host_element));
+            if (user->OS()->isDirectory(dir) || options->dontOptimize()) {
+                AddToPath (dir + "/%B%M" + first);
+                AddToPath (dir + "/%B%M" + second);
+                AddToPath (dir + "/%B");
+	    }
+        }
+    }
+    else {
+        if (host_element == user->OS()->LocalHost()) {
+	    CString dirname(path_element);
+	    if (validSearchPath(dirname)) {
+		dirname += "/icons";
+	        if (user->OS()->isDirectory (dirname)
+		     || options->dontOptimize()) {
+		    AddToPath (dirname + "/%L/%B%M" + first);
+		    AddToPath (dirname + "/%L/%B%M" + second);
+		    AddToPath (dirname + "/%L/%B");
+		}
+		dirname += "/C";
+	    }
+	    if (user->OS()->isDirectory (dirname) || options->dontOptimize()) {
+		AddToPath (dirname + "/%B%M" + first);
+		AddToPath (dirname + "/%B%M" + second);
+		AddToPath (dirname + "/%B");
+	    }		
+	}
+        else {
+	    CString dir = ConstructPath(path_element, &host_element);
+	    if (validSearchPath(dir)) {
+		dir += "/icons";
+		if (user->OS()->isDirectory (dir) || options->dontOptimize()) {
+		    AddToPath (dir + "/%L/%B%M" + first);
+		    AddToPath (dir + "/%L/%B%M" + second);
+		    AddToPath (dir + "/%L/%B");
+		}
+		dir += "/C";
+	    }
+	    if (user->OS()->isDirectory(dir) || options->dontOptimize()) {
+		AddToPath (dir + "/%B%M" + first);
+		AddToPath (dir + "/%B%M" + second);
+		AddToPath (dir + "/%B");
+	    }
+        }
+    }
+}
+
+/*********************************************************************
+ *  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 IconSearchPath::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 Icon 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;
+}