Subversion Repositories thor

// ============================================================================

//        __

//   \\__/ o\    (C) 2014  Robert Finch, Stratford

//    \  __ /    All rights reserved.

//     \/_//     robfinch@finitron.ca

//       ||

//

// A64 - Assembler

//  - 64 bit CPU

//

// This source file is free software: you can redistribute it and/or modify

// it under the terms of the GNU Lesser General Public License as published

// by the Free Software Foundation, either version 3 of the License, or

// (at your option) any later version.

//

// This source file is distributed in the hope that it will be useful,

// but WITHOUT ANY WARRANTY; without even the implied warranty of

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

// GNU General Public License for more details.

//

// You should have received a copy of the GNU General Public License

// along with this program.  If not, see .

//

// ============================================================================

//

#include "stdafx.h"

/* ---------------------------------------------------------------------------

   void searchenv(filename, envname, pathname);

   char *filename;

   char *envname;

   char **pathname;

   Description :

      Search for a file by looking in the directories listed in the envname

   environment. Puts the full path name (if you find it) into pathname.

   Otherwise set *pathname to 0.

   Returns :

      nothing

--------------------------------------------------------------------------- */

void searchenv(char *filename, char *envname, char **pathname)

{

   static char pbuf[5000];

   static char pname[5000];

   char *p;

//   char *strpbrk(), *strtok(), *getenv();

    if (pathname==(char **)NULL)

        return;

   strncpy(pname, filename, sizeof(pname)/sizeof(char)-1);

   pname[4999] = '\0';

   if (access(pname, 0) != -1) {

      *pathname = strdup(pname);

      return;

   }

   /* ----------------------------------------------------------------------

         The file doesn't exist in the current directory. If a specific

      path was requested (ie. file contains \ or /) or if the environment

      isn't set, return a NULL, else search for the file on the path.

   ---------------------------------------------------------------------- */

   if (!(p = getenv(envname)))

   {

      *pathname = strdup("");

      return;

   }

   strcpy(pbuf, "");

   strcat(pbuf, p);

   if (p = strtok(pbuf, ";"))

   {

      do

      {

         sprintf(pname, "%0.4999s\\%s", p, filename);

         if (access(pname, 0) >= 0) {

            *pathname = strdup(pname);

            return;

         }

      }

      while(p = strtok(NULL, ";"));

   }

   *pathname = strdup("");

}