module CombineAST:sig..end
type binop =
| |
Plus |
(* |
i. e.
+. | *) |
| |
Minus |
(* |
i. e.
-. | *) |
| |
Multiply |
(* |
i. e.
*. | *) |
| |
Divide |
(* |
i. e.
/. | *) |
type expr =
| |
Binop of |
(* |
i. e.
e1 op e2. | *) |
| |
Function of |
(* |
i. e.
f(e1, ..., en). | *) |
| |
File of |
(* |
i. e.
"filename". | *) |
| |
Files of |
(* |
i. e.
<regexp>. | *) |
| |
Integer of |
(* |
i. e.
123. | *) |
val to_string : expr -> string