Include benchmarks directory.

diff --git a/MANIFEST b/MANIFEST
index 30cfd08..688dd07 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,4 +1,5 @@
 aclocal.m4
+benchmarks/parse_ext3_superblock.ml
 bitmatch.ml
 bitstring.ml
 bitstring.mli

diff --git a/benchmarks/parse_ext3_superblock.ml b/benchmarks/parse_ext3_superblock.ml
new file mode 100644 (file)
index 0000000..edda82f
--- /dev/null
+++ b/benchmarks/parse_ext3_superblock.ml
@@ -0,0 +1,73 @@
+(* Benchmark parsing of an ext3 superblock.
+ * $Id$
+ *)
+
+open Printf
+
+let bits = Bitstring.bitstring_of_file "examples/ext3_sb"
+
+let parse () =
+  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 : 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 *)
+
+      ()
+
+  | { _ } ->
+    eprintf "not an ext3 superblock!\n%!";
+    exit 2
+
+let () =
+  for i = 0 to 2_000_000 do
+    parse ()
+  done