busybox/modutils/depmod.c

/* vi: set sw=4 ts=4: */
/*
 * depmod - generate modules.dep
 * Copyright (c) 2008 Bernhard Reutner-Fischer
 * Copyrihgt (c) 2008 Timo Teras <timo.teras@iki.fi>
 * Copyright (c) 2008 Vladimir Dronnikov
 *
 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
 */

#undef _GNU_SOURCE
#define _GNU_SOURCE
#include <libbb.h>
#include <sys/utsname.h> /* uname() */
#include "modutils.h"

/*
 * Theory of operation:
 * - iterate over all modules and record their full path
 * - iterate over all modules looking for "depends=" entries
 *   for each depends, look through our list of full paths and emit if found
 */

typedef struct module_info {
	struct module_info *next;
	char *name, *modname;
	llist_t *dependencies;
	llist_t *aliases;
	llist_t *symbols;
	struct module_info *dnext, *dprev;
} module_info;

enum {
	ARG_a = (1<<0), /* All modules, ignore mods in argv */
	ARG_A = (1<<1), /* Only emit .ko that are newer than modules.dep file */
	ARG_b = (1<<2), /* base directory when modules are in staging area */
	ARG_e = (1<<3), /* with -F, print unresolved symbols */
	ARG_F = (1<<4), /* System.map that contains the symbols */
	ARG_n = (1<<5)  /* dry-run, print to stdout only */
};

static int FAST_FUNC parse_module(const char *fname, struct stat *sb,
				  void *data, int UNUSED_PARAM depth)
{
	module_info **first = (module_info **) data;
	char *image, *ptr;
	module_info *info;
	size_t len = sb->st_size;

	if (strrstr(fname, ".ko") == NULL)
		return TRUE;

	image = xmalloc_open_zipped_read_close(fname, &len);
	info = xzalloc(sizeof(module_info));

	info->next = *first;
	*first = info;

	info->dnext = info->dprev = info;
	info->name = xasprintf("/%s", fname);
	info->modname = filename2modname(fname, NULL);
	for (ptr = image; ptr < image + len - 10; ptr++) {
		if (strncmp(ptr, "depends=", 8) == 0) {
			char *u;

			ptr += 8;
			for (u = ptr; *u; u++)
				if (*u == '-')
					*u = '_';
			ptr += string_to_llist(ptr, &info->dependencies, ",");
		} else if (ENABLE_FEATURE_MODUTILS_ALIAS &&
			   strncmp(ptr, "alias=", 6) == 0) {
			llist_add_to(&info->aliases, xstrdup(ptr + 6));
			ptr += strlen(ptr);
		} else if (ENABLE_FEATURE_MODUTILS_SYMBOLS &&
			   strncmp(ptr, "__ksymtab_", 10) == 0) {
			ptr += 10;
			if (strncmp(ptr, "gpl", 3) == 0 ||
			    strcmp(ptr, "strings") == 0)
				continue;
			llist_add_to(&info->symbols, xstrdup(ptr));
			ptr += strlen(ptr);
		}
	}
	free(image);

	return TRUE;
}

static module_info *find_module(module_info *modules, const char *modname)
{
	module_info *m;

	for (m = modules; m != NULL; m = m->next)
		if (strcmp(m->modname, modname) == 0)
			return m;
	return NULL;
}

static void order_dep_list(module_info *modules, module_info *start,
			   llist_t *add)
{
	module_info *m;
	llist_t *n;

	for (n = add; n != NULL; n = n->link) {
		m = find_module(modules, n->data);
		if (m == NULL)
			continue;

		/* unlink current entry */
		m->dnext->dprev = m->dprev;
		m->dprev->dnext = m->dnext;

		/* and add it to tail */
		m->dnext = start;
		m->dprev = start->dprev;
		start->dprev->dnext = m;
		start->dprev = m;

		/* recurse */
		order_dep_list(modules, start, m->dependencies);
	}
}

static void xfreopen_write(const char *file, FILE *f)
{
	if (freopen(file, "w", f) == NULL)
		bb_perror_msg_and_die("can't open '%s'", file);
}

int depmod_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
int depmod_main(int argc UNUSED_PARAM, char **argv)
{
	module_info *modules = NULL, *m, *dep;
	const char *moddir_base = "/";
	char *moddir, *version;
	struct utsname uts;
	int tmp;

	getopt32(argv, "aAb:eF:n", &moddir_base, NULL);
	argv += optind;

	/* goto modules location */
	xchdir(moddir_base);

	/* If a version is provided, then that kernel version's module directory
	 * is used, rather than the current kernel version (as returned by
	 * "uname -r").  */
	if (*argv && sscanf(*argv, "%d.%d.%d", &tmp, &tmp, &tmp) == 3) {
		version = *argv++;
	} else {
		uname(&uts);
		version = uts.release;
	}
	moddir = concat_path_file(&CONFIG_DEFAULT_MODULES_DIR[1], version);

	/* Scan modules */
	if (*argv) {
		char *modfile;
		struct stat sb;
		do {
			modfile = concat_path_file(moddir, *argv);
			xstat(modfile, &sb);
			parse_module(modfile, &sb, &modules, 0);
			free(modfile);
		} while (*(++argv));
	} else {
		recursive_action(moddir, ACTION_RECURSE,
				 parse_module, NULL, &modules, 0);
	}

	/* Prepare for writing out the dep files */
	xchdir(moddir);
	if (ENABLE_FEATURE_CLEAN_UP)
		free(moddir);

	/* Generate dependency and alias files */
	if (!(option_mask32 & ARG_n))
		xfreopen_write(CONFIG_DEFAULT_DEPMOD_FILE, stdout);
	for (m = modules; m != NULL; m = m->next) {
		printf("%s:", m->name);

		order_dep_list(modules, m, m->dependencies);
		while (m->dnext != m) {
			dep = m->dnext;
			printf(" %s", dep->name);

			/* unlink current entry */
			dep->dnext->dprev = dep->dprev;
			dep->dprev->dnext = dep->dnext;
			dep->dnext = dep->dprev = dep;
		}
		bb_putchar('\n');
	}

#if ENABLE_FEATURE_MODUTILS_ALIAS
	if (!(option_mask32 & ARG_n))
		xfreopen_write("modules.alias", stdout);
	for (m = modules; m != NULL; m = m->next) {
		while (m->aliases) {
			printf("alias %s %s\n",
				(char*)llist_pop(&m->aliases),
				m->modname);
		}
	}
#endif
#if ENABLE_FEATURE_MODUTILS_SYMBOLS
	if (!(option_mask32 & ARG_n))
		xfreopen_write("modules.symbols", stdout);
	for (m = modules; m != NULL; m = m->next) {
		while (m->symbols) {
			printf("alias symbol:%s %s\n",
				(char*)llist_pop(&m->symbols),
				m->modname);
		}
	}
#endif

	if (ENABLE_FEATURE_CLEAN_UP) {
		while (modules) {
			module_info *old = modules;
			modules = modules->next;
			free(old->name);
			free(old->modname);
			free(old);
		}
	}

	return EXIT_SUCCESS;
}
1	/* vi: set sw=4 ts=4: */
2	/*
3	* depmod - generate modules.dep
4	* Copyright (c) 2008 Bernhard Reutner-Fischer
5	* Copyrihgt (c) 2008 Timo Teras <timo.teras@iki.fi>
6	* Copyright (c) 2008 Vladimir Dronnikov
7	*
8	* Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
9	*/
10
11	#undef _GNU_SOURCE
12	#define _GNU_SOURCE
13	#include <libbb.h>
14	#include <sys/utsname.h> /* uname() */
15	#include "modutils.h"
16
17	/*
18	* Theory of operation:
19	* - iterate over all modules and record their full path
20	* - iterate over all modules looking for "depends=" entries
21	* for each depends, look through our list of full paths and emit if found
22	*/
23
24	typedef struct module_info {
25	struct module_info *next;
26	char name, modname;
27	llist_t *dependencies;
28	llist_t *aliases;
29	llist_t *symbols;
30	struct module_info dnext, dprev;
31	} module_info;
32
33	enum {
34	ARG_a = (1<<0), /* All modules, ignore mods in argv */
35	ARG_A = (1<<1), /* Only emit .ko that are newer than modules.dep file */
36	ARG_b = (1<<2), /* base directory when modules are in staging area */
37	ARG_e = (1<<3), /* with -F, print unresolved symbols */
38	ARG_F = (1<<4), /* System.map that contains the symbols */
39	ARG_n = (1<<5) /* dry-run, print to stdout only */
40	};
41
42	static int FAST_FUNC parse_module(const char fname, struct stat sb,
43	void *data, int UNUSED_PARAM depth)
44	{
45	module_info first = (module_info ) data;
46	char image, ptr;
47	module_info *info;
48	size_t len = sb->st_size;
49
50	if (strrstr(fname, ".ko") == NULL)
51	return TRUE;
52
53	image = xmalloc_open_zipped_read_close(fname, &len);
54	info = xzalloc(sizeof(module_info));
55
56	info->next = *first;
57	*first = info;
58
59	info->dnext = info->dprev = info;
60	info->name = xasprintf("/%s", fname);
61	info->modname = filename2modname(fname, NULL);
62	for (ptr = image; ptr < image + len - 10; ptr++) {
63	if (strncmp(ptr, "depends=", 8) == 0) {
64	char *u;
65
66	ptr += 8;
67	for (u = ptr; *u; u++)
68	if (*u == '-')
69	*u = '_';
70	ptr += string_to_llist(ptr, &info->dependencies, ",");
71	} else if (ENABLE_FEATURE_MODUTILS_ALIAS &&
72	strncmp(ptr, "alias=", 6) == 0) {
73	llist_add_to(&info->aliases, xstrdup(ptr + 6));
74	ptr += strlen(ptr);
75	} else if (ENABLE_FEATURE_MODUTILS_SYMBOLS &&
76	strncmp(ptr, "__ksymtab_", 10) == 0) {
77	ptr += 10;
78	if (strncmp(ptr, "gpl", 3) == 0 \|\|
79	strcmp(ptr, "strings") == 0)
80	continue;
81	llist_add_to(&info->symbols, xstrdup(ptr));
82	ptr += strlen(ptr);
83	}
84	}
85	free(image);
86
87	return TRUE;
88	}
89
90	static module_info find_module(module_info modules, const char *modname)
91	{
92	module_info *m;
93
94	for (m = modules; m != NULL; m = m->next)
95	if (strcmp(m->modname, modname) == 0)
96	return m;
97	return NULL;
98	}
99
100	static void order_dep_list(module_info modules, module_info start,
101	llist_t *add)
102	{
103	module_info *m;
104	llist_t *n;
105
106	for (n = add; n != NULL; n = n->link) {
107	m = find_module(modules, n->data);
108	if (m == NULL)
109	continue;
110
111	/* unlink current entry */
112	m->dnext->dprev = m->dprev;
113	m->dprev->dnext = m->dnext;
114
115	/* and add it to tail */
116	m->dnext = start;
117	m->dprev = start->dprev;
118	start->dprev->dnext = m;
119	start->dprev = m;
120
121	/* recurse */
122	order_dep_list(modules, start, m->dependencies);
123	}
124	}
125
126	static void xfreopen_write(const char file, FILE f)
127	{
128	if (freopen(file, "w", f) == NULL)
129	bb_perror_msg_and_die("can't open '%s'", file);
130	}
131
132	int depmod_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
133	int depmod_main(int argc UNUSED_PARAM, char **argv)
134	{
135	module_info modules = NULL, m, *dep;
136	const char *moddir_base = "/";
137	char moddir, version;
138	struct utsname uts;
139	int tmp;
140
141	getopt32(argv, "aAb:eF:n", &moddir_base, NULL);
142	argv += optind;
143
144	/* goto modules location */
145	xchdir(moddir_base);
146
147	/* If a version is provided, then that kernel version's module directory
148	* is used, rather than the current kernel version (as returned by
149	* "uname -r"). */
150	if (argv && sscanf(argv, "%d.%d.%d", &tmp, &tmp, &tmp) == 3) {
151	version = *argv++;
152	} else {
153	uname(&uts);
154	version = uts.release;
155	}
156	moddir = concat_path_file(&CONFIG_DEFAULT_MODULES_DIR[1], version);
157
158	/* Scan modules */
159	if (*argv) {
160	char *modfile;
161	struct stat sb;
162	do {
163	modfile = concat_path_file(moddir, *argv);
164	xstat(modfile, &sb);
165	parse_module(modfile, &sb, &modules, 0);
166	free(modfile);
167	} while (*(++argv));
168	} else {
169	recursive_action(moddir, ACTION_RECURSE,
170	parse_module, NULL, &modules, 0);
171	}
172
173	/* Prepare for writing out the dep files */
174	xchdir(moddir);
175	if (ENABLE_FEATURE_CLEAN_UP)
176	free(moddir);
177
178	/* Generate dependency and alias files */
179	if (!(option_mask32 & ARG_n))
180	xfreopen_write(CONFIG_DEFAULT_DEPMOD_FILE, stdout);
181	for (m = modules; m != NULL; m = m->next) {
182	printf("%s:", m->name);
183
184	order_dep_list(modules, m, m->dependencies);
185	while (m->dnext != m) {
186	dep = m->dnext;
187	printf(" %s", dep->name);
188
189	/* unlink current entry */
190	dep->dnext->dprev = dep->dprev;
191	dep->dprev->dnext = dep->dnext;
192	dep->dnext = dep->dprev = dep;
193	}
194	bb_putchar('\n');
195	}
196
197	#if ENABLE_FEATURE_MODUTILS_ALIAS
198	if (!(option_mask32 & ARG_n))
199	xfreopen_write("modules.alias", stdout);
200	for (m = modules; m != NULL; m = m->next) {
201	while (m->aliases) {
202	printf("alias %s %s\n",
203	(char*)llist_pop(&m->aliases),
204	m->modname);
205	}
206	}
207	#endif
208	#if ENABLE_FEATURE_MODUTILS_SYMBOLS
209	if (!(option_mask32 & ARG_n))
210	xfreopen_write("modules.symbols", stdout);
211	for (m = modules; m != NULL; m = m->next) {
212	while (m->symbols) {
213	printf("alias symbol:%s %s\n",
214	(char*)llist_pop(&m->symbols),
215	m->modname);
216	}
217	}
218	#endif
219
220	if (ENABLE_FEATURE_CLEAN_UP) {
221	while (modules) {
222	module_info *old = modules;
223	modules = modules->next;
224	free(old->name);
225	free(old->modname);
226	free(old);
227	}
228	}
229
230	return EXIT_SUCCESS;
231	}