Module `Cobol_preproc.Directives`

type compiler_directive =

| CDir_source of Src_format.any Cobol_common.Srcloc.TYPES.with_loc

type copy_statement =

| CDirCopy of {
1. library : library;
2. suppress_printing : bool;
3. replacing : replacing Cobol_common.Srcloc.TYPES.with_loc list;
}

and replace_statement =

| CDirReplace of {
1. also : bool;
2. replacing : replacing Cobol_common.Srcloc.TYPES.with_loc list;
}
| CDirReplaceOff of {
1. last : bool;
}

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 {
1. repl_from : Text.TYPES.pseudotext Cobol_common.Srcloc.TYPES.with_loc;
2. repl_to : Text.TYPES.pseudotext Cobol_common.Srcloc.TYPES.with_loc;
}
| ReplacePartial of {
1. repl_subst : partial_subst Cobol_common.Srcloc.TYPES.with_loc;
2. 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;

}

and replacing_direction =

| Leading
| Trailing

type partial_replacing = {

repl_dir : replacing_direction;
repl_strict : bool;

}