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

---
 src/sheet.mli | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100755 src/sheet.mli

(limited to 'src/sheet.mli')

diff --git a/src/sheet.mli b/src/sheet.mli
new file mode 100755
index 0000000..11881cc
--- /dev/null
+++ b/src/sheet.mli
@@ -0,0 +1,75 @@
+(** This module represent a sheet *)
+
+type cell = int * int
+  
+module Raw: sig
+
+  type t
+  
+  (** An empty sheet *)
+  val empty: t
+  
+  (** Add a new value in the sheet. The previous value is replaced 
+    @return All the successors to update and the new sheet.
+  *)
+  val add: cell -> Expression.t -> t -> Cell.Set.t * t
+  
+  val remove: cell -> t -> Cell.Set.t * t
+
+  (** Get the value content. 
+      @return None if the cell is not defined
+   *)
+  val get_value: cell -> t -> ScTypes.result option
+  
+  val get_expr: cell -> t -> Expression.t
+
+  val get_sink: cell -> t -> Cell.Set.t
+  
+  (** Fold over all the defined values *)
+  val fold: ('a -> cell -> (Expression.t * ScTypes.result ) -> 'a) -> 'a -> t -> 'a
+
+end
+
+type yank
+
+type t = {
+  selected: Selection.t;    (* The selected cell *)
+  data: Raw.t;
+  history: t list;          (* Unlimited history *)
+  yank: yank list           (* All the selected cells *)
+}
+
+type search = [
+  | `Pattern of ScTypes.result option
+  | `Next
+  | `Previous
+]
+
+(** Undo the last action and return the previous state, if any *)
+val undo: t -> t option
+
+(** Move the cursor in one direction, return the state updated if the move is
+    allowed *) 
+val move: Actions.direction -> t -> t option
+
+(** Delete the content of selected cells.
+    @return The sheet and the number of cells deleted
+*)
+val delete: t -> t * int
+
+(** Copy the selected cells 
+    @return The sheet and the number of cells deleted
+*)
+val yank: t -> t * int
+
+(** Search for a pattern on the sheet 
+    @return The state updated if the pattern has been found. *)
+val search: search -> t -> t option
+
+val paste: t -> t * int
+
+val add: Expression.t -> t -> Cell.Set.t * t
+
+(** Create an empty sheet *)
+val create: Raw.t -> t
+
-- 
cgit v1.2.3