module Fsm_expr:sig
..end
typeident =
string
typevalue =
int
type
t =
| |
EConst of |
(* |
Constants
| *) |
| |
EVar of |
(* |
Input, output or local variable
| *) |
| |
EBinop of |
(* |
Binary operation (
"+" , "-" , "*" or "/" ) | *) |
typeenv =
(ident * value option) list
exception Unknown of ident
exception Unbound of ident
exception Illegal_expr
val to_string : t -> string
val of_string : string -> t
val lookup : env -> ident -> value
val eval : env -> t -> value
val lexer : string -> Genlex.token Stream.t
val parse : Genlex.token Stream.t -> t