Cobol_ptree.Terms_helpersSome utilities to construct or rewrite terms (mostly conditions for now)
val neg_condition :
neg:bool ->
'r Cobol_ptree__.Terms.cond Cobol_common.with_loc ->
'r Cobol_ptree__.Terms.condval expand_every_abbrev_cond :
(bool
* Cobol_ptree__.Terms.expr Cobol_common.Srcloc.with_loc
* Cobol_ptree__.Terms.abbrev_relation_operand Cobol_common.Srcloc.with_loc)
Cobol_ptree__.Terms.cond ->
(Cobol_ptree__.Terms.expr Cobol_common.Srcloc.with_loc
* Cobol_ptree__.Terms.relop
* Cobol_ptree__.Terms.expr Cobol_common.Srcloc.with_loc)
Cobol_ptree__.Terms.condval expand_abbrev_cond :
(bool
* Cobol_ptree__.Terms.expr Cobol_common.Srcloc.with_loc
* Cobol_ptree__.Terms.abbrev_relation_operand Cobol_common.Srcloc.with_loc) ->
(Cobol_ptree__.Terms.expr Cobol_common.Srcloc.with_loc
* Cobol_ptree__.Terms.relop
* Cobol_ptree__.Terms.expr Cobol_common.Srcloc.with_loc)
Cobol_ptree__.Terms.cond