From c56e462ac53cc6c2e234417be96579e234291684 Mon Sep 17 00:00:00 2001 From: "Michael D. Lowis" Date: Tue, 19 Dec 2017 15:18:23 -0500 Subject: [PATCH] removed print statements for utf8 decoder --- lib/rope.ml | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lib/rope.ml b/lib/rope.ml index 197192a..51dc14f 100644 --- a/lib/rope.ml +++ b/lib/rope.ml @@ -70,27 +70,24 @@ let rec utfbeg rope pos = else pos -let runeerr msg = - print_endline msg; 0xFFFD - let rec decode rope i len rune = if len == 0 then (rune, i) else let byte = (getb rope i) in if not (is_cont_byte byte) then - (runeerr "missing cont. byte", i) + (0xFFFD, i) else decode rope (i + 1) (len - 1) ((rune lsl 6) lor (byte land 0x3F)) let get_rune rope i = let byte = (getb rope i) in if byte == 192 || byte == 193 then - (runeerr "invalid utf8 byte", i + 1) + (0xFFFD, i + 1) else let byte = (getb rope i) and len = (utfseq byte) in try decode rope (i + 1) (len - 1) (byte land utf8_seqmask.(len)) with e -> - (runeerr "failure decoding", i + 1) + (0xFFFD, i + 1) let getc rope i = let rune, next = get_rune rope i in rune -- 2.52.0