Squashfs: initrd support
[linux-2.6.git] / init / do_mounts_rd.c
1
2 #include <linux/kernel.h>
3 #include <linux/fs.h>
4 #include <linux/minix_fs.h>
5 #include <linux/ext2_fs.h>
6 #include <linux/romfs_fs.h>
7 #include <linux/cramfs_fs.h>
8 #include <linux/initrd.h>
9 #include <linux/string.h>
10
11 #include "do_mounts.h"
12 #include "../fs/squashfs/squashfs_fs.h"
13
14 int __initdata rd_prompt = 1;/* 1 = prompt for RAM disk, 0 = don't prompt */
15
16 static int __init prompt_ramdisk(char *str)
17 {
18         rd_prompt = simple_strtol(str,NULL,0) & 1;
19         return 1;
20 }
21 __setup("prompt_ramdisk=", prompt_ramdisk);
22
23 int __initdata rd_image_start;          /* starting block # of image */
24
25 static int __init ramdisk_start_setup(char *str)
26 {
27         rd_image_start = simple_strtol(str,NULL,0);
28         return 1;
29 }
30 __setup("ramdisk_start=", ramdisk_start_setup);
31
32 static int __init crd_load(int in_fd, int out_fd);
33
34 /*
35  * This routine tries to find a RAM disk image to load, and returns the
36  * number of blocks to read for a non-compressed image, 0 if the image
37  * is a compressed image, and -1 if an image with the right magic
38  * numbers could not be found.
39  *
40  * We currently check for the following magic numbers:
41  *      minix
42  *      ext2
43  *      romfs
44  *      cramfs
45  *      squashfs
46  *      gzip
47  */
48 static int __init 
49 identify_ramdisk_image(int fd, int start_block)
50 {
51         const int size = 512;
52         struct minix_super_block *minixsb;
53         struct ext2_super_block *ext2sb;
54         struct romfs_super_block *romfsb;
55         struct cramfs_super *cramfsb;
56         struct squashfs_super_block *squashfsb;
57         int nblocks = -1;
58         unsigned char *buf;
59
60         buf = kmalloc(size, GFP_KERNEL);
61         if (!buf)
62                 return -1;
63
64         minixsb = (struct minix_super_block *) buf;
65         ext2sb = (struct ext2_super_block *) buf;
66         romfsb = (struct romfs_super_block *) buf;
67         cramfsb = (struct cramfs_super *) buf;
68         squashfsb = (struct squashfs_super_block *) buf;
69         memset(buf, 0xe5, size);
70
71         /*
72          * Read block 0 to test for gzipped kernel
73          */
74         sys_lseek(fd, start_block * BLOCK_SIZE, 0);
75         sys_read(fd, buf, size);
76
77         /*
78          * If it matches the gzip magic numbers, return 0
79          */
80         if (buf[0] == 037 && ((buf[1] == 0213) || (buf[1] == 0236))) {
81                 printk(KERN_NOTICE
82                        "RAMDISK: Compressed image found at block %d\n",
83                        start_block);
84                 nblocks = 0;
85                 goto done;
86         }
87
88         /* romfs is at block zero too */
89         if (romfsb->word0 == ROMSB_WORD0 &&
90             romfsb->word1 == ROMSB_WORD1) {
91                 printk(KERN_NOTICE
92                        "RAMDISK: romfs filesystem found at block %d\n",
93                        start_block);
94                 nblocks = (ntohl(romfsb->size)+BLOCK_SIZE-1)>>BLOCK_SIZE_BITS;
95                 goto done;
96         }
97
98         if (cramfsb->magic == CRAMFS_MAGIC) {
99                 printk(KERN_NOTICE
100                        "RAMDISK: cramfs filesystem found at block %d\n",
101                        start_block);
102                 nblocks = (cramfsb->size + BLOCK_SIZE - 1) >> BLOCK_SIZE_BITS;
103                 goto done;
104         }
105
106         /* squashfs is at block zero too */
107         if (le32_to_cpu(squashfsb->s_magic) == SQUASHFS_MAGIC) {
108                 printk(KERN_NOTICE
109                        "RAMDISK: squashfs filesystem found at block %d\n",
110                        start_block);
111                 nblocks = (le64_to_cpu(squashfsb->bytes_used) + BLOCK_SIZE - 1)
112                          >> BLOCK_SIZE_BITS;
113                 goto done;
114         }
115
116         /*
117          * Read block 1 to test for minix and ext2 superblock
118          */
119         sys_lseek(fd, (start_block+1) * BLOCK_SIZE, 0);
120         sys_read(fd, buf, size);
121
122         /* Try minix */
123         if (minixsb->s_magic == MINIX_SUPER_MAGIC ||
124             minixsb->s_magic == MINIX_SUPER_MAGIC2) {
125                 printk(KERN_NOTICE
126                        "RAMDISK: Minix filesystem found at block %d\n",
127                        start_block);
128                 nblocks = minixsb->s_nzones << minixsb->s_log_zone_size;
129                 goto done;
130         }
131
132         /* Try ext2 */
133         if (ext2sb->s_magic == cpu_to_le16(EXT2_SUPER_MAGIC)) {
134                 printk(KERN_NOTICE
135                        "RAMDISK: ext2 filesystem found at block %d\n",
136                        start_block);
137                 nblocks = le32_to_cpu(ext2sb->s_blocks_count) <<
138                         le32_to_cpu(ext2sb->s_log_block_size);
139                 goto done;
140         }
141
142         printk(KERN_NOTICE
143                "RAMDISK: Couldn't find valid RAM disk image starting at %d.\n",
144                start_block);
145         
146 done:
147         sys_lseek(fd, start_block * BLOCK_SIZE, 0);
148         kfree(buf);
149         return nblocks;
150 }
151
152 int __init rd_load_image(char *from)
153 {
154         int res = 0;
155         int in_fd, out_fd;
156         unsigned long rd_blocks, devblocks;
157         int nblocks, i, disk;
158         char *buf = NULL;
159         unsigned short rotate = 0;
160 #if !defined(CONFIG_S390) && !defined(CONFIG_PPC_ISERIES)
161         char rotator[4] = { '|' , '/' , '-' , '\\' };
162 #endif
163
164         out_fd = sys_open("/dev/ram", O_RDWR, 0);
165         if (out_fd < 0)
166                 goto out;
167
168         in_fd = sys_open(from, O_RDONLY, 0);
169         if (in_fd < 0)
170                 goto noclose_input;
171
172         nblocks = identify_ramdisk_image(in_fd, rd_image_start);
173         if (nblocks < 0)
174                 goto done;
175
176         if (nblocks == 0) {
177                 if (crd_load(in_fd, out_fd) == 0)
178                         goto successful_load;
179                 goto done;
180         }
181
182         /*
183          * NOTE NOTE: nblocks is not actually blocks but
184          * the number of kibibytes of data to load into a ramdisk.
185          * So any ramdisk block size that is a multiple of 1KiB should
186          * work when the appropriate ramdisk_blocksize is specified
187          * on the command line.
188          *
189          * The default ramdisk_blocksize is 1KiB and it is generally
190          * silly to use anything else, so make sure to use 1KiB
191          * blocksize while generating ext2fs ramdisk-images.
192          */
193         if (sys_ioctl(out_fd, BLKGETSIZE, (unsigned long)&rd_blocks) < 0)
194                 rd_blocks = 0;
195         else
196                 rd_blocks >>= 1;
197
198         if (nblocks > rd_blocks) {
199                 printk("RAMDISK: image too big! (%dKiB/%ldKiB)\n",
200                        nblocks, rd_blocks);
201                 goto done;
202         }
203                 
204         /*
205          * OK, time to copy in the data
206          */
207         if (sys_ioctl(in_fd, BLKGETSIZE, (unsigned long)&devblocks) < 0)
208                 devblocks = 0;
209         else
210                 devblocks >>= 1;
211
212         if (strcmp(from, "/initrd.image") == 0)
213                 devblocks = nblocks;
214
215         if (devblocks == 0) {
216                 printk(KERN_ERR "RAMDISK: could not determine device size\n");
217                 goto done;
218         }
219
220         buf = kmalloc(BLOCK_SIZE, GFP_KERNEL);
221         if (!buf) {
222                 printk(KERN_ERR "RAMDISK: could not allocate buffer\n");
223                 goto done;
224         }
225
226         printk(KERN_NOTICE "RAMDISK: Loading %dKiB [%ld disk%s] into ram disk... ",
227                 nblocks, ((nblocks-1)/devblocks)+1, nblocks>devblocks ? "s" : "");
228         for (i = 0, disk = 1; i < nblocks; i++) {
229                 if (i && (i % devblocks == 0)) {
230                         printk("done disk #%d.\n", disk++);
231                         rotate = 0;
232                         if (sys_close(in_fd)) {
233                                 printk("Error closing the disk.\n");
234                                 goto noclose_input;
235                         }
236                         change_floppy("disk #%d", disk);
237                         in_fd = sys_open(from, O_RDONLY, 0);
238                         if (in_fd < 0)  {
239                                 printk("Error opening disk.\n");
240                                 goto noclose_input;
241                         }
242                         printk("Loading disk #%d... ", disk);
243                 }
244                 sys_read(in_fd, buf, BLOCK_SIZE);
245                 sys_write(out_fd, buf, BLOCK_SIZE);
246 #if !defined(CONFIG_S390) && !defined(CONFIG_PPC_ISERIES)
247                 if (!(i % 16)) {
248                         printk("%c\b", rotator[rotate & 0x3]);
249                         rotate++;
250                 }
251 #endif
252         }
253         printk("done.\n");
254
255 successful_load:
256         res = 1;
257 done:
258         sys_close(in_fd);
259 noclose_input:
260         sys_close(out_fd);
261 out:
262         kfree(buf);
263         sys_unlink("/dev/ram");
264         return res;
265 }
266
267 int __init rd_load_disk(int n)
268 {
269         if (rd_prompt)
270                 change_floppy("root floppy disk to be loaded into RAM disk");
271         create_dev("/dev/root", ROOT_DEV);
272         create_dev("/dev/ram", MKDEV(RAMDISK_MAJOR, n));
273         return rd_load_image("/dev/root");
274 }
275
276 /*
277  * gzip declarations
278  */
279
280 #define OF(args)  args
281
282 #ifndef memzero
283 #define memzero(s, n)     memset ((s), 0, (n))
284 #endif
285
286 typedef unsigned char  uch;
287 typedef unsigned short ush;
288 typedef unsigned long  ulg;
289
290 #define INBUFSIZ 4096
291 #define WSIZE 0x8000    /* window size--must be a power of two, and */
292                         /*  at least 32K for zip's deflate method */
293
294 static uch *inbuf;
295 static uch *window;
296
297 static unsigned insize;  /* valid bytes in inbuf */
298 static unsigned inptr;   /* index of next byte to be processed in inbuf */
299 static unsigned outcnt;  /* bytes in output buffer */
300 static int exit_code;
301 static int unzip_error;
302 static long bytes_out;
303 static int crd_infd, crd_outfd;
304
305 #define get_byte()  (inptr < insize ? inbuf[inptr++] : fill_inbuf())
306                 
307 /* Diagnostic functions (stubbed out) */
308 #define Assert(cond,msg)
309 #define Trace(x)
310 #define Tracev(x)
311 #define Tracevv(x)
312 #define Tracec(c,x)
313 #define Tracecv(c,x)
314
315 #define STATIC static
316 #define INIT __init
317
318 static int  __init fill_inbuf(void);
319 static void __init flush_window(void);
320 static void __init error(char *m);
321
322 #define NO_INFLATE_MALLOC
323
324 #include "../lib/inflate.c"
325
326 /* ===========================================================================
327  * Fill the input buffer. This is called only when the buffer is empty
328  * and at least one byte is really needed.
329  * Returning -1 does not guarantee that gunzip() will ever return.
330  */
331 static int __init fill_inbuf(void)
332 {
333         if (exit_code) return -1;
334         
335         insize = sys_read(crd_infd, inbuf, INBUFSIZ);
336         if (insize == 0) {
337                 error("RAMDISK: ran out of compressed data");
338                 return -1;
339         }
340
341         inptr = 1;
342
343         return inbuf[0];
344 }
345
346 /* ===========================================================================
347  * Write the output window window[0..outcnt-1] and update crc and bytes_out.
348  * (Used for the decompressed data only.)
349  */
350 static void __init flush_window(void)
351 {
352     ulg c = crc;         /* temporary variable */
353     unsigned n, written;
354     uch *in, ch;
355     
356     written = sys_write(crd_outfd, window, outcnt);
357     if (written != outcnt && unzip_error == 0) {
358         printk(KERN_ERR "RAMDISK: incomplete write (%d != %d) %ld\n",
359                written, outcnt, bytes_out);
360         unzip_error = 1;
361     }
362     in = window;
363     for (n = 0; n < outcnt; n++) {
364             ch = *in++;
365             c = crc_32_tab[((int)c ^ ch) & 0xff] ^ (c >> 8);
366     }
367     crc = c;
368     bytes_out += (ulg)outcnt;
369     outcnt = 0;
370 }
371
372 static void __init error(char *x)
373 {
374         printk(KERN_ERR "%s\n", x);
375         exit_code = 1;
376         unzip_error = 1;
377 }
378
379 static int __init crd_load(int in_fd, int out_fd)
380 {
381         int result;
382
383         insize = 0;             /* valid bytes in inbuf */
384         inptr = 0;              /* index of next byte to be processed in inbuf */
385         outcnt = 0;             /* bytes in output buffer */
386         exit_code = 0;
387         bytes_out = 0;
388         crc = (ulg)0xffffffffL; /* shift register contents */
389
390         crd_infd = in_fd;
391         crd_outfd = out_fd;
392         inbuf = kmalloc(INBUFSIZ, GFP_KERNEL);
393         if (!inbuf) {
394                 printk(KERN_ERR "RAMDISK: Couldn't allocate gzip buffer\n");
395                 return -1;
396         }
397         window = kmalloc(WSIZE, GFP_KERNEL);
398         if (!window) {
399                 printk(KERN_ERR "RAMDISK: Couldn't allocate gzip window\n");
400                 kfree(inbuf);
401                 return -1;
402         }
403         makecrc();
404         result = gunzip();
405         if (unzip_error)
406                 result = 1;
407         kfree(inbuf);
408         kfree(window);
409         return result;
410 }