simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: handle uppercase in string/hex

Browse source
This commit is contained in:
Simon Cruanes 2022-06-15 13:36:36 -04:00
parent 75b498a433
commit e24b2060e7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCString.ml
View file

@ -1152,6 +1152,7 @@ let of_hex_exn (s:string) : string =
let n_of_c = function
| '0' .. '9' as c -> Char.code c - Char.code '0'
| 'a' .. 'f' as c -> 10 + Char.code c - Char.code 'a'
| 'A' .. 'F' as c -> 10 + Char.code c - Char.code 'A'
| _ -> invalid_arg "string: invalid hex"
in
if (String.length s mod 2 <> 0) then invalid_arg "string: hex sequence must be of even length";
@ -1170,6 +1171,7 @@ let of_hex s = try Some (of_hex_exn s) with Invalid_argument _ -> None
"0068656c6c6f20776f726c64" (to_hex "\000hello world")
"" (to_hex "")
"\000hello world" (of_hex_exn "0068656c6c6f20776f726c64")
"hello world" (of_hex_exn "68656C6C6F20776F726C64")
*)
(*$Q