robur/ohex
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request 'Hoist out skip_whitespace branching in count_hex_chars' (#1) from count_hex_chars into main

Browse source 
Reviewed-on: #1
This commit is contained in:
Hannes Mehnert 2024-03-14 12:56:50 +00:00
commit b770728db5
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ohex.ml
View file

@ -9,12 +9,12 @@ let is_space = function
| _ -> false | _ -> false
let count_hex_chars ?(skip_whitespace = true) src = let count_hex_chars ?(skip_whitespace = true) src =
string_fold (fun r c -> if skip_whitespace then
if skip_whitespace && is_space c then string_fold (fun r c ->
r if is_space c then r else succ r)
else
succ r)
0 src / 2 0 src / 2
else
String.length src / 2
let decode_into ?(skip_whitespace = true) src tgt ?(off = 0) () = let decode_into ?(skip_whitespace = true) src tgt ?(off = 0) () =
let fold f acc str = let fold f acc str =