Module Mlang.Irj_ast

type pos = {
pos_filename : string;
pos_loc : Stdlib.Lexing.position * Stdlib.Lexing.position;
}
val mk_position : (Stdlib.Lexing.position * Stdlib.Lexing.position) -> pos
exception TestParsingError of string * pos
type literal =
| I of int
| F of float
type var_value = string * literal * pos
type calc_error = string * pos
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;
}
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;
}