Subversion Repositories thor

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

//        __

//   \\__/ o\    (C) 2012-2017  Robert Finch, Waterloo

//    \  __ /    All rights reserved.

//     \/_//     robfinch<remove>@finitron.ca

//       ||

//

// C64 - 'C' derived language compiler

//  - 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 <http://www.gnu.org/licenses/>.    

//                                                                          

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

//

#include "stdafx.h"

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#ifndef __GNUC__

#include <io.h>

#endif

//#include <unistd.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. Unlike the DOS PATH command (and the

   microsoft _searchenv), you can use either a space or a semicolon to

   separate directory names. The pathname array must be at least 128

   characters.

   Returns :

      nothing

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

void searchenv(char *filename, int fnsz, char *envname, char *pathname, int pthsz)

{

   static char pbuf[5000];

   char *p, *np;

   size_t len;

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

   strcpy_s(pathname, pthsz, filename);

   if (_access(pathname, 0) != -1)

      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.

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

   _dupenv_s(&p, &len, envname);

   if (len==0)

   {

      *pathname = '\0';

      return;

   }

   strncpy_s(pbuf, sizeof(pbuf), p, sizeof(pbuf));

   np = nullptr;

   if (p = strtok_s(pbuf, ";", &np))

   {

      do

      {

                  if (p[strlen(p)-1]=='\\')

                 sprintf_s(pathname, pthsz-1, "%0.90s%s", p, filename);

                  else

                 sprintf_s(pathname, pthsz, "%0.90s\\%s", p, filename);

         if (_access(pathname, 0) >= 0)

            return;

      }

      while(p = strtok_s(NULL, ";", &np));

   }

   *pathname = 0;

}