src/common/fropen.c

#ifndef lint
static const char       RCSid[] = "$Id: fropen.c,v 2.12 2003/06/30 18:18:22 greg Exp $";
#endif
/*
 * Find and open a Radiance library file.
 *
 *  External symbols declared in standard.h
 */

#include "copyright.h"

#include <stdio.h>

#include "rtio.h"
#include "paths.h"


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

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

        if (ISDIRSEP(fname[0]) || 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.13
Committed:	Thu Jul 17 09:21:29 2003 UTC (20 years, 9 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
Changes since 2.12:	+2 -1 lines
Log Message:	Added prototypes and includes from patch by Randolph Fritz. Added more required includes and reduced other compile warnings.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	2.13	static const char RCSid[] = "$Id: fropen.c,v 2.12 2003/06/30 18:18:22 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Find and open a Radiance library file.
6	greg	2.8	*
7			* External symbols declared in standard.h
8			*/
9
10	greg	2.9	#include "copyright.h"
11	greg	1.1
12			#include <stdio.h>
13
14	schorsch	2.13	#include "rtio.h"
15	greg	2.4	#include "paths.h"
16	greg	1.1
17
18			FILE *
19	greg	2.7	frlibopen(fname) /* find file and open for reading */
20	greg	1.1	register char *fname;
21			{
22	greg	2.12	extern char *getrlibpath();
23	greg	1.1	FILE *fp;
24	schorsch	2.11	char pname[PATH_MAX];
25	greg	1.1	register char sp, cp;
26
27			if (fname == NULL)
28			return(NULL);
29
30	greg	2.5	if (ISDIRSEP(fname[0]) \|\| fname[0] == '.') /* absolute path */
31	greg	1.1	return(fopen(fname, "r"));
32			/* check search path */
33	greg	2.10	sp = getrlibpath();
34	greg	1.1	do {
35			cp = pname;
36	greg	2.3	while (sp && (cp = *sp++) != PATHSEP)
37			cp++;
38	greg	2.5	if (cp > pname && !ISDIRSEP(cp[-1]))
39	greg	2.3	*cp++ = DIRSEP;
40	greg	1.1	strcpy(cp, fname);
41			if ((fp = fopen(pname, "r")) != NULL)
42			return(fp); /* got it! */
43			} while (*sp);
44			/* not found */
45			return(NULL);
46			}