blob: 3de0ad3ed78a785a686a4fdde4e1617579acd43f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
/* standard location file open procedure */
#ifndef lint
static const char SCCSID[]="@(#)pj_open_lib.c 4.5 94/10/30 GIE REL";
#endif
#define PJ_LIB__
#include <projects.h>
#include <stdio.h>
#include <string.h>
#include <errno.h>
static char *
proj_lib_name =
#ifdef PROJ_LIB
PROJ_LIB;
#else
0;
#endif
FILE *
pj_open_lib(char *name, char *mode) {
char fname[MAX_PATH_FILENAME+1], *sysname;
FILE *fid;
int n = 0;
/* check if ~/name */
if (*name == '~' && name[1] == DIR_CHAR)
if (sysname = getenv("HOME")) {
(void)strcpy(fname, sysname);
fname[n = strlen(fname)] = DIR_CHAR;
fname[++n] = '\0';
(void)strcpy(fname+n, name + 1);
sysname = fname;
} else
return NULL;
/* or fixed path: /name, ./name or ../name */
else if (*name == DIR_CHAR || (*name == '.' && name[1] == DIR_CHAR) ||
(!strncmp(name, "..", 2) && name[2] == DIR_CHAR) )
sysname = name;
/* or is environment PROJ_LIB defined */
else if ((sysname = getenv("PROJ_LIB")) || (sysname = proj_lib_name)) {
(void)strcpy(fname, sysname);
fname[n = strlen(fname)] = DIR_CHAR;
fname[++n] = '\0';
(void)strcpy(fname+n, name);
sysname = fname;
} else /* just try it bare bones */
sysname = name;
if (fid = fopen(sysname, mode))
errno = 0;
return(fid);
}
|
