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

---
 cell.ml | 70 -----------------------------------------------------------------
 1 file changed, 70 deletions(-)
 delete mode 100755 cell.ml

(limited to 'cell.ml')

diff --git a/cell.ml b/cell.ml
deleted file mode 100755
index e6ccd63..0000000
--- a/cell.ml
+++ /dev/null
@@ -1,70 +0,0 @@
-type t = (int * int) * (bool * bool)
-
-let u = UTF8.from_utf8string
-
-let from_string (fixed_x, x_name) (fixed_y, y) =
-
-  let x = ref 0 in
-  String.iter (function
-  | 'a'..'z' as c -> x:= (!x * 26) + ((int_of_char c) - 96)
-  | 'A'..'Z' as c -> x:= (!x * 26) + ((int_of_char c) - 64)
-  | _ -> ()
-  ) x_name;
-  (!x, y), (fixed_x, fixed_y)
-
-let to_hname x = begin
-  let rec extract acc value =
-    if value > 0 then (
-      let value' = value - 1 in
-      let rem = value' mod 26 in
-      let quot = (value' - rem) / 26
-      in extract ((char_of_int (65 + rem))::acc) quot
-    ) else (
-      acc
-    )
-  in
-  let res = extract [] x
-  and buff = UTF8.Buffer.create 4 in
-  List.iter (fun c -> UTF8.Buffer.add_char buff c) res;
-  UTF8.Buffer.contents buff
-end
-
-let to_string ((x, y), (fixed_x, fixed_y)) =
-  let buff = UTF8.Buffer.create 2 in
-
-  if fixed_x then UTF8.Buffer.add_char buff '$';
-  UTF8.Buffer.add_string buff (to_hname x);
-  if fixed_y then UTF8.Buffer.add_char buff '$';
-  UTF8.Buffer.add_string buff @@ u @@ string_of_int y;
-  UTF8.Buffer.contents buff
-
-let to_buffer buff ((x, y), (fixed_x, fixed_y)) = begin
-  if fixed_x then UTF8.Buffer.add_char buff '$';
-  UTF8.Buffer.add_string buff (to_hname x);
-  if fixed_y then UTF8.Buffer.add_char buff '$';
-  UTF8.Buffer.add_string buff @@ u @@ string_of_int y
-end
-
-let to_string t =
-  let buff = UTF8.Buffer.create 2 in
-  to_buffer buff t;
-  UTF8.Buffer.contents buff
-
-let to_pair = Pervasives.fst
-
-module Set = (struct
-  include Set.Make(struct
-    type t = (int * int)
-    let compare = Pervasives.compare
-  end)
-
-  let show_int_tuple b t = Tools.Tuple2.printb
-    (fun b x -> UTF8.Buffer.add_string b @@u(string_of_int x))
-    (fun b x -> UTF8.Buffer.add_string b @@u(string_of_int x))
-    b t
-
-  let printb buff =
-    iter (fun x -> to_buffer buff (x, (false,false)); UTF8.Buffer.add_char buff ' ')
-
-end)
-
-- 
cgit v1.2.3