summaryrefslogtreecommitdiff
path: root/Build/source/texk/kpathsea/win32/mkpaths.c
blob: 46c8c0071ef044e3bef992309f41841bc465c794 (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, 2016 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;
}