From a6b5a6bdd138a5ccc6827bcc73580df1e9218820 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 24 Nov 2017 09:22:24 +0100
Subject: Moved all the code to src directory

---
 unicode.ml | 51 ---------------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100755 unicode.ml

(limited to 'unicode.ml')

diff --git a/unicode.ml b/unicode.ml
deleted file mode 100755
index cc8c087..0000000
--- a/unicode.ml
+++ /dev/null
@@ -1,51 +0,0 @@
-type t = Uchar.t array
-
-type decoder_encoding = Uutf.decoder_encoding
-
-let array_from_rev_list l = begin
-  let length = (List.length l) - 1 in
-  let arr = Array.make (length + 1) (Obj.magic 0) in
-  List.iteri (fun i elem -> Array.set arr (length - i) elem)  l;
-  arr
-end
-
-
-let decode ?encoding str = begin
-  let decoder = Uutf.decoder ?encoding (`String str) in
-  let rec loop buf = begin match Uutf.decode decoder with
-  | `Uchar u -> loop (u::buf)
-  | `Malformed _ -> loop (Uutf.u_rep::buf)
-  | `Await -> assert false
-  | `End -> (
-    array_from_rev_list buf
-  )
-  end in
-  loop []
-end
-
-let to_utf8 (t:t) = begin
-  let buf = Buffer.create 512 in
-  Array.iter (Uutf.Buffer.add_utf_8 buf) t;
-  Buffer.contents buf
-end
-
-let length = Array.length
-
-let get t i = Uchar.of_int @@ Array.get t i
-
-let make i v = Array.make i @@ Uchar.to_int v
-
-let init s f = Array.init s (fun x -> Uchar.to_int @@ f x)
-
-let sub = Array.sub
-
-let blit = Array.blit
-
-let concat = Array.concat
-
-let iter f t = Array.iter (fun x -> f @@ Uchar.of_int x) t
-
-
-let to_list t =
-    Array.map Uchar.of_int t
- |> Array.to_list
-- 
cgit v1.2.3