Up
module
Grammar
:
sig
#
type
token =
#
| ERROR
of
string
#
| EOF
#
| FIELD
of
(
Field_name
.
t
* string)
#
| HEADER_END
#
| NO_HEADER_END
#
| OCTET_STREAM_OFFSET
of
int
#
| STRING
of
string
#
| ATOM
of
string
#
| EQUALS
#
| SLASH
#
| SEMICOLON
#
val
message : (
Lexing
.
lexbuf
->
token
)
->
Lexing
.
lexbuf
->
Grammar_types.message
#
val
only_header : (
Lexing
.
lexbuf
->
token
)
->
Lexing
.
lexbuf
->
Grammar_types.header
#
val
content_type : (
Lexing
.
lexbuf
->
token
)
->
Lexing
.
lexbuf
->
Grammar_types.content_type
end