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