Adjust parser

1 files changed, 6 insertions, 3 deletions

diff --git a/src/parser.mli b/src/parser.mli
index 21fc940..2cad383 100644
--- a/src/parser.mli
+++ b/src/parser.mli
@@ -8,14 +8,17 @@ open Common
 (* Reads a file into a string. *)
 val string_of_file : in_channel -> string
 
-(* Converts lexemes into instructions. *)
-val program_of_lex : string list -> urmcmd list
+(* Converts lexemes into URM instructions. *)
+val urm_program_of_lex : string list -> urmcmd list
+
+(* Converts lexemes into EURM instructions. *)
+val eurm_program_of_lex : string list -> eurmcmd list
 
 (* Converts lexemes into registers. *)
 val regs_of_lex : string list -> reg list
 
 (* Parses the string representation of a program. *)
-val program_of_string : string -> urmcmd list
+val program_of_string : (string list -> 'a list) -> string -> 'a list
 
 (* Parses the string representation of serialized registers. *)
 val regs_of_string : string -> reg list