blob: 5de8c65658fc882e2318696d2257c11cfe72a750 (
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
/* mkpaths.c
Copyright 2015 Akira Kakuto.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with this library; if not, see <http://www.gnu.org/licenses/>.
*/
#include <kpathsea/kpathsea.h>
#include "mktex.h"
char **
mkpaths (int *numptr)
{
char **pathbuff;
char *texmfdbs;
char *p, *pa, *pc;
int i;
if (!(p = kpse_var_value ("TEXMFDBS"))) {
fprintf (stderr, "No definition of TEXMFDBS.\n");
return NULL;
}
texmfdbs = kpse_brace_expand (p);
free (p);
if (!texmfdbs) {
fprintf (stderr, "I cannot expand braces in TEXMFDBS.\n");
return NULL;
}
p = texmfdbs;
i = 0;
while(*p) {
if(*p == '!' && *(p+1) == '!')
p += 2;
if(*p == ';')
while(*p == ';')
p++;
if(*p && *p != '!') {
while(*p != ';' && *p)
p++;
i++;
while(*p == ';')
p++;
}
}
if (!i) {
free (texmfdbs);
fprintf (stderr, "No database paths in TEXMFDBS.\n");
return NULL;
}
*numptr = i;
pathbuff = xmalloc(i * sizeof(char *));
p = texmfdbs;
i = 0;
while (*p) {
if (*p == '!' && *(p + 1) == '!')
p += 2;
if (*p == ';') {
while (*p == ';')
p++;
}
if(*p && *p != '!') {
pa = p;
while(*p != ';' && *p)
p++;
pc = p;
pathbuff[i] = xmalloc(pc - pa + 1);
strncpy(pathbuff[i], pa, pc - pa);
pathbuff[i][pc - pa] = 0;
i++;
while(*p == ';')
p++;
}
}
free(texmfdbs);
return pathbuff;
}
|