Up

module Compact

: sig
#
type lex_tables = {
# tbl_base
: int array;
# tbl_backtrk
: int array;
# tbl_default
: int array;
# tbl_trans
: int array;
# tbl_check
: int array;
# tbl_base_code
: int array;
# tbl_backtrk_code
: int array;
# tbl_default_code
: int array;
# tbl_trans_code
: int array;
# tbl_check_code
: int array;
# tbl_code
: int array;
}
#
val compact_tables : Lexgen.automata array -> lex_tables
end