module Ast:sig
..end
type
t =
| |
Unit |
(* | L'unité, i.e. ne rien faire | *) |
| |
Num of |
(* | Constante entière | *) |
| |
Ref of |
(* | Nouvelle référence avec valeur initiale. | *) |
| |
Var of |
(* | Accès à une variable | *) |
| |
Set of |
(* | Assignation t1:=t2 | *) |
| |
Get of |
(* | Déréférencement !t | *) |
| |
Op of |
(* | Application d'un opérateur t1 op t2 | *) |
| |
Ifz of |
(* | Conditionnelle Ifz t1 Then t2 Else t3 | *) |
| |
Let of |
(* | Liaison locale Let x = t1 In t2 | *) |
| |
App of |
(* | Application de fonction t1 t2 | *) |
| |
Fun of |
(* | Définition de fonction Fun x -> t | *) |
| |
Fix of |
(* | Point fixe Fix x -> t | *) |
| |
Seq of |
(* | Composition séquentielle t1;t2 | *) |
type'a
env =(string * 'a) list