type error =
| Failure of string
type loc = {
filename : string;
line : int;
char : int;
}
type sql_type =
| Binary of int
| Varbinary of int
| Char of int
| Varchar of int
| Float of int * int option
type declaration =
| SQL_type_is of {
importance : string;
name : string;
sql_type : sql_type;
}
type statements =
| PROCEDURE_DIVISION_DOT of {
end_loc : loc;
}
| WORKING_STORAGE of {
defined : bool;
}
| LINKAGE_SECTION of {
defined : bool;
}
| EXEC_SQL of {
end_loc : loc;
with_dot : bool;
tokens : Sql_ast.esql_instruction;
}
| BEGIN_PROCEDURE_DIVISION of {
enabled : bool Stdlib.ref;
}
| END_PROCEDURE_DIVISION
| COPY of {
end_loc : loc;
filename : string;
contents : string;
}
| DECLARATION of {
end_loc : loc;
declaration : declaration;
}
| EXEC_SQL_IGNORE of {
end_loc : loc;
begin_of_ignore_loc : loc;
}
type handle = {
mutable handle_abend : string;
}
type gen_context = {
b : EzCompat.Buffer.t;
main_filename : string;
}
type config = {
scanner_config : Cobol_indent.Types.config;
sql_in_copybooks : bool;
copy_path : (string * string EzCompat.StringMap.t) list Stdlib.Lazy.t;
copy_exts : string list;
verbosity : int;
}