The unpac monorepo manager self-hosting as a monorepo using unpac
Fix make on master
+12
-13
+2
-2
vendor/opam/base64/bench/benchmarks.ml
+2
-2
vendor/opam/base64/bench/benchmarks.ml
···
101
101
102
102
let args = [ 0; 10; 50; 100; 500; 1000; 2500; 5000 ]
103
103
104
-
let test_b64 = Test.create_indexed ~name:"Base64" ~args b64_encode_and_decode
104
+
let test_b64 = Bench.Test.create_indexed ~name:"Base64" ~args b64_encode_and_decode
105
105
106
-
let test_old = Test.create_indexed ~name:"Old" ~args old_encode_and_decode
106
+
let test_old = Bench.Test.create_indexed ~name:"Old" ~args old_encode_and_decode
107
107
108
108
let command = Bench.make_command [ test_b64; test_old ]
109
109
+2
-2
vendor/opam/base64/fuzz/fuzz_rfc2045.ml
+2
-2
vendor/opam/base64/fuzz/fuzz_rfc2045.ml
···
8
8
9
9
let register_printer () =
10
10
Printexc.register_printer (function
11
-
| Encode_error err -> Some (Fmt.strf "(Encoding error: %s)" err)
12
-
| Decode_error err -> Some (Fmt.strf "(Decoding error: %s)" err)
11
+
| Encode_error err -> Some (Fmt.str "(Encoding error: %s)" err)
12
+
| Decode_error err -> Some (Fmt.str "(Decoding error: %s)" err)
13
13
| _ -> None)
14
14
15
15
let pp_chr =
+5
-6
vendor/opam/base64/fuzz/fuzz_rfc4648.ml
+5
-6
vendor/opam/base64/fuzz/fuzz_rfc4648.ml
···
35
35
let ( <.> ) f g x = f (g x)
36
36
37
37
let char_from_alphabet alphabet : string gen =
38
-
map [ range 64 ]
39
-
(String.make 1 <.> Char.chr <.> Array.unsafe_get (Base64.alphabet alphabet))
38
+
map [ range 64 ] (String.make 1 <.> String.get (Base64.alphabet alphabet))
40
39
41
40
let random_string_from_alphabet alphabet len : string gen =
42
41
let rec add_char_from_alphabet acc = function
···
83
82
84
83
let canonic alphabet =
85
84
let dmap = Array.make 256 (-1) in
86
-
Array.iteri (fun i x -> dmap.(x) <- i) (Base64.alphabet alphabet) ;
85
+
String.iteri (fun i x -> dmap.(Char.code x) <- i) (Base64.alphabet alphabet);
87
86
fun (input, off, len) ->
88
87
let real_len = String.length input in
89
88
let input_len = len in
···
108
107
match remainder_len with 1 -> 0x3c | 2 -> 0x30 | _ -> assert false in
109
108
let decoded = dmap.(Char.code last) in
110
109
let canonic = decoded land mask in
111
-
let encoded = (Base64.alphabet alphabet).(canonic) in
112
-
Bytes.set output (off + input_len - 1) (Char.chr encoded) ;
110
+
let encoded = (Base64.alphabet alphabet).[canonic] in
111
+
Bytes.set output (off + input_len - 1) encoded ;
113
112
(Bytes.unsafe_to_string output, off, normalized_len)
114
113
115
114
let isomorphism0 (input, off, len) =
···
145
144
dynamic_bind (range (max / 2)) @@ fun off ->
146
145
map [ range (max - off) ] (fun len -> (off, len))
147
146
148
-
let failf fmt = Fmt.kstrf fail fmt
147
+
let failf fmt = Fmt.kstr fail fmt
149
148
150
149
let no_exception pad off len input =
151
150
try
+3
-3
vendor/opam/base64/test/test.ml
+3
-3
vendor/opam/base64/test/test.ml
···
269
269
let test_strict_with_malformed_input_rfc2045 =
270
270
List.mapi
271
271
(fun i (has, _) ->
272
-
Alcotest.test_case (Fmt.strf "strict rfc2045 - %02d" i) `Quick
272
+
Alcotest.test_case (Fmt.str "strict rfc2045 - %02d" i) `Quick
273
273
@@ fun () ->
274
274
try
275
275
let _ = strict_base64_rfc2045_of_string has in
···
280
280
let test_strict_rfc2045 =
281
281
List.mapi
282
282
(fun i (has, expect) ->
283
-
Alcotest.test_case (Fmt.strf "strict rfc2045 - %02d" i) `Quick
283
+
Alcotest.test_case (Fmt.str "strict rfc2045 - %02d" i) `Quick
284
284
@@ fun () ->
285
285
try
286
286
let res0 = strict_base64_rfc2045_of_string has in
···
293
293
let test_relaxed_rfc2045 =
294
294
List.mapi
295
295
(fun i (has, expect) ->
296
-
Alcotest.test_case (Fmt.strf "relaxed rfc2045 - %02d" i) `Quick
296
+
Alcotest.test_case (Fmt.str "relaxed rfc2045 - %02d" i) `Quick
297
297
@@ fun () ->
298
298
let res0 = relaxed_base64_rfc2045_of_string has in
299
299
Alcotest.(check string) "decode(x)" res0 expect)