CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

Update generated files

Browse Source
This commit is contained in:
Raphaël Monat 2023-02-21 18:37:57 +01:00
parent 5fc1e8e5d5
commit 64fa32392f
4 changed files with 125147 additions and 7595 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/shared_ast/operator.ml
View File

@ -52,12 +52,12 @@ let name : type a k. (a, k) t -> string = function
| Add_int_int -> "o_add_int_int"
| Add_rat_rat -> "o_add_rat_rat"
| Add_mon_mon -> "o_add_mon_mon"
| Add_dat_dur rm ->
begin match rm with
| Add_dat_dur rm -> begin
match rm with
| RoundUp -> "o_add_dat_dur RoundUp"
| RoundDown -> "o_add_dat_dur RoundDown"
| AbortOnRound -> "o_add_dat_dur AbortOnRound"
end
end
| Add_dur_dur -> "o_add_dur_dur"
| Sub -> "o_sub"
| Sub_int_int -> "o_sub_int_int"

132695
french_law/js/french_law.js generated
View File

File diff suppressed because one or more lines are too long

17
french_law/ocaml/law_source/aides_logement.ml generated
View File

@ -3471,7 +3471,7 @@ let calcul_age_inf_eq (calcul_age_inf_eq_in: CalculAgeInfEqIn.t) : CalculAgeInfE
"Montant du salaire minimum de croissance"]}
true))
(fun (_: unit) ->
o_lte_dat_dat (o_add_dat_dur(u) date_naissance_ annees_)
o_lte_dat_dat (o_add_dat_dur RoundUp date_naissance_ annees_)
date_courante_))
with
EmptyError -> (raise (NoValueProvided
@ -3500,7 +3500,7 @@ let calcul_age_sup_strict (calcul_age_sup_strict_in: CalculAgeSupStrictIn.t) : C
"Montant du salaire minimum de croissance"]}
true))
(fun (_: unit) ->
o_gt_dat_dat (o_add_dat_dur(u) date_naissance_ annees_)
o_gt_dat_dat (o_add_dat_dur RoundUp date_naissance_ annees_)
date_courante_))
with
EmptyError -> (raise (NoValueProvided
@ -17634,7 +17634,7 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme
(o_or
(o_or
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(parent_.AutrePersonneACharge.date_naissance)
age_l351_8_1_secu_)
date_courante_)
@ -17733,7 +17733,7 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme
(raise EmptyError)))))))).CalculAgeInfEq.r)))
(o_and
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(parent_.AutrePersonneACharge.date_naissance)
age_l161_17_2_secu_)
date_courante_)
@ -18433,7 +18433,7 @@ let eligibilite_prestations_familiales (eligibilite_prestations_familiales_in: E
(enfant_.EnfantPrestationsFamiliales.remuneration_mensuelle)
plafond_l512_3_2_)
(o_gt_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.EnfantPrestationsFamiliales.date_de_naissance)
age_l512_3_2_)
date_courante_)))))
@ -27305,9 +27305,10 @@ let eligibilite_prime_de_demenagement (eligibilite_prime_de_demenagement_in: Eli
with
| DateDeNaissanceOuMoisDeGrossesse.DateDeNaissance date_naissance_ ->
(o_lte_dat_dat date_courante_
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(o_firstDayOfMonth
(o_add_dat_dur(a) date_naissance_
(o_add_dat_dur AbortOnRound
date_naissance_
(duration_of_numbers (2) (0) (0))))
(duration_of_numbers (0) (0) (-1))))
| DateDeNaissanceOuMoisDeGrossesse.AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse _ ->
@ -29109,7 +29110,7 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi
false
| SituationFamiliale.Maries date_mariage_ ->
(o_lte_dat_dat date_courante_
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
date_mariage_
duree_l841_1_3_))
| SituationFamiliale.Pacses _ ->

24
french_law/ocaml/law_source/allocations_familiales.ml generated
View File

@ -503,7 +503,7 @@ let calcul_age_inf_eq (calcul_age_inf_eq_in: CalculAgeInfEqIn.t) : CalculAgeInfE
"Montant du salaire minimum de croissance"]}
true))
(fun (_: unit) ->
o_lte_dat_dat (o_add_dat_dur(u) date_naissance_ annees_)
o_lte_dat_dat (o_add_dat_dur RoundUp date_naissance_ annees_)
date_courante_))
with
EmptyError -> (raise (NoValueProvided
@ -532,7 +532,7 @@ let calcul_age_sup_strict (calcul_age_sup_strict_in: CalculAgeSupStrictIn.t) : C
"Montant du salaire minimum de croissance"]}
true))
(fun (_: unit) ->
o_gt_dat_dat (o_add_dat_dur(u) date_naissance_ annees_)
o_gt_dat_dat (o_add_dat_dur RoundUp date_naissance_ annees_)
date_courante_))
with
EmptyError -> (raise (NoValueProvided
@ -1461,7 +1461,7 @@ let prestations_familiales (prestations_familiales_in: PrestationsFamilialesIn.t
(enfant_.Enfant.remuneration_mensuelle)
plafond_l512_3_2_)
(o_gt_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
age_l512_3_2_)
date_courante_)))))
@ -2112,7 +2112,7 @@ let allocations_familiales (allocations_familiales_in: AllocationsFamilialesIn.t
"Partie réglementaire - Décrets en Conseil d'Etat";
"Code de la sécurité sociale"]}
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
(duration_of_numbers (11) (0) (0)))
(date_of_numbers (2008) (4) (30)))))
@ -2608,7 +2608,7 @@ let allocations_familiales (allocations_familiales_in: AllocationsFamilialesIn.t
(o_and
(o_lt_dur_dur
(o_sub_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
prestations_familiales_dot_age_l512_3_2_)
date_courante_)
@ -3709,7 +3709,7 @@ let allocations_familiales (allocations_familiales_in: AllocationsFamilialesIn.t
enfants_a_charge_droit_ouvert_prestation_familiale_)
nombre_enfants_alinea_2_l521_3_)
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
((log_end_call
["AllocationsFamiliales";
@ -3754,7 +3754,7 @@ let allocations_familiales (allocations_familiales_in: AllocationsFamilialesIn.t
"est_enfant_le_plus_âgé"; "input0"]
(embed_enfant) enfant_))))))))
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
((log_end_call
["AllocationsFamiliales";
@ -4949,12 +4949,12 @@ let allocations_familiales (allocations_familiales_in: AllocationsFamilialesIn.t
(integer_of_string "1"))
(o_and
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
(duration_of_numbers (11) (0) (0)))
date_courante_)
(o_gt_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
(duration_of_numbers (16) (0) (0)))
date_courante_)))))))
@ -5001,7 +5001,7 @@ let allocations_familiales (allocations_familiales_in: AllocationsFamilialesIn.t
enfants_a_charge_droit_ouvert_prestation_familiale_)
(integer_of_string "1"))
(o_lte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.Enfant.date_de_naissance)
(duration_of_numbers (16) (0) (0)))
date_courante_))))))
@ -5444,14 +5444,14 @@ let interface_allocations_familiales (interface_allocations_familiales_in: Inter
Enfant.obligation_scolaire =
( if
(o_gte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.EnfantEntree.d_date_de_naissance)
(duration_of_numbers (3) (0) (0)))
i_date_courante_) then
(SituationObligationScolaire.Avant ()) else
( if
(o_gte_dat_dat
(o_add_dat_dur(a)
(o_add_dat_dur AbortOnRound
(enfant_.EnfantEntree.d_date_de_naissance)
(duration_of_numbers (16) (0) (0)))
i_date_courante_) then