src/common/fropen.c

#ifndef lint
static const char       RCSid[] = "$Id: fropen.c,v 2.16 2013/12/19 16:38:12 greg Exp $";
#endif
/*
 * Find and open a Radiance library file.
 *
 *  External symbols declared in paths.h
 */

#include "copyright.h"

#include <stdio.h>

#include "paths.h"


FILE *
frlibopen(                      /* find file and open for reading */
        char  *fname
)
{
        FILE  *fp;
        char  pname[PATH_MAX];
        char  *sp, *cp;

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

        if (ISABS(fname) || fname[0] == '.')    /* absolute path */
                return(fopen(fname, "r"));
                                                /* check search path */
        sp = getrlibpath();
        do {
                cp = pname;
                while (*sp && (*cp = *sp++) != PATHSEP)
                        cp++;
                if (cp > pname && !ISDIRSEP(cp[-1]))
                        *cp++ = DIRSEP;
                strcpy(cp, fname);
                if ((fp = fopen(pname, "r")) != NULL)
                        return(fp);                     /* got it! */
        } while (*sp);
                                                /* not found */
        return(NULL);
}
Revision:	2.17
Committed:	Sat Jun 7 05:09:45 2025 UTC (14 hours, 36 minutes ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 2.16:	+2 -3 lines
Log Message:	refactor: Put some declarations into "paths.h" and included in "platform.h"
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.17	static const char RCSid[] = "$Id: fropen.c,v 2.16 2013/12/19 16:38:12 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Find and open a Radiance library file.
6	greg	2.8	*
7	greg	2.17	* External symbols declared in paths.h
8	greg	2.8	*/
9
10	greg	2.9	#include "copyright.h"
11	greg	1.1
12			#include <stdio.h>
13
14	greg	2.4	#include "paths.h"
15	greg	1.1
16
17			FILE *
18	greg	2.16	frlibopen( /* find file and open for reading */
19			char *fname
20			)
21	greg	1.1	{
22			FILE *fp;
23	schorsch	2.11	char pname[PATH_MAX];
24	greg	2.16	char sp, cp;
25	greg	1.1
26			if (fname == NULL)
27			return(NULL);
28
29	greg	2.15	if (ISABS(fname) \|\| fname[0] == '.') /* absolute path */
30	greg	1.1	return(fopen(fname, "r"));
31			/* check search path */
32	greg	2.10	sp = getrlibpath();
33	greg	1.1	do {
34			cp = pname;
35	greg	2.3	while (sp && (cp = *sp++) != PATHSEP)
36			cp++;
37	greg	2.5	if (cp > pname && !ISDIRSEP(cp[-1]))
38	greg	2.3	*cp++ = DIRSEP;
39	greg	1.1	strcpy(cp, fname);
40			if ((fp = fopen(pname, "r")) != NULL)
41			return(fp); /* got it! */
42			} while (*sp);
43			/* not found */
44			return(NULL);
45			}