summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/makedevs/makedevs/makedevs.c
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/makedevs/makedevs/makedevs.c')
-rw-r--r--meta/recipes-devtools/makedevs/makedevs/makedevs.c589
1 files changed, 589 insertions, 0 deletions
diff --git a/meta/recipes-devtools/makedevs/makedevs/makedevs.c b/meta/recipes-devtools/makedevs/makedevs/makedevs.c
new file mode 100644
index 0000000..771f33e
--- /dev/null
+++ b/meta/recipes-devtools/makedevs/makedevs/makedevs.c
@@ -0,0 +1,589 @@
1#define _GNU_SOURCE
2#include <stdio.h>
3#include <errno.h>
4#include <string.h>
5#include <stdarg.h>
6#include <stdlib.h>
7#include <ctype.h>
8#include <fcntl.h>
9#include <dirent.h>
10#include <unistd.h>
11#include <time.h>
12#include <getopt.h>
13#include <libgen.h>
14#include <sys/types.h>
15#include <sys/stat.h>
16
17#define MINORBITS 8
18#define MKDEV(ma,mi) (((ma) << MINORBITS) | (mi))
19#define MAX_ID_LEN 40
20#define MAX_NAME_LEN 40
21#ifndef PATH_MAX
22#define PATH_MAX 4096
23#endif
24#define VERSION "1.0.1"
25
26/* These are all stolen from busybox's libbb to make
27 * error handling simpler (and since I maintain busybox,
28 * I'm rather partial to these for error handling).
29 * -Erik
30 */
31static const char *const app_name = "makedevs";
32static const char *const memory_exhausted = "memory exhausted";
33static char default_rootdir[]=".";
34static char *rootdir = default_rootdir;
35static int trace = 0;
36
37struct name_id {
38 char name[MAX_NAME_LEN+1];
39 unsigned long id;
40 struct name_id *next;
41};
42
43static struct name_id *usr_list = NULL;
44static struct name_id *grp_list = NULL;
45
46static void verror_msg(const char *s, va_list p)
47{
48 fflush(stdout);
49 fprintf(stderr, "%s: ", app_name);
50 vfprintf(stderr, s, p);
51}
52
53static void error_msg_and_die(const char *s, ...)
54{
55 va_list p;
56
57 va_start(p, s);
58 verror_msg(s, p);
59 va_end(p);
60 putc('\n', stderr);
61 exit(EXIT_FAILURE);
62}
63
64static void vperror_msg(const char *s, va_list p)
65{
66 int err = errno;
67
68 if (s == 0)
69 s = "";
70 verror_msg(s, p);
71 if (*s)
72 s = ": ";
73 fprintf(stderr, "%s%s\n", s, strerror(err));
74}
75
76static void perror_msg_and_die(const char *s, ...)
77{
78 va_list p;
79
80 va_start(p, s);
81 vperror_msg(s, p);
82 va_end(p);
83 exit(EXIT_FAILURE);
84}
85
86static FILE *xfopen(const char *path, const char *mode)
87{
88 FILE *fp;
89
90 if ((fp = fopen(path, mode)) == NULL)
91 perror_msg_and_die("%s", path);
92 return fp;
93}
94
95static char *xstrdup(const char *s)
96{
97 char *t;
98
99 if (s == NULL)
100 return NULL;
101
102 t = strdup(s);
103
104 if (t == NULL)
105 error_msg_and_die(memory_exhausted);
106
107 return t;
108}
109
110static struct name_id* alloc_node(void)
111{
112 struct name_id *node;
113 node = (struct name_id*)malloc(sizeof(struct name_id));
114 if (node == NULL) {
115 error_msg_and_die(memory_exhausted);
116 }
117 memset((void *)node->name, 0, MAX_NAME_LEN+1);
118 node->id = 0xffffffff;
119 node->next = NULL;
120 return node;
121}
122
123static struct name_id* parse_line(char *line)
124{
125 char *p;
126 int i;
127 char id_buf[MAX_ID_LEN+1];
128 struct name_id *node;
129 node = alloc_node();
130 p = line;
131 i = 0;
132 // Get name field
133 while (*p != ':') {
134 if (i > MAX_NAME_LEN)
135 error_msg_and_die("Name field too long");
136 node->name[i++] = *p++;
137 }
138 node->name[i] = '\0';
139 p++;
140 // Skip the second field
141 while (*p != ':')
142 p++;
143 p++;
144 // Get id field
145 i = 0;
146 while (*p != ':') {
147 if (i > MAX_ID_LEN)
148 error_msg_and_die("ID filed too long");
149 id_buf[i++] = *p++;
150 }
151 id_buf[i] = '\0';
152 node->id = atol(id_buf);
153 return node;
154}
155
156static void get_list_from_file(FILE *file, struct name_id **plist)
157{
158 char *line;
159 int len = 0;
160 size_t length = 256;
161 struct name_id *node, *cur;
162
163 if((line = (char *)malloc(length)) == NULL) {
164 error_msg_and_die(memory_exhausted);
165 }
166
167 while ((len = getline(&line, &length, file)) != -1) {
168 node = parse_line(line);
169 if (*plist == NULL) {
170 *plist = node;
171 cur = *plist;
172 } else {
173 cur->next = node;
174 cur = cur->next;
175 }
176 }
177
178 if (line)
179 free(line);
180}
181
182static unsigned long convert2guid(char *id_buf, struct name_id *search_list)
183{
184 char *p;
185 int isnum;
186 struct name_id *node;
187 p = id_buf;
188 isnum = 1;
189 while (*p != '\0') {
190 if (!isdigit(*p)) {
191 isnum = 0;
192 break;
193 }
194 p++;
195 }
196 if (isnum) {
197 // Check for bad user/group name
198 node = search_list;
199 while (node != NULL) {
200 if (!strncmp(node->name, id_buf, strlen(id_buf))) {
201 fprintf(stderr, "WARNING: Bad user/group name %s detected\n", id_buf);
202 break;
203 }
204 node = node->next;
205 }
206 return (unsigned long)atol(id_buf);
207 } else {
208 node = search_list;
209 while (node != NULL) {
210 if (!strncmp(node->name, id_buf, strlen(id_buf)))
211 return node->id;
212 node = node->next;
213 }
214 error_msg_and_die("No entry for %s in search list", id_buf);
215 }
216}
217
218static void free_list(struct name_id *list)
219{
220 struct name_id *cur;
221 cur = list;
222 while (cur != NULL) {
223 list = cur;
224 cur = cur->next;
225 free(list);
226 }
227}
228
229static void add_new_directory(char *name, char *path,
230 unsigned long uid, unsigned long gid, unsigned long mode)
231{
232 if (trace)
233 fprintf(stderr, "Directory: %s %s UID: %ld GID %ld MODE: %04lo", path, name, uid, gid, mode);
234
235 if (mkdir(path, mode) < 0) {
236 if (EEXIST == errno) {
237 /* Unconditionally apply the mode setting to the existing directory.
238 * XXX should output something when trace */
239 chmod(path, mode & ~S_IFMT);
240 }
241 }
242 if (trace)
243 putc('\n', stderr);
244 chown(path, uid, gid);
245}
246
247static void add_new_device(char *name, char *path, unsigned long uid,
248 unsigned long gid, unsigned long mode, dev_t rdev)
249{
250 int status;
251 struct stat sb;
252
253 if (trace) {
254 fprintf(stderr, "Device: %s %s UID: %ld GID: %ld MODE: %04lo MAJOR: %d MINOR: %d",
255 path, name, uid, gid, mode, (short)(rdev >> 8), (short)(rdev & 0xff));
256 }
257
258 memset(&sb, 0, sizeof(struct stat));
259 status = lstat(path, &sb);
260 if (status >= 0) {
261 /* It is ok for some types of files to not exit on disk (such as
262 * device nodes), but if they _do_ exist, the file type bits had
263 * better match those of the actual file or strange things will happen... */
264 if ((mode & S_IFMT) != (sb.st_mode & S_IFMT)) {
265 if (trace)
266 putc('\n', stderr);
267 error_msg_and_die("%s: existing file (04%o) type does not match specified file type (04%lo)!",
268 path, (sb.st_mode & S_IFMT), (mode & S_IFMT));
269 }
270 if (mode != sb.st_mode) {
271 if (trace)
272 fprintf(stderr, " -- applying new mode 04%lo (old was 04%o)\n", mode & ~S_IFMT, sb.st_mode & ~S_IFMT);
273 /* Apply the mode setting to the existing device node */
274 chmod(path, mode & ~S_IFMT);
275 }
276 else {
277 if (trace)
278 fprintf(stderr, " -- extraneous entry in table\n", path);
279 }
280 }
281 else {
282 mknod(path, mode, rdev);
283 if (trace)
284 putc('\n', stderr);
285
286 }
287
288 chown(path, uid, gid);
289}
290
291static void add_new_file(char *name, char *path, unsigned long uid,
292 unsigned long gid, unsigned long mode)
293{
294 if (trace) {
295 fprintf(stderr, "File: %s %s UID: %ld GID: %ld MODE: %04lo\n",
296 path, name, gid, uid, mode);
297 }
298
299 int fd = open(path,O_CREAT | O_WRONLY, mode);
300 if (fd < 0) {
301 error_msg_and_die("%s: file can not be created!", path);
302 } else {
303 close(fd);
304 }
305 chmod(path, mode);
306 chown(path, uid, gid);
307}
308
309
310static void add_new_fifo(char *name, char *path, unsigned long uid,
311 unsigned long gid, unsigned long mode)
312{
313 if (trace) {
314 printf("Fifo: %s %s UID: %ld GID: %ld MODE: %04lo\n",
315 path, name, gid, uid, mode);
316 }
317
318 int status;
319 struct stat sb;
320
321 memset(&sb, 0, sizeof(struct stat));
322 status = stat(path, &sb);
323
324
325 /* Update the mode if we exist and are a fifo already */
326 if (status >= 0 && S_ISFIFO(sb.st_mode)) {
327 chmod(path, mode);
328 } else {
329 if (mknod(path, mode, 0))
330 error_msg_and_die("%s: file can not be created with mknod!", path);
331 }
332 chown(path, uid, gid);
333}
334
335
336/* device table entries take the form of:
337 <path> <type> <mode> <usr> <grp> <major> <minor> <start> <inc> <count>
338 /dev/mem c 640 0 0 1 1 0 0 -
339 /dev/zero c 644 root root 1 5 - - -
340
341 type can be one of:
342 f A regular file
343 d Directory
344 c Character special device file
345 b Block special device file
346 p Fifo (named pipe)
347
348 I don't bother with symlinks (permissions are irrelevant), hard
349 links (special cases of regular files), or sockets (why bother).
350
351 Regular files must exist in the target root directory. If a char,
352 block, fifo, or directory does not exist, it will be created.
353*/
354static int interpret_table_entry(char *line)
355{
356 char *name;
357 char usr_buf[MAX_ID_LEN];
358 char grp_buf[MAX_ID_LEN];
359 char path[4096], type;
360 unsigned long mode = 0755, uid = 0, gid = 0, major = 0, minor = 0;
361 unsigned long start = 0, increment = 1, count = 0;
362
363 if (0 > sscanf(line, "%40s %c %lo %40s %40s %lu %lu %lu %lu %lu", path,
364 &type, &mode, usr_buf, grp_buf, &major, &minor, &start,
365 &increment, &count))
366 {
367 fprintf(stderr, "%s: sscanf returned < 0 for line '%s'\n", app_name, line);
368 return 1;
369 }
370
371 uid = convert2guid(usr_buf, usr_list);
372 gid = convert2guid(grp_buf, grp_list);
373
374 if (strncmp(path, "/", 1)) {
375 error_msg_and_die("Device table entries require absolute paths");
376 }
377 name = xstrdup(path + 1);
378 /* prefix path with rootdir */
379 sprintf(path, "%s/%s", rootdir, name);
380
381 /* XXX Why is name passed into all of the add_new_*() routines? */
382 switch (type) {
383 case 'd':
384 mode |= S_IFDIR;
385 add_new_directory(name, path, uid, gid, mode);
386 break;
387 case 'f':
388 mode |= S_IFREG;
389 add_new_file(name, path, uid, gid, mode);
390 break;
391 case 'p':
392 mode |= S_IFIFO;
393 add_new_fifo(name, path, uid, gid, mode);
394 break;
395 case 'c':
396 case 'b':
397 mode |= (type == 'c') ? S_IFCHR : S_IFBLK;
398 if (count > 0) {
399 int i;
400 dev_t rdev;
401 char buf[80];
402
403 for (i = start; i < start + count; i++) {
404 sprintf(buf, "%s%d", name, i);
405 sprintf(path, "%s/%s%d", rootdir, name, i);
406 /* FIXME: MKDEV uses illicit insider knowledge of kernel
407 * major/minor representation... */
408 rdev = MKDEV(major, minor + (i - start) * increment);
409 sprintf(path, "%s/%s\0", rootdir, buf);
410 add_new_device(buf, path, uid, gid, mode, rdev);
411 }
412 } else {
413 /* FIXME: MKDEV uses illicit insider knowledge of kernel
414 * major/minor representation... */
415 dev_t rdev = MKDEV(major, minor);
416 add_new_device(name, path, uid, gid, mode, rdev);
417 }
418 break;
419 default:
420 error_msg_and_die("Unsupported file type");
421 }
422 if (name) free(name);
423 return 0;
424}
425
426
427static void parse_device_table(FILE * file)
428{
429 char *line;
430 size_t length = 256;
431 int len = 0;
432
433 if((line = (char *)malloc(length)) == NULL) {
434 error_msg_and_die(memory_exhausted);
435 }
436 /* Looks ok so far. The general plan now is to read in one
437 * line at a time, trim off leading and trailing whitespace,
438 * check for leading comment delimiters ('#') or a blank line,
439 * then try and parse the line as a device table entry. If we fail
440 * to parse things, try and help the poor fool to fix their
441 * device table with a useful error msg... */
442
443 while ((len = getline(&line, &length, file)) != -1) {
444 /* First trim off any whitespace */
445
446 /* trim trailing whitespace */
447 while (len > 0 && isspace(line[len - 1]))
448 line[--len] = '\0';
449
450 /* trim leading whitespace */
451 memmove(line, &line[strspn(line, " \n\r\t\v")], len + 1);
452
453 /* If this is NOT a comment or an empty line, try to interpret it */
454 if (*line != '#' && *line != '\0') interpret_table_entry(line);
455 }
456
457 if (line)
458 free(line);
459}
460
461static int parse_devtable(FILE * devtable)
462{
463 struct stat sb;
464
465 if (lstat(rootdir, &sb)) {
466 perror_msg_and_die("%s", rootdir);
467 }
468 if (chdir(rootdir))
469 perror_msg_and_die("%s", rootdir);
470
471 if (devtable)
472 parse_device_table(devtable);
473
474 return 0;
475}
476
477
478static struct option long_options[] = {
479 {"root", 1, NULL, 'r'},
480 {"help", 0, NULL, 'h'},
481 {"trace", 0, NULL, 't'},
482 {"version", 0, NULL, 'v'},
483 {"devtable", 1, NULL, 'D'},
484 {NULL, 0, NULL, 0}
485};
486
487static char *helptext =
488 "Usage: makedevs [OPTIONS]\n"
489 "Build entries based upon device_table.txt\n\n"
490 "Options:\n"
491 " -r, -d, --root=DIR Build filesystem from directory DIR (default: cwd)\n"
492 " -D, --devtable=FILE Use the named FILE as a device table file\n"
493 " -h, --help Display this help text\n"
494 " -t, --trace Be verbose\n"
495 " -v, --version Display version information\n\n";
496
497
498int main(int argc, char **argv)
499{
500 int c, opt;
501 extern char *optarg;
502 struct stat statbuf;
503 char passwd_path[PATH_MAX];
504 char group_path[PATH_MAX];
505 FILE *passwd_file = NULL;
506 FILE *group_file = NULL;
507 FILE *devtable = NULL;
508 DIR *dir = NULL;
509
510 umask (0);
511
512 if (argc==1) {
513 fprintf(stderr, helptext);
514 exit(1);
515 }
516
517 while ((opt = getopt_long(argc, argv, "D:d:r:htv",
518 long_options, &c)) >= 0) {
519 switch (opt) {
520 case 'D':
521 devtable = xfopen(optarg, "r");
522 if (fstat(fileno(devtable), &statbuf) < 0)
523 perror_msg_and_die(optarg);
524 if (statbuf.st_size < 10)
525 error_msg_and_die("%s: not a proper device table file", optarg);
526 break;
527 case 'h':
528 printf(helptext);
529 exit(0);
530 case 'r':
531 case 'd': /* for compatibility with mkfs.jffs, genext2fs, etc... */
532 if (rootdir != default_rootdir) {
533 error_msg_and_die("root directory specified more than once");
534 }
535 if ((dir = opendir(optarg)) == NULL) {
536 perror_msg_and_die(optarg);
537 } else {
538 closedir(dir);
539 }
540 /* If "/" is specified, use "" because rootdir is always prepended to a
541 * string that starts with "/" */
542 if (0 == strcmp(optarg, "/"))
543 rootdir = xstrdup("");
544 else
545 rootdir = xstrdup(optarg);
546 break;
547
548 case 't':
549 trace = 1;
550 break;
551
552 case 'v':
553 printf("%s: %s\n", app_name, VERSION);
554 exit(0);
555 default:
556 fprintf(stderr, helptext);
557 exit(1);
558 }
559 }
560
561 if (argv[optind] != NULL) {
562 fprintf(stderr, helptext);
563 exit(1);
564 }
565
566 // Get name-id mapping
567 sprintf(passwd_path, "%s/etc/passwd", rootdir);
568 sprintf(group_path, "%s/etc/group", rootdir);
569 if ((passwd_file = fopen(passwd_path, "r")) != NULL) {
570 get_list_from_file(passwd_file, &usr_list);
571 fclose(passwd_file);
572 }
573 if ((group_file = fopen(group_path, "r")) != NULL) {
574 get_list_from_file(group_file, &grp_list);
575 fclose(group_file);
576 }
577
578 // Parse devtable
579 if(devtable) {
580 parse_devtable(devtable);
581 fclose(devtable);
582 }
583
584 // Free list
585 free_list(usr_list);
586 free_list(grp_list);
587
588 return 0;
589}