tests/51_open_pattern.ml

   1 (* Open a persistent pattern
   2  * $Id$
   3  *)
   4
   5 open Printf
   6 open Bitstring
   7
   8 open bitmatch "tests/test.bmpp"
   9
  10 let () =
  11   let bits = bitstring_of_string "\022Mary had a little lamb" in
  12   bitmatch bits with
  13   | { :pascal_string } ->
  14       () (*printf "it's a Pascal string, len = %d, string = %S\n" len str*)
  15   | { _ } ->
  16       eprintf "not matching error\n";
  17       exit 1