3 * esd gmbh <www.esd-electronics.com>
4 * Reinhard Arlt <reinhard.arlt@esd-electronics.com>
6 * based on code from grub2 fs/ext2.c and fs/fshelp.c by
8 * GRUB -- GRand Unified Bootloader
9 * Copyright (C) 2003, 2004 Free Software Foundation, Inc.
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 2 of the License, or
14 * (at your option) any later version.
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, write to the Free Software
23 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
29 #include <asm/byteorder.h>
31 extern int ext2fs_devread (int sector
, int byte_offset
, int byte_len
,
34 /* Magic value used to identify an ext2 filesystem. */
35 #define EXT2_MAGIC 0xEF53
36 /* Amount of indirect blocks in an inode. */
37 #define INDIRECT_BLOCKS 12
38 /* Maximum lenght of a pathname. */
39 #define EXT2_PATH_MAX 4096
40 /* Maximum nesting of symlinks, used to prevent a loop. */
41 #define EXT2_MAX_SYMLINKCNT 8
43 /* Filetype used in directory entry. */
44 #define FILETYPE_UNKNOWN 0
45 #define FILETYPE_REG 1
46 #define FILETYPE_DIRECTORY 2
47 #define FILETYPE_SYMLINK 7
49 /* Filetype information as used in inodes. */
50 #define FILETYPE_INO_MASK 0170000
51 #define FILETYPE_INO_REG 0100000
52 #define FILETYPE_INO_DIRECTORY 0040000
53 #define FILETYPE_INO_SYMLINK 0120000
55 /* Bits used as offset in sector */
56 #define DISK_SECTOR_BITS 9
58 /* Log2 size of ext2 block in 512 blocks. */
59 #define LOG2_EXT2_BLOCK_SIZE(data) (__le32_to_cpu (data->sblock.log2_block_size) + 1)
61 /* Log2 size of ext2 block in bytes. */
62 #define LOG2_BLOCK_SIZE(data) (__le32_to_cpu (data->sblock.log2_block_size) + 10)
64 /* The size of an ext2 block in bytes. */
65 #define EXT2_BLOCK_SIZE(data) (1 << LOG2_BLOCK_SIZE(data))
67 /* The ext2 superblock. */
69 uint32_t total_inodes
;
70 uint32_t total_blocks
;
71 uint32_t reserved_blocks
;
74 uint32_t first_data_block
;
75 uint32_t log2_block_size
;
76 uint32_t log2_fragment_size
;
77 uint32_t blocks_per_group
;
78 uint32_t fragments_per_group
;
79 uint32_t inodes_per_group
;
83 uint16_t max_mnt_count
;
86 uint16_t error_handling
;
87 uint16_t minor_revision_level
;
89 uint32_t checkinterval
;
91 uint32_t revision_level
;
92 uint16_t uid_reserved
;
93 uint16_t gid_reserved
;
96 uint16_t block_group_number
;
97 uint32_t feature_compatibility
;
98 uint32_t feature_incompat
;
99 uint32_t feature_ro_compat
;
100 uint32_t unique_id
[4];
101 char volume_name
[16];
102 char last_mounted_on
[64];
103 uint32_t compression_info
;
106 /* The ext2 blockgroup. */
107 struct ext2_block_group
{
110 uint32_t inode_table_id
;
111 uint16_t free_blocks
;
112 uint16_t free_inodes
;
113 uint16_t used_dir_cnt
;
114 uint32_t reserved
[3];
117 /* The ext2 inode. */
128 uint32_t blockcnt
; /* Blocks of 512 bytes!! */
133 uint32_t dir_blocks
[INDIRECT_BLOCKS
];
134 uint32_t indir_block
;
135 uint32_t double_indir_block
;
136 uint32_t tripple_indir_block
;
143 uint32_t fragment_addr
;
147 /* The header of an ext2 directory entry. */
156 struct ext2_data
*data
;
157 struct ext2_inode inode
;
162 /* Information about a "mounted" ext2 filesystem. */
164 struct ext2_sblock sblock
;
165 struct ext2_inode
*inode
;
166 struct ext2fs_node diropen
;
170 typedef struct ext2fs_node
*ext2fs_node_t
;
172 struct ext2_data
*ext2fs_root
= NULL
;
173 ext2fs_node_t ext2fs_file
= NULL
;
175 uint32_t *indir1_block
= NULL
;
177 int indir1_blkno
= -1;
178 uint32_t *indir2_block
= NULL
;
180 int indir2_blkno
= -1;
181 static unsigned int inode_size
;
184 static int ext2fs_blockgroup
185 (struct ext2_data
*data
, int group
, struct ext2_block_group
*blkgrp
) {
188 unsigned int desc_per_blk
;
190 desc_per_blk
= EXT2_BLOCK_SIZE(data
) / sizeof(struct ext2_block_group
);
192 blkno
= __le32_to_cpu(data
->sblock
.first_data_block
) + 1 +
193 group
/ desc_per_blk
;
194 blkoff
= (group
% desc_per_blk
) * sizeof(struct ext2_block_group
);
196 printf ("ext2fs read %d group descriptor (blkno %d blkoff %d)\n",
197 group
, blkno
, blkoff
);
199 return (ext2fs_devread (blkno
<< LOG2_EXT2_BLOCK_SIZE(data
),
200 blkoff
, sizeof(struct ext2_block_group
), (char *)blkgrp
));
205 static int ext2fs_read_inode
206 (struct ext2_data
*data
, int ino
, struct ext2_inode
*inode
) {
207 struct ext2_block_group blkgrp
;
208 struct ext2_sblock
*sblock
= &data
->sblock
;
209 int inodes_per_block
;
216 printf ("ext2fs read inode %d, inode_size %d\n", ino
, inode_size
);
218 /* It is easier to calculate if the first inode is 0. */
220 status
= ext2fs_blockgroup (data
, ino
/ __le32_to_cpu
221 (sblock
->inodes_per_group
), &blkgrp
);
226 inodes_per_block
= EXT2_BLOCK_SIZE(data
) / inode_size
;
228 blkno
= __le32_to_cpu (blkgrp
.inode_table_id
) +
229 (ino
% __le32_to_cpu (sblock
->inodes_per_group
))
231 blkoff
= (ino
% inodes_per_block
) * inode_size
;
233 printf ("ext2fs read inode blkno %d blkoff %d\n", blkno
, blkoff
);
235 /* Read the inode. */
236 status
= ext2fs_devread (blkno
<< LOG2_EXT2_BLOCK_SIZE (data
), blkoff
,
237 sizeof (struct ext2_inode
), (char *) inode
);
246 void ext2fs_free_node (ext2fs_node_t node
, ext2fs_node_t currroot
) {
247 if ((node
!= &ext2fs_root
->diropen
) && (node
!= currroot
)) {
253 static int ext2fs_read_block (ext2fs_node_t node
, int fileblock
) {
254 struct ext2_data
*data
= node
->data
;
255 struct ext2_inode
*inode
= &node
->inode
;
257 int blksz
= EXT2_BLOCK_SIZE (data
);
258 int log2_blksz
= LOG2_EXT2_BLOCK_SIZE (data
);
262 if (fileblock
< INDIRECT_BLOCKS
) {
263 blknr
= __le32_to_cpu (inode
->b
.blocks
.dir_blocks
[fileblock
]);
266 else if (fileblock
< (INDIRECT_BLOCKS
+ (blksz
/ 4))) {
267 if (indir1_block
== NULL
) {
268 indir1_block
= (uint32_t *) malloc (blksz
);
269 if (indir1_block
== NULL
) {
270 printf ("** ext2fs read block (indir 1) malloc failed. **\n");
276 if (blksz
!= indir1_size
) {
281 indir1_block
= (uint32_t *) malloc (blksz
);
282 if (indir1_block
== NULL
) {
283 printf ("** ext2fs read block (indir 1) malloc failed. **\n");
288 if ((__le32_to_cpu (inode
->b
.blocks
.indir_block
) <<
289 log2_blksz
) != indir1_blkno
) {
290 status
= ext2fs_devread (__le32_to_cpu(inode
->b
.blocks
.indir_block
) << log2_blksz
,
292 (char *) indir1_block
);
294 printf ("** ext2fs read block (indir 1) failed. **\n");
298 __le32_to_cpu (inode
->b
.blocks
.
299 indir_block
) << log2_blksz
;
301 blknr
= __le32_to_cpu (indir1_block
302 [fileblock
- INDIRECT_BLOCKS
]);
304 /* Double indirect. */
306 (INDIRECT_BLOCKS
+ (blksz
/ 4 * (blksz
/ 4 + 1)))) {
307 unsigned int perblock
= blksz
/ 4;
308 unsigned int rblock
= fileblock
- (INDIRECT_BLOCKS
311 if (indir1_block
== NULL
) {
312 indir1_block
= (uint32_t *) malloc (blksz
);
313 if (indir1_block
== NULL
) {
314 printf ("** ext2fs read block (indir 2 1) malloc failed. **\n");
320 if (blksz
!= indir1_size
) {
325 indir1_block
= (uint32_t *) malloc (blksz
);
326 if (indir1_block
== NULL
) {
327 printf ("** ext2fs read block (indir 2 1) malloc failed. **\n");
332 if ((__le32_to_cpu (inode
->b
.blocks
.double_indir_block
) <<
333 log2_blksz
) != indir1_blkno
) {
334 status
= ext2fs_devread (__le32_to_cpu(inode
->b
.blocks
.double_indir_block
) << log2_blksz
,
336 (char *) indir1_block
);
338 printf ("** ext2fs read block (indir 2 1) failed. **\n");
342 __le32_to_cpu (inode
->b
.blocks
.double_indir_block
) << log2_blksz
;
345 if (indir2_block
== NULL
) {
346 indir2_block
= (uint32_t *) malloc (blksz
);
347 if (indir2_block
== NULL
) {
348 printf ("** ext2fs read block (indir 2 2) malloc failed. **\n");
354 if (blksz
!= indir2_size
) {
359 indir2_block
= (uint32_t *) malloc (blksz
);
360 if (indir2_block
== NULL
) {
361 printf ("** ext2fs read block (indir 2 2) malloc failed. **\n");
366 if ((__le32_to_cpu (indir1_block
[rblock
/ perblock
]) <<
367 log2_blksz
) != indir2_blkno
) {
368 status
= ext2fs_devread (__le32_to_cpu(indir1_block
[rblock
/ perblock
]) << log2_blksz
,
370 (char *) indir2_block
);
372 printf ("** ext2fs read block (indir 2 2) failed. **\n");
376 __le32_to_cpu (indir1_block
[rblock
/ perblock
]) << log2_blksz
;
378 blknr
= __le32_to_cpu (indir2_block
[rblock
% perblock
]);
380 /* Tripple indirect. */
382 printf ("** ext2fs doesn't support tripple indirect blocks. **\n");
386 printf ("ext2fs_read_block %08x\n", blknr
);
393 (ext2fs_node_t node
, int pos
, unsigned int len
, char *buf
) {
396 int log2blocksize
= LOG2_EXT2_BLOCK_SIZE (node
->data
);
397 int blocksize
= 1 << (log2blocksize
+ DISK_SECTOR_BITS
);
398 unsigned int filesize
= __le32_to_cpu(node
->inode
.size
);
400 /* Adjust len so it we can't read past the end of the file. */
401 if (len
> filesize
) {
404 blockcnt
= ((len
+ pos
) + blocksize
- 1) / blocksize
;
406 for (i
= pos
/ blocksize
; i
< blockcnt
; i
++) {
408 int blockoff
= pos
% blocksize
;
409 int blockend
= blocksize
;
413 blknr
= ext2fs_read_block (node
, i
);
417 blknr
= blknr
<< log2blocksize
;
420 if (i
== blockcnt
- 1) {
421 blockend
= (len
+ pos
) % blocksize
;
423 /* The last portion is exactly blocksize. */
425 blockend
= blocksize
;
430 if (i
== pos
/ blocksize
) {
431 skipfirst
= blockoff
;
432 blockend
-= skipfirst
;
435 /* If the block number is 0 this block is not stored on disk but
436 is zero filled instead. */
440 status
= ext2fs_devread (blknr
, skipfirst
, blockend
, buf
);
445 memset (buf
, 0, blocksize
- skipfirst
);
447 buf
+= blocksize
- skipfirst
;
453 static int ext2fs_iterate_dir (ext2fs_node_t dir
, char *name
, ext2fs_node_t
* fnode
, int *ftype
)
455 unsigned int fpos
= 0;
457 struct ext2fs_node
*diro
= (struct ext2fs_node
*) dir
;
461 printf ("Iterate dir %s\n", name
);
462 #endif /* of DEBUG */
463 if (!diro
->inode_read
) {
464 status
= ext2fs_read_inode (diro
->data
, diro
->ino
,
470 /* Search the file. */
471 while (fpos
< __le32_to_cpu (diro
->inode
.size
)) {
472 struct ext2_dirent dirent
;
474 status
= ext2fs_read_file (diro
, fpos
,
475 sizeof (struct ext2_dirent
),
480 if (dirent
.namelen
!= 0) {
481 char filename
[dirent
.namelen
+ 1];
483 int type
= FILETYPE_UNKNOWN
;
485 status
= ext2fs_read_file (diro
,
486 fpos
+ sizeof (struct ext2_dirent
),
487 dirent
.namelen
, filename
);
491 fdiro
= malloc (sizeof (struct ext2fs_node
));
496 fdiro
->data
= diro
->data
;
497 fdiro
->ino
= __le32_to_cpu (dirent
.inode
);
499 filename
[dirent
.namelen
] = '\0';
501 if (dirent
.filetype
!= FILETYPE_UNKNOWN
) {
502 fdiro
->inode_read
= 0;
504 if (dirent
.filetype
== FILETYPE_DIRECTORY
) {
505 type
= FILETYPE_DIRECTORY
;
506 } else if (dirent
.filetype
==
508 type
= FILETYPE_SYMLINK
;
509 } else if (dirent
.filetype
== FILETYPE_REG
) {
513 /* The filetype can not be read from the dirent, get it from inode */
515 status
= ext2fs_read_inode (diro
->data
,
516 __le32_to_cpu(dirent
.inode
),
522 fdiro
->inode_read
= 1;
524 if ((__le16_to_cpu (fdiro
->inode
.mode
) &
525 FILETYPE_INO_MASK
) ==
526 FILETYPE_INO_DIRECTORY
) {
527 type
= FILETYPE_DIRECTORY
;
528 } else if ((__le16_to_cpu (fdiro
->inode
.mode
)
529 & FILETYPE_INO_MASK
) ==
530 FILETYPE_INO_SYMLINK
) {
531 type
= FILETYPE_SYMLINK
;
532 } else if ((__le16_to_cpu (fdiro
->inode
.mode
)
533 & FILETYPE_INO_MASK
) ==
539 printf ("iterate >%s<\n", filename
);
540 #endif /* of DEBUG */
541 if ((name
!= NULL
) && (fnode
!= NULL
)
542 && (ftype
!= NULL
)) {
543 if (strcmp (filename
, name
) == 0) {
549 if (fdiro
->inode_read
== 0) {
550 status
= ext2fs_read_inode (diro
->data
,
551 __le32_to_cpu (dirent
.inode
),
557 fdiro
->inode_read
= 1;
560 case FILETYPE_DIRECTORY
:
563 case FILETYPE_SYMLINK
:
574 __le32_to_cpu (fdiro
->inode
.size
),
579 fpos
+= __le16_to_cpu (dirent
.direntlen
);
585 static char *ext2fs_read_symlink (ext2fs_node_t node
) {
587 struct ext2fs_node
*diro
= node
;
590 if (!diro
->inode_read
) {
591 status
= ext2fs_read_inode (diro
->data
, diro
->ino
,
597 symlink
= malloc (__le32_to_cpu (diro
->inode
.size
) + 1);
601 /* If the filesize of the symlink is bigger than
602 60 the symlink is stored in a separate block,
603 otherwise it is stored in the inode. */
604 if (__le32_to_cpu (diro
->inode
.size
) <= 60) {
605 strncpy (symlink
, diro
->inode
.b
.symlink
,
606 __le32_to_cpu (diro
->inode
.size
));
608 status
= ext2fs_read_file (diro
, 0,
609 __le32_to_cpu (diro
->inode
.size
),
616 symlink
[__le32_to_cpu (diro
->inode
.size
)] = '\0';
621 int ext2fs_find_file1
622 (const char *currpath
,
623 ext2fs_node_t currroot
, ext2fs_node_t
* currfound
, int *foundtype
) {
624 char fpath
[strlen (currpath
) + 1];
628 int type
= FILETYPE_DIRECTORY
;
629 ext2fs_node_t currnode
= currroot
;
630 ext2fs_node_t oldnode
= currroot
;
632 strncpy (fpath
, currpath
, strlen (currpath
) + 1);
634 /* Remove all leading slashes. */
635 while (*name
== '/') {
639 *currfound
= currnode
;
646 /* Extract the actual part from the pathname. */
647 next
= strchr (name
, '/');
649 /* Remove all leading slashes. */
650 while (*next
== '/') {
655 /* At this point it is expected that the current node is a directory, check if this is true. */
656 if (type
!= FILETYPE_DIRECTORY
) {
657 ext2fs_free_node (currnode
, currroot
);
663 /* Iterate over the directory. */
664 found
= ext2fs_iterate_dir (currnode
, name
, &currnode
, &type
);
672 /* Read in the symlink and follow it. */
673 if (type
== FILETYPE_SYMLINK
) {
676 /* Test if the symlink does not loop. */
677 if (++symlinknest
== 8) {
678 ext2fs_free_node (currnode
, currroot
);
679 ext2fs_free_node (oldnode
, currroot
);
683 symlink
= ext2fs_read_symlink (currnode
);
684 ext2fs_free_node (currnode
, currroot
);
687 ext2fs_free_node (oldnode
, currroot
);
691 printf ("Got symlink >%s<\n", symlink
);
692 #endif /* of DEBUG */
693 /* The symlink is an absolute path, go back to the root inode. */
694 if (symlink
[0] == '/') {
695 ext2fs_free_node (oldnode
, currroot
);
696 oldnode
= &ext2fs_root
->diropen
;
699 /* Lookup the node the symlink points to. */
700 status
= ext2fs_find_file1 (symlink
, oldnode
,
706 ext2fs_free_node (oldnode
, currroot
);
711 ext2fs_free_node (oldnode
, currroot
);
713 /* Found the node! */
714 if (!next
|| *next
== '\0') {
715 *currfound
= currnode
;
727 ext2fs_node_t rootnode
, ext2fs_node_t
* foundnode
, int expecttype
) {
729 int foundtype
= FILETYPE_DIRECTORY
;
737 status
= ext2fs_find_file1 (path
, rootnode
, foundnode
, &foundtype
);
741 /* Check if the node that was found was of the expected type. */
742 if ((expecttype
== FILETYPE_REG
) && (foundtype
!= expecttype
)) {
744 } else if ((expecttype
== FILETYPE_DIRECTORY
)
745 && (foundtype
!= expecttype
)) {
752 int ext2fs_ls (const char *dirname
) {
753 ext2fs_node_t dirnode
;
756 if (ext2fs_root
== NULL
) {
760 status
= ext2fs_find_file (dirname
, &ext2fs_root
->diropen
, &dirnode
,
763 printf ("** Can not find directory. **\n");
766 ext2fs_iterate_dir (dirnode
, NULL
, NULL
, NULL
);
767 ext2fs_free_node (dirnode
, &ext2fs_root
->diropen
);
772 int ext2fs_open (const char *filename
) {
773 ext2fs_node_t fdiro
= NULL
;
777 if (ext2fs_root
== NULL
) {
781 status
= ext2fs_find_file (filename
, &ext2fs_root
->diropen
, &fdiro
,
786 if (!fdiro
->inode_read
) {
787 status
= ext2fs_read_inode (fdiro
->data
, fdiro
->ino
,
793 len
= __le32_to_cpu (fdiro
->inode
.size
);
798 ext2fs_free_node (fdiro
, &ext2fs_root
->diropen
);
803 int ext2fs_close (void
805 if ((ext2fs_file
!= NULL
) && (ext2fs_root
!= NULL
)) {
806 ext2fs_free_node (ext2fs_file
, &ext2fs_root
->diropen
);
809 if (ext2fs_root
!= NULL
) {
813 if (indir1_block
!= NULL
) {
819 if (indir2_block
!= NULL
) {
829 int ext2fs_read (char *buf
, unsigned len
) {
832 if (ext2fs_root
== NULL
) {
836 if (ext2fs_file
== NULL
) {
840 status
= ext2fs_read_file (ext2fs_file
, 0, len
, buf
);
845 int ext2fs_mount (unsigned part_length
) {
846 struct ext2_data
*data
;
849 data
= malloc (sizeof (struct ext2_data
));
853 /* Read the superblock. */
854 status
= ext2fs_devread (1 * 2, 0, sizeof (struct ext2_sblock
),
855 (char *) &data
->sblock
);
859 /* Make sure this is an ext2 filesystem. */
860 if (__le16_to_cpu (data
->sblock
.magic
) != EXT2_MAGIC
) {
863 if (__le32_to_cpu(data
->sblock
.revision_level
== 0)) {
866 inode_size
= __le16_to_cpu(data
->sblock
.inode_size
);
869 printf("EXT2 rev %d, inode_size %d\n",
870 __le32_to_cpu(data
->sblock
.revision_level
), inode_size
);
872 data
->diropen
.data
= data
;
873 data
->diropen
.ino
= 2;
874 data
->diropen
.inode_read
= 1;
875 data
->inode
= &data
->diropen
.inode
;
877 status
= ext2fs_read_inode (data
, 2, data
->inode
);
887 printf ("Failed to mount ext2 filesystem...\n");