swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
unikernel/duniverse/eqaf/lib/eqaf_cstruct.ml Normal file
View file

@ -0,0 +1,26 @@
let equal a b =
Eqaf_bigstring.equal (Cstruct.to_bigarray a) (Cstruct.to_bigarray b)
let compare_be_with_len ~len a b =
Eqaf_bigstring.compare_be_with_len ~len
(Cstruct.to_bigarray a) (Cstruct.to_bigarray b)
let compare_le_with_len ~len a b =
Eqaf_bigstring.compare_le_with_len ~len
(Cstruct.to_bigarray a) (Cstruct.to_bigarray b)
let compare_le a b =
Eqaf_bigstring.compare_le
(Cstruct.to_bigarray a) (Cstruct.to_bigarray b)
let compare_be a b =
Eqaf_bigstring.compare_be
(Cstruct.to_bigarray a) (Cstruct.to_bigarray b)
let find_uint8 ?off ~f v =
Eqaf_bigstring.find_uint8
?off ~f (Cstruct.to_bigarray v)
let exists_uint8 ?off ~f v =
Eqaf_bigstring.exists_uint8
?off ~f (Cstruct.to_bigarray v)