Licklider Transmission Protocol (CCSDS 734.1-B) for reliable DTN links
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 -34
+2 -8
fuzz/dune
··· 1 1 (executable 2 2 (name fuzz) 3 3 (modules fuzz fuzz_ltp) 4 - (libraries ltp crowbar)) 5 - 6 - (executable 7 - (name gen_corpus) 8 - (modules gen_corpus) 9 - (libraries unix)) 4 + (libraries ltp 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 "ltp" [ Fuzz_ltp.suite ] 1 + let () = Alcobar.run "ltp" [ Fuzz_ltp.suite ]
+1 -1
fuzz/fuzz_ltp.ml
··· 3 3 SPDX-License-Identifier: ISC 4 4 ---------------------------------------------------------------------------*) 5 5 6 - open Crowbar 6 + open Alcobar 7 7 8 8 let truncate s = if String.length s > 1024 then String.sub s 0 1024 else s 9 9
+1 -1
fuzz/fuzz_ltp.mli
··· 1 1 (** Fuzz tests for {!Ltp}. *) 2 2 3 - val suite : string * Crowbar.test_case list 3 + val suite : string * Alcobar.test_case list 4 4 (** Test suite. *)
-23
fuzz/gen_corpus.ml
··· 1 - (** Generate seed corpus for LTP 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 - (* Single-byte SDNV (value < 128) *) 14 - write "seed_001" "\x42"; 15 - (* Multi-byte SDNV *) 16 - write "seed_002" "\x81\x00"; 17 - (* Truncated segment header *) 18 - write "seed_003" "\x00\x01\x02"; 19 - (* Longer binary data *) 20 - write "seed_004" (String.init 64 (fun i -> Char.chr (i mod 256))); 21 - (* High-bit patterns *) 22 - write "seed_005" "\xff\xff\xff\xff"; 23 - print_endline "Generated 6 seed files in corpus/"