098b1b2ea5a4ab1e39d3156cbdbf13309132d778
[yaz-moved-to-github.git] / tpath.c
1 /* This file is part of the YAZ toolkit.
2  * Copyright (C) 1995-2012 Index Data
3  * See the file LICENSE for details.
4  */
5 /**
6  * \file tpath.c
7  * \brief File Path utilities
8  */
9
10 #if HAVE_CONFIG_H
11 #include <config.h>
12 #endif
13
14
15 #include <stdio.h>
16 #include <string.h>
17 #include <yaz/tpath.h>
18 #include <yaz/log.h>
19 #if HAVE_SYS_TYPES_H
20 #include <sys/types.h>
21 #endif
22 #if HAVE_SYS_STAT_H
23 #include <sys/stat.h>
24 #endif
25 #if WIN32
26 #include <sys/stat.h>
27 #endif
28
29 #if HAVE_UNISTD_H
30 #include <unistd.h>
31 #endif
32
33 FILE *yaz_path_fopen(const char *path, const char *name, const char *mode)
34 {
35     return yaz_fopen(path, name, mode, 0);
36 }
37
38 int yaz_fclose (FILE *f)
39 {
40     return fclose(f);
41 }
42
43
44 size_t yaz_filepath_comp(const char **path_p, const char **comp)
45 {
46     const char *path = *path_p;
47     size_t len;
48     const char *path_sep;
49
50     /* somewhat dirty since we have to consider Windows
51      * drive letters..
52      */
53     if (path[0] && strchr("/\\.", path[0]))
54         path_sep = strchr(path+1, ':');
55     else if (path[0] && path[1])
56         path_sep = strchr(path+2, ':');
57     else
58         path_sep = 0;
59
60     if (path_sep)
61     {
62         len = path_sep - path;
63         *path_p = path + len + 1;
64     }
65     else
66     {
67         len = strlen(path);
68         *path_p = path + len;
69     }
70     *comp = path;
71     return len;
72 }
73
74 char *yaz_filepath_resolve(const char *fname, const char *path,
75                            const char *base, char *fullpath)
76 {
77     if (path && *path == '\0')
78         path = 0;
79     if (strchr("/\\", *fname))
80         path = 0;
81     for (;;)
82     {
83         struct stat stat_buf;
84         size_t slen = 0;
85
86         *fullpath = '\0';
87         if (path)
88         {
89             const char *comp;
90             size_t len = 0;
91
92             len = yaz_filepath_comp(&path, &comp);
93             if (!len)
94                 break;
95
96             if (!strchr("/\\", *comp) && base)
97             {
98                 /* yes: make base the first part */
99                 strcpy(fullpath, base);
100                 slen = strlen(fullpath);
101                 fullpath[slen++] = '/';
102             }
103             memcpy(fullpath+slen, comp, len);
104             slen += len;
105             if(slen > 0 && !strchr("/\\", fullpath[slen-1]))
106                 fullpath[slen++] = '/';
107         }
108         strcpy(fullpath+slen, fname);
109         if (stat(fullpath, &stat_buf) == 0)
110             return fullpath;
111         if (!path)
112             break;
113     }
114     return 0;
115 }
116
117 FILE *yaz_fopen(const char *path, const char *fname, const char *mode,
118                 const char *base)
119 {
120     char fullpath[1024];
121
122     if (!yaz_filepath_resolve(fname, path, base, fullpath))
123         return 0; /* failure */
124     return fopen(fullpath, mode);
125 }
126
127 int yaz_is_abspath(const char *p)
128 {
129     if (*p == '/')
130         return 1;
131 #ifdef WIN32
132     if (*p == '\\')
133         return 1;
134     if (*p && p[1] == ':' &&
135         ((*p >= 'A' && *p <= 'Z') || (*p >= 'a' && *p <= 'z')))
136         return 1;
137 #endif
138     return 0;
139 }
140 /*
141  * Local variables:
142  * c-basic-offset: 4
143  * c-file-style: "Stroustrup"
144  * indent-tabs-mode: nil
145  * End:
146  * vim: shiftwidth=4 tabstop=8 expandtab
147  */
148