(* Open a persistent pattern
 * $Id$
 *)

open Printf
open Bitmatch

open bitmatch "tests/test.bmpp"

let () =
  let bits = bitstring_of_string "\022Mary had a little lamb" in
  bitmatch bits with
  | { :pascal_string } ->
      () (*printf "it's a Pascal string, len = %d, string = %S\n" len str*)
  | { _ } ->
      eprintf "not matching error\n";
      exit 1