discover: Remove {U,}MOUNT_BIN defines
[petitboot] / discover / paths.c
1 #define _GNU_SOURCE
2
3 #include <string.h>
4 #include <stdio.h>
5 #include <stdlib.h>
6
7 #include <talloc/talloc.h>
8
9 #include "paths.h"
10
11 #define DEVICE_MOUNT_BASE (LOCAL_STATE_DIR "/petitboot/mnt")
12
13 struct mount_map {
14         char *dev, *mnt;
15 };
16
17 static struct mount_map *mount_map;
18 static int mount_map_size;
19
20 static int is_prefix(const char *str, const char *prefix)
21 {
22         return !strncmp(str, prefix, strlen(prefix));
23 }
24
25 static int is_prefix_ignorecase(const char *str, const char *prefix)
26 {
27         return !strncasecmp(str, prefix, strlen(prefix));
28 }
29
30 const char *mount_base(void)
31 {
32         return DEVICE_MOUNT_BASE;
33 }
34
35 char *encode_label(void *alloc_ctx, const char *label)
36 {
37         char *str, *c;
38         unsigned int i;
39
40         /* the label can be expanded by up to four times */
41         str = talloc_size(alloc_ctx, strlen(label) * 4 + 1);
42         c = str;
43
44         for (i = 0; i < strlen(label); i++) {
45
46                 if (label[i] == '/' || label[i] == '\\') {
47                         sprintf(c, "\\x%02x", label[i]);
48                         c += 4;
49                         continue;
50                 }
51
52                 *(c++) = label[i];
53         }
54
55         *c = '\0';
56
57         return str;
58 }
59
60 char *parse_device_path(void *alloc_ctx,
61                 const char *dev_str, const char __attribute__((unused)) *cur_dev)
62 {
63         char *dev, *enc;
64
65         if (is_prefix_ignorecase(dev_str, "uuid=")) {
66                 dev = talloc_asprintf(alloc_ctx, "/dev/disk/by-uuid/%s",
67                                 dev_str + strlen("uuid="));
68                 return dev;
69         }
70
71         if (is_prefix_ignorecase(dev_str, "label=")) {
72                 enc = encode_label(NULL, dev_str + strlen("label="));
73                 dev = talloc_asprintf(alloc_ctx, "/dev/disk/by-label/%s", enc);
74                 talloc_free(enc);
75                 return dev;
76         }
77
78         /* normalise '/dev/foo' to 'foo' for easy comparisons, we'll expand
79          * back before returning.
80          */
81         if (is_prefix(dev_str, "/dev/"))
82                 dev_str += strlen("/dev/");
83
84         return join_paths(alloc_ctx, "/dev", dev_str);
85 }
86
87 const char *mountpoint_for_device(const char *dev)
88 {
89         int i;
90
91         if (is_prefix(dev, "/dev/"))
92                 dev += strlen("/dev/");
93
94         /* check existing entries in the map */
95         for (i = 0; i < mount_map_size; i++)
96                 if (!strcmp(mount_map[i].dev, dev))
97                         return mount_map[i].mnt;
98
99         /* no existing entry, create a new one */
100         i = mount_map_size++;
101         mount_map = talloc_realloc(NULL, mount_map,
102                         struct mount_map, mount_map_size);
103
104         mount_map[i].dev = talloc_strdup(mount_map, dev);
105         mount_map[i].mnt = join_paths(mount_map, DEVICE_MOUNT_BASE, dev);
106         return mount_map[i].mnt;
107 }
108
109 char *resolve_path(void *alloc_ctx, const char *path, const char *current_dev)
110 {
111         static const char s_file[] = "file://";
112         char *ret;
113         const char *devpath, *sep;
114
115         /* test for urls */
116
117         if (!strncasecmp(path, s_file, sizeof(s_file) - 1))
118                 path += sizeof(s_file) - 1;
119         else if (strstr(path, "://"))
120                 return talloc_strdup(alloc_ctx, path);
121
122         sep = strchr(path, ':');
123         if (!sep) {
124                 devpath = mountpoint_for_device(current_dev);
125                 ret = join_paths(alloc_ctx, devpath, path);
126         } else {
127                 /* parse just the device name into dev */
128                 char *tmp, *dev;
129                 tmp = talloc_strndup(NULL, path, sep - path);
130                 dev = parse_device_path(NULL, tmp, current_dev);
131
132                 devpath = mountpoint_for_device(dev);
133                 ret = join_paths(alloc_ctx, devpath, sep + 1);
134
135                 talloc_free(dev);
136                 talloc_free(tmp);
137         }
138
139         return ret;
140 }
141
142 char *join_paths(void *alloc_ctx, const char *a, const char *b)
143 {
144         char *full_path;
145
146         full_path = talloc_array(alloc_ctx, char, strlen(a) + strlen(b) + 2);
147
148         strcpy(full_path, a);
149         if (b[0] != '/' && a[strlen(a) - 1] != '/')
150                 strcat(full_path, "/");
151         strcat(full_path, b);
152
153         return full_path;
154 }
155