(* Parse an ext3 superblock.
- * $Id: 70_ext3_sb.ml,v 1.1 2008-04-01 19:10:45 rjones Exp $
+ * $Id: 70_ext3_sb.ml,v 1.3 2008-04-25 12:55:39 rjones Exp $
*)
open Printf
let () =
bitmatch bits with
- | s_inodes_count : 32 : littleendian; (* Inodes count *)
- s_blocks_count : 32 : littleendian; (* Blocks count *)
- s_r_blocks_count : 32 : littleendian; (* Reserved blocks count *)
- s_free_blocks_count : 32 : littleendian; (* Free blocks count *)
- s_free_inodes_count : 32 : littleendian; (* Free inodes count *)
- s_first_data_block : 32 : littleendian; (* First Data Block *)
- s_log_block_size : 32 : littleendian; (* Block size *)
- s_log_frag_size : 32 : littleendian; (* Fragment size *)
- s_blocks_per_group : 32 : littleendian; (* # Blocks per group *)
- s_frags_per_group : 32 : littleendian; (* # Fragments per group *)
- s_inodes_per_group : 32 : littleendian; (* # Inodes per group *)
- s_mtime : 32 : littleendian; (* Mount time *)
- s_wtime : 32 : littleendian; (* Write time *)
- s_mnt_count : 16 : littleendian; (* Mount count *)
- s_max_mnt_count : 16 : littleendian; (* Maximal mount count *)
- 0xef53 : 16 : littleendian; (* Magic signature *)
- s_state : 16 : littleendian; (* File system state *)
- s_errors : 16 : littleendian; (* Behaviour when detecting errors *)
- s_minor_rev_level : 16 : littleendian; (* minor revision level *)
- s_lastcheck : 32 : littleendian; (* time of last check *)
- s_checkinterval : 32 : littleendian; (* max. time between checks *)
- s_creator_os : 32 : littleendian; (* OS *)
- s_rev_level : 32 : littleendian; (* Revision level *)
- s_def_resuid : 16 : littleendian; (* Default uid for reserved blocks *)
- s_def_resgid : 16 : littleendian; (* Default gid for reserved blocks *)
- s_first_ino : 32 : littleendian; (* First non-reserved inode *)
- s_inode_size : 16 : littleendian; (* size of inode structure *)
- s_block_group_nr : 16 : littleendian; (* block group # of this superblock *)
- s_feature_compat : 32 : littleendian; (* compatible feature set *)
- s_feature_incompat : 32 : littleendian; (* incompatible feature set *)
- s_feature_ro_compat : 32 : littleendian; (* readonly-compatible feature set *)
- s_uuid : 128 : bitstring; (* 128-bit uuid for volume *)
- s_volume_name : 128 : bitstring; (* volume name XXX string *)
- s_last_mounted : 512 : bitstring; (* directory where last mounted XXX string *)
- s_algorithm_usage_bitmap : 32 : littleendian; (* For compression *)
- s_prealloc_blocks : 8; (* Nr of blocks to try to preallocate*)
- s_prealloc_dir_blocks : 8; (* Nr to preallocate for dirs *)
- s_reserved_gdt_blocks : 16 : littleendian; (* Per group desc for online growth *)
- s_journal_uuid : 128 : bitstring; (* uuid of journal superblock *)
- s_journal_inum : 32 : littleendian; (* inode number of journal file *)
- s_journal_dev : 32 : littleendian; (* device number of journal file *)
- s_last_orphan : 32 : littleendian; (* start of list of inodes to delete *)
- s_hash_seed0 : 32 : littleendian; (* HTREE hash seed *)
- s_hash_seed1 : 32 : littleendian;
- s_hash_seed2 : 32 : littleendian;
- s_hash_seed3 : 32 : littleendian;
- s_def_hash_version : 8; (* Default hash version to use *)
- s_reserved_char_pad : 8;
- s_reserved_word_pad : 16 : littleendian;
- s_default_mount_opts : 32 : littleendian;
- s_first_meta_bg : 32 : littleendian; (* First metablock block group *)
- s_reserved : 6080 : bitstring -> (* Padding to the end of the block *)
+ | { s_inodes_count : 32 : littleendian; (* Inodes count *)
+ s_blocks_count : 32 : littleendian; (* Blocks count *)
+ s_r_blocks_count : 32 : littleendian; (* Reserved blocks count *)
+ s_free_blocks_count : 32 : littleendian; (* Free blocks count *)
+ s_free_inodes_count : 32 : littleendian; (* Free inodes count *)
+ s_first_data_block : 32 : littleendian; (* First Data Block *)
+ s_log_block_size : 32 : littleendian; (* Block size *)
+ s_log_frag_size : 32 : littleendian; (* Fragment size *)
+ s_blocks_per_group : 32 : littleendian; (* # Blocks per group *)
+ s_frags_per_group : 32 : littleendian; (* # Fragments per group *)
+ s_inodes_per_group : 32 : littleendian; (* # Inodes per group *)
+ s_mtime : 32 : littleendian; (* Mount time *)
+ s_wtime : 32 : littleendian; (* Write time *)
+ s_mnt_count : 16 : littleendian; (* Mount count *)
+ s_max_mnt_count : 16 : littleendian; (* Maximal mount count *)
+ 0xef53 : 16 : littleendian; (* Magic signature *)
+ s_state : 16 : littleendian; (* File system state *)
+ s_errors : 16 : littleendian; (* Behaviour when detecting errors *)
+ s_minor_rev_level : 16 : littleendian; (* minor revision level *)
+ s_lastcheck : 32 : littleendian; (* time of last check *)
+ s_checkinterval : 32 : littleendian; (* max. time between checks *)
+ s_creator_os : 32 : littleendian; (* OS *)
+ s_rev_level : 32 : littleendian; (* Revision level *)
+ s_def_resuid : 16 : littleendian; (* Default uid for reserved blocks *)
+ s_def_resgid : 16 : littleendian; (* Default gid for reserved blocks *)
+ s_first_ino : 32 : littleendian; (* First non-reserved inode *)
+ s_inode_size : 16 : littleendian; (* size of inode structure *)
+ s_block_group_nr : 16 : littleendian; (* block group # of this superblock *)
+ s_feature_compat : 32 : littleendian; (* compatible feature set *)
+ s_feature_incompat : 32 : littleendian; (* incompatible feature set *)
+ s_feature_ro_compat : 32 : littleendian; (* readonly-compatible feature set *)
+ s_uuid : 128 : string; (* 128-bit uuid for volume *)
+ s_volume_name : 128 : string; (* volume name *)
+ s_last_mounted : 512 : string; (* directory where last mounted *)
+ s_algorithm_usage_bitmap : 32 : littleendian; (* For compression *)
+ s_prealloc_blocks : 8; (* Nr of blocks to try to preallocate*)
+ s_prealloc_dir_blocks : 8; (* Nr to preallocate for dirs *)
+ s_reserved_gdt_blocks : 16 : littleendian;(* Per group desc for online growth *)
+ s_journal_uuid : 128 : string; (* uuid of journal superblock *)
+ s_journal_inum : 32 : littleendian; (* inode number of journal file *)
+ s_journal_dev : 32 : littleendian; (* device number of journal file *)
+ s_last_orphan : 32 : littleendian; (* start of list of inodes to delete *)
+ s_hash_seed0 : 32 : littleendian; (* HTREE hash seed *)
+ s_hash_seed1 : 32 : littleendian;
+ s_hash_seed2 : 32 : littleendian;
+ s_hash_seed3 : 32 : littleendian;
+ s_def_hash_version : 8; (* Default hash version to use *)
+ s_reserved_char_pad : 8;
+ s_reserved_word_pad : 16 : littleendian;
+ s_default_mount_opts : 32 : littleendian;
+ s_first_meta_bg : 32 : littleendian; (* First metablock block group *)
+ _ : 6080 : bitstring } -> (* Padding to the end of the block *)
printf "ext3 superblock:\n";
printf " s_inodes_count = %ld\n" s_inodes_count;
printf " s_blocks_count = %ld\n" s_blocks_count;
printf " s_free_inodes_count = %ld\n" s_free_inodes_count;
- printf " s_free_blocks_count = %ld\n" s_free_blocks_count
+ printf " s_free_blocks_count = %ld\n" s_free_blocks_count;
+ printf " s_uuid = %S\n" s_uuid;
+ printf " s_volume_name = %S\n" s_volume_name;
+ printf " s_last_mounted = %S\n" s_last_mounted
- | _ ->
+ | { _ } ->
eprintf "not an ext3 superblock!\n%!";
exit 2
git.annexia.org / ocaml-bitstring.git / blobdiff