aboutsummaryrefslogtreecommitdiff
path: root/instptr.mli
diff options
context:
space:
mode:
authorpacien2018-04-29 20:24:38 +0200
committerpacien2018-04-29 20:24:38 +0200
commit0647f37eebbefb8446fc8abfc533a23952fbb8be (patch)
treefc9d69f32bd6c04de27c3795f6d54ed150bd4958 /instptr.mli
parent80d7f0f204aacefa768d34f6db30108cb430cede (diff)
downloadurm-0647f37eebbefb8446fc8abfc533a23952fbb8be.tar.gz
Move sources to dedicated directory
Diffstat (limited to 'instptr.mli')
-rw-r--r--instptr.mli29
1 files changed, 0 insertions, 29 deletions
diff --git a/instptr.mli b/instptr.mli
deleted file mode 100644
index f1252b5..0000000
--- a/instptr.mli
+++ /dev/null
@@ -1,29 +0,0 @@
1(*
2 * UPEM / L3 / Functional programming / Project: URM
3 * Pacien TRAN-GIRARD, Adam NAILI
4 *)
5
6open Common
7
8(* Create an instruction pointer for an URM program. *)
9val instptr_mk : urmcmd list -> instptr
10
11(* Move the instruction pointer up. Do nothing if this is not possible. *)
12val instptr_move_up : instptr -> instptr
13
14(* Move the instruction pointer down. Do nothing if this is not possible. *)
15val instptr_move_down : instptr -> instptr
16
17(* Get the current command from the instruction pointer.
18 * Fail if the command pointer is not set on a valid command. *)
19val instptr_get : instptr -> line * urmcmd
20
21(* Get the current instruction as a string.
22 * Returns "null" is the instruction pointer is not valid. *)
23val instptr_string : instptr -> string
24
25(* Returns the pointer of instruction after a jump decided by the given offse t *)
26val instptr_jump : instptr -> int -> instptr
27
28(* Returns true if the instruction pointer is not pointing on any instruction (end of the instruction list) *)
29val instptr_end : instptr -> bool