atagen/culr
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make sep/delim customisable

Browse source
This commit is contained in:
atagen 2024-12-05 23:40:30 +11:00
parent 6d98e1639b
commit c5c240ca2e
8 changed files with 60 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/parsers.ml
View file

@ -7,3 +7,14 @@ let digit = take_while is_digit >>| int_of_string
let skip_semi = skip is_semi
let semi_digits = sep_by1 skip_semi digit
type parser = {
separator : char array;
delimiter : char array;
}
let create_parser ?(separator = [|'\x20'; '\x09'|]) ?(delimiter = [|'\x0a'; '\x0d'|]) () = { separator ; delimiter }
let is_sep = function '\x20' | '\x09' -> true | _ -> false
let is_delim = function '\x0a' | '\x0d' -> true | _ -> false