source: trunk/dll/srchpath.c@ 1791

/***********************************************************************

  $Id: srchpath.c 1761 2014-03-21 23:29:52Z stevenhl $

  Path search functions

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2003, 2010 Steven H. Levine

  22 Apr 07 GKY Add RunFM2Util to find and run apps from the FM2Utilities
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
  23 Aug 07 SHL Comments
  04 Oct 08 JBS Make searchapath non-static
  17 JAN 10 GKY Changes to get working with Watcom 1.9 Beta (1/16/10). Mostly cast CHAR CONSTANT * as CHAR *.
  01 Mar 14 JBS Ticket #524: Made "searchapath" thread-safe. Function names and signatures were changed.
  21 Mar 14 SHL SearchPathForFile: use IsAbsolutePath

***********************************************************************/

#include <string.h>

#define INCL_WIN
#define INCL_DOS
#define INCL_DOSERRORS
#define INCL_LONGLONG                   // dircnrs.h

#include "fm3dll.h"
#include "fm3dlg.h"
#include "fm3str.h"
#include "srchpath.h"
#include "pathutil.h"                   // BldQuotedFileName
#include "errutil.h"                    // Dos_Error...
#include "systemf.h"                    // runemf2
#include "notebook.h"                   // Data declaration(s)
#include "init.h"                       // Data declaration(s)

static PSZ pszSrcFile = __FILE__;

// static CHAR *first_path(CHAR * path, CHAR * ret);

#pragma data_seg(DATA1)

//== RunFM2Util() Find and run an app from the FM2utilities ==
//== Search PATH plus 2 default install dirs ==

INT RunFM2Util(PCSZ appname, CHAR *filename)
{
    CHAR fbuf[CCHMAXPATH];
    CHAR szQuotedFileName[CCHMAXPATH];
    APIRET rc, ret = -1;

    rc = DosSearchPath(SEARCH_IGNORENETERRS |SEARCH_ENVIRONMENT |
                       SEARCH_CUR_DIRECTORY, (CHAR *) PCSZ_PATH,
                       (CHAR *) appname, (PBYTE)fbuf, CCHMAXPATH - 1);
      if (rc != 0) {
        if (rc != 2){
        Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
                  PCSZ_DOSSEARCHPATH, appname);
        return ret;
        }
        else {
        rc = DosSearchPath(0, "UTILS;..\\FM2Utils",
                           (CHAR *) appname, (PBYTE)fbuf, CCHMAXPATH - 1);
            if (rc != 0 && rc != 2){
              Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
                        PCSZ_DOSSEARCHPATH, appname);
              return ret;
            }
      }
    }
    ret = runemf2(SEPARATE | WINDOWED,
                  HWND_DESKTOP, pszSrcFile, __LINE__,
                  NULL,
                  NULL,
                  "%s %s",
                  fbuf, BldQuotedFileName(szQuotedFileName, filename));
    return ret;
}

#if 0   // JBS  11 Sep 08
CHAR *first_path(CHAR * path, CHAR * ret)
{

  CHAR *p, *pp;

  if (!path || !ret)
    return ret;
  strcpy(ret, path);
  p = strchr(ret, ';');
  if (p) {
    *p = 0;
    p++;
    if (*ret == '.') {                  // skip initial "cur dir"
      pp = strchr(p, ';');
      if (pp)
        *pp = 0;
      if (*p)
        memmove(ret, p, strlen(p) + 1);
    }
  }
  return ret;
}
#endif

/**
 * SearchPathForFile: Search for a file along a path
 *
 * @param pszEnvVarName: the name of a path environment variable (input)
 *    Used only if pFilename has not an absoluate path
 *
 * @param pFilename: the name of a file to search for (input)
 *    If the file name is an absolute path then
 *        DosQueryPathInfo is used for the search
 *    else
 *        DosSearchPath is used, along with the pszEnvVarName parameter
 *
 * @param pFullFilename: address of where to place fully-qulified name if search succeeds (output)
 *    This parameter may be NULL if the fully-qualified filename is not desired.
 *
 * @return Return code from call to DosQueryPathInfo/DosSearchPath
 *
 */
APIRET SearchPathForFile(PCSZ pszEnvVarName,
                         PCSZ pFilename,
                         PCHAR pFullFilename)
{
  APIRET rc;
  CHAR szFullFilename[CCHMAXPATH];

  if (!pszEnvVarName || !*pszEnvVarName || !pFilename || !*pFilename)
    return ERROR_INVALID_PARAMETER;

  if (IsAbsolutePath(pFilename)) {
    rc = DosQueryPathInfo(pFilename, FIL_QUERYFULLNAME,
                          (PVOID)szFullFilename, (ULONG)CCHMAXPATH-1);
  }
  else {
   rc = DosSearchPath(SEARCH_IGNORENETERRS | SEARCH_ENVIRONMENT |
                      SEARCH_CUR_DIRECTORY,
                      (CHAR *) pszEnvVarName,
                      (CHAR *) pFilename,
                      (PBYTE) szFullFilename,
                      CCHMAXPATH - 1);
  }
  if (!rc && pFullFilename)
    strcpy(pFullFilename, szFullFilename);

  return rc;
}

/**
 * SearchMultiplePathsForFile: Search for a file along multiple paths.
 *   Currently these paths are hard-coded to: PATH, DPATH and XPATH.
 *
 * @param pFilename: the name of a file to search for (input)
 *
 * @param pFullFilename: address of where to place fully-qulified name if search succeeds (output)
 *    This parameter may be NULL if the fully-qualified filename is not desired.
 *
 * @return Return code from call to SearchPathForFile (DosQueryPathInfo/DosSearchPath)
 *
 * @note: The code uses DosSearchPathForFile for all searches. First it searches PATH.
 *        If this fails it searches DPATH. If this fails it seaches XPATH.
 *
 */
APIRET SearchMultiplePathsForFile(PCSZ pFilename,
                                  PSZ pFullFilename)
{
  APIRET rc;

  rc = SearchPathForFile(PCSZ_PATH,
                         pFilename,
                         pFullFilename);
  if (rc && rc != ERROR_INVALID_PARAMETER) {
    rc = SearchPathForFile("DPATH",
                           pFilename,
                           pFullFilename);
    if (rc && rc != ERROR_INVALID_PARAMETER)
      rc = SearchPathForFile("XPATH",
                             pFilename,
                             pFullFilename);
  }
  return rc;
}

//#pragma alloc_text(MISC9,first_path,searchapath,searchpath,RunFM2Util)
// jbs: first_path seems to be unused
#pragma alloc_text(MISC9,first_path,SearchPathForFile,SearchMultiplePathsForFile,RunFM2Util)