Module Mlang.Irj_ast

val mk_position : (Stdlib.Lexing.position * Stdlib.Lexing.position) -> Pos.t
type literal =
| I of int
| F of float
type var_value = string Pos.marked * literal Pos.marked
type calc_error = string Pos.marked
type rappel = {
event_nb : int;
rappel_nb : int;
variable_code : string;
change_value : int;
direction : string;
penalty_code : int option;
base_tolerance_legale : int option;
month_year : int;
decl_2042_rect : int option;
pos : Pos.t;
}
type prim_data_block = {
entrees : var_value list;
controles_attendus : calc_error list;
resultats_attendus : var_value list;
}
type corr_data_block = {
entrees_rappels : rappel list;
controles_attendus : calc_error list;
resultats_attendus : var_value list;
}
type irj_file = {
nom : string;
prim : prim_data_block;
rapp : corr_data_block option;
}