blob: f469c6f48791578d30a3b7a5de7e1ddcec13bf6a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module type PARSE_COMMON =
sig
val is_letter : char -> bool
val is_digit : char -> bool
val is_whitespace : char -> bool
val is_cr : char -> bool
val lift_or : ('a -> bool) -> ('a -> bool) -> 'a -> bool
val skip_spaces : unit Angstrom.t
val take_till_crlf : string Angstrom.t
val take_till_eol : string Angstrom.t
end
module ParseCommon : PARSE_COMMON
|