module Ast:Types des arbres de syntaxe abstraitesig
..end
type
t =
| |
Num of |
(* | Constante entière | *) |
| |
Var of |
(* | Accès à une variable | *) |
| |
Op of |
(* | Application d'un opérateur binaire 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 | *) |
val print : Pervasives.out_channel -> t -> unit
Pervasives.stdout