Source file `mp_field.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

type field_name = (string * int)

let field_name_to_string f = 
  let (name, count) = f in 
  "(" ^ name ^ ", " ^ (string_of_int count) ^ ")"

let real_field_names field_packets = 
  let one_packet acc p = 
    let (l, count) = acc in
    let name = p.Mp_field_packet.field_name in
    ((name, count) :: l, count + 1)
  in
  let (l, _) = List.fold_left one_packet ([], 0) field_packets in
  List.rev l