Fix svnignore in the examples subdirectory.
[ocaml-bitstring.git] / examples / ext3_superblock.ml
1 (* Parse an ext3 superblock.
2  * $Id: 70_ext3_sb.ml,v 1.3 2008-04-25 12:55:39 rjones Exp $
3  *)
4
5 open Printf
6
7 (*let () = Bitmatch.debug := true*)
8
9 let bits = Bitmatch.bitstring_of_file "ext3_sb"
10
11 (* The structure is straight from /usr/include/linux/ext3_fs.h *)
12
13 let () =
14   bitmatch bits with
15   | { s_inodes_count : 32 : littleendian;       (* Inodes count *)
16       s_blocks_count : 32 : littleendian;       (* Blocks count *)
17       s_r_blocks_count : 32 : littleendian;     (* Reserved blocks count *)
18       s_free_blocks_count : 32 : littleendian;  (* Free blocks count *)
19       s_free_inodes_count : 32 : littleendian;  (* Free inodes count *)
20       s_first_data_block : 32 : littleendian;   (* First Data Block *)
21       s_log_block_size : 32 : littleendian;     (* Block size *)
22       s_log_frag_size : 32 : littleendian;      (* Fragment size *)
23       s_blocks_per_group : 32 : littleendian;   (* # Blocks per group *)
24       s_frags_per_group : 32 : littleendian;    (* # Fragments per group *)
25       s_inodes_per_group : 32 : littleendian;   (* # Inodes per group *)
26       s_mtime : 32 : littleendian;              (* Mount time *)
27       s_wtime : 32 : littleendian;              (* Write time *)
28       s_mnt_count : 16 : littleendian;          (* Mount count *)
29       s_max_mnt_count : 16 : littleendian;      (* Maximal mount count *)
30       0xef53 : 16 : littleendian;               (* Magic signature *)
31       s_state : 16 : littleendian;              (* File system state *)
32       s_errors : 16 : littleendian;             (* Behaviour when detecting errors *)
33       s_minor_rev_level : 16 : littleendian;    (* minor revision level *)
34       s_lastcheck : 32 : littleendian;          (* time of last check *)
35       s_checkinterval : 32 : littleendian;      (* max. time between checks *)
36       s_creator_os : 32 : littleendian;         (* OS *)
37       s_rev_level : 32 : littleendian;          (* Revision level *)
38       s_def_resuid : 16 : littleendian;         (* Default uid for reserved blocks *)
39       s_def_resgid : 16 : littleendian;         (* Default gid for reserved blocks *)
40       s_first_ino : 32 : littleendian;          (* First non-reserved inode *)
41       s_inode_size : 16 : littleendian;         (* size of inode structure *)
42       s_block_group_nr : 16 : littleendian;     (* block group # of this superblock *)
43       s_feature_compat : 32 : littleendian;     (* compatible feature set *)
44       s_feature_incompat : 32 : littleendian;   (* incompatible feature set *)
45       s_feature_ro_compat : 32 : littleendian;  (* readonly-compatible feature set *)
46       s_uuid : 128 : string;                    (* 128-bit uuid for volume *)
47       s_volume_name : 128 : string;             (* volume name *)
48       s_last_mounted : 512 : string;            (* directory where last mounted *)
49       s_algorithm_usage_bitmap : 32 : littleendian; (* For compression *)
50       s_prealloc_blocks : 8;                    (* Nr of blocks to try to preallocate*)
51       s_prealloc_dir_blocks : 8;                (* Nr to preallocate for dirs *)
52       s_reserved_gdt_blocks : 16 : littleendian;(* Per group desc for online growth *)
53       s_journal_uuid : 128 : string;            (* uuid of journal superblock *)
54       s_journal_inum : 32 : littleendian;       (* inode number of journal file *)
55       s_journal_dev : 32 : littleendian;        (* device number of journal file *)
56       s_last_orphan : 32 : littleendian;        (* start of list of inodes to delete *)
57       s_hash_seed0 : 32 : littleendian;         (* HTREE hash seed *)
58       s_hash_seed1 : 32 : littleendian;
59       s_hash_seed2 : 32 : littleendian;
60       s_hash_seed3 : 32 : littleendian;
61       s_def_hash_version : 8;                   (* Default hash version to use *)
62       s_reserved_char_pad : 8;
63       s_reserved_word_pad : 16 : littleendian;
64       s_default_mount_opts : 32 : littleendian;
65       s_first_meta_bg : 32 : littleendian;      (* First metablock block group *)
66       _ : 6080 : bitstring } ->                 (* Padding to the end of the block *)
67
68     printf "ext3 superblock:\n";
69     printf "  s_inodes_count = %ld\n" s_inodes_count;
70     printf "  s_blocks_count = %ld\n" s_blocks_count;
71     printf "  s_free_inodes_count = %ld\n" s_free_inodes_count;
72     printf "  s_free_blocks_count = %ld\n" s_free_blocks_count;
73     printf "  s_uuid = %S\n" s_uuid;
74     printf "  s_volume_name = %S\n" s_volume_name;
75     printf "  s_last_mounted = %S\n" s_last_mounted
76
77   | { _ } ->
78     eprintf "not an ext3 superblock!\n%!";
79     exit 2