1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open Lang
open Il
type t =
| Extern of nottyp * Hints.Input.t
| Defined of nottyp * Hints.Input.t * rulegroup list * elsegroup option
let to_string = function
| Extern (nottyp_il, inputs) ->
Hints.Input.to_string inputs
^ " = extern "
^ Print.string_of_nottyp nottyp_il
| Defined (nottyp_il, inputs, rulegroups, elsegroup_opt) ->
Hints.Input.to_string inputs
^ " = "
^ Print.string_of_nottyp nottyp_il
^ "\n\n"
^ Print.string_of_rulegroups rulegroups
^ Print.string_of_elsegroup_opt elsegroup_opt