create_test_pattern.ml

   1 (* Create persistent pattern.
   2  * $Id$
   3  *)
   4
   5 open Bitstring_persistent
   6
   7 open Camlp4.PreCast
   8 open Syntax
   9 open Ast
  10
  11 let () =
  12   let _loc = Loc.ghost in
  13
  14   let len_field = create_pattern_field _loc in
  15   let len_field = set_length_int len_field 8 in
  16   let len_field = set_lident_patt len_field "len" in
  17
  18   let str_field = create_pattern_field _loc in
  19   let str_field = set_length str_field <:expr< len*8 >> in
  20   let str_field = set_lident_patt str_field "str" in
  21   let str_field = set_type_string str_field in
  22
  23   let named_pattern = "pascal_string", Pattern [len_field; str_field] in
  24
  25   let chan = open_out Sys.argv.(1) in
  26   named_to_channel chan named_pattern;
  27   close_out chan