tests/50_named_pattern.ml

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