Diagnostics.InitStatefulval diag :
Cobol_common__.Diagnostics_sigs.severity ->
?loc:Srcloc.srcloc ->
_ Pretty.procval hint : ?loc:Srcloc.srcloc -> _ Pretty.procval note : ?loc:Srcloc.srcloc -> _ Pretty.procval info : ?loc:Srcloc.srcloc -> _ Pretty.procval warn : ?loc:Srcloc.srcloc -> _ Pretty.procval error : ?loc:Srcloc.srcloc -> _ Pretty.procval blind : t -> unitval add_all : diagnostics -> unitval grab_diags : 'a with_diags -> 'aval inspect : reset:bool -> diagnostics