initramfs.c 13.8 KB
Newer Older
1 2 3 4 5 6 7 8 9 10
/*
 * Many of the syscalls used in this file expect some of the arguments
 * to be __user pointers not __kernel pointers.  To limit the sparse
 * noise, turn off sparse checking for this file.
 */
#ifdef __CHECKER__
#undef __CHECKER__
#warning "Sparse checking disabled for this file"
#endif

Linus Torvalds's avatar
Linus Torvalds committed
11 12 13 14 15 16 17
#include <linux/init.h>
#include <linux/fs.h>
#include <linux/slab.h>
#include <linux/types.h>
#include <linux/fcntl.h>
#include <linux/delay.h>
#include <linux/string.h>
18
#include <linux/dirent.h>
Linus Torvalds's avatar
Linus Torvalds committed
19
#include <linux/syscalls.h>
20
#include <linux/utime.h>
Linus Torvalds's avatar
Linus Torvalds committed
21

22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
static ssize_t __init xwrite(int fd, const char *p, size_t count)
{
	ssize_t out = 0;

	/* sys_write only can write MAX_RW_COUNT aka 2G-4K bytes at most */
	while (count) {
		ssize_t rv = sys_write(fd, p, count);

		if (rv < 0) {
			if (rv == -EINTR || rv == -EAGAIN)
				continue;
			return out ? out : rv;
		} else if (rv == 0)
			break;

		p += rv;
		out += rv;
		count -= rv;
	}

	return out;
}

Linus Torvalds's avatar
Linus Torvalds committed
45 46 47 48 49 50 51 52 53
static __initdata char *message;
static void __init error(char *x)
{
	if (!message)
		message = x;
}

/* link hash */

54 55
#define N_ALIGN(len) ((((len) + 1) & ~3) + 2)

Linus Torvalds's avatar
Linus Torvalds committed
56 57
static __initdata struct hash {
	int ino, minor, major;
58
	umode_t mode;
Linus Torvalds's avatar
Linus Torvalds committed
59
	struct hash *next;
60
	char name[N_ALIGN(PATH_MAX)];
Linus Torvalds's avatar
Linus Torvalds committed
61 62 63 64 65 66 67 68 69
} *head[32];

static inline int hash(int major, int minor, int ino)
{
	unsigned long tmp = ino + minor + (major << 3);
	tmp += tmp >> 5;
	return tmp & 31;
}

70
static char __init *find_link(int major, int minor, int ino,
71
			      umode_t mode, char *name)
Linus Torvalds's avatar
Linus Torvalds committed
72 73 74 75 76 77 78 79 80
{
	struct hash **p, *q;
	for (p = head + hash(major, minor, ino); *p; p = &(*p)->next) {
		if ((*p)->ino != ino)
			continue;
		if ((*p)->minor != minor)
			continue;
		if ((*p)->major != major)
			continue;
81 82
		if (((*p)->mode ^ mode) & S_IFMT)
			continue;
Linus Torvalds's avatar
Linus Torvalds committed
83 84
		return (*p)->name;
	}
85
	q = kmalloc(sizeof(struct hash), GFP_KERNEL);
Linus Torvalds's avatar
Linus Torvalds committed
86 87 88
	if (!q)
		panic("can't allocate link hash entry");
	q->major = major;
89 90 91
	q->minor = minor;
	q->ino = ino;
	q->mode = mode;
92
	strcpy(q->name, name);
Linus Torvalds's avatar
Linus Torvalds committed
93 94 95 96 97 98 99 100 101 102 103 104
	q->next = NULL;
	*p = q;
	return NULL;
}

static void __init free_hash(void)
{
	struct hash **p, *q;
	for (p = head; p < head + 32; p++) {
		while (*p) {
			q = *p;
			*p = q->next;
105
			kfree(q);
Linus Torvalds's avatar
Linus Torvalds committed
106 107 108 109
		}
	}
}

110
static long __init do_utime(char *filename, time_t mtime)
111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152
{
	struct timespec t[2];

	t[0].tv_sec = mtime;
	t[0].tv_nsec = 0;
	t[1].tv_sec = mtime;
	t[1].tv_nsec = 0;

	return do_utimes(AT_FDCWD, filename, t, AT_SYMLINK_NOFOLLOW);
}

static __initdata LIST_HEAD(dir_list);
struct dir_entry {
	struct list_head list;
	char *name;
	time_t mtime;
};

static void __init dir_add(const char *name, time_t mtime)
{
	struct dir_entry *de = kmalloc(sizeof(struct dir_entry), GFP_KERNEL);
	if (!de)
		panic("can't allocate dir_entry buffer");
	INIT_LIST_HEAD(&de->list);
	de->name = kstrdup(name, GFP_KERNEL);
	de->mtime = mtime;
	list_add(&de->list, &dir_list);
}

static void __init dir_utime(void)
{
	struct dir_entry *de, *tmp;
	list_for_each_entry_safe(de, tmp, &dir_list, list) {
		list_del(&de->list);
		do_utime(de->name, de->mtime);
		kfree(de->name);
		kfree(de);
	}
}

static __initdata time_t mtime;

Linus Torvalds's avatar
Linus Torvalds committed
153 154 155
/* cpio header parsing */

static __initdata unsigned long ino, major, minor, nlink;
156
static __initdata umode_t mode;
Linus Torvalds's avatar
Linus Torvalds committed
157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177
static __initdata unsigned long body_len, name_len;
static __initdata uid_t uid;
static __initdata gid_t gid;
static __initdata unsigned rdev;

static void __init parse_header(char *s)
{
	unsigned long parsed[12];
	char buf[9];
	int i;

	buf[8] = '\0';
	for (i = 0, s += 6; i < 12; i++, s += 8) {
		memcpy(buf, s, 8);
		parsed[i] = simple_strtoul(buf, NULL, 16);
	}
	ino = parsed[0];
	mode = parsed[1];
	uid = parsed[2];
	gid = parsed[3];
	nlink = parsed[4];
178
	mtime = parsed[5];
Linus Torvalds's avatar
Linus Torvalds committed
179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199
	body_len = parsed[6];
	major = parsed[7];
	minor = parsed[8];
	rdev = new_encode_dev(MKDEV(parsed[9], parsed[10]));
	name_len = parsed[11];
}

/* FSM */

static __initdata enum state {
	Start,
	Collect,
	GotHeader,
	SkipIt,
	GotName,
	CopyFile,
	GotSymlink,
	Reset
} state, next_state;

static __initdata char *victim;
200
static unsigned long byte_count __initdata;
Linus Torvalds's avatar
Linus Torvalds committed
201 202
static __initdata loff_t this_header, next_header;

Al Viro's avatar
Al Viro committed
203
static inline void __init eat(unsigned n)
Linus Torvalds's avatar
Linus Torvalds committed
204 205 206
{
	victim += n;
	this_header += n;
207
	byte_count -= n;
Linus Torvalds's avatar
Linus Torvalds committed
208 209
}

210
static __initdata char *vcollected;
Linus Torvalds's avatar
Linus Torvalds committed
211
static __initdata char *collected;
212
static long remains __initdata;
Linus Torvalds's avatar
Linus Torvalds committed
213 214 215 216
static __initdata char *collect;

static void __init read_into(char *buf, unsigned size, enum state next)
{
217
	if (byte_count >= size) {
Linus Torvalds's avatar
Linus Torvalds committed
218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238
		collected = victim;
		eat(size);
		state = next;
	} else {
		collect = collected = buf;
		remains = size;
		next_state = next;
		state = Collect;
	}
}

static __initdata char *header_buf, *symlink_buf, *name_buf;

static int __init do_start(void)
{
	read_into(header_buf, 110, GotHeader);
	return 0;
}

static int __init do_collect(void)
{
239
	unsigned long n = remains;
240 241
	if (byte_count < n)
		n = byte_count;
Linus Torvalds's avatar
Linus Torvalds committed
242 243 244 245 246 247 248 249 250 251 252
	memcpy(collect, victim, n);
	eat(n);
	collect += n;
	if ((remains -= n) != 0)
		return 1;
	state = next_state;
	return 0;
}

static int __init do_header(void)
{
253 254 255 256
	if (memcmp(collected, "070707", 6)==0) {
		error("incorrect cpio method used: use -H newc option");
		return 1;
	}
Linus Torvalds's avatar
Linus Torvalds committed
257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282
	if (memcmp(collected, "070701", 6)) {
		error("no cpio magic");
		return 1;
	}
	parse_header(collected);
	next_header = this_header + N_ALIGN(name_len) + body_len;
	next_header = (next_header + 3) & ~3;
	state = SkipIt;
	if (name_len <= 0 || name_len > PATH_MAX)
		return 0;
	if (S_ISLNK(mode)) {
		if (body_len > PATH_MAX)
			return 0;
		collect = collected = symlink_buf;
		remains = N_ALIGN(name_len) + body_len;
		next_state = GotSymlink;
		state = Collect;
		return 0;
	}
	if (S_ISREG(mode) || !body_len)
		read_into(name_buf, N_ALIGN(name_len), GotName);
	return 0;
}

static int __init do_skip(void)
{
283 284
	if (this_header + byte_count < next_header) {
		eat(byte_count);
Linus Torvalds's avatar
Linus Torvalds committed
285 286 287 288 289 290 291 292 293 294
		return 1;
	} else {
		eat(next_header - this_header);
		state = next_state;
		return 0;
	}
}

static int __init do_reset(void)
{
295
	while (byte_count && *victim == '\0')
Linus Torvalds's avatar
Linus Torvalds committed
296
		eat(1);
297
	if (byte_count && (this_header & 3))
Linus Torvalds's avatar
Linus Torvalds committed
298 299 300 301 302 303 304
		error("broken padding");
	return 1;
}

static int __init maybe_link(void)
{
	if (nlink >= 2) {
305
		char *old = find_link(major, minor, ino, mode, collected);
Linus Torvalds's avatar
Linus Torvalds committed
306 307 308 309 310 311
		if (old)
			return (sys_link(old, collected) < 0) ? -1 : 1;
	}
	return 0;
}

312
static void __init clean_path(char *path, umode_t fmode)
313 314 315
{
	struct stat st;

316
	if (!sys_newlstat(path, &st) && (st.st_mode ^ fmode) & S_IFMT) {
317 318 319 320 321 322 323
		if (S_ISDIR(st.st_mode))
			sys_rmdir(path);
		else
			sys_unlink(path);
	}
}

Linus Torvalds's avatar
Linus Torvalds committed
324 325 326 327 328 329 330 331 332 333
static __initdata int wfd;

static int __init do_name(void)
{
	state = SkipIt;
	next_state = Reset;
	if (strcmp(collected, "TRAILER!!!") == 0) {
		free_hash();
		return 0;
	}
334
	clean_path(collected, mode);
Linus Torvalds's avatar
Linus Torvalds committed
335
	if (S_ISREG(mode)) {
336 337 338 339 340 341 342
		int ml = maybe_link();
		if (ml >= 0) {
			int openflags = O_WRONLY|O_CREAT;
			if (ml != 1)
				openflags |= O_TRUNC;
			wfd = sys_open(collected, openflags, mode);

Linus Torvalds's avatar
Linus Torvalds committed
343 344 345
			if (wfd >= 0) {
				sys_fchown(wfd, uid, gid);
				sys_fchmod(wfd, mode);
346 347
				if (body_len)
					sys_ftruncate(wfd, body_len);
348
				vcollected = kstrdup(collected, GFP_KERNEL);
Linus Torvalds's avatar
Linus Torvalds committed
349 350 351 352 353 354 355
				state = CopyFile;
			}
		}
	} else if (S_ISDIR(mode)) {
		sys_mkdir(collected, mode);
		sys_chown(collected, uid, gid);
		sys_chmod(collected, mode);
356
		dir_add(collected, mtime);
Linus Torvalds's avatar
Linus Torvalds committed
357 358 359 360 361 362
	} else if (S_ISBLK(mode) || S_ISCHR(mode) ||
		   S_ISFIFO(mode) || S_ISSOCK(mode)) {
		if (maybe_link() == 0) {
			sys_mknod(collected, mode, rdev);
			sys_chown(collected, uid, gid);
			sys_chmod(collected, mode);
363
			do_utime(collected, mtime);
Linus Torvalds's avatar
Linus Torvalds committed
364 365 366 367 368 369 370
		}
	}
	return 0;
}

static int __init do_copy(void)
{
371
	if (byte_count >= body_len) {
372 373
		if (xwrite(wfd, victim, body_len) != body_len)
			error("write error");
Linus Torvalds's avatar
Linus Torvalds committed
374
		sys_close(wfd);
375 376
		do_utime(vcollected, mtime);
		kfree(vcollected);
Linus Torvalds's avatar
Linus Torvalds committed
377 378 379 380
		eat(body_len);
		state = SkipIt;
		return 0;
	} else {
381
		if (xwrite(wfd, victim, byte_count) != byte_count)
382
			error("write error");
383 384
		body_len -= byte_count;
		eat(byte_count);
Linus Torvalds's avatar
Linus Torvalds committed
385 386 387 388 389 390 391
		return 1;
	}
}

static int __init do_symlink(void)
{
	collected[N_ALIGN(name_len) + body_len] = '\0';
392
	clean_path(collected, 0);
Linus Torvalds's avatar
Linus Torvalds committed
393 394
	sys_symlink(collected + N_ALIGN(name_len), collected);
	sys_lchown(collected, uid, gid);
395
	do_utime(collected, mtime);
Linus Torvalds's avatar
Linus Torvalds committed
396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411
	state = SkipIt;
	next_state = Reset;
	return 0;
}

static __initdata int (*actions[])(void) = {
	[Start]		= do_start,
	[Collect]	= do_collect,
	[GotHeader]	= do_header,
	[SkipIt]	= do_skip,
	[GotName]	= do_name,
	[CopyFile]	= do_copy,
	[GotSymlink]	= do_symlink,
	[Reset]		= do_reset,
};

412
static long __init write_buffer(char *buf, unsigned long len)
Linus Torvalds's avatar
Linus Torvalds committed
413
{
414
	byte_count = len;
Linus Torvalds's avatar
Linus Torvalds committed
415 416 417 418
	victim = buf;

	while (!actions[state]())
		;
419
	return len - byte_count;
Linus Torvalds's avatar
Linus Torvalds committed
420 421
}

422
static long __init flush_buffer(void *bufv, unsigned long len)
Linus Torvalds's avatar
Linus Torvalds committed
423
{
424
	char *buf = (char *) bufv;
425 426
	long written;
	long origLen = len;
Linus Torvalds's avatar
Linus Torvalds committed
427
	if (message)
428
		return -1;
Linus Torvalds's avatar
Linus Torvalds committed
429 430 431 432 433 434 435 436 437 438 439 440 441
	while ((written = write_buffer(buf, len)) < len && !message) {
		char c = buf[written];
		if (c == '0') {
			buf += written;
			len -= written;
			state = Start;
		} else if (c == 0) {
			buf += written;
			len -= written;
			state = Reset;
		} else
			error("junk in compressed archive");
	}
442
	return origLen;
Linus Torvalds's avatar
Linus Torvalds committed
443 444
}

445
static unsigned long my_inptr; /* index of next byte to be processed in inbuf */
Linus Torvalds's avatar
Linus Torvalds committed
446

447
#include <linux/decompress/generic.h>
Linus Torvalds's avatar
Linus Torvalds committed
448

449
static char * __init unpack_to_rootfs(char *buf, unsigned long len)
Linus Torvalds's avatar
Linus Torvalds committed
450
{
451
	long written;
452
	decompress_fn decompress;
453 454
	const char *compress_name;
	static __initdata char msg_buf[64];
455

456 457 458
	header_buf = kmalloc(110, GFP_KERNEL);
	symlink_buf = kmalloc(PATH_MAX + N_ALIGN(PATH_MAX) + 1, GFP_KERNEL);
	name_buf = kmalloc(N_ALIGN(PATH_MAX), GFP_KERNEL);
459 460

	if (!header_buf || !symlink_buf || !name_buf)
Linus Torvalds's avatar
Linus Torvalds committed
461
		panic("can't allocate buffers");
462

Linus Torvalds's avatar
Linus Torvalds committed
463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481
	state = Start;
	this_header = 0;
	message = NULL;
	while (!message && len) {
		loff_t saved_offset = this_header;
		if (*buf == '0' && !(this_header & 3)) {
			state = Start;
			written = write_buffer(buf, len);
			buf += written;
			len -= written;
			continue;
		}
		if (!*buf) {
			buf++;
			len--;
			this_header++;
			continue;
		}
		this_header = 0;
482
		decompress = decompress_method(buf, len, &compress_name);
483
		pr_debug("Detected %s compressed data\n", compress_name);
484
		if (decompress) {
485
			int res = decompress(buf, len, NULL, flush_buffer, NULL,
486
				   &my_inptr, error);
487 488 489
			if (res)
				error("decompressor failed");
		} else if (compress_name) {
490 491 492 493 494 495
			if (!message) {
				snprintf(msg_buf, sizeof msg_buf,
					 "compression method %s not configured",
					 compress_name);
				message = msg_buf;
			}
496 497
		} else
			error("junk in compressed archive");
Linus Torvalds's avatar
Linus Torvalds committed
498
		if (state != Reset)
499 500 501 502
			error("junk in compressed archive");
		this_header = saved_offset + my_inptr;
		buf += my_inptr;
		len -= my_inptr;
Linus Torvalds's avatar
Linus Torvalds committed
503
	}
504
	dir_utime();
505 506 507
	kfree(name_buf);
	kfree(symlink_buf);
	kfree(header_buf);
Linus Torvalds's avatar
Linus Torvalds committed
508 509 510
	return message;
}

511 512 513 514 515 516 517 518 519 520 521
static int __initdata do_retain_initrd;

static int __init retain_initrd_param(char *str)
{
	if (*str)
		return 0;
	do_retain_initrd = 1;
	return 1;
}
__setup("retain_initrd", retain_initrd_param);

522 523
extern char __initramfs_start[];
extern unsigned long __initramfs_size;
Linus Torvalds's avatar
Linus Torvalds committed
524
#include <linux/initrd.h>
525
#include <linux/kexec.h>
526 527 528

static void __init free_initrd(void)
{
529
#ifdef CONFIG_KEXEC_CORE
530 531
	unsigned long crashk_start = (unsigned long)__va(crashk_res.start);
	unsigned long crashk_end   = (unsigned long)__va(crashk_res.end);
532 533 534
#endif
	if (do_retain_initrd)
		goto skip;
535

536
#ifdef CONFIG_KEXEC_CORE
537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553
	/*
	 * If the initrd region is overlapped with crashkernel reserved region,
	 * free only memory that is not part of crashkernel region.
	 */
	if (initrd_start < crashk_end && initrd_end > crashk_start) {
		/*
		 * Initialize initrd memory region since the kexec boot does
		 * not do.
		 */
		memset((void *)initrd_start, 0, initrd_end - initrd_start);
		if (initrd_start < crashk_start)
			free_initrd_mem(initrd_start, crashk_start);
		if (initrd_end > crashk_end)
			free_initrd_mem(crashk_end, initrd_end);
	} else
#endif
		free_initrd_mem(initrd_start, initrd_end);
554
skip:
555 556 557 558
	initrd_start = 0;
	initrd_end = 0;
}

559
#ifdef CONFIG_BLK_DEV_RAM
560 561 562 563 564 565
#define BUF_SIZE 1024
static void __init clean_rootfs(void)
{
	int fd;
	void *buf;
	struct linux_dirent64 *dirp;
566
	int num;
567

568
	fd = sys_open("/", O_RDONLY, 0);
569 570 571 572 573 574 575 576 577 578 579
	WARN_ON(fd < 0);
	if (fd < 0)
		return;
	buf = kzalloc(BUF_SIZE, GFP_KERNEL);
	WARN_ON(!buf);
	if (!buf) {
		sys_close(fd);
		return;
	}

	dirp = buf;
580 581 582
	num = sys_getdents64(fd, dirp, BUF_SIZE);
	while (num > 0) {
		while (num > 0) {
583 584 585 586 587 588 589 590 591 592 593 594
			struct stat st;
			int ret;

			ret = sys_newlstat(dirp->d_name, &st);
			WARN_ON_ONCE(ret);
			if (!ret) {
				if (S_ISDIR(st.st_mode))
					sys_rmdir(dirp->d_name);
				else
					sys_unlink(dirp->d_name);
			}

595
			num -= dirp->d_reclen;
596 597 598 599
			dirp = (void *)dirp + dirp->d_reclen;
		}
		dirp = buf;
		memset(buf, 0, BUF_SIZE);
600
		num = sys_getdents64(fd, dirp, BUF_SIZE);
601 602 603 604 605
	}

	sys_close(fd);
	kfree(buf);
}
606
#endif
607

608
static int __init populate_rootfs(void)
Linus Torvalds's avatar
Linus Torvalds committed
609
{
610
	char *err = unpack_to_rootfs(__initramfs_start, __initramfs_size);
Linus Torvalds's avatar
Linus Torvalds committed
611
	if (err)
612
		panic("%s", err); /* Failed to decompress INTERNAL initramfs */
Linus Torvalds's avatar
Linus Torvalds committed
613
	if (initrd_start) {
614
#ifdef CONFIG_BLK_DEV_RAM
Linus Torvalds's avatar
Linus Torvalds committed
615
		int fd;
616
		printk(KERN_INFO "Trying to unpack rootfs image as initramfs...\n");
Linus Torvalds's avatar
Linus Torvalds committed
617
		err = unpack_to_rootfs((char *)initrd_start,
618
			initrd_end - initrd_start);
Linus Torvalds's avatar
Linus Torvalds committed
619
		if (!err) {
620
			free_initrd();
621
			goto done;
622 623
		} else {
			clean_rootfs();
624
			unpack_to_rootfs(__initramfs_start, __initramfs_size);
Linus Torvalds's avatar
Linus Torvalds committed
625
		}
626 627
		printk(KERN_INFO "rootfs image is not initramfs (%s)"
				"; looks like an initrd\n", err);
628
		fd = sys_open("/initrd.image",
629
			      O_WRONLY|O_CREAT, 0700);
Linus Torvalds's avatar
Linus Torvalds committed
630
		if (fd >= 0) {
631 632 633 634 635 636 637
			ssize_t written = xwrite(fd, (char *)initrd_start,
						initrd_end - initrd_start);

			if (written != initrd_end - initrd_start)
				pr_err("/initrd.image: incomplete write (%zd != %ld)\n",
				       written, initrd_end - initrd_start);

Linus Torvalds's avatar
Linus Torvalds committed
638
			sys_close(fd);
639
			free_initrd();
Linus Torvalds's avatar
Linus Torvalds committed
640
		}
641
	done:
642
#else
643
		printk(KERN_INFO "Unpacking initramfs...\n");
644
		err = unpack_to_rootfs((char *)initrd_start,
645
			initrd_end - initrd_start);
646 647
		if (err)
			printk(KERN_EMERG "Initramfs unpacking failed: %s\n", err);
648 649
		free_initrd();
#endif
650 651 652 653 654
		/*
		 * Try loading default modules from initramfs.  This gives
		 * us a chance to load before device_initcalls.
		 */
		load_default_modules();
Linus Torvalds's avatar
Linus Torvalds committed
655
	}
656
	return 0;
Linus Torvalds's avatar
Linus Torvalds committed
657
}
658
rootfs_initcall(populate_rootfs);