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

Browse source
This commit is contained in:
swrup 2026-02-08 06:30:19 +01:00
parent e8da5fde62
commit 645725f916
2 changed files with 4 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/gen_signatures_registry.ml
View file

@ -39,8 +39,10 @@ let field_value = take_till is_newline <* newline
let field =
lift3 (fun k () v -> { k; v }) field_name (char ':' *> blanks) field_value
let comments = many (char '#' *> take_till is_newline <* newline)
let line_sep = comments <* newline
let comment_line = char '#' *> take_till is_newline <* newline
(*>>| fun _s -> ()*)
let line_sep = choice [ skip_many comment_line; (newline >>| fun _c -> ()) ]
let record = sep_by1 line_sep field
let recfile : record list t = many line_sep *> many record <* many line_sep
let parse s = parse_string ~consume:All recfile s