src/common/getpath.c

#ifndef lint
static const char       RCSid[] = "$Id: getpath.c,v 2.10 2003/02/25 02:47:21 greg Exp $";
#endif
/*
 *  getpath.c - function to search for file in a list of directories
 *
 *  External symbols declared in standard.h
 */

#include "copyright.h"

#include  <string.h>
#include  <ctype.h>
#ifndef  _WIN32 /* XXX was NIX, do we still compile on Amiga? */
  #include  <pwd.h>
  #include  <sys/types.h>
#endif

#include  "paths.h"


#ifdef _WIN32
static char *
core_getpath    /* wrapped below: expand fname, return full path */
#else
char *
getpath /* expand fname, return full path */
#endif
(
register char  *fname,
register char  *searchpath,
int  mode
)
{
#ifndef  _WIN32 /* XXX was NIX, do we still compile on Amiga? */
        struct passwd  *pwent;
#endif
        static char  pname[PATH_MAX];
        register char  *cp;

        if (fname == NULL) { return(NULL); }

        pname[0] = '\0';                /* check for full specification */

        if (ISABS(fname)) { /* Can't use CASEDIRSEP below on Windows */
                strncpy(pname, fname, sizeof(pname)-1);
        } else {
                switch (*fname) {
                        /* XXX This doesn't work on Windows */
                        /* CASEDIRSEP: */                       /* relative to root */
                        case '.':                               /* relative to cwd */
                                strncpy(pname, fname, sizeof(pname)-1);
                                break;
                        case '~':                               /* relative to home directory */
                                fname++;
                                if (*fname == '\0' || ISDIRSEP(*fname)) {       /* ours */
                                        if ((cp = getenv("HOME")) == NULL)
#ifdef _WIN32  /* Windows sometimes uses a different var name */
                                                if ((cp = getenv("HOMEDIR")) == NULL)
#endif
                                                        return(NULL);
                                        strncpy(pname, cp, sizeof(pname)-1);
                                        strncat(pname, fname, sizeof(pname)-strlen(pname)-1);
                                        break;
                                }
#ifndef _WIN32 /* XXX was NIX, do we still compile on Amiga? */
                                /* XXX Should we request our own home directory from the
                                   XXX system as well if the above fails? */
                                /* XXX In any case, we need do the same thing on Windows... */
                                cp = pname;                                     /* user */
                                do
                                        *cp++ = *fname++;
                                while (*fname && !ISDIRSEP(*fname));
                                *cp = '\0';
                                if ((pwent = getpwnam(pname)) == NULL)
                                        return(NULL);
                                strncpy(pname, pwent->pw_dir, sizeof(pname)-1);
                                strncat(pname, fname, sizeof(pname)-strlen(pname)-1);
                                break;
#endif
                }
        }
        if (pname[0])           /* got it, check access if search requested */
                return(searchpath==NULL||access(pname,mode)==0 ? pname : NULL);

        if (searchpath == NULL) {                       /* don't search */
                strncpy(pname, fname, sizeof(pname)-1);
                return(pname);
        }
        /* check search path */
        do {
                cp = pname;
                while (*searchpath && (*cp = *searchpath++) != PATHSEP) {
                        cp++;
                }
                if (cp > pname && !ISDIRSEP(cp[-1])) {
                        *cp++ = DIRSEP;
                }
                strncpy(cp, fname, sizeof(pname)-strlen(pname)-1);
                if (access(pname, mode) == 0)           /* file accessable? */
                        return(pname);
        } while (*searchpath);
        /* not found */
        return(NULL);
}


#ifdef _WIN32
/* This is a wrapper around the above, "emulating" access mode X_OK,
   which is not supported on Windows.
   If we see X_OK and the filename has no extension, then we'll remove
   the X_OK from the mode, append ".exe" to the file name, and search
   with the resulting string. If that fails, we'll try again with ".bat".
   Theoretically, we might still not have execute rights on a file we find
   like this, but that's rare enough not to be worth checking the ACLs.
*/
char *
getpath(        /* expand fname, return full path */
register char  *ffname,
register char  *searchpath,
int  mode
)
{
        register char  *cp;
        char fname[PATH_MAX];

        if (ffname == NULL)
                return(NULL);

        /* if we have a dot in the string, we assume there is a file name
           extension present */
        /* XXX We'd better test for .exe/.bat/.etc explicitly */
        if (!(mode & X_OK) || (strrchr(ffname, '.') != NULL)) {
                return core_getpath(ffname, searchpath, mode);
        }

        /* We're looking for an executable, Windows doesn't have X_OK. */
        mode &= ~X_OK;
        /* Append .exe */
        strncpy(fname, ffname, sizeof(fname)-5);
        strcat(fname, ".exe");
        cp = core_getpath(fname, searchpath, mode);
        if (cp != NULL) return cp;

        /* Try with .bat this time... */
        strncpy(fname, ffname, sizeof(fname)-5);
        strcat(fname, ".bat");
        cp = core_getpath(fname, searchpath, mode);
        return cp;
}
#endif /* _WIN32 */


#ifdef TEST_MODULE
int main()
{
        char * fp;
        char fmt[] = "%15s %-10s %s: %s\n";

        fp = getpath("rayinit.cal", getenv("RAYPATH"), R_OK);
        printf(fmt,  "rayinit.cal",        "RAYPATH", "R_OK", fp);
        fp = getpath("mkillum", getenv("PATH"), X_OK);
        printf(fmt,  "mkillum",        "PATH", "X_OK", fp);
        fp = getpath("/", getenv("PATH"), W_OK);
        printf(fmt,  "/",        "PATH", "W_OK", fp);
        fp = getpath("~", getenv("PATH"), F_OK);
        printf(fmt,  "~",        "PATH", "F_OK", fp);
        printf("Undefining HOME and HOMEDIR\n");
        unsetenv("HOME");
        unsetenv("HOMEDIR");
        fp = getpath("~", getenv("PATH"), F_OK);
        printf(fmt,  "~",        "PATH", "F_OK", fp);
#ifndef _WIN32 /* XXX was NIX, do we still compile on Amiga? */
        fp = getpath("~lp", getenv("PATH"), F_OK);
        printf(fmt, "~lp",         "PATH", "F_OK", fp);
#endif
}
#endif

Revision:	2.11
Committed:	Thu Jun 26 00:58:09 2003 UTC (22 years, 4 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
Changes since 2.10:	+140 -45 lines
Log Message:	Abstracted process and path handling for Windows. Renamed FLOAT to RREAL because of conflict on Windows. Added conditional compiles for some signal handlers.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	2.11	static const char RCSid[] = "$Id: getpath.c,v 2.10 2003/02/25 02:47:21 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* getpath.c - function to search for file in a list of directories
6	greg	2.9	*
7			* External symbols declared in standard.h
8			*/
9
10	greg	2.10	#include "copyright.h"
11	greg	1.1
12	schorsch	2.11	#include <string.h>
13			#include <ctype.h>
14			#ifndef _WIN32 /* XXX was NIX, do we still compile on Amiga? */
15			#include <pwd.h>
16			#include <sys/types.h>
17			#endif
18	greg	2.7
19	greg	2.6	#include "paths.h"
20	greg	2.5
21	greg	1.1
22
23	schorsch	2.11	#ifdef _WIN32
24			static char *
25			core_getpath /* wrapped below: expand fname, return full path */
26			#else
27	greg	1.1	char *
28	schorsch	2.11	getpath /* expand fname, return full path */
29			#endif
30			(
31			register char *fname,
32			register char *searchpath,
33			int mode
34			)
35	greg	1.1	{
36	schorsch	2.11	#ifndef _WIN32 /* XXX was NIX, do we still compile on Amiga? */
37	greg	2.4	struct passwd *pwent;
38			#endif
39	schorsch	2.11	static char pname[PATH_MAX];
40	greg	1.1	register char *cp;
41
42	schorsch	2.11	if (fname == NULL) { return(NULL); }
43	greg	1.1
44	greg	2.8	pname[0] = '\0'; /* check for full specification */
45	schorsch	2.11
46			if (ISABS(fname)) { /* Can't use CASEDIRSEP below on Windows */
47			strncpy(pname, fname, sizeof(pname)-1);
48			} else {
49			switch (*fname) {
50			/* XXX This doesn't work on Windows */
51			/* CASEDIRSEP: / / relative to root */
52			case '.': /* relative to cwd */
53			strncpy(pname, fname, sizeof(pname)-1);
54			break;
55			case '~': /* relative to home directory */
56			fname++;
57			if (fname == '\0' \|\| ISDIRSEP(fname)) { /* ours */
58			if ((cp = getenv("HOME")) == NULL)
59			#ifdef _WIN32 /* Windows sometimes uses a different var name */
60			if ((cp = getenv("HOMEDIR")) == NULL)
61			#endif
62			return(NULL);
63			strncpy(pname, cp, sizeof(pname)-1);
64			strncat(pname, fname, sizeof(pname)-strlen(pname)-1);
65			break;
66			}
67			#ifndef _WIN32 /* XXX was NIX, do we still compile on Amiga? */
68			/* XXX Should we request our own home directory from the
69			XXX system as well if the above fails? */
70			/* XXX In any case, we need do the same thing on Windows... */
71			cp = pname; /* user */
72			do
73			cp++ = fname++;
74			while (fname && !ISDIRSEP(fname));
75			*cp = '\0';
76			if ((pwent = getpwnam(pname)) == NULL)
77			return(NULL);
78			strncpy(pname, pwent->pw_dir, sizeof(pname)-1);
79			strncat(pname, fname, sizeof(pname)-strlen(pname)-1);
80			break;
81			#endif
82	greg	1.1	}
83			}
84	greg	2.8	if (pname[0]) /* got it, check access if search requested */
85			return(searchpath==NULL\|\|access(pname,mode)==0 ? pname : NULL);
86	greg	1.1
87			if (searchpath == NULL) { /* don't search */
88	schorsch	2.11	strncpy(pname, fname, sizeof(pname)-1);
89	greg	1.1	return(pname);
90			}
91	schorsch	2.11	/* check search path */
92	greg	1.1	do {
93			cp = pname;
94	schorsch	2.11	while (searchpath && (cp = *searchpath++) != PATHSEP) {
95	greg	2.3	cp++;
96	schorsch	2.11	}
97			if (cp > pname && !ISDIRSEP(cp[-1])) {
98	greg	2.3	*cp++ = DIRSEP;
99	schorsch	2.11	}
100			strncpy(cp, fname, sizeof(pname)-strlen(pname)-1);
101	greg	1.1	if (access(pname, mode) == 0) /* file accessable? */
102			return(pname);
103			} while (*searchpath);
104	schorsch	2.11	/* not found */
105	greg	1.1	return(NULL);
106			}
107	schorsch	2.11
108
109			#ifdef _WIN32
110			/* This is a wrapper around the above, "emulating" access mode X_OK,
111			which is not supported on Windows.
112			If we see X_OK and the filename has no extension, then we'll remove
113			the X_OK from the mode, append ".exe" to the file name, and search
114			with the resulting string. If that fails, we'll try again with ".bat".
115			Theoretically, we might still not have execute rights on a file we find
116			like this, but that's rare enough not to be worth checking the ACLs.
117			*/
118			char *
119			getpath( /* expand fname, return full path */
120			register char *ffname,
121			register char *searchpath,
122			int mode
123			)
124			{
125			register char *cp;
126			char fname[PATH_MAX];
127
128			if (ffname == NULL)
129			return(NULL);
130
131			/* if we have a dot in the string, we assume there is a file name
132			extension present */
133			/* XXX We'd better test for .exe/.bat/.etc explicitly */
134			if (!(mode & X_OK) \|\| (strrchr(ffname, '.') != NULL)) {
135			return core_getpath(ffname, searchpath, mode);
136			}
137
138			/* We're looking for an executable, Windows doesn't have X_OK. */
139			mode &= ~X_OK;
140			/* Append .exe */
141			strncpy(fname, ffname, sizeof(fname)-5);
142			strcat(fname, ".exe");
143			cp = core_getpath(fname, searchpath, mode);
144			if (cp != NULL) return cp;
145
146			/* Try with .bat this time... */
147			strncpy(fname, ffname, sizeof(fname)-5);
148			strcat(fname, ".bat");
149			cp = core_getpath(fname, searchpath, mode);
150			return cp;
151			}
152			#endif /* _WIN32 */
153
154
155			#ifdef TEST_MODULE
156			int main()
157			{
158			char * fp;
159			char fmt[] = "%15s %-10s %s: %s\n";
160
161			fp = getpath("rayinit.cal", getenv("RAYPATH"), R_OK);
162			printf(fmt, "rayinit.cal", "RAYPATH", "R_OK", fp);
163			fp = getpath("mkillum", getenv("PATH"), X_OK);
164			printf(fmt, "mkillum", "PATH", "X_OK", fp);
165			fp = getpath("/", getenv("PATH"), W_OK);
166			printf(fmt, "/", "PATH", "W_OK", fp);
167			fp = getpath("~", getenv("PATH"), F_OK);
168			printf(fmt, "~", "PATH", "F_OK", fp);
169			printf("Undefining HOME and HOMEDIR\n");
170			unsetenv("HOME");
171			unsetenv("HOMEDIR");
172			fp = getpath("~", getenv("PATH"), F_OK);
173			printf(fmt, "~", "PATH", "F_OK", fp);
174			#ifndef _WIN32 /* XXX was NIX, do we still compile on Amiga? */
175			fp = getpath("~lp", getenv("PATH"), F_OK);
176			printf(fmt, "~lp", "PATH", "F_OK", fp);
177			#endif
178			}
179			#endif
180