Module Rep_desc (.ml)


module Rep_desc: sig .. end
Types for report description.


type report_ele =
| Leaf of leaf
| Tag of tag
| List of liste
| Cond of cond
| Sub of sub
| Mark of mark
| Then of cond
| Else of cond

type leaf = {
   mutable leaf : string;
}
type tag = {
   mutable tag : string;
   mutable atts : (string * string) list;
   mutable tag_subs : report_ele list;
}
type sub = {
   mutable sub_code : string;
}
type liste = {
   mutable var : string;
   mutable f : string;
   mutable list_subs : report_ele list;
}
type cond = {
   mutable cond : string;
   mutable subs_then : report_ele list;
   mutable subs_else : report_ele list;
}
type mark = {
   mutable mark_id : string; (*the caml id for the mark*)
   mutable mark_name : string; (*the mark name*)
}
type report = {
   mutable rep_header : string;
   mutable rep_params : string list;
   mutable rep_eles : report_ele list;
}