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