Streaming opam file codec for OCaml
opam, tcpcl: drop dead helpers
- ocaml-opam/lib/lexer.ml: remove unused [peek_int] and [is_eof].
[peek_char] is the only peeker the parser uses; the others were
written speculatively and never wired in.
- ocaml-tcpcl/lib/tcpcl.ml: remove unused [V3.refuse_reason_typ]
uint8 codec. V3 packs the refuse reason into the message header
flags nibble (encode_msg_hdr ~flags:(refuse_reason_to_int r)),
so the standalone uint8 codec was never reached.
-4
-4
lib/lexer.ml
-4
lib/lexer.ml
···
145
145
ensure_byte l
146
146
end
147
147
148
-
let peek_int l =
149
-
if ensure_byte l then Char.code (Bytes.unsafe_get l.src.buf l.src.pos) else -1
150
-
151
148
let peek_char l = Bytes.unsafe_get l.src.buf l.src.pos
152
-
let is_eof l = not (ensure_byte l)
153
149
154
150
(* Consume one byte; returns its int code (-1 at EOF). *)
155
151
let advance l =