Cobol_preproc.Directives
type compiler_directive =
| CDir_source of Src_format.any Cobol_common.Srcloc.TYPES.with_loc
| CDir_control_section
type copy_statement =
| CDirCopy of {
library : library;
suppress_printing : bool;
replacing : replacing Cobol_common.Srcloc.TYPES.with_loc list;
}
and replace_statement =
| CDirReplace of {
also : bool;
replacing : replacing Cobol_common.Srcloc.TYPES.with_loc list;
}
| CDirReplaceOff of {
}
and library = {
txtname : fileloc Cobol_common.Srcloc.TYPES.with_loc;
libname : fileloc Cobol_common.Srcloc.TYPES.with_loc option;
}
and fileloc = Cobol_common.Copybook.fileloc
and replacing =
| ReplaceExact of {
repl_from : Text.TYPES.pseudotext Cobol_common.Srcloc.TYPES.with_loc;
repl_to : Text.TYPES.pseudotext Cobol_common.Srcloc.TYPES.with_loc;
}
| ReplacePartial of {
repl_subst : partial_subst Cobol_common.Srcloc.TYPES.with_loc;
repl_to : string Cobol_common.Srcloc.TYPES.with_loc option;
}
and partial_subst = {
partial_subst_dir : replacing_direction;
partial_subst_len : int;
partial_subst_regexp : Str.regexp;
}