CCSDS File Delivery Protocol (CCSDS 727.0-B-5) for space file transfer
irmin: add Sync module, worktree.ml, cmd_push
- Sync: TRANSPORT module type (fetch/push) + resolver type for
conflict resolution strategies (Fail, Ours, Theirs, Custom)
- Worktree: checkout, status, commit against the filesystem with
.irmin/index tracking (mtime+size fast path, hash on change)
- cmd_push: push local branch to remote Git repo (fast-forward only,
CAS on remote ref)
- Export Irmin.Sync in irmin.ml/mli
+10
-22
+1
-3
test/interop/dariol83/test.ml
+1
-3
test/interop/dariol83/test.ml
···
17
17
18
18
let string_to_hex s =
19
19
let buf = Buffer.create (String.length s * 2) in
20
-
String.iter
21
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
22
-
s;
20
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
23
21
Buffer.contents buf
24
22
25
23
let direction_of_string = function
+9
-19
test/interop/spacepackets/test.ml
+9
-19
test/interop/spacepackets/test.ml
···
28
28
29
29
let string_to_hex s =
30
30
let buf = Buffer.create (String.length s * 2) in
31
-
String.iter
32
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
33
-
s;
31
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
34
32
Buffer.contents buf
35
33
36
34
let direction_of_string = function
···
1287
1285
( "eof-decode",
1288
1286
[ Alcotest.test_case "decode EOF reference" `Quick decode_eof ] );
1289
1287
( "eof-encode",
1290
-
[
1291
-
Alcotest.test_case "encode EOF matches reference" `Quick
1292
-
encode_eof;
1293
-
] );
1288
+
[ Alcotest.test_case "encode EOF matches reference" `Quick encode_eof ]
1289
+
);
1294
1290
( "metadata-decode",
1295
1291
[
1296
-
Alcotest.test_case "decode Metadata reference" `Quick
1297
-
decode_metadata;
1292
+
Alcotest.test_case "decode Metadata reference" `Quick decode_metadata;
1298
1293
] );
1299
1294
( "metadata-encode",
1300
1295
[
···
1304
1299
( "ack-decode",
1305
1300
[ Alcotest.test_case "decode ACK reference" `Quick decode_ack ] );
1306
1301
( "ack-encode",
1307
-
[
1308
-
Alcotest.test_case "encode ACK matches reference" `Quick
1309
-
encode_ack;
1310
-
] );
1302
+
[ Alcotest.test_case "encode ACK matches reference" `Quick encode_ack ]
1303
+
);
1311
1304
( "finished-decode",
1312
1305
[
1313
-
Alcotest.test_case "decode Finished reference" `Quick
1314
-
decode_finished;
1306
+
Alcotest.test_case "decode Finished reference" `Quick decode_finished;
1315
1307
] );
1316
1308
( "finished-encode",
1317
1309
[
···
1331
1323
( "nak-decode",
1332
1324
[ Alcotest.test_case "decode NAK reference" `Quick decode_nak ] );
1333
1325
( "nak-encode",
1334
-
[
1335
-
Alcotest.test_case "encode NAK matches reference" `Quick
1336
-
encode_nak;
1337
-
] );
1326
+
[ Alcotest.test_case "encode NAK matches reference" `Quick encode_nak ]
1327
+
);
1338
1328
( "keep-alive-encode",
1339
1329
[
1340
1330
Alcotest.test_case "encode KeepAlive matches dariol83" `Quick