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