/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/* $XConsortium: qualify.c /main/3 1995/10/27 16:14:33 rswiston $ */
/*                                                                      *
 * (c) Copyright 1993, 1994 Hewlett-Packard Company                     *
 * (c) Copyright 1993, 1994 International Business Machines Corp.       *
 * (c) Copyright 1993, 1994 Sun Microsystems, Inc.                      *
 * (c) Copyright 1993, 1994 Novell, Inc.                                *
 */
#include <stdio.h>
#include <string.h>
#include <stdlib.h>

/*********************************************************************
 * qualifyWithFirst
 *
 * takes:   an unqualified filename like foo.txt, and
 *          a colon-separated list of pathnames, such as 
 *                /etc/opt/dt:/opt/dt/config
 *
 * returns: a fully qualified filename.  Space for the filename
 *          has been allocated off the heap.  It is the responsibility
 *          of the calling function to dispose of the space.
 **********************************************************************/

char * qualifyWithFirst
  (
  char * filename,
  char * searchPath
  )
{
char * paths = NULL;
char * savepaths = NULL;
char * path;
char * chance;
FILE * f;

  /* assert that the arguments cannot be NULL */

  if (filename == NULL || searchPath == NULL)
    return NULL;

  paths = strdup(searchPath);
  savepaths = paths;

  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);
    sprintf(chance,"%s/%s",paths,filename);

    /* see if it is there by opening it for reading */

    if (f = fopen(chance,"r")) {

      /* it's there so close it, .... */

      fclose(f);

      /* ... restore the colon, .... */

      if (path)
	*path = ':';

      /* return the fully qualified filename */

      free(savepaths);
      return chance;
    }

    free(chance);

    /* reached the end of the list of paths */

    if (path == NULL)
      break;

    /* try the next path */

    paths = path + 1;
  }
  free(savepaths);
  return NULL;
}