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

cde/lib/DtSvc/DtUtil1/Qualify.c

@@ -0,0 +1,92 @@
+/************************************<+>*************************************
+ ****************************************************************************
+ **
+ **   File:     Qualify.c
+ **
+ **   RCS:	$XConsortium: Qualify.c /main/3 1995/10/26 15:09:47 rswiston $
+ **
+ **   Project:  DT
+ **
+ **   Description: Fully qualify a file with the first path found
+ **                in a list of colon-separated paths
+ **
+ **   (c) Copyright 1993 by Hewlett-Packard Company
+ **
+ ****************************************************************************
+ ************************************<+>*************************************/
+#include <stdio.h>
+#include <string.h>
+
+/*********************************************************************
+ * _DtQualifyWithFirst
+ *
+ * takes:   an unqualified filename like foo.txt, and
+ *          a colon-separated list of pathnames, such as 
+ *                /etc/dt:/usr/dt/config
+ *
+ * returns: a fully qualified filename.  Space for the filename
+ *          has been allocated off the heap using malloc.  It is 
+ *          the responsibility of the calling function to dispose 
+ *          of the space using free.
+ *
+ * example: ...
+ *          char * filename;
+ *          ...
+ *          filename = _DtQualifyWithFirst("configFile",
+ *                          "/foo/first/location:/foo/second/choice");
+ *          < use filename >
+ *          free(filename);
+ *
+ **********************************************************************/
+
+char * _DtQualifyWithFirst
+  (
+  char * filename,
+  char * searchPath
+  )
+{
+char * paths = searchPath;
+char * path;
+char * chance;
+FILE * f;
+
+  /* assert that the arguments cannot be NULL and cannot be empty */
+
+  if (filename == NULL || searchPath == NULL || 
+      filename[0] == 0 || searchPath[0] == 0)
+    return NULL;
+
+  while (1) {
+
+    /* if there is a :, zero it */
+
+    if ((path = strchr(paths, ':')) != NULL)
+      *path = 0;
+
+    /* allocate space and create the qualified filename */
+
+    chance = (char *)malloc(strlen(paths) + strlen(filename) + 2);
+    if (filename[0] == '/')
+      sprintf(chance,"%s%s",paths,filename);
+    else
+      sprintf(chance,"%s/%s",paths,filename);
+
+    /* see if it is there by opening it for reading */
+
+    if (f = fopen(chance,"r")) {
+      fclose(f);                    /* it's there so close it, .... */
+      if (path)                     /* ... restore the colon, .... */
+	*path = ':';
+      return chance;                /* return the fully qualified filename */
+    }
+
+    free(chance);
+    if (path == NULL)               /* reached the end of the list of paths */
+      break;
+    *path = ':';                    /* restore the colon */
+    paths = path + 1;               /* try the next path */
+  }
+  return NULL;
+}
+
+