CCSDS Proximity-1 Space Link Protocol (211.0-B)
irmin: value-oriented Heap + Schema + Cursor with 4 backends
+2
-1
+2
-1
lib/proximity1.ml
+2
-1
lib/proximity1.ml
···
85
85
(Wire.byte_array
86
86
~size:Wire.Expr.(Wire.Field.ref f_frame_length - Wire.int header_size))
87
87
88
-
let bf_frame_type = Wire.Codec.(f_frame_type $ fun t -> int_of_frame_type t.frame_type)
88
+
let bf_frame_type =
89
+
Wire.Codec.(f_frame_type $ fun t -> int_of_frame_type t.frame_type)
89
90
90
91
let codec =
91
92
Wire.Codec.v "Proximity1"