module Rep_types: sig .. end
The structure used to describe a report for its generation.
type 'a report_ele =
| |
Leaf of (unit -> string) |
| |
Tag of 'a tag |
| |
List of 'a liste |
| |
Cond of 'a cond |
| |
Sub of 'a sub |
A report element.
type 'a tag = {
|
mutable tag : string; |
|
mutable atts : (string * (unit -> string)) list; |
|
mutable tag_subs : 'a report_ele list; |
}
A tag.
type 'a liste = {
|
mutable list_subs : 'a -> 'a report_ele list; |
|
mutable f : unit -> 'a list; |
}
A list of substructures.
type 'a cond = {
|
mutable cond : unit -> bool; |
|
mutable subs_then : 'a report_ele list; |
|
mutable subs_else : 'a report_ele list; |
}
Conditional
type 'a sub = {
|
mutable sub_rep : unit -> 'a report; |
}
Subreport
type 'a report = {
}
A report description is a list of report elements.