gazagnaire.org / ocaml-cfdp
CCSDS File Delivery Protocol (CCSDS 727.0-B-5) for space file transfer
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

csv: rename from csvt

Drops the redundant "t" suffix. Library name, opam package, module
(Csvt -> Csv), and directory all rename in lockstep. Every downstream
reference in interop tests, libraries, and docs updated.

Thomas Gazagnaire 7ff9868f ed685064

+27 -27
+1 -1
test/interop/dariol83/dune
··· 1 1 (test 2 2 (name test) 3 - (libraries cfdp csvt alcotest) 3 + (libraries cfdp csv alcotest) 4 4 (deps 5 5 (source_tree traces) 6 6 (source_tree scripts)))
+2 -2
test/interop/dariol83/test.ml
··· 45 45 } 46 46 47 47 let ka_codec = 48 - Csvt.( 48 + Csv.( 49 49 Row.( 50 50 obj 51 51 (fun ··· 88 88 |> finish)) 89 89 90 90 let load_rows () = 91 - match Csvt.decode_file ka_codec (trace "keep_alive.csv") with 91 + match Csv.decode_file ka_codec (trace "keep_alive.csv") with 92 92 | Ok rows -> rows 93 93 | Error e -> Alcotest.failf "CSV: %s" e 94 94
+1 -1
test/interop/spacepackets/dune
··· 1 1 (test 2 2 (name test) 3 - (libraries cfdp csvt alcotest) 3 + (libraries cfdp csv alcotest) 4 4 (deps 5 5 (source_tree traces) 6 6 (source_tree scripts)))
+23 -23
test/interop/spacepackets/test.ml
··· 141 141 } 142 142 143 143 let eof_codec = 144 - Csvt.( 144 + Csv.( 145 145 Row.( 146 146 obj 147 147 (fun ··· 196 196 197 197 let decode_eof () = 198 198 let rows = 199 - match Csvt.decode_file eof_codec (trace "eof.csv") with 199 + match Csv.decode_file eof_codec (trace "eof.csv") with 200 200 | Ok rows -> rows 201 201 | Error e -> Alcotest.failf "CSV decode: %s" e 202 202 in ··· 247 247 248 248 let encode_eof () = 249 249 let rows = 250 - match Csvt.decode_file eof_codec (trace "eof.csv") with 250 + match Csv.decode_file eof_codec (trace "eof.csv") with 251 251 | Ok rows -> rows 252 252 | Error e -> Alcotest.failf "CSV decode: %s" e 253 253 in ··· 314 314 } 315 315 316 316 let metadata_codec = 317 - Csvt.( 317 + Csv.( 318 318 Row.( 319 319 obj 320 320 (fun ··· 372 372 373 373 let decode_metadata () = 374 374 let rows = 375 - match Csvt.decode_file metadata_codec (trace "metadata.csv") with 375 + match Csv.decode_file metadata_codec (trace "metadata.csv") with 376 376 | Ok rows -> rows 377 377 | Error e -> Alcotest.failf "CSV decode: %s" e 378 378 in ··· 411 411 412 412 let encode_metadata () = 413 413 let rows = 414 - match Csvt.decode_file metadata_codec (trace "metadata.csv") with 414 + match Csv.decode_file metadata_codec (trace "metadata.csv") with 415 415 | Ok rows -> rows 416 416 | Error e -> Alcotest.failf "CSV decode: %s" e 417 417 in ··· 471 471 } 472 472 473 473 let ack_codec = 474 - Csvt.( 474 + Csv.( 475 475 Row.( 476 476 obj 477 477 (fun ··· 528 528 529 529 let decode_ack () = 530 530 let rows = 531 - match Csvt.decode_file ack_codec (trace "ack.csv") with 531 + match Csv.decode_file ack_codec (trace "ack.csv") with 532 532 | Ok rows -> rows 533 533 | Error e -> Alcotest.failf "CSV decode: %s" e 534 534 in ··· 573 573 574 574 let encode_ack () = 575 575 let rows = 576 - match Csvt.decode_file ack_codec (trace "ack.csv") with 576 + match Csv.decode_file ack_codec (trace "ack.csv") with 577 577 | Ok rows -> rows 578 578 | Error e -> Alcotest.failf "CSV decode: %s" e 579 579 in ··· 634 634 } 635 635 636 636 let finished_codec = 637 - Csvt.( 637 + Csv.( 638 638 Row.( 639 639 obj 640 640 (fun ··· 683 683 684 684 let decode_finished () = 685 685 let rows = 686 - match Csvt.decode_file finished_codec (trace "finished.csv") with 686 + match Csv.decode_file finished_codec (trace "finished.csv") with 687 687 | Ok rows -> rows 688 688 | Error e -> Alcotest.failf "CSV decode: %s" e 689 689 in ··· 733 733 734 734 let encode_finished () = 735 735 let rows = 736 - match Csvt.decode_file finished_codec (trace "finished.csv") with 736 + match Csv.decode_file finished_codec (trace "finished.csv") with 737 737 | Ok rows -> rows 738 738 | Error e -> Alcotest.failf "CSV decode: %s" e 739 739 in ··· 794 794 } 795 795 796 796 let file_data_codec = 797 - Csvt.( 797 + Csv.( 798 798 Row.( 799 799 obj 800 800 (fun ··· 843 843 844 844 let decode_file_data () = 845 845 let rows = 846 - match Csvt.decode_file file_data_codec (trace "file_data.csv") with 846 + match Csv.decode_file file_data_codec (trace "file_data.csv") with 847 847 | Ok rows -> rows 848 848 | Error e -> Alcotest.failf "CSV decode: %s" e 849 849 in ··· 869 869 870 870 let encode_file_data () = 871 871 let rows = 872 - match Csvt.decode_file file_data_codec (trace "file_data.csv") with 872 + match Csv.decode_file file_data_codec (trace "file_data.csv") with 873 873 | Ok rows -> rows 874 874 | Error e -> Alcotest.failf "CSV decode: %s" e 875 875 in ··· 928 928 } 929 929 930 930 let nak_codec = 931 - Csvt.( 931 + Csv.( 932 932 Row.( 933 933 obj 934 934 (fun ··· 990 990 991 991 let decode_nak () = 992 992 let rows = 993 - match Csvt.decode_file nak_codec (trace "nak.csv") with 993 + match Csv.decode_file nak_codec (trace "nak.csv") with 994 994 | Ok rows -> rows 995 995 | Error e -> Alcotest.failf "CSV decode: %s" e 996 996 in ··· 1030 1030 1031 1031 let encode_nak () = 1032 1032 let rows = 1033 - match Csvt.decode_file nak_codec (trace "nak.csv") with 1033 + match Csv.decode_file nak_codec (trace "nak.csv") with 1034 1034 | Ok rows -> rows 1035 1035 | Error e -> Alcotest.failf "CSV decode: %s" e 1036 1036 in ··· 1100 1100 } 1101 1101 1102 1102 let keep_alive_codec = 1103 - Csvt.( 1103 + Csv.( 1104 1104 Row.( 1105 1105 obj 1106 1106 (fun ··· 1145 1145 let decode_keep_alive () = 1146 1146 let rows = 1147 1147 match 1148 - Csvt.decode_file keep_alive_codec (dariol83_trace "keep_alive.csv") 1148 + Csv.decode_file keep_alive_codec (dariol83_trace "keep_alive.csv") 1149 1149 with 1150 1150 | Ok rows -> rows 1151 1151 | Error e -> Alcotest.failf "CSV decode: %s" e ··· 1169 1169 let encode_keep_alive () = 1170 1170 let rows = 1171 1171 match 1172 - Csvt.decode_file keep_alive_codec (dariol83_trace "keep_alive.csv") 1172 + Csv.decode_file keep_alive_codec (dariol83_trace "keep_alive.csv") 1173 1173 with 1174 1174 | Ok rows -> rows 1175 1175 | Error e -> Alcotest.failf "CSV decode: %s" e ··· 1219 1219 } 1220 1220 1221 1221 let spacepackets_ka_codec = 1222 - Csvt.( 1222 + Csv.( 1223 1223 Row.( 1224 1224 obj 1225 1225 (fun ··· 1260 1260 1261 1261 let keep_alive_spacepackets_bug () = 1262 1262 let rows = 1263 - match Csvt.decode_file spacepackets_ka_codec (trace "keep_alive.csv") with 1263 + match Csv.decode_file spacepackets_ka_codec (trace "keep_alive.csv") with 1264 1264 | Ok rows -> rows 1265 1265 | Error e -> Alcotest.failf "CSV decode: %s" e 1266 1266 in