Restore compatibility with OCaml 4.04.x (#16)

ocaml-ppx · Apr 24, 2018 · 70c4a6e · 70c4a6e
1 parent 43273dc
commit 70c4a6e
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/ast/lexer.mll b/ast/lexer.mll
@@ -98,6 +98,28 @@ let keyword_table =
     "asr", INFIXOP4("asr")
 ]
 
+module Buffer = struct (* Imported for compatibility with 4.04.x *)
+  [@@@warning "-32"]
+  let add_utf_8_uchar b u = match Uchar.to_int u with
+    | u when u < 0 -> assert false
+    | u when u <= 0x007F ->
+      Buffer.add_char b (Char.unsafe_chr u)
+    | u when u <= 0x07FF ->
+      Buffer.add_char b (Char.unsafe_chr (0xC0 lor (u lsr 6)));
+      Buffer.add_char b (Char.unsafe_chr (0x80 lor (u land 0x3F)));
+    | u when u <= 0xFFFF ->
+      Buffer.add_char b (Char.unsafe_chr (0xE0 lor (u lsr 12)));
+      Buffer.add_char b (Char.unsafe_chr (0x80 lor ((u lsr 6) land 0x3F)));
+      Buffer.add_char b (Char.unsafe_chr (0x80 lor (u land 0x3F)));
+    | u when u <= 0x10FFFF ->
+      Buffer.add_char b (Char.unsafe_chr (0xF0 lor (u lsr 18)));
+      Buffer.add_char b (Char.unsafe_chr (0x80 lor ((u lsr 12) land 0x3F)));
+      Buffer.add_char b (Char.unsafe_chr (0x80 lor ((u lsr 6) land 0x3F)));
+      Buffer.add_char b (Char.unsafe_chr (0x80 lor (u land 0x3F)));
+    | _ -> assert false
+  include Buffer
+end
+
 (* To buffer string literals *)
 
 let string_buffer = Buffer.create 256