1 (* Create persistent pattern.
5 open Bitstring_persistent
12 let _loc = Loc.ghost in
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
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
23 let named_pattern = "pascal_string", Pattern [len_field; str_field] in
25 let chan = open_out Sys.argv.(1) in
26 named_to_channel chan named_pattern;