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