+++ /dev/null
-(* Open a persistent pattern
- * $Id$
- *)
-
-open Printf
-open Bitstring
-
-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