summaryrefslogtreecommitdiff
path: root/interpret/interface.ml
diff options
context:
space:
mode:
authorAlex Auvolat <alex.auvolat@ansys.com>2014-06-17 15:31:47 +0200
committerAlex Auvolat <alex.auvolat@ansys.com>2014-06-17 15:31:47 +0200
commitce4f339ced19e2ff7d79c2c8ec5b3ee478d5d365 (patch)
treeea18aa2b09601987bf3f2978c4986679b80e47a7 /interpret/interface.ml
parentd57e3491720e912b4e2fd6c73f9d356901a42df5 (diff)
downloadscade-analyzer-ce4f339ced19e2ff7d79c2c8ec5b3ee478d5d365.tar.gz
scade-analyzer-ce4f339ced19e2ff7d79c2c8ec5b3ee478d5d365.zip
Add bindings to apron. Next : work on abstract interpret.
Diffstat (limited to 'interpret/interface.ml')
-rw-r--r--interpret/interface.ml46
1 files changed, 0 insertions, 46 deletions
diff --git a/interpret/interface.ml b/interpret/interface.ml
deleted file mode 100644
index 621bfa2..0000000
--- a/interpret/interface.ml
+++ /dev/null
@@ -1,46 +0,0 @@
-open Ast
-open Util
-
-
-module type INTERPRET = sig
-
-
- exception Bad_datatype
- type value
-
- val int_value : int -> value
- val bool_value : bool -> value
- val real_value : float -> value
-
- val as_int : value -> int
- val as_bool : value -> bool
- val as_real : value -> float
-
- val str_repr_of_val : value -> string
-
- type state
-
- val print_state : Format.formatter -> state -> unit
-
- type io = (id * value) list
-
- (*
- Get the constants only
- *)
- val consts : prog -> id -> value VarMap.t
-
- (*
- Construct initial state for a program.
- The id is the root node of the program evaluation.
- *)
- val init_state : prog -> id -> state
-
- (*
- Run a step of the program (not necessary to specify the program,
- it should be encoded in the state).
- State -> Inputs -> Next state, Outputs
- *)
- val step : state -> io -> (state * io)
-
-end
-