+1

dune-project

reviewed

··· 20 20 Field (FECF/CRC-16), and CLCW (Command Link Control Word) for COP-1.") 21 21 (depends 22 22 (ocaml (>= 4.14)) 23 23 + (crc (>= 0.1)) 23 24 (wire (>= 0.1)) 24 25 (alcotest :with-test) 25 26 (crowbar :with-test)))

+1 -1

lib/dune

reviewed

··· 1 1 (library 2 2 (name tm) 3 3 (public_name tm) 4 4 - (libraries clcw wire)) 4 4 + (libraries clcw crc wire))

+1 -21

lib/tm.ml

reviewed

··· 108 108 set_u8 b (i + 2) (v lsr 8); 109 109 set_u8 b (i + 3) v 110 110 111 111 - (* CRC-16-CCITT computation *) 112 112 - let crc16_ccitt_table = 113 113 - let table = Array.make 256 0 in 114 114 - for i = 0 to 255 do 115 115 - let crc = ref (i lsl 8) in 116 116 - for _ = 0 to 7 do 117 117 - if !crc land 0x8000 <> 0 then crc := (!crc lsl 1) lxor 0x1021 118 118 - else crc := !crc lsl 1 119 119 - done; 120 120 - table.(i) <- !crc land 0xFFFF 121 121 - done; 122 122 - table 123 123 - 124 124 - let compute_fecf data = 125 125 - let crc = ref 0xFFFF in 126 126 - for i = 0 to String.length data - 1 do 127 127 - let byte = Char.code data.[i] in 128 128 - let idx = (!crc lsr 8) lxor byte land 0xFF in 129 129 - crc := (!crc lsl 8) lxor crc16_ccitt_table.(idx) land 0xFFFF 130 130 - done; 131 131 - !crc 111 111 + let compute_fecf = Crc.crc16_ccitt 132 112 133 113 (* Header decoding *) 134 114 let decode_header buf =

+1

tm.opam

reviewed

··· 11 11 depends: [ 12 12 "dune" {>= "3.21"} 13 13 "ocaml" {>= "4.14"} 14 14 + "crc" {>= "0.1"} 14 15 "wire" {>= "0.1"} 15 16 "alcotest" {with-test} 16 17 "crowbar" {with-test}