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.

Migrate from vendored crowbar to opam-pinned alcobar

- Remove vendored crowbar/ directory
- Replace all Crowbar references with Alcobar across 176 .ml files
- Update all fuzz dune files: crowbar → alcobar in libraries
- Remove 77 gen_corpus.ml files (alcobar handles corpus internally)
- Update dune-project files: crowbar → alcobar in dependencies
- Update merlint rules (e705, e726): Crowbar → Alcobar in checks,
docs, and examples
- Update merlint generated docs (index.html)

428 files changed, ~1200 lines removed net.

+5 -39
+2 -8
fuzz/dune
··· 1 1 (executable 2 2 (name fuzz) 3 3 (modules fuzz fuzz_cfdp) 4 - (libraries cfdp crowbar)) 5 - 6 - (executable 7 - (name gen_corpus) 8 - (modules gen_corpus) 9 - (libraries unix)) 4 + (libraries cfdp alcobar)) 10 5 11 6 (rule 12 7 (alias runtest) ··· 22 17 (= %{profile} afl)) 23 18 (deps 24 19 (source_tree corpus) 25 - fuzz.exe 26 - gen_corpus.exe) 20 + fuzz.exe) 27 21 (action 28 22 (echo "AFL fuzzer built: %{exe:fuzz.exe}\n")))
+1 -1
fuzz/fuzz.ml
··· 1 - let () = Crowbar.run "cfdp" [ Fuzz_cfdp.suite ] 1 + let () = Alcobar.run "cfdp" [ Fuzz_cfdp.suite ]
+1 -1
fuzz/fuzz_cfdp.ml
··· 5 5 6 6 (** Fuzz tests for CFDP (CCSDS 727.0-B-5). *) 7 7 8 - open Crowbar 8 + open Alcobar 9 9 10 10 let small_bytes = map [ bytes ] (fun s -> Bytes.of_string s) 11 11
+1 -1
fuzz/fuzz_cfdp.mli
··· 1 1 (** Fuzz tests for {\!Cfdp}. *) 2 2 3 - val suite : string * Crowbar.test_case list 3 + val suite : string * Alcobar.test_case list 4 4 (** Test suite. *)
-28
fuzz/gen_corpus.ml
··· 1 - (** Generate seed corpus for CFDP checksum fuzz testing. *) 2 - 3 - let () = 4 - (try Unix.mkdir "corpus" 0o755 5 - with Unix.Unix_error (Unix.EEXIST, _, _) -> ()); 6 - let write name data = 7 - let oc = open_out_bin (Filename.concat "corpus" name) in 8 - output_string oc data; 9 - close_out oc 10 - in 11 - (* Empty input *) 12 - write "seed_000" ""; 13 - (* All zeros - 4 bytes *) 14 - write "seed_001" "\x00\x00\x00\x00"; 15 - (* All ones - 4 bytes *) 16 - write "seed_002" "\xff\xff\xff\xff"; 17 - (* Incrementing bytes *) 18 - write "seed_003" "\x01\x02\x03\x04\x05\x06\x07\x08"; 19 - (* Alternating bit pattern *) 20 - write "seed_004" "\xaa\x55\xaa\x55"; 21 - (* Single byte *) 22 - write "seed_005" "\x42"; 23 - (* 16 bytes of mixed data *) 24 - write "seed_006" 25 - "\x00\x01\x02\x03\x10\x20\x30\x40\x80\x90\xa0\xb0\xc0\xd0\xe0\xf0"; 26 - (* Odd-length input *) 27 - write "seed_007" "\xde\xad\xbe\xef\x01"; 28 - print_endline "Generated 8 seed files in corpus/"