mirror of
https://github.com/CatalaLang/catala.git
synced 2024-11-12 21:48:25 +03:00
4668 lines
198 KiB
OCaml
Generated
4668 lines
198 KiB
OCaml
Generated
(** This file has been generated by the Catala compiler, do not edit! *)
|
|
|
|
open Runtime_ocaml.Runtime
|
|
open Runtime_jsoo.Runtime
|
|
open Js_of_ocaml
|
|
open Aides_logement
|
|
|
|
[@@@ocaml.warning "-4-26-27-32-41-42"]
|
|
|
|
(* Generated API *)
|
|
|
|
class type type_pret =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "D331_32"
|
|
- "D331_63_64"
|
|
- "D331_59_8"
|
|
- "D331_76_1"
|
|
- "Autre" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_pret_to_jsoo : TypePret.t -> type_pret Js.t
|
|
= function
|
|
| D331_32 arg -> object%js
|
|
val kind = Js.string "D331_32"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| D331_63_64 arg -> object%js
|
|
val kind = Js.string "D331_63_64"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| D331_59_8 arg -> object%js
|
|
val kind = Js.string "D331_59_8"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| D331_76_1 arg -> object%js
|
|
val kind = Js.string "D331_76_1"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Autre arg -> object%js
|
|
val kind = Js.string "Autre"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_pret_of_jsoo (type_pret : type_pret Js.t) : TypePret.t =
|
|
match type_pret##.kind |> Js.to_string with
|
|
| "D331_32" -> TypePret.D331_32 ()
|
|
| "D331_63_64" -> TypePret.D331_63_64 ()
|
|
| "D331_59_8" -> TypePret.D331_59_8 ()
|
|
| "D331_76_1" -> TypePret.D331_76_1 ()
|
|
| "Autre" -> TypePret.Autre ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf "Unexpected '%s' kind for the enumeration 'TypePret.t'"
|
|
cons)
|
|
|
|
|
|
class type titulaire_pret =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Demandeur"
|
|
- "VendeurQuandDemandeurAContratLocationAccession" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let titulaire_pret_to_jsoo : TitulairePret.t -> titulaire_pret Js.t
|
|
= function
|
|
| Demandeur arg -> object%js
|
|
val kind = Js.string "Demandeur"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| VendeurQuandDemandeurAContratLocationAccession arg -> object%js
|
|
val kind = Js.string "VendeurQuandDemandeurAContratLocationAccession"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let titulaire_pret_of_jsoo (titulaire_pret : titulaire_pret Js.t)
|
|
: TitulairePret.t =
|
|
match titulaire_pret##.kind |> Js.to_string with
|
|
| "Demandeur" -> TitulairePret.Demandeur ()
|
|
| "VendeurQuandDemandeurAContratLocationAccession" ->
|
|
TitulairePret.VendeurQuandDemandeurAContratLocationAccession ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TitulairePret.t'" cons)
|
|
|
|
|
|
class type type_travaux_logement_d832_15 =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "TravauxPourAcquisitionD832_15_1"
|
|
- "TravauxSurLogementDejaAcquisD832_15_2"
|
|
- "PasDeTravaux" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_travaux_logement_d832_15_to_jsoo
|
|
: TypeTravauxLogementD83215.t -> type_travaux_logement_d832_15 Js.t
|
|
= function
|
|
| TravauxPourAcquisitionD832_15_1 arg -> object%js
|
|
val kind = Js.string "TravauxPourAcquisitionD832_15_1"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| TravauxSurLogementDejaAcquisD832_15_2 arg -> object%js
|
|
val kind = Js.string "TravauxSurLogementDejaAcquisD832_15_2"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| PasDeTravaux arg -> object%js
|
|
val kind = Js.string "PasDeTravaux"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_travaux_logement_d832_15_of_jsoo
|
|
(type_travaux_logement_d832_15 : type_travaux_logement_d832_15 Js.t)
|
|
: TypeTravauxLogementD83215.t =
|
|
match type_travaux_logement_d832_15##.kind |> Js.to_string with
|
|
| "TravauxPourAcquisitionD832_15_1" ->
|
|
TypeTravauxLogementD83215.TravauxPourAcquisitionD832_15_1 ()
|
|
| "TravauxSurLogementDejaAcquisD832_15_2" ->
|
|
TypeTravauxLogementD83215.TravauxSurLogementDejaAcquisD832_15_2 ()
|
|
| "PasDeTravaux" -> TypeTravauxLogementD83215.PasDeTravaux ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TypeTravauxLogementD83215.t'"
|
|
cons)
|
|
|
|
|
|
class type type_travaux_logement_r842_5 =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "ObjectifDecenceLogement"
|
|
- "PrevuDansListeR321_15"
|
|
- "AgrandirOuRendreHabitableD331_63"
|
|
- "PasDeTravaux" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_travaux_logement_r842_5_to_jsoo
|
|
: TypeTravauxLogementR8425.t -> type_travaux_logement_r842_5 Js.t
|
|
= function
|
|
| ObjectifDecenceLogement arg -> object%js
|
|
val kind = Js.string "ObjectifDecenceLogement"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| PrevuDansListeR321_15 arg -> object%js
|
|
val kind = Js.string "PrevuDansListeR321_15"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AgrandirOuRendreHabitableD331_63 arg -> object%js
|
|
val kind = Js.string "AgrandirOuRendreHabitableD331_63"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| PasDeTravaux arg -> object%js
|
|
val kind = Js.string "PasDeTravaux"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_travaux_logement_r842_5_of_jsoo
|
|
(type_travaux_logement_r842_5 : type_travaux_logement_r842_5 Js.t)
|
|
: TypeTravauxLogementR8425.t =
|
|
match type_travaux_logement_r842_5##.kind |> Js.to_string with
|
|
| "ObjectifDecenceLogement" ->
|
|
TypeTravauxLogementR8425.ObjectifDecenceLogement ()
|
|
| "PrevuDansListeR321_15" ->
|
|
TypeTravauxLogementR8425.PrevuDansListeR321_15 ()
|
|
| "AgrandirOuRendreHabitableD331_63" ->
|
|
TypeTravauxLogementR8425.AgrandirOuRendreHabitableD331_63 ()
|
|
| "PasDeTravaux" -> TypeTravauxLogementR8425.PasDeTravaux ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TypeTravauxLogementR8425.t'"
|
|
cons)
|
|
|
|
|
|
class type ameliore_par_occupant =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Oui"
|
|
- "Non" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let ameliore_par_occupant_to_jsoo
|
|
: AmelioreParOccupant.t -> ameliore_par_occupant Js.t
|
|
= function
|
|
| Oui arg -> object%js
|
|
val kind = Js.string "Oui"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Non arg -> object%js
|
|
val kind = Js.string "Non"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let ameliore_par_occupant_of_jsoo
|
|
(ameliore_par_occupant : ameliore_par_occupant Js.t)
|
|
: AmelioreParOccupant.t =
|
|
match ameliore_par_occupant##.kind |> Js.to_string with
|
|
| "Oui" -> AmelioreParOccupant.Oui ()
|
|
| "Non" -> AmelioreParOccupant.Non ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'AmelioreParOccupant.t'"
|
|
cons)
|
|
|
|
|
|
class type limite_tranche =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Revenu"
|
|
- "Infini" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let limite_tranche_to_jsoo : LimiteTranche.t -> limite_tranche Js.t
|
|
= function
|
|
| Revenu arg -> object%js
|
|
val kind = Js.string "Revenu"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
|
|
end
|
|
| Infini arg -> object%js
|
|
val kind = Js.string "Infini"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let limite_tranche_of_jsoo (limite_tranche : limite_tranche Js.t)
|
|
: LimiteTranche.t =
|
|
match limite_tranche##.kind |> Js.to_string with
|
|
| "Revenu" ->
|
|
LimiteTranche.Revenu (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce limite_tranche##.payload))
|
|
| "Infini" -> LimiteTranche.Infini ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'LimiteTranche.t'" cons)
|
|
|
|
|
|
class type limite_tranche_decimal =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Revenu"
|
|
- "Infini" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let limite_tranche_decimal_to_jsoo
|
|
: LimiteTrancheDecimal.t -> limite_tranche_decimal Js.t
|
|
= function
|
|
| Revenu arg -> object%js
|
|
val kind = Js.string "Revenu"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ decimal_to_float arg))
|
|
end
|
|
| Infini arg -> object%js
|
|
val kind = Js.string "Infini"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let limite_tranche_decimal_of_jsoo
|
|
(limite_tranche_decimal : limite_tranche_decimal Js.t)
|
|
: LimiteTrancheDecimal.t =
|
|
match limite_tranche_decimal##.kind |> Js.to_string with
|
|
| "Revenu" ->
|
|
LimiteTrancheDecimal.Revenu (decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce limite_tranche_decimal##.payload))
|
|
| "Infini" -> LimiteTrancheDecimal.Infini ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'LimiteTrancheDecimal.t'"
|
|
cons)
|
|
|
|
|
|
class type prestation_recue =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "AllocationsFamiliales"
|
|
- "ComplementFamilial"
|
|
- "AllocationSoutienFamilial"
|
|
- "AllocationSoutienEnfantHandicape" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let prestation_recue_to_jsoo : PrestationRecue.t -> prestation_recue Js.t
|
|
= function
|
|
| AllocationsFamiliales arg -> object%js
|
|
val kind = Js.string "AllocationsFamiliales"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| ComplementFamilial arg -> object%js
|
|
val kind = Js.string "ComplementFamilial"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AllocationSoutienFamilial arg -> object%js
|
|
val kind = Js.string "AllocationSoutienFamilial"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AllocationSoutienEnfantHandicape arg -> object%js
|
|
val kind = Js.string "AllocationSoutienEnfantHandicape"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let prestation_recue_of_jsoo (prestation_recue : prestation_recue Js.t)
|
|
: PrestationRecue.t =
|
|
match prestation_recue##.kind |> Js.to_string with
|
|
| "AllocationsFamiliales" -> PrestationRecue.AllocationsFamiliales ()
|
|
| "ComplementFamilial" -> PrestationRecue.ComplementFamilial ()
|
|
| "AllocationSoutienFamilial" ->
|
|
PrestationRecue.AllocationSoutienFamilial ()
|
|
| "AllocationSoutienEnfantHandicape" ->
|
|
PrestationRecue.AllocationSoutienEnfantHandicape ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'PrestationRecue.t'" cons)
|
|
|
|
|
|
class type parent_ou_autre =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "DemandeurOuConjointOuParentOuViaPartsSocietes"
|
|
- "Autre" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let parent_ou_autre_to_jsoo : ParentOuAutre.t -> parent_ou_autre Js.t
|
|
= function
|
|
| DemandeurOuConjointOuParentOuViaPartsSocietes arg -> object%js
|
|
val kind = Js.string "DemandeurOuConjointOuParentOuViaPartsSocietes"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ decimal_to_float arg))
|
|
end
|
|
| Autre arg -> object%js
|
|
val kind = Js.string "Autre"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let parent_ou_autre_of_jsoo (parent_ou_autre : parent_ou_autre Js.t)
|
|
: ParentOuAutre.t =
|
|
match parent_ou_autre##.kind |> Js.to_string with
|
|
| "DemandeurOuConjointOuParentOuViaPartsSocietes" ->
|
|
ParentOuAutre.DemandeurOuConjointOuParentOuViaPartsSocietes (decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce parent_ou_autre##.payload))
|
|
| "Autre" -> ParentOuAutre.Autre ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'ParentOuAutre.t'" cons)
|
|
|
|
|
|
class type situation_garde_alternee =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "PasDeGardeAlternee"
|
|
- "GardeAlterneeCoefficientPriseEnCharge" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let situation_garde_alternee_to_jsoo
|
|
: SituationGardeAlternee.t -> situation_garde_alternee Js.t
|
|
= function
|
|
| PasDeGardeAlternee arg -> object%js
|
|
val kind = Js.string "PasDeGardeAlternee"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| GardeAlterneeCoefficientPriseEnCharge arg -> object%js
|
|
val kind = Js.string "GardeAlterneeCoefficientPriseEnCharge"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ decimal_to_float arg))
|
|
end
|
|
|
|
let situation_garde_alternee_of_jsoo
|
|
(situation_garde_alternee : situation_garde_alternee Js.t)
|
|
: SituationGardeAlternee.t =
|
|
match situation_garde_alternee##.kind |> Js.to_string with
|
|
| "PasDeGardeAlternee" -> SituationGardeAlternee.PasDeGardeAlternee ()
|
|
| "GardeAlterneeCoefficientPriseEnCharge" ->
|
|
SituationGardeAlternee.GardeAlterneeCoefficientPriseEnCharge (decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce situation_garde_alternee##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'SituationGardeAlternee.t'"
|
|
cons)
|
|
|
|
|
|
class type parente =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Ascendant"
|
|
- "Descendant"
|
|
- "CollateralDeuxiemeTroisiemeDegre" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let parente_to_jsoo : Parente.t -> parente Js.t
|
|
= function
|
|
| Ascendant arg -> object%js
|
|
val kind = Js.string "Ascendant"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Descendant arg -> object%js
|
|
val kind = Js.string "Descendant"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| CollateralDeuxiemeTroisiemeDegre arg -> object%js
|
|
val kind = Js.string "CollateralDeuxiemeTroisiemeDegre"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let parente_of_jsoo (parente : parente Js.t) : Parente.t =
|
|
match parente##.kind |> Js.to_string with
|
|
| "Ascendant" -> Parente.Ascendant ()
|
|
| "Descendant" -> Parente.Descendant ()
|
|
| "CollateralDeuxiemeTroisiemeDegre" ->
|
|
Parente.CollateralDeuxiemeTroisiemeDegre ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf "Unexpected '%s' kind for the enumeration 'Parente.t'"
|
|
cons)
|
|
|
|
|
|
class type date_de_naissance_ou_mois_de_grossesse =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "DateDeNaissance"
|
|
- "AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse"
|
|
- "ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let date_de_naissance_ou_mois_de_grossesse_to_jsoo
|
|
: DateDeNaissanceOuMoisDeGrossesse.t -> date_de_naissance_ou_mois_de_grossesse Js.t
|
|
= function
|
|
| DateDeNaissance arg -> object%js
|
|
val kind = Js.string "DateDeNaissance"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_to_jsoo arg))
|
|
end
|
|
| AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse arg -> object%js
|
|
val kind = Js.string "AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse arg -> object%js
|
|
val kind = Js.string "ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let date_de_naissance_ou_mois_de_grossesse_of_jsoo
|
|
(date_de_naissance_ou_mois_de_grossesse
|
|
: date_de_naissance_ou_mois_de_grossesse Js.t)
|
|
: DateDeNaissanceOuMoisDeGrossesse.t =
|
|
match date_de_naissance_ou_mois_de_grossesse##.kind |> Js.to_string with
|
|
| "DateDeNaissance" ->
|
|
DateDeNaissanceOuMoisDeGrossesse.DateDeNaissance (date_of_jsoo (Js.Unsafe.coerce date_de_naissance_ou_mois_de_grossesse##.payload))
|
|
| "AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse" ->
|
|
DateDeNaissanceOuMoisDeGrossesse.AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse ()
|
|
| "ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse" ->
|
|
DateDeNaissanceOuMoisDeGrossesse.ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'DateDeNaissanceOuMoisDeGrossesse.t'"
|
|
cons)
|
|
|
|
|
|
class type zone_d_habitation =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Zone1"
|
|
- "Zone2"
|
|
- "Zone3" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let zone_d_habitation_to_jsoo : ZoneDHabitation.t -> zone_d_habitation Js.t
|
|
= function
|
|
| Zone1 arg -> object%js
|
|
val kind = Js.string "Zone1"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Zone2 arg -> object%js
|
|
val kind = Js.string "Zone2"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Zone3 arg -> object%js
|
|
val kind = Js.string "Zone3"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let zone_d_habitation_of_jsoo (zone_d_habitation : zone_d_habitation Js.t)
|
|
: ZoneDHabitation.t =
|
|
match zone_d_habitation##.kind |> Js.to_string with
|
|
| "Zone1" -> ZoneDHabitation.Zone1 ()
|
|
| "Zone2" -> ZoneDHabitation.Zone2 ()
|
|
| "Zone3" -> ZoneDHabitation.Zone3 ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'ZoneDHabitation.t'" cons)
|
|
|
|
|
|
class type versement_a =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Bailleur"
|
|
- "Beneficiaire"
|
|
- "EtablissementHabilite" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let versement_a_to_jsoo : VersementA.t -> versement_a Js.t
|
|
= function
|
|
| Bailleur arg -> object%js
|
|
val kind = Js.string "Bailleur"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Beneficiaire arg -> object%js
|
|
val kind = Js.string "Beneficiaire"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| EtablissementHabilite arg -> object%js
|
|
val kind = Js.string "EtablissementHabilite"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let versement_a_of_jsoo (versement_a : versement_a Js.t) : VersementA.t =
|
|
match versement_a##.kind |> Js.to_string with
|
|
| "Bailleur" -> VersementA.Bailleur ()
|
|
| "Beneficiaire" -> VersementA.Beneficiaire ()
|
|
| "EtablissementHabilite" -> VersementA.EtablissementHabilite ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'VersementA.t'" cons)
|
|
|
|
|
|
class type depense_logement =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "TotalAnnuelEcheances"
|
|
- "Mensualite"
|
|
- "Loyer" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let depense_logement_to_jsoo : DepenseLogement.t -> depense_logement Js.t
|
|
= function
|
|
| TotalAnnuelEcheances arg -> object%js
|
|
val kind = Js.string "TotalAnnuelEcheances"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
|
|
end
|
|
| Mensualite arg -> object%js
|
|
val kind = Js.string "Mensualite"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
|
|
end
|
|
| Loyer arg -> object%js
|
|
val kind = Js.string "Loyer"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
|
|
end
|
|
|
|
let depense_logement_of_jsoo (depense_logement : depense_logement Js.t)
|
|
: DepenseLogement.t =
|
|
match depense_logement##.kind |> Js.to_string with
|
|
| "TotalAnnuelEcheances" ->
|
|
DepenseLogement.TotalAnnuelEcheances (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce depense_logement##.payload))
|
|
| "Mensualite" ->
|
|
DepenseLogement.Mensualite (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce depense_logement##.payload))
|
|
| "Loyer" ->
|
|
DepenseLogement.Loyer (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce depense_logement##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'DepenseLogement.t'" cons)
|
|
|
|
|
|
class type mode_occupation_impaye =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "ImpayeLoyer"
|
|
- "ImpayePret" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let mode_occupation_impaye_to_jsoo
|
|
: ModeOccupationImpaye.t -> mode_occupation_impaye Js.t
|
|
= function
|
|
| ImpayeLoyer arg -> object%js
|
|
val kind = Js.string "ImpayeLoyer"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| ImpayePret arg -> object%js
|
|
val kind = Js.string "ImpayePret"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let mode_occupation_impaye_of_jsoo
|
|
(mode_occupation_impaye : mode_occupation_impaye Js.t)
|
|
: ModeOccupationImpaye.t =
|
|
match mode_occupation_impaye##.kind |> Js.to_string with
|
|
| "ImpayeLoyer" -> ModeOccupationImpaye.ImpayeLoyer ()
|
|
| "ImpayePret" -> ModeOccupationImpaye.ImpayePret ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'ModeOccupationImpaye.t'"
|
|
cons)
|
|
|
|
|
|
class type type_eligibilite_allocation_logement =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "PasEligible"
|
|
- "AllocationLogementFamiliale"
|
|
- "AllocationLogementSociale" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_eligibilite_allocation_logement_to_jsoo
|
|
: TypeEligibiliteAllocationLogement.t -> type_eligibilite_allocation_logement Js.t
|
|
= function
|
|
| PasEligible arg -> object%js
|
|
val kind = Js.string "PasEligible"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AllocationLogementFamiliale arg -> object%js
|
|
val kind = Js.string "AllocationLogementFamiliale"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AllocationLogementSociale arg -> object%js
|
|
val kind = Js.string "AllocationLogementSociale"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_eligibilite_allocation_logement_of_jsoo
|
|
(type_eligibilite_allocation_logement
|
|
: type_eligibilite_allocation_logement Js.t)
|
|
: TypeEligibiliteAllocationLogement.t =
|
|
match type_eligibilite_allocation_logement##.kind |> Js.to_string with
|
|
| "PasEligible" -> TypeEligibiliteAllocationLogement.PasEligible ()
|
|
| "AllocationLogementFamiliale" ->
|
|
TypeEligibiliteAllocationLogement.AllocationLogementFamiliale ()
|
|
| "AllocationLogementSociale" ->
|
|
TypeEligibiliteAllocationLogement.AllocationLogementSociale ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TypeEligibiliteAllocationLogement.t'"
|
|
cons)
|
|
|
|
|
|
class type accord_financement_representant_etat_outre_mer =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Accord"
|
|
- "PasdAccord" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let accord_financement_representant_etat_outre_mer_to_jsoo
|
|
: AccordFinancementRepresentantEtatOutreMer.t -> accord_financement_representant_etat_outre_mer Js.t
|
|
= function
|
|
| Accord arg -> object%js
|
|
val kind = Js.string "Accord"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_to_jsoo arg))
|
|
end
|
|
| PasdAccord arg -> object%js
|
|
val kind = Js.string "PasdAccord"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let accord_financement_representant_etat_outre_mer_of_jsoo
|
|
(accord_financement_representant_etat_outre_mer
|
|
: accord_financement_representant_etat_outre_mer Js.t)
|
|
: AccordFinancementRepresentantEtatOutreMer.t =
|
|
match accord_financement_representant_etat_outre_mer##.kind |> Js.to_string
|
|
with
|
|
| "Accord" ->
|
|
AccordFinancementRepresentantEtatOutreMer.Accord (date_of_jsoo (Js.Unsafe.coerce accord_financement_representant_etat_outre_mer##.payload))
|
|
| "PasdAccord" -> AccordFinancementRepresentantEtatOutreMer.PasdAccord ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'AccordFinancementRepresentantEtatOutreMer.t'"
|
|
cons)
|
|
|
|
|
|
class type type_aides_personnelle_logement =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "AidePersonnaliseeLogement"
|
|
- "AllocationLogementFamiliale"
|
|
- "AllocationLogementSociale" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_aides_personnelle_logement_to_jsoo
|
|
: TypeAidesPersonnelleLogement.t -> type_aides_personnelle_logement Js.t
|
|
= function
|
|
| AidePersonnaliseeLogement arg -> object%js
|
|
val kind = Js.string "AidePersonnaliseeLogement"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AllocationLogementFamiliale arg -> object%js
|
|
val kind = Js.string "AllocationLogementFamiliale"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AllocationLogementSociale arg -> object%js
|
|
val kind = Js.string "AllocationLogementSociale"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_aides_personnelle_logement_of_jsoo
|
|
(type_aides_personnelle_logement : type_aides_personnelle_logement Js.t)
|
|
: TypeAidesPersonnelleLogement.t =
|
|
match type_aides_personnelle_logement##.kind |> Js.to_string with
|
|
| "AidePersonnaliseeLogement" ->
|
|
TypeAidesPersonnelleLogement.AidePersonnaliseeLogement ()
|
|
| "AllocationLogementFamiliale" ->
|
|
TypeAidesPersonnelleLogement.AllocationLogementFamiliale ()
|
|
| "AllocationLogementSociale" ->
|
|
TypeAidesPersonnelleLogement.AllocationLogementSociale ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TypeAidesPersonnelleLogement.t'"
|
|
cons)
|
|
|
|
|
|
class type situation_familiale =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Celibataire"
|
|
- "Maries"
|
|
- "Pacses"
|
|
- "Concubins"
|
|
- "CelibataireSepareDeFait"
|
|
- "ConcubinageDontSepareDeFait" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let situation_familiale_to_jsoo
|
|
: SituationFamiliale.t -> situation_familiale Js.t
|
|
= function
|
|
| Celibataire arg -> object%js
|
|
val kind = Js.string "Celibataire"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Maries arg -> object%js
|
|
val kind = Js.string "Maries"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_to_jsoo arg))
|
|
end
|
|
| Pacses arg -> object%js
|
|
val kind = Js.string "Pacses"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Concubins arg -> object%js
|
|
val kind = Js.string "Concubins"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| CelibataireSepareDeFait arg -> object%js
|
|
val kind = Js.string "CelibataireSepareDeFait"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| ConcubinageDontSepareDeFait arg -> object%js
|
|
val kind = Js.string "ConcubinageDontSepareDeFait"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let situation_familiale_of_jsoo
|
|
(situation_familiale : situation_familiale Js.t) : SituationFamiliale.t =
|
|
match situation_familiale##.kind |> Js.to_string with
|
|
| "Celibataire" -> SituationFamiliale.Celibataire ()
|
|
| "Maries" ->
|
|
SituationFamiliale.Maries (date_of_jsoo (Js.Unsafe.coerce situation_familiale##.payload))
|
|
| "Pacses" -> SituationFamiliale.Pacses ()
|
|
| "Concubins" -> SituationFamiliale.Concubins ()
|
|
| "CelibataireSepareDeFait" ->
|
|
SituationFamiliale.CelibataireSepareDeFait ()
|
|
| "ConcubinageDontSepareDeFait" ->
|
|
SituationFamiliale.ConcubinageDontSepareDeFait ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'SituationFamiliale.t'"
|
|
cons)
|
|
|
|
|
|
class type type_logement_foyer =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "LogementPersonnesAgeesOuHandicapees"
|
|
- "ResidenceSociale"
|
|
- "FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995"
|
|
- "Autre" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_logement_foyer_to_jsoo
|
|
: TypeLogementFoyer.t -> type_logement_foyer Js.t
|
|
= function
|
|
| LogementPersonnesAgeesOuHandicapees arg -> object%js
|
|
val kind = Js.string "LogementPersonnesAgeesOuHandicapees"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| ResidenceSociale arg -> object%js
|
|
val kind = Js.string "ResidenceSociale"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995 arg -> object%js
|
|
val kind = Js.string "FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Autre arg -> object%js
|
|
val kind = Js.string "Autre"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_logement_foyer_of_jsoo
|
|
(type_logement_foyer : type_logement_foyer Js.t) : TypeLogementFoyer.t =
|
|
match type_logement_foyer##.kind |> Js.to_string with
|
|
| "LogementPersonnesAgeesOuHandicapees" ->
|
|
TypeLogementFoyer.LogementPersonnesAgeesOuHandicapees ()
|
|
| "ResidenceSociale" -> TypeLogementFoyer.ResidenceSociale ()
|
|
| "FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995" ->
|
|
TypeLogementFoyer.FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995 ()
|
|
| "Autre" -> TypeLogementFoyer.Autre ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TypeLogementFoyer.t'"
|
|
cons)
|
|
|
|
|
|
class type categorie_equivalence_loyer_allocation_logement_foyer =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "EtudiantLogeEnChambreCROUS"
|
|
- "EtudiantLogeEnChambreCROUSRehabilitee"
|
|
- "PersonnesAgeesSelon3DeD842_16"
|
|
- "AutresPersonnes" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let categorie_equivalence_loyer_allocation_logement_foyer_to_jsoo
|
|
: CategorieEquivalenceLoyerAllocationLogementFoyer.t -> categorie_equivalence_loyer_allocation_logement_foyer Js.t
|
|
= function
|
|
| EtudiantLogeEnChambreCROUS arg -> object%js
|
|
val kind = Js.string "EtudiantLogeEnChambreCROUS"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| EtudiantLogeEnChambreCROUSRehabilitee arg -> object%js
|
|
val kind = Js.string "EtudiantLogeEnChambreCROUSRehabilitee"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| PersonnesAgeesSelon3DeD842_16 arg -> object%js
|
|
val kind = Js.string "PersonnesAgeesSelon3DeD842_16"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| AutresPersonnes arg -> object%js
|
|
val kind = Js.string "AutresPersonnes"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let categorie_equivalence_loyer_allocation_logement_foyer_of_jsoo
|
|
(categorie_equivalence_loyer_allocation_logement_foyer
|
|
: categorie_equivalence_loyer_allocation_logement_foyer Js.t)
|
|
: CategorieEquivalenceLoyerAllocationLogementFoyer.t =
|
|
match categorie_equivalence_loyer_allocation_logement_foyer##.kind
|
|
|> Js.to_string with
|
|
| "EtudiantLogeEnChambreCROUS" ->
|
|
CategorieEquivalenceLoyerAllocationLogementFoyer.EtudiantLogeEnChambreCROUS ()
|
|
| "EtudiantLogeEnChambreCROUSRehabilitee" ->
|
|
CategorieEquivalenceLoyerAllocationLogementFoyer.EtudiantLogeEnChambreCROUSRehabilitee ()
|
|
| "PersonnesAgeesSelon3DeD842_16" ->
|
|
CategorieEquivalenceLoyerAllocationLogementFoyer.PersonnesAgeesSelon3DeD842_16 ()
|
|
| "AutresPersonnes" ->
|
|
CategorieEquivalenceLoyerAllocationLogementFoyer.AutresPersonnes ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'CategorieEquivalenceLoyerAllocationLogementFoyer.t'"
|
|
cons)
|
|
|
|
|
|
class type situation_familiale_calcul_a_p_l =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "PersonneSeule"
|
|
- "Couple" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let situation_familiale_calcul_a_p_l_to_jsoo
|
|
: SituationFamilialeCalculAPL.t -> situation_familiale_calcul_a_p_l Js.t
|
|
= function
|
|
| PersonneSeule arg -> object%js
|
|
val kind = Js.string "PersonneSeule"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Couple arg -> object%js
|
|
val kind = Js.string "Couple"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let situation_familiale_calcul_a_p_l_of_jsoo
|
|
(situation_familiale_calcul_a_p_l : situation_familiale_calcul_a_p_l Js.t)
|
|
: SituationFamilialeCalculAPL.t =
|
|
match situation_familiale_calcul_a_p_l##.kind |> Js.to_string with
|
|
| "PersonneSeule" -> SituationFamilialeCalculAPL.PersonneSeule ()
|
|
| "Couple" -> SituationFamilialeCalculAPL.Couple ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'SituationFamilialeCalculAPL.t'"
|
|
cons)
|
|
|
|
|
|
class type collectivite =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Guadeloupe"
|
|
- "Guyane"
|
|
- "Martinique"
|
|
- "LaReunion"
|
|
- "SaintBarthelemy"
|
|
- "SaintMartin"
|
|
- "Metropole"
|
|
- "SaintPierreEtMiquelon"
|
|
- "Mayotte" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let collectivite_to_jsoo : Collectivite.t -> collectivite Js.t
|
|
= function
|
|
| Guadeloupe arg -> object%js
|
|
val kind = Js.string "Guadeloupe"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Guyane arg -> object%js
|
|
val kind = Js.string "Guyane"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Martinique arg -> object%js
|
|
val kind = Js.string "Martinique"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| LaReunion arg -> object%js
|
|
val kind = Js.string "LaReunion"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| SaintBarthelemy arg -> object%js
|
|
val kind = Js.string "SaintBarthelemy"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| SaintMartin arg -> object%js
|
|
val kind = Js.string "SaintMartin"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Metropole arg -> object%js
|
|
val kind = Js.string "Metropole"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| SaintPierreEtMiquelon arg -> object%js
|
|
val kind = Js.string "SaintPierreEtMiquelon"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Mayotte arg -> object%js
|
|
val kind = Js.string "Mayotte"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let collectivite_of_jsoo (collectivite : collectivite Js.t)
|
|
: Collectivite.t =
|
|
match collectivite##.kind |> Js.to_string with
|
|
| "Guadeloupe" -> Collectivite.Guadeloupe ()
|
|
| "Guyane" -> Collectivite.Guyane ()
|
|
| "Martinique" -> Collectivite.Martinique ()
|
|
| "LaReunion" -> Collectivite.LaReunion ()
|
|
| "SaintBarthelemy" -> Collectivite.SaintBarthelemy ()
|
|
| "SaintMartin" -> Collectivite.SaintMartin ()
|
|
| "Metropole" -> Collectivite.Metropole ()
|
|
| "SaintPierreEtMiquelon" -> Collectivite.SaintPierreEtMiquelon ()
|
|
| "Mayotte" -> Collectivite.Mayotte ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'Collectivite.t'" cons)
|
|
|
|
|
|
class type situation_obligation_scolaire =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Avant"
|
|
- "Pendant"
|
|
- "Apres" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let situation_obligation_scolaire_to_jsoo
|
|
: SituationObligationScolaire.t -> situation_obligation_scolaire Js.t
|
|
= function
|
|
| Avant arg -> object%js
|
|
val kind = Js.string "Avant"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Pendant arg -> object%js
|
|
val kind = Js.string "Pendant"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Apres arg -> object%js
|
|
val kind = Js.string "Apres"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let situation_obligation_scolaire_of_jsoo
|
|
(situation_obligation_scolaire : situation_obligation_scolaire Js.t)
|
|
: SituationObligationScolaire.t =
|
|
match situation_obligation_scolaire##.kind |> Js.to_string with
|
|
| "Avant" -> SituationObligationScolaire.Avant ()
|
|
| "Pendant" -> SituationObligationScolaire.Pendant ()
|
|
| "Apres" -> SituationObligationScolaire.Apres ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'SituationObligationScolaire.t'"
|
|
cons)
|
|
|
|
|
|
class type convention_bailleur_social =
|
|
object
|
|
method conventionneLivreIIITitreVChapIII: bool Js.t Js.readonly_prop
|
|
method reductionLoyerSolidaritePercue: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let convention_bailleur_social_to_jsoo (convention_bailleur_social
|
|
: ConventionBailleurSocial.t) : convention_bailleur_social Js.t =
|
|
object%js
|
|
val conventionneLivreIIITitreVChapIII =
|
|
Js.bool convention_bailleur_social.conventionne_livre_III_titre_V_chap_III
|
|
val reductionLoyerSolidaritePercue =
|
|
Js.number_of_float @@ money_to_float convention_bailleur_social.reduction_loyer_solidarite_percue
|
|
end
|
|
let convention_bailleur_social_of_jsoo
|
|
(convention_bailleur_social : convention_bailleur_social Js.t) :
|
|
ConventionBailleurSocial.t =
|
|
{
|
|
conventionne_livre_III_titre_V_chap_III =
|
|
Js.to_bool
|
|
convention_bailleur_social##.conventionneLivreIIITitreVChapIII;
|
|
reduction_loyer_solidarite_percue =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
convention_bailleur_social##.reductionLoyerSolidaritePercue
|
|
}
|
|
|
|
class type convention_a_n_h_a =
|
|
object
|
|
method conventionneLivreIIITitreIIChapISec3: bool Js.t Js.readonly_prop
|
|
end
|
|
let convention_a_n_h_a_to_jsoo (convention_a_n_h_a : ConventionANHA.t)
|
|
: convention_a_n_h_a Js.t =
|
|
object%js
|
|
val conventionneLivreIIITitreIIChapISec3 =
|
|
Js.bool convention_a_n_h_a.conventionne_livre_III_titre_II_chap_I_sec_3
|
|
end
|
|
let convention_a_n_h_a_of_jsoo
|
|
(convention_a_n_h_a : convention_a_n_h_a Js.t) : ConventionANHA.t =
|
|
{
|
|
conventionne_livre_III_titre_II_chap_I_sec_3 =
|
|
Js.to_bool convention_a_n_h_a##.conventionneLivreIIITitreIIChapISec3
|
|
}
|
|
|
|
class type personne_sous_location =
|
|
object
|
|
method dateNaissancePersonneSousLocation:
|
|
Js.js_string Js.t Js.readonly_prop
|
|
method conformeArticleL4421: bool Js.t Js.readonly_prop
|
|
end
|
|
let personne_sous_location_to_jsoo (personne_sous_location
|
|
: PersonneSousLocation.t) : personne_sous_location Js.t =
|
|
object%js
|
|
val dateNaissancePersonneSousLocation =
|
|
date_to_jsoo personne_sous_location.date_naissance_personne_sous_location
|
|
val conformeArticleL4421 =
|
|
Js.bool personne_sous_location.conforme_article_l442_1
|
|
end
|
|
let personne_sous_location_of_jsoo
|
|
(personne_sous_location : personne_sous_location Js.t) :
|
|
PersonneSousLocation.t =
|
|
{
|
|
date_naissance_personne_sous_location =
|
|
date_of_jsoo
|
|
personne_sous_location##.dateNaissancePersonneSousLocation;
|
|
conforme_article_l442_1 =
|
|
Js.to_bool personne_sous_location##.conformeArticleL4421
|
|
}
|
|
|
|
class type conditions_etrangers =
|
|
object
|
|
method satisfaitConditionsL5122CodeSecuriteSociale:
|
|
bool Js.t Js.readonly_prop
|
|
method satisfaitArt4Ordonnance2002Mayotte: bool Js.t Js.readonly_prop
|
|
end
|
|
let conditions_etrangers_to_jsoo (conditions_etrangers
|
|
: ConditionsEtrangers.t) : conditions_etrangers Js.t =
|
|
object%js
|
|
val satisfaitConditionsL5122CodeSecuriteSociale =
|
|
Js.bool conditions_etrangers.satisfait_conditions_l512_2_code_securite_sociale
|
|
val satisfaitArt4Ordonnance2002Mayotte =
|
|
Js.bool conditions_etrangers.satisfait_art_4_ordonnance_2002_mayotte
|
|
end
|
|
let conditions_etrangers_of_jsoo
|
|
(conditions_etrangers : conditions_etrangers Js.t) :
|
|
ConditionsEtrangers.t =
|
|
{
|
|
satisfait_conditions_l512_2_code_securite_sociale =
|
|
Js.to_bool
|
|
conditions_etrangers##.satisfaitConditionsL5122CodeSecuriteSociale;
|
|
satisfait_art_4_ordonnance_2002_mayotte =
|
|
Js.to_bool conditions_etrangers##.satisfaitArt4Ordonnance2002Mayotte
|
|
}
|
|
|
|
class type eligibilite_aide_personnalisee_logement =
|
|
object
|
|
method dateCourante: Js.js_string Js.t Js.readonly_prop
|
|
method eligibilite: bool Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargePrisesEnCompte: int Js.readonly_prop
|
|
method coefficentsEnfantsGardeAlterneePrisEnCompte:
|
|
Js.number Js.t Js.js_array Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_aide_personnalisee_logement_to_jsoo
|
|
(eligibilite_aide_personnalisee_logement
|
|
: EligibiliteAidePersonnaliseeLogement.t)
|
|
: eligibilite_aide_personnalisee_logement Js.t =
|
|
object%js
|
|
val dateCourante =
|
|
date_to_jsoo eligibilite_aide_personnalisee_logement.date_courante
|
|
val eligibilite =
|
|
Js.bool eligibilite_aide_personnalisee_logement.eligibilite
|
|
val nombrePersonnesAChargePrisesEnCompte =
|
|
integer_to_int eligibilite_aide_personnalisee_logement.nombre_personnes_a_charge_prises_en_compte
|
|
val coefficentsEnfantsGardeAlterneePrisEnCompte =
|
|
Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) eligibilite_aide_personnalisee_logement.coefficents_enfants_garde_alternee_pris_en_compte
|
|
end
|
|
let eligibilite_aide_personnalisee_logement_of_jsoo
|
|
(eligibilite_aide_personnalisee_logement
|
|
: eligibilite_aide_personnalisee_logement Js.t) :
|
|
EligibiliteAidePersonnaliseeLogement.t =
|
|
{
|
|
date_courante =
|
|
date_of_jsoo eligibilite_aide_personnalisee_logement##.dateCourante;
|
|
eligibilite =
|
|
Js.to_bool eligibilite_aide_personnalisee_logement##.eligibilite;
|
|
nombre_personnes_a_charge_prises_en_compte =
|
|
integer_of_int
|
|
eligibilite_aide_personnalisee_logement
|
|
##.nombrePersonnesAChargePrisesEnCompte;
|
|
coefficents_enfants_garde_alternee_pris_en_compte =
|
|
Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
|
|
eligibilite_aide_personnalisee_logement
|
|
##.coefficentsEnfantsGardeAlterneePrisEnCompte
|
|
}
|
|
|
|
class type eligibilite_prime_de_demenagement =
|
|
object
|
|
method eligibilite: bool Js.t Js.readonly_prop
|
|
method montantPrimeDemenagement: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_prime_de_demenagement_to_jsoo
|
|
(eligibilite_prime_de_demenagement : EligibilitePrimeDeDemenagement.t)
|
|
: eligibilite_prime_de_demenagement Js.t =
|
|
object%js
|
|
val eligibilite = Js.bool eligibilite_prime_de_demenagement.eligibilite
|
|
val montantPrimeDemenagement =
|
|
Js.number_of_float @@ money_to_float eligibilite_prime_de_demenagement.montant_prime_demenagement
|
|
end
|
|
let eligibilite_prime_de_demenagement_of_jsoo
|
|
(eligibilite_prime_de_demenagement
|
|
: eligibilite_prime_de_demenagement Js.t) :
|
|
EligibilitePrimeDeDemenagement.t =
|
|
{
|
|
eligibilite = Js.to_bool eligibilite_prime_de_demenagement##.eligibilite;
|
|
montant_prime_demenagement =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
eligibilite_prime_de_demenagement##.montantPrimeDemenagement
|
|
}
|
|
|
|
class type contributions_sociales_aides_personnelle_logement =
|
|
object
|
|
method montant:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let contributions_sociales_aides_personnelle_logement_to_jsoo
|
|
(contributions_sociales_aides_personnelle_logement
|
|
: ContributionsSocialesAidesPersonnelleLogement.t)
|
|
: contributions_sociales_aides_personnelle_logement Js.t =
|
|
object%js
|
|
method montant = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (contributions_sociales_aides_personnelle_logement.montant
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let contributions_sociales_aides_personnelle_logement_of_jsoo
|
|
(contributions_sociales_aides_personnelle_logement
|
|
: contributions_sociales_aides_personnelle_logement Js.t) :
|
|
ContributionsSocialesAidesPersonnelleLogement.t =
|
|
{
|
|
montant = failwith "The function 'montant' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_locatif =
|
|
object
|
|
method montantForfaitaireChargesD82316: Js.number Js.t Js.readonly_prop
|
|
method plafondLoyerD823162: Js.number Js.t Js.readonly_prop
|
|
method participationMinimale: Js.number Js.t Js.readonly_prop
|
|
method tauxCompositionFamiliale: Js.number Js.t Js.readonly_prop
|
|
method participationPersonnelle: Js.number Js.t Js.readonly_prop
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_aide_personnalisee_logement_locatif_to_jsoo
|
|
(calcul_aide_personnalisee_logement_locatif
|
|
: CalculAidePersonnaliseeLogementLocatif.t)
|
|
: calcul_aide_personnalisee_logement_locatif Js.t =
|
|
object%js
|
|
val montantForfaitaireChargesD82316 =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif.montant_forfaitaire_charges_d823_16
|
|
val plafondLoyerD823162 =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif.plafond_loyer_d823_16_2
|
|
val participationMinimale =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif.participation_minimale
|
|
val tauxCompositionFamiliale =
|
|
Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_locatif.taux_composition_familiale
|
|
val participationPersonnelle =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif.participation_personnelle
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_locatif.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_aide_personnalisee_logement_locatif_of_jsoo
|
|
(calcul_aide_personnalisee_logement_locatif
|
|
: calcul_aide_personnalisee_logement_locatif Js.t) :
|
|
CalculAidePersonnaliseeLogementLocatif.t =
|
|
{
|
|
montant_forfaitaire_charges_d823_16 =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif
|
|
##.montantForfaitaireChargesD82316;
|
|
plafond_loyer_d823_16_2 =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif##.plafondLoyerD823162;
|
|
participation_minimale =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif##.participationMinimale;
|
|
taux_composition_familiale =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif
|
|
##.tauxCompositionFamiliale;
|
|
participation_personnelle =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif
|
|
##.participationPersonnelle;
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_equivalence_loyer_minimale =
|
|
object method montant: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calcul_equivalence_loyer_minimale_to_jsoo
|
|
(calcul_equivalence_loyer_minimale : CalculEquivalenceLoyerMinimale.t)
|
|
: calcul_equivalence_loyer_minimale Js.t =
|
|
object%js
|
|
val montant =
|
|
Js.number_of_float @@ money_to_float calcul_equivalence_loyer_minimale.montant
|
|
end
|
|
let calcul_equivalence_loyer_minimale_of_jsoo
|
|
(calcul_equivalence_loyer_minimale
|
|
: calcul_equivalence_loyer_minimale Js.t) :
|
|
CalculEquivalenceLoyerMinimale.t =
|
|
{
|
|
montant =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_equivalence_loyer_minimale##.montant
|
|
}
|
|
|
|
class type calcul_nombre_part_logement_foyer =
|
|
object method nNombrePartsD83225: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calcul_nombre_part_logement_foyer_to_jsoo
|
|
(calcul_nombre_part_logement_foyer : CalculNombrePartLogementFoyer.t)
|
|
: calcul_nombre_part_logement_foyer Js.t =
|
|
object%js
|
|
val nNombrePartsD83225 =
|
|
Js.number_of_float @@ decimal_to_float calcul_nombre_part_logement_foyer.n_nombre_parts_d832_25
|
|
end
|
|
let calcul_nombre_part_logement_foyer_of_jsoo
|
|
(calcul_nombre_part_logement_foyer
|
|
: calcul_nombre_part_logement_foyer Js.t) :
|
|
CalculNombrePartLogementFoyer.t =
|
|
{
|
|
n_nombre_parts_d832_25 =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_nombre_part_logement_foyer##.nNombrePartsD83225
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_foyer =
|
|
object
|
|
method coefficientMultiplicateurD83225: Js.number Js.t Js.readonly_prop
|
|
method coefficientRD83225: Js.number Js.t Js.readonly_prop
|
|
method nNombrePartsD83225: Js.number Js.t Js.readonly_prop
|
|
method equivalenceLoyerEligible: Js.number Js.t Js.readonly_prop
|
|
method plafondEquivalenceLoyerEligible: Js.number Js.t Js.readonly_prop
|
|
method equivalenceLoyerMinimale: Js.number Js.t Js.readonly_prop
|
|
method coefficientPriseEnChargeD83225: Js.number Js.t Js.readonly_prop
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_aide_personnalisee_logement_foyer_to_jsoo
|
|
(calcul_aide_personnalisee_logement_foyer
|
|
: CalculAidePersonnaliseeLogementFoyer.t)
|
|
: calcul_aide_personnalisee_logement_foyer Js.t =
|
|
object%js
|
|
val coefficientMultiplicateurD83225 =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer.coefficient_multiplicateur_d832_25
|
|
val coefficientRD83225 =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer.coefficient_r_d832_25
|
|
val nNombrePartsD83225 =
|
|
Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_foyer.n_nombre_parts_d832_25
|
|
val equivalenceLoyerEligible =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer.equivalence_loyer_eligible
|
|
val plafondEquivalenceLoyerEligible =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer.plafond_equivalence_loyer_eligible
|
|
val equivalenceLoyerMinimale =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer.equivalence_loyer_minimale
|
|
val coefficientPriseEnChargeD83225 =
|
|
Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_foyer.coefficient_prise_en_charge_d832_25
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_foyer.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_aide_personnalisee_logement_foyer_of_jsoo
|
|
(calcul_aide_personnalisee_logement_foyer
|
|
: calcul_aide_personnalisee_logement_foyer Js.t) :
|
|
CalculAidePersonnaliseeLogementFoyer.t =
|
|
{
|
|
coefficient_multiplicateur_d832_25 =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer
|
|
##.coefficientMultiplicateurD83225;
|
|
coefficient_r_d832_25 =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer##.coefficientRD83225;
|
|
n_nombre_parts_d832_25 =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer##.nNombrePartsD83225;
|
|
equivalence_loyer_eligible =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer##.equivalenceLoyerEligible;
|
|
plafond_equivalence_loyer_eligible =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer
|
|
##.plafondEquivalenceLoyerEligible;
|
|
equivalence_loyer_minimale =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer##.equivalenceLoyerMinimale;
|
|
coefficient_prise_en_charge_d832_25 =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer
|
|
##.coefficientPriseEnChargeD83225;
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_nombre_parts_accession_propriete =
|
|
object method nNombrePartsD83211: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calcul_nombre_parts_accession_propriete_to_jsoo
|
|
(calcul_nombre_parts_accession_propriete
|
|
: CalculNombrePartsAccessionPropriete.t)
|
|
: calcul_nombre_parts_accession_propriete Js.t =
|
|
object%js
|
|
val nNombrePartsD83211 =
|
|
Js.number_of_float @@ decimal_to_float calcul_nombre_parts_accession_propriete.n_nombre_parts_d832_11
|
|
end
|
|
let calcul_nombre_parts_accession_propriete_of_jsoo
|
|
(calcul_nombre_parts_accession_propriete
|
|
: calcul_nombre_parts_accession_propriete Js.t) :
|
|
CalculNombrePartsAccessionPropriete.t =
|
|
{
|
|
n_nombre_parts_d832_11 =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_nombre_parts_accession_propriete##.nNombrePartsD83211
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_accession_propriete =
|
|
object
|
|
method mensualiteEligible: Js.number Js.t Js.readonly_prop
|
|
method mensualiteMinimale: Js.number Js.t Js.readonly_prop
|
|
method coefficientPriseEnChargeD83210: Js.number Js.t Js.readonly_prop
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_aide_personnalisee_logement_accession_propriete_to_jsoo
|
|
(calcul_aide_personnalisee_logement_accession_propriete
|
|
: CalculAidePersonnaliseeLogementAccessionPropriete.t)
|
|
: calcul_aide_personnalisee_logement_accession_propriete Js.t =
|
|
object%js
|
|
val mensualiteEligible =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete.mensualite_eligible
|
|
val mensualiteMinimale =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete.mensualite_minimale
|
|
val coefficientPriseEnChargeD83210 =
|
|
Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_accession_propriete.coefficient_prise_en_charge_d832_10
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_accession_propriete.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_aide_personnalisee_logement_accession_propriete_of_jsoo
|
|
(calcul_aide_personnalisee_logement_accession_propriete
|
|
: calcul_aide_personnalisee_logement_accession_propriete Js.t) :
|
|
CalculAidePersonnaliseeLogementAccessionPropriete.t =
|
|
{
|
|
mensualite_eligible =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_accession_propriete
|
|
##.mensualiteEligible;
|
|
mensualite_minimale =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_accession_propriete
|
|
##.mensualiteMinimale;
|
|
coefficient_prise_en_charge_d832_10 =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_accession_propriete
|
|
##.coefficientPriseEnChargeD83210;
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_accession_propriete
|
|
##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type traitement_formule_aide_finale =
|
|
object
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let traitement_formule_aide_finale_to_jsoo (traitement_formule_aide_finale
|
|
: TraitementFormuleAideFinale.t) : traitement_formule_aide_finale Js.t =
|
|
object%js
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float traitement_formule_aide_finale.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (traitement_formule_aide_finale.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let traitement_formule_aide_finale_of_jsoo
|
|
(traitement_formule_aide_finale : traitement_formule_aide_finale Js.t) :
|
|
TraitementFormuleAideFinale.t =
|
|
{
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
traitement_formule_aide_finale##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement =
|
|
object
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_aide_personnalisee_logement_to_jsoo
|
|
(calcul_aide_personnalisee_logement : CalculAidePersonnaliseeLogement.t)
|
|
: calcul_aide_personnalisee_logement Js.t =
|
|
object%js
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_aide_personnalisee_logement_of_jsoo
|
|
(calcul_aide_personnalisee_logement
|
|
: calcul_aide_personnalisee_logement Js.t) :
|
|
CalculAidePersonnaliseeLogement.t =
|
|
{
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type infos_changement_logement_d842_4 =
|
|
object
|
|
method ancienLoyerPrincipal: Js.number Js.t Js.readonly_prop
|
|
method ancienneAllocationLogement: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let infos_changement_logement_d842_4_to_jsoo
|
|
(infos_changement_logement_d842_4 : InfosChangementLogementD8424.t)
|
|
: infos_changement_logement_d842_4 Js.t =
|
|
object%js
|
|
val ancienLoyerPrincipal =
|
|
Js.number_of_float @@ money_to_float infos_changement_logement_d842_4.ancien_loyer_principal
|
|
val ancienneAllocationLogement =
|
|
Js.number_of_float @@ money_to_float infos_changement_logement_d842_4.ancienne_allocation_logement
|
|
end
|
|
let infos_changement_logement_d842_4_of_jsoo
|
|
(infos_changement_logement_d842_4
|
|
: infos_changement_logement_d842_4 Js.t) :
|
|
InfosChangementLogementD8424.t =
|
|
{
|
|
ancien_loyer_principal =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
infos_changement_logement_d842_4##.ancienLoyerPrincipal;
|
|
ancienne_allocation_logement =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
infos_changement_logement_d842_4##.ancienneAllocationLogement
|
|
}
|
|
|
|
class type calcul_allocation_logement_locatif =
|
|
object
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_allocation_logement_locatif_to_jsoo
|
|
(calcul_allocation_logement_locatif : CalculAllocationLogementLocatif.t)
|
|
: calcul_allocation_logement_locatif Js.t =
|
|
object%js
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_allocation_logement_locatif.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_allocation_logement_locatif_of_jsoo
|
|
(calcul_allocation_logement_locatif
|
|
: calcul_allocation_logement_locatif Js.t) :
|
|
CalculAllocationLogementLocatif.t =
|
|
{
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_locatif##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_allocation_logement_accession_propriete =
|
|
object
|
|
method mensualiteEligible: Js.number Js.t Js.readonly_prop
|
|
method mensualiteMinimale: Js.number Js.t Js.readonly_prop
|
|
method coefficientPriseEnCharge: Js.number Js.t Js.readonly_prop
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_allocation_logement_accession_propriete_to_jsoo
|
|
(calcul_allocation_logement_accession_propriete
|
|
: CalculAllocationLogementAccessionPropriete.t)
|
|
: calcul_allocation_logement_accession_propriete Js.t =
|
|
object%js
|
|
val mensualiteEligible =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete.mensualite_eligible
|
|
val mensualiteMinimale =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete.mensualite_minimale
|
|
val coefficientPriseEnCharge =
|
|
Js.number_of_float @@ decimal_to_float calcul_allocation_logement_accession_propriete.coefficient_prise_en_charge
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_allocation_logement_accession_propriete.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_allocation_logement_accession_propriete_of_jsoo
|
|
(calcul_allocation_logement_accession_propriete
|
|
: calcul_allocation_logement_accession_propriete Js.t) :
|
|
CalculAllocationLogementAccessionPropriete.t =
|
|
{
|
|
mensualite_eligible =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete##.mensualiteEligible;
|
|
mensualite_minimale =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete##.mensualiteMinimale;
|
|
coefficient_prise_en_charge =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete
|
|
##.coefficientPriseEnCharge;
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_allocation_logement_foyer =
|
|
object
|
|
method coefficientPriseEnCharge: Js.number Js.t Js.readonly_prop
|
|
method equivalenceLoyer: Js.number Js.t Js.readonly_prop
|
|
method montantForfaitaireCharges: Js.number Js.t Js.readonly_prop
|
|
method loyerMinimal: Js.number Js.t Js.readonly_prop
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_allocation_logement_foyer_to_jsoo
|
|
(calcul_allocation_logement_foyer : CalculAllocationLogementFoyer.t)
|
|
: calcul_allocation_logement_foyer Js.t =
|
|
object%js
|
|
val coefficientPriseEnCharge =
|
|
Js.number_of_float @@ decimal_to_float calcul_allocation_logement_foyer.coefficient_prise_en_charge
|
|
val equivalenceLoyer =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer.equivalence_loyer
|
|
val montantForfaitaireCharges =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer.montant_forfaitaire_charges
|
|
val loyerMinimal =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer.loyer_minimal
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_allocation_logement_foyer.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_allocation_logement_foyer_of_jsoo
|
|
(calcul_allocation_logement_foyer
|
|
: calcul_allocation_logement_foyer Js.t) :
|
|
CalculAllocationLogementFoyer.t =
|
|
{
|
|
coefficient_prise_en_charge =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer##.coefficientPriseEnCharge;
|
|
equivalence_loyer =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer##.equivalenceLoyer;
|
|
montant_forfaitaire_charges =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer##.montantForfaitaireCharges;
|
|
loyer_minimal =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer##.loyerMinimal;
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_allocation_logement =
|
|
object
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_allocation_logement_to_jsoo (calcul_allocation_logement
|
|
: CalculAllocationLogement.t) : calcul_allocation_logement Js.t =
|
|
object%js
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calcul_allocation_logement.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
end
|
|
let calcul_allocation_logement_of_jsoo
|
|
(calcul_allocation_logement : calcul_allocation_logement Js.t) :
|
|
CalculAllocationLogement.t =
|
|
{
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported..."
|
|
}
|
|
|
|
class type ouverture_droits_retraite =
|
|
object
|
|
method ageOuvertureDroit:
|
|
Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
end
|
|
let ouverture_droits_retraite_to_jsoo (ouverture_droits_retraite
|
|
: OuvertureDroitsRetraite.t) : ouverture_droits_retraite Js.t =
|
|
object%js
|
|
val ageOuvertureDroit =
|
|
duration_to_jsoo ouverture_droits_retraite.age_ouverture_droit
|
|
end
|
|
let ouverture_droits_retraite_of_jsoo
|
|
(ouverture_droits_retraite : ouverture_droits_retraite Js.t) :
|
|
OuvertureDroitsRetraite.t =
|
|
{
|
|
age_ouverture_droit =
|
|
duration_of_jsoo ouverture_droits_retraite##.ageOuvertureDroit
|
|
}
|
|
|
|
class type impaye_depense_logement =
|
|
object method montantImpaye: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let impaye_depense_logement_to_jsoo (impaye_depense_logement
|
|
: ImpayeDepenseLogement.t) : impaye_depense_logement Js.t =
|
|
object%js
|
|
val montantImpaye =
|
|
Js.number_of_float @@ money_to_float impaye_depense_logement.montant_impaye
|
|
end
|
|
let impaye_depense_logement_of_jsoo
|
|
(impaye_depense_logement : impaye_depense_logement Js.t) :
|
|
ImpayeDepenseLogement.t =
|
|
{
|
|
montant_impaye =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
impaye_depense_logement##.montantImpaye
|
|
}
|
|
|
|
class type calculette_aides_au_logement =
|
|
object
|
|
method eligibilite: bool Js.t Js.readonly_prop
|
|
method aideFinaleFormule: Js.number Js.t Js.readonly_prop
|
|
method traitementAideFinale:
|
|
(unit, Js.number Js.t -> Js.number Js.t) Js.meth_callback Js.meth
|
|
method coefficentsEnfantsGardeAlterneePrisEnCompte:
|
|
Js.number Js.t Js.js_array Js.t Js.readonly_prop
|
|
end
|
|
let calculette_aides_au_logement_to_jsoo (calculette_aides_au_logement
|
|
: CalculetteAidesAuLogement.t) : calculette_aides_au_logement Js.t =
|
|
object%js
|
|
val eligibilite = Js.bool calculette_aides_au_logement.eligibilite
|
|
val aideFinaleFormule =
|
|
Js.number_of_float @@ money_to_float calculette_aides_au_logement.aide_finale_formule
|
|
method traitementAideFinale = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: Js.number Js.t) ->
|
|
Js.number_of_float @@ money_to_float (calculette_aides_au_logement.traitement_aide_finale
|
|
(money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
function_input0)))
|
|
val coefficentsEnfantsGardeAlterneePrisEnCompte =
|
|
Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) calculette_aides_au_logement.coefficents_enfants_garde_alternee_pris_en_compte
|
|
end
|
|
let calculette_aides_au_logement_of_jsoo
|
|
(calculette_aides_au_logement : calculette_aides_au_logement Js.t) :
|
|
CalculetteAidesAuLogement.t =
|
|
{
|
|
eligibilite = Js.to_bool calculette_aides_au_logement##.eligibilite;
|
|
aide_finale_formule =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calculette_aides_au_logement##.aideFinaleFormule;
|
|
traitement_aide_finale = failwith "The function 'traitement_aide_finale' translation isn't yet supported...";
|
|
coefficents_enfants_garde_alternee_pris_en_compte =
|
|
Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
|
|
calculette_aides_au_logement
|
|
##.coefficentsEnfantsGardeAlterneePrisEnCompte
|
|
}
|
|
|
|
class type calculette_aides_au_logement_garde_alternee =
|
|
object
|
|
method eligibilite: bool Js.t Js.readonly_prop
|
|
method aideFinale: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calculette_aides_au_logement_garde_alternee_to_jsoo
|
|
(calculette_aides_au_logement_garde_alternee
|
|
: CalculetteAidesAuLogementGardeAlternee.t)
|
|
: calculette_aides_au_logement_garde_alternee Js.t =
|
|
object%js
|
|
val eligibilite =
|
|
Js.bool calculette_aides_au_logement_garde_alternee.eligibilite
|
|
val aideFinale =
|
|
Js.number_of_float @@ money_to_float calculette_aides_au_logement_garde_alternee.aide_finale
|
|
end
|
|
let calculette_aides_au_logement_garde_alternee_of_jsoo
|
|
(calculette_aides_au_logement_garde_alternee
|
|
: calculette_aides_au_logement_garde_alternee Js.t) :
|
|
CalculetteAidesAuLogementGardeAlternee.t =
|
|
{
|
|
eligibilite =
|
|
Js.to_bool calculette_aides_au_logement_garde_alternee##.eligibilite;
|
|
aide_finale =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calculette_aides_au_logement_garde_alternee##.aideFinale
|
|
}
|
|
|
|
class type base_mensuelle_allocations_familiales =
|
|
object method montant: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let base_mensuelle_allocations_familiales_to_jsoo
|
|
(base_mensuelle_allocations_familiales
|
|
: BaseMensuelleAllocationsFamiliales.t)
|
|
: base_mensuelle_allocations_familiales Js.t =
|
|
object%js
|
|
val montant =
|
|
Js.number_of_float @@ money_to_float base_mensuelle_allocations_familiales.montant
|
|
end
|
|
let base_mensuelle_allocations_familiales_of_jsoo
|
|
(base_mensuelle_allocations_familiales
|
|
: base_mensuelle_allocations_familiales Js.t) :
|
|
BaseMensuelleAllocationsFamiliales.t =
|
|
{
|
|
montant =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
base_mensuelle_allocations_familiales##.montant
|
|
}
|
|
|
|
class type verification_age_inferieur_ou_egal_a =
|
|
object method estInferieurOuEgal: bool Js.t Js.readonly_prop
|
|
end
|
|
let verification_age_inferieur_ou_egal_a_to_jsoo
|
|
(verification_age_inferieur_ou_egal_a
|
|
: VerificationAgeInferieurOuEgalA.t)
|
|
: verification_age_inferieur_ou_egal_a Js.t =
|
|
object%js
|
|
val estInferieurOuEgal =
|
|
Js.bool verification_age_inferieur_ou_egal_a.est_inferieur_ou_egal
|
|
end
|
|
let verification_age_inferieur_ou_egal_a_of_jsoo
|
|
(verification_age_inferieur_ou_egal_a
|
|
: verification_age_inferieur_ou_egal_a Js.t) :
|
|
VerificationAgeInferieurOuEgalA.t =
|
|
{
|
|
est_inferieur_ou_egal =
|
|
Js.to_bool verification_age_inferieur_ou_egal_a##.estInferieurOuEgal
|
|
}
|
|
|
|
class type verification_age_superieur_a =
|
|
object method estSuperieur: bool Js.t Js.readonly_prop
|
|
end
|
|
let verification_age_superieur_a_to_jsoo (verification_age_superieur_a
|
|
: VerificationAgeSuperieurA.t) : verification_age_superieur_a Js.t =
|
|
object%js
|
|
val estSuperieur = Js.bool verification_age_superieur_a.est_superieur
|
|
end
|
|
let verification_age_superieur_a_of_jsoo
|
|
(verification_age_superieur_a : verification_age_superieur_a Js.t) :
|
|
VerificationAgeSuperieurA.t =
|
|
{est_superieur = Js.to_bool verification_age_superieur_a##.estSuperieur
|
|
}
|
|
|
|
class type smic =
|
|
object method brutHoraire: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let smic_to_jsoo (smic : Smic.t) : smic Js.t =
|
|
object%js
|
|
val brutHoraire =
|
|
Js.number_of_float @@ money_to_float smic.brut_horaire
|
|
end
|
|
let smic_of_jsoo (smic : smic Js.t) : Smic.t =
|
|
{
|
|
brut_horaire =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
smic##.brutHoraire
|
|
}
|
|
|
|
class type neuf_ou_ancien =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Neuf"
|
|
- "Ancien" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let neuf_ou_ancien_to_jsoo : NeufOuAncien.t -> neuf_ou_ancien Js.t
|
|
= function
|
|
| Neuf arg -> object%js
|
|
val kind = Js.string "Neuf"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Ancien arg -> object%js
|
|
val kind = Js.string "Ancien"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (ameliore_par_occupant_to_jsoo arg))
|
|
end
|
|
|
|
let neuf_ou_ancien_of_jsoo (neuf_ou_ancien : neuf_ou_ancien Js.t)
|
|
: NeufOuAncien.t =
|
|
match neuf_ou_ancien##.kind |> Js.to_string with
|
|
| "Neuf" -> NeufOuAncien.Neuf ()
|
|
| "Ancien" ->
|
|
NeufOuAncien.Ancien (ameliore_par_occupant_of_jsoo (Js.Unsafe.coerce neuf_ou_ancien##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'NeufOuAncien.t'" cons)
|
|
|
|
|
|
class type tranche_revenu =
|
|
object
|
|
method haut: limite_tranche Js.t Js.readonly_prop
|
|
method bas: Js.number Js.t Js.readonly_prop
|
|
method taux: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let tranche_revenu_to_jsoo (tranche_revenu : TrancheRevenu.t)
|
|
: tranche_revenu Js.t =
|
|
object%js
|
|
val haut = limite_tranche_to_jsoo tranche_revenu.haut
|
|
val bas = Js.number_of_float @@ money_to_float tranche_revenu.bas
|
|
val taux = Js.number_of_float @@ decimal_to_float tranche_revenu.taux
|
|
end
|
|
let tranche_revenu_of_jsoo (tranche_revenu : tranche_revenu Js.t) :
|
|
TrancheRevenu.t =
|
|
{
|
|
haut = limite_tranche_of_jsoo tranche_revenu##.haut;
|
|
bas =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
tranche_revenu##.bas;
|
|
taux = decimal_of_float @@ Js.float_of_number tranche_revenu##.taux
|
|
}
|
|
|
|
class type tranche_revenu_decimal =
|
|
object
|
|
method haut: limite_tranche_decimal Js.t Js.readonly_prop
|
|
method bas: Js.number Js.t Js.readonly_prop
|
|
method taux: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let tranche_revenu_decimal_to_jsoo (tranche_revenu_decimal
|
|
: TrancheRevenuDecimal.t) : tranche_revenu_decimal Js.t =
|
|
object%js
|
|
val haut = limite_tranche_decimal_to_jsoo tranche_revenu_decimal.haut
|
|
val bas =
|
|
Js.number_of_float @@ decimal_to_float tranche_revenu_decimal.bas
|
|
val taux =
|
|
Js.number_of_float @@ decimal_to_float tranche_revenu_decimal.taux
|
|
end
|
|
let tranche_revenu_decimal_of_jsoo
|
|
(tranche_revenu_decimal : tranche_revenu_decimal Js.t) :
|
|
TrancheRevenuDecimal.t =
|
|
{
|
|
haut = limite_tranche_decimal_of_jsoo tranche_revenu_decimal##.haut;
|
|
bas =
|
|
decimal_of_float @@ Js.float_of_number tranche_revenu_decimal##.bas;
|
|
taux =
|
|
decimal_of_float @@ Js.float_of_number tranche_revenu_decimal##.taux
|
|
}
|
|
|
|
class type autre_personne_a_charge =
|
|
object
|
|
method dateNaissance: Js.js_string Js.t Js.readonly_prop
|
|
method ressources: Js.number Js.t Js.readonly_prop
|
|
method ascendantDescendantCollateralDeuxiemeTroisiemeDegre:
|
|
bool Js.t Js.readonly_prop
|
|
method parente: parente Js.t Js.readonly_prop
|
|
method incapacite80PourcentOuRestrictionEmploi:
|
|
bool Js.t Js.readonly_prop
|
|
method beneficiaireL16119L3518L6433Secu: bool Js.t Js.readonly_prop
|
|
method titulaireAllocationPersonneAgee: bool Js.t Js.readonly_prop
|
|
end
|
|
let autre_personne_a_charge_to_jsoo (autre_personne_a_charge
|
|
: AutrePersonneACharge.t) : autre_personne_a_charge Js.t =
|
|
object%js
|
|
val dateNaissance = date_to_jsoo autre_personne_a_charge.date_naissance
|
|
val ressources =
|
|
Js.number_of_float @@ money_to_float autre_personne_a_charge.ressources
|
|
val ascendantDescendantCollateralDeuxiemeTroisiemeDegre =
|
|
Js.bool autre_personne_a_charge.ascendant_descendant_collateral_deuxieme_troisieme_degre
|
|
val parente = parente_to_jsoo autre_personne_a_charge.parente
|
|
val incapacite80PourcentOuRestrictionEmploi =
|
|
Js.bool autre_personne_a_charge.incapacite_80_pourcent_ou_restriction_emploi
|
|
val beneficiaireL16119L3518L6433Secu =
|
|
Js.bool autre_personne_a_charge.beneficiaire_l161_19_l351_8_l643_3_secu
|
|
val titulaireAllocationPersonneAgee =
|
|
Js.bool autre_personne_a_charge.titulaire_allocation_personne_agee
|
|
end
|
|
let autre_personne_a_charge_of_jsoo
|
|
(autre_personne_a_charge : autre_personne_a_charge Js.t) :
|
|
AutrePersonneACharge.t =
|
|
{
|
|
date_naissance = date_of_jsoo autre_personne_a_charge##.dateNaissance;
|
|
ressources =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
autre_personne_a_charge##.ressources;
|
|
ascendant_descendant_collateral_deuxieme_troisieme_degre =
|
|
Js.to_bool
|
|
autre_personne_a_charge
|
|
##.ascendantDescendantCollateralDeuxiemeTroisiemeDegre;
|
|
parente = parente_of_jsoo autre_personne_a_charge##.parente;
|
|
incapacite_80_pourcent_ou_restriction_emploi =
|
|
Js.to_bool
|
|
autre_personne_a_charge##.incapacite80PourcentOuRestrictionEmploi;
|
|
beneficiaire_l161_19_l351_8_l643_3_secu =
|
|
Js.to_bool autre_personne_a_charge##.beneficiaireL16119L3518L6433Secu;
|
|
titulaire_allocation_personne_agee =
|
|
Js.to_bool autre_personne_a_charge##.titulaireAllocationPersonneAgee
|
|
}
|
|
|
|
class type date_naissance_troisieme_ou_dernier_plus_enfant =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "MoinsDeTroisEnfants"
|
|
- "PlusDeTroisEnfants" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let date_naissance_troisieme_ou_dernier_plus_enfant_to_jsoo
|
|
: DateNaissanceTroisiemeOuDernierPlusEnfant.t -> date_naissance_troisieme_ou_dernier_plus_enfant Js.t
|
|
= function
|
|
| MoinsDeTroisEnfants arg -> object%js
|
|
val kind = Js.string "MoinsDeTroisEnfants"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| PlusDeTroisEnfants arg -> object%js
|
|
val kind = Js.string "PlusDeTroisEnfants"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_de_naissance_ou_mois_de_grossesse_to_jsoo arg))
|
|
end
|
|
|
|
let date_naissance_troisieme_ou_dernier_plus_enfant_of_jsoo
|
|
(date_naissance_troisieme_ou_dernier_plus_enfant
|
|
: date_naissance_troisieme_ou_dernier_plus_enfant Js.t)
|
|
: DateNaissanceTroisiemeOuDernierPlusEnfant.t =
|
|
match date_naissance_troisieme_ou_dernier_plus_enfant##.kind
|
|
|> Js.to_string with
|
|
| "MoinsDeTroisEnfants" ->
|
|
DateNaissanceTroisiemeOuDernierPlusEnfant.MoinsDeTroisEnfants ()
|
|
| "PlusDeTroisEnfants" ->
|
|
DateNaissanceTroisiemeOuDernierPlusEnfant.PlusDeTroisEnfants (date_de_naissance_ou_mois_de_grossesse_of_jsoo (Js.Unsafe.coerce date_naissance_troisieme_ou_dernier_plus_enfant##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'DateNaissanceTroisiemeOuDernierPlusEnfant.t'"
|
|
cons)
|
|
|
|
|
|
class type eligibilite_allocation_logement =
|
|
object
|
|
method eligibilite:
|
|
type_eligibilite_allocation_logement Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargePrisesEnCompte: int Js.readonly_prop
|
|
method coefficentsEnfantsGardeAlterneePrisEnCompte:
|
|
Js.number Js.t Js.js_array Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_allocation_logement_to_jsoo
|
|
(eligibilite_allocation_logement : EligibiliteAllocationLogement.t)
|
|
: eligibilite_allocation_logement Js.t =
|
|
object%js
|
|
val eligibilite =
|
|
type_eligibilite_allocation_logement_to_jsoo eligibilite_allocation_logement.eligibilite
|
|
val nombrePersonnesAChargePrisesEnCompte =
|
|
integer_to_int eligibilite_allocation_logement.nombre_personnes_a_charge_prises_en_compte
|
|
val coefficentsEnfantsGardeAlterneePrisEnCompte =
|
|
Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) eligibilite_allocation_logement.coefficents_enfants_garde_alternee_pris_en_compte
|
|
end
|
|
let eligibilite_allocation_logement_of_jsoo
|
|
(eligibilite_allocation_logement : eligibilite_allocation_logement Js.t) :
|
|
EligibiliteAllocationLogement.t =
|
|
{
|
|
eligibilite =
|
|
type_eligibilite_allocation_logement_of_jsoo
|
|
eligibilite_allocation_logement##.eligibilite;
|
|
nombre_personnes_a_charge_prises_en_compte =
|
|
integer_of_int
|
|
eligibilite_allocation_logement
|
|
##.nombrePersonnesAChargePrisesEnCompte;
|
|
coefficents_enfants_garde_alternee_pris_en_compte =
|
|
Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
|
|
eligibilite_allocation_logement
|
|
##.coefficentsEnfantsGardeAlterneePrisEnCompte
|
|
}
|
|
|
|
class type pret =
|
|
object
|
|
method typePret: type_pret Js.t Js.readonly_prop
|
|
method dateSignature: Js.js_string Js.t Js.readonly_prop
|
|
method titulairePret: titulaire_pret Js.t Js.readonly_prop
|
|
method accordFinancementRepresentantEtatOutreMer:
|
|
accord_financement_representant_etat_outre_mer Js.t Js.readonly_prop
|
|
end
|
|
let pret_to_jsoo (pret : Pret.t) : pret Js.t =
|
|
object%js
|
|
val typePret = type_pret_to_jsoo pret.type_pret
|
|
val dateSignature = date_to_jsoo pret.date_signature
|
|
val titulairePret = titulaire_pret_to_jsoo pret.titulaire_pret
|
|
val accordFinancementRepresentantEtatOutreMer =
|
|
accord_financement_representant_etat_outre_mer_to_jsoo pret.accord_financement_representant_Etat_outre_mer
|
|
end
|
|
let pret_of_jsoo (pret : pret Js.t) : Pret.t =
|
|
{
|
|
type_pret = type_pret_of_jsoo pret##.typePret;
|
|
date_signature = date_of_jsoo pret##.dateSignature;
|
|
titulaire_pret = titulaire_pret_of_jsoo pret##.titulairePret;
|
|
accord_financement_representant_Etat_outre_mer =
|
|
accord_financement_representant_etat_outre_mer_of_jsoo
|
|
pret##.accordFinancementRepresentantEtatOutreMer
|
|
}
|
|
|
|
class type logement_foyer =
|
|
object
|
|
method typeUser: type_logement_foyer Js.t Js.readonly_prop
|
|
method remplitConditionsR83221: bool Js.t Js.readonly_prop
|
|
method conventionneLivreIIITitreVChapIII: bool Js.t Js.readonly_prop
|
|
method conventionneSelonReglesDrom: bool Js.t Js.readonly_prop
|
|
method dateConventionnement: Js.js_string Js.t Js.readonly_prop
|
|
method construitApplicationLoi195712III: bool Js.t Js.readonly_prop
|
|
method redevance: Js.number Js.t Js.readonly_prop
|
|
method categorieEquivalenceLoyerD84216:
|
|
categorie_equivalence_loyer_allocation_logement_foyer Js.t Js.readonly_prop
|
|
method beneficiaireAideAdulteOuEnfantHandicapes:
|
|
bool Js.t Js.readonly_prop
|
|
method logementMeubleD8422: bool Js.t Js.readonly_prop
|
|
end
|
|
let logement_foyer_to_jsoo (logement_foyer : LogementFoyer.t)
|
|
: logement_foyer Js.t =
|
|
object%js
|
|
val typeUser = type_logement_foyer_to_jsoo logement_foyer.type_user
|
|
val remplitConditionsR83221 =
|
|
Js.bool logement_foyer.remplit_conditions_r832_21
|
|
val conventionneLivreIIITitreVChapIII =
|
|
Js.bool logement_foyer.conventionne_livre_III_titre_V_chap_III
|
|
val conventionneSelonReglesDrom =
|
|
Js.bool logement_foyer.conventionne_selon_regles_drom
|
|
val dateConventionnement =
|
|
date_to_jsoo logement_foyer.date_conventionnement
|
|
val construitApplicationLoi195712III =
|
|
Js.bool logement_foyer.construit_application_loi_1957_12_III
|
|
val redevance =
|
|
Js.number_of_float @@ money_to_float logement_foyer.redevance
|
|
val categorieEquivalenceLoyerD84216 =
|
|
categorie_equivalence_loyer_allocation_logement_foyer_to_jsoo logement_foyer.categorie_equivalence_loyer_d842_16
|
|
val beneficiaireAideAdulteOuEnfantHandicapes =
|
|
Js.bool logement_foyer.beneficiaire_aide_adulte_ou_enfant_handicapes
|
|
val logementMeubleD8422 = Js.bool logement_foyer.logement_meuble_d842_2
|
|
end
|
|
let logement_foyer_of_jsoo (logement_foyer : logement_foyer Js.t) :
|
|
LogementFoyer.t =
|
|
{
|
|
type_user = type_logement_foyer_of_jsoo logement_foyer##.typeUser;
|
|
remplit_conditions_r832_21 =
|
|
Js.to_bool logement_foyer##.remplitConditionsR83221;
|
|
conventionne_livre_III_titre_V_chap_III =
|
|
Js.to_bool logement_foyer##.conventionneLivreIIITitreVChapIII;
|
|
conventionne_selon_regles_drom =
|
|
Js.to_bool logement_foyer##.conventionneSelonReglesDrom;
|
|
date_conventionnement =
|
|
date_of_jsoo logement_foyer##.dateConventionnement;
|
|
construit_application_loi_1957_12_III =
|
|
Js.to_bool logement_foyer##.construitApplicationLoi195712III;
|
|
redevance =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
logement_foyer##.redevance;
|
|
categorie_equivalence_loyer_d842_16 =
|
|
categorie_equivalence_loyer_allocation_logement_foyer_of_jsoo
|
|
logement_foyer##.categorieEquivalenceLoyerD84216;
|
|
beneficiaire_aide_adulte_ou_enfant_handicapes =
|
|
Js.to_bool logement_foyer##.beneficiaireAideAdulteOuEnfantHandicapes;
|
|
logement_meuble_d842_2 =
|
|
Js.to_bool logement_foyer##.logementMeubleD8422
|
|
}
|
|
|
|
class type enfant_prestations_familiales =
|
|
object
|
|
method identifiant: int Js.readonly_prop
|
|
method obligationScolaire:
|
|
situation_obligation_scolaire Js.t Js.readonly_prop
|
|
method remunerationMensuelle: Js.number Js.t Js.readonly_prop
|
|
method dateDeNaissance: Js.js_string Js.t Js.readonly_prop
|
|
method aDejaOuvertDroitAuxAllocationsFamiliales:
|
|
bool Js.t Js.readonly_prop
|
|
method beneficieTitrePersonnelAidePersonnelleLogement:
|
|
bool Js.t Js.readonly_prop
|
|
end
|
|
let enfant_prestations_familiales_to_jsoo (enfant_prestations_familiales
|
|
: EnfantPrestationsFamiliales.t) : enfant_prestations_familiales Js.t =
|
|
object%js
|
|
val identifiant =
|
|
integer_to_int enfant_prestations_familiales.identifiant
|
|
val obligationScolaire =
|
|
situation_obligation_scolaire_to_jsoo enfant_prestations_familiales.obligation_scolaire
|
|
val remunerationMensuelle =
|
|
Js.number_of_float @@ money_to_float enfant_prestations_familiales.remuneration_mensuelle
|
|
val dateDeNaissance =
|
|
date_to_jsoo enfant_prestations_familiales.date_de_naissance
|
|
val aDejaOuvertDroitAuxAllocationsFamiliales =
|
|
Js.bool enfant_prestations_familiales.a_deja_ouvert_droit_aux_allocations_familiales
|
|
val beneficieTitrePersonnelAidePersonnelleLogement =
|
|
Js.bool enfant_prestations_familiales.beneficie_titre_personnel_aide_personnelle_logement
|
|
end
|
|
let enfant_prestations_familiales_of_jsoo
|
|
(enfant_prestations_familiales : enfant_prestations_familiales Js.t) :
|
|
EnfantPrestationsFamiliales.t =
|
|
{
|
|
identifiant = integer_of_int enfant_prestations_familiales##.identifiant;
|
|
obligation_scolaire =
|
|
situation_obligation_scolaire_of_jsoo
|
|
enfant_prestations_familiales##.obligationScolaire;
|
|
remuneration_mensuelle =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
enfant_prestations_familiales##.remunerationMensuelle;
|
|
date_de_naissance =
|
|
date_of_jsoo enfant_prestations_familiales##.dateDeNaissance;
|
|
a_deja_ouvert_droit_aux_allocations_familiales =
|
|
Js.to_bool
|
|
enfant_prestations_familiales
|
|
##.aDejaOuvertDroitAuxAllocationsFamiliales;
|
|
beneficie_titre_personnel_aide_personnelle_logement =
|
|
Js.to_bool
|
|
enfant_prestations_familiales
|
|
##.beneficieTitrePersonnelAidePersonnelleLogement
|
|
}
|
|
|
|
class type type_bailleur =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "BailleurSocial"
|
|
- "BailleurPriveAvecConventionnementSocial"
|
|
- "BailleurPrive" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let type_bailleur_to_jsoo : TypeBailleur.t -> type_bailleur Js.t
|
|
= function
|
|
| BailleurSocial arg -> object%js
|
|
val kind = Js.string "BailleurSocial"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (convention_bailleur_social_to_jsoo arg))
|
|
end
|
|
| BailleurPriveAvecConventionnementSocial arg -> object%js
|
|
val kind = Js.string "BailleurPriveAvecConventionnementSocial"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (convention_a_n_h_a_to_jsoo arg))
|
|
end
|
|
| BailleurPrive arg -> object%js
|
|
val kind = Js.string "BailleurPrive"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let type_bailleur_of_jsoo (type_bailleur : type_bailleur Js.t)
|
|
: TypeBailleur.t =
|
|
match type_bailleur##.kind |> Js.to_string with
|
|
| "BailleurSocial" ->
|
|
TypeBailleur.BailleurSocial (convention_bailleur_social_of_jsoo (Js.Unsafe.coerce type_bailleur##.payload))
|
|
| "BailleurPriveAvecConventionnementSocial" ->
|
|
TypeBailleur.BailleurPriveAvecConventionnementSocial (convention_a_n_h_a_of_jsoo (Js.Unsafe.coerce type_bailleur##.payload))
|
|
| "BailleurPrive" -> TypeBailleur.BailleurPrive ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'TypeBailleur.t'" cons)
|
|
|
|
|
|
class type loue_ou_sous_loue_a_des_tiers =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Non"
|
|
- "Oui" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let loue_ou_sous_loue_a_des_tiers_to_jsoo
|
|
: LoueOuSousLoueADesTiers.t -> loue_ou_sous_loue_a_des_tiers Js.t
|
|
= function
|
|
| Non arg -> object%js
|
|
val kind = Js.string "Non"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Oui arg -> object%js
|
|
val kind = Js.string "Oui"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (personne_sous_location_to_jsoo arg))
|
|
end
|
|
|
|
let loue_ou_sous_loue_a_des_tiers_of_jsoo
|
|
(loue_ou_sous_loue_a_des_tiers : loue_ou_sous_loue_a_des_tiers Js.t)
|
|
: LoueOuSousLoueADesTiers.t =
|
|
match loue_ou_sous_loue_a_des_tiers##.kind |> Js.to_string with
|
|
| "Non" -> LoueOuSousLoueADesTiers.Non ()
|
|
| "Oui" ->
|
|
LoueOuSousLoueADesTiers.Oui (personne_sous_location_of_jsoo (Js.Unsafe.coerce loue_ou_sous_loue_a_des_tiers##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'LoueOuSousLoueADesTiers.t'"
|
|
cons)
|
|
|
|
|
|
class type nationalite =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Francaise"
|
|
- "Etrangere" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let nationalite_to_jsoo : Nationalite.t -> nationalite Js.t
|
|
= function
|
|
| Francaise arg -> object%js
|
|
val kind = Js.string "Francaise"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
| Etrangere arg -> object%js
|
|
val kind = Js.string "Etrangere"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (conditions_etrangers_to_jsoo arg))
|
|
end
|
|
|
|
let nationalite_of_jsoo (nationalite : nationalite Js.t) : Nationalite.t =
|
|
match nationalite##.kind |> Js.to_string with
|
|
| "Francaise" -> Nationalite.Francaise ()
|
|
| "Etrangere" ->
|
|
Nationalite.Etrangere (conditions_etrangers_of_jsoo (Js.Unsafe.coerce nationalite##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'Nationalite.t'" cons)
|
|
|
|
|
|
class type changement_logement_d842_4 =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Changement"
|
|
- "PasDeChangement" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let changement_logement_d842_4_to_jsoo
|
|
: ChangementLogementD8424.t -> changement_logement_d842_4 Js.t
|
|
= function
|
|
| Changement arg -> object%js
|
|
val kind = Js.string "Changement"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (infos_changement_logement_d842_4_to_jsoo arg))
|
|
end
|
|
| PasDeChangement arg -> object%js
|
|
val kind = Js.string "PasDeChangement"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
end
|
|
|
|
let changement_logement_d842_4_of_jsoo
|
|
(changement_logement_d842_4 : changement_logement_d842_4 Js.t)
|
|
: ChangementLogementD8424.t =
|
|
match changement_logement_d842_4##.kind |> Js.to_string with
|
|
| "Changement" ->
|
|
ChangementLogementD8424.Changement (infos_changement_logement_d842_4_of_jsoo (Js.Unsafe.coerce changement_logement_d842_4##.payload))
|
|
| "PasDeChangement" -> ChangementLogementD8424.PasDeChangement ()
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'ChangementLogementD8424.t'"
|
|
cons)
|
|
|
|
|
|
class type informations_prime_de_demenagement =
|
|
object
|
|
method nombreEnfantsANaitreApresTroisiemeMoisGrossesse:
|
|
int Js.readonly_prop
|
|
method dateNaissanceTroisiemeEnfantOuDernierSiPlus:
|
|
date_naissance_troisieme_ou_dernier_plus_enfant Js.t Js.readonly_prop
|
|
end
|
|
let informations_prime_de_demenagement_to_jsoo
|
|
(informations_prime_de_demenagement : InformationsPrimeDeDemenagement.t)
|
|
: informations_prime_de_demenagement Js.t =
|
|
object%js
|
|
val nombreEnfantsANaitreApresTroisiemeMoisGrossesse =
|
|
integer_to_int informations_prime_de_demenagement.nombre_enfants_a_naitre_apres_troisieme_mois_grossesse
|
|
val dateNaissanceTroisiemeEnfantOuDernierSiPlus =
|
|
date_naissance_troisieme_ou_dernier_plus_enfant_to_jsoo informations_prime_de_demenagement.date_naissance_troisieme_enfant_ou_dernier_si_plus
|
|
end
|
|
let informations_prime_de_demenagement_of_jsoo
|
|
(informations_prime_de_demenagement
|
|
: informations_prime_de_demenagement Js.t) :
|
|
InformationsPrimeDeDemenagement.t =
|
|
{
|
|
nombre_enfants_a_naitre_apres_troisieme_mois_grossesse =
|
|
integer_of_int
|
|
informations_prime_de_demenagement
|
|
##.nombreEnfantsANaitreApresTroisiemeMoisGrossesse;
|
|
date_naissance_troisieme_enfant_ou_dernier_si_plus =
|
|
date_naissance_troisieme_ou_dernier_plus_enfant_of_jsoo
|
|
informations_prime_de_demenagement
|
|
##.dateNaissanceTroisiemeEnfantOuDernierSiPlus
|
|
}
|
|
|
|
class type proprietaire =
|
|
object
|
|
method mensualitePrincipale: Js.number Js.t Js.readonly_prop
|
|
method chargesMensuellesPret: Js.number Js.t Js.readonly_prop
|
|
method dateEntreeLogement: Js.js_string Js.t Js.readonly_prop
|
|
method typeTravauxLogementD83215:
|
|
type_travaux_logement_d832_15 Js.t Js.readonly_prop
|
|
method typeTravauxLogementR8425:
|
|
type_travaux_logement_r842_5 Js.t Js.readonly_prop
|
|
method localHabitePremiereFoisBeneficiaire: bool Js.t Js.readonly_prop
|
|
method copropriete: bool Js.t Js.readonly_prop
|
|
method situationR822111317: bool Js.t Js.readonly_prop
|
|
method ancienneteLogement: neuf_ou_ancien Js.t Js.readonly_prop
|
|
method pret: pret Js.t Js.readonly_prop
|
|
method operationsLogementEvolutifsSociauxAccessionProprieteAideeEtat:
|
|
bool Js.t Js.readonly_prop
|
|
end
|
|
let proprietaire_to_jsoo (proprietaire : Proprietaire.t)
|
|
: proprietaire Js.t =
|
|
object%js
|
|
val mensualitePrincipale =
|
|
Js.number_of_float @@ money_to_float proprietaire.mensualite_principale
|
|
val chargesMensuellesPret =
|
|
Js.number_of_float @@ money_to_float proprietaire.charges_mensuelles_pret
|
|
val dateEntreeLogement = date_to_jsoo proprietaire.date_entree_logement
|
|
val typeTravauxLogementD83215 =
|
|
type_travaux_logement_d832_15_to_jsoo proprietaire.type_travaux_logement_d832_15
|
|
val typeTravauxLogementR8425 =
|
|
type_travaux_logement_r842_5_to_jsoo proprietaire.type_travaux_logement_r842_5
|
|
val localHabitePremiereFoisBeneficiaire =
|
|
Js.bool proprietaire.local_habite_premiere_fois_beneficiaire
|
|
val copropriete = Js.bool proprietaire.copropriete
|
|
val situationR822111317 = Js.bool proprietaire.situation_r822_11_13_17
|
|
val ancienneteLogement =
|
|
neuf_ou_ancien_to_jsoo proprietaire.anciennete_logement
|
|
val pret = pret_to_jsoo proprietaire.pret
|
|
val operationsLogementEvolutifsSociauxAccessionProprieteAideeEtat =
|
|
Js.bool proprietaire.operations_logement_evolutifs_sociaux_accession_propriete_aidee_Etat
|
|
end
|
|
let proprietaire_of_jsoo (proprietaire : proprietaire Js.t) :
|
|
Proprietaire.t =
|
|
{
|
|
mensualite_principale =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
proprietaire##.mensualitePrincipale;
|
|
charges_mensuelles_pret =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
proprietaire##.chargesMensuellesPret;
|
|
date_entree_logement = date_of_jsoo proprietaire##.dateEntreeLogement;
|
|
type_travaux_logement_d832_15 =
|
|
type_travaux_logement_d832_15_of_jsoo
|
|
proprietaire##.typeTravauxLogementD83215;
|
|
type_travaux_logement_r842_5 =
|
|
type_travaux_logement_r842_5_of_jsoo
|
|
proprietaire##.typeTravauxLogementR8425;
|
|
local_habite_premiere_fois_beneficiaire =
|
|
Js.to_bool proprietaire##.localHabitePremiereFoisBeneficiaire;
|
|
copropriete = Js.to_bool proprietaire##.copropriete;
|
|
situation_r822_11_13_17 = Js.to_bool proprietaire##.situationR822111317;
|
|
anciennete_logement =
|
|
neuf_ou_ancien_of_jsoo proprietaire##.ancienneteLogement;
|
|
pret = pret_of_jsoo proprietaire##.pret;
|
|
operations_logement_evolutifs_sociaux_accession_propriete_aidee_Etat =
|
|
Js.to_bool
|
|
proprietaire
|
|
##.operationsLogementEvolutifsSociauxAccessionProprieteAideeEtat
|
|
}
|
|
|
|
class type eligibilite_prestations_familiales =
|
|
object
|
|
method ageL51232: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
method droitOuvert:
|
|
(unit, enfant_prestations_familiales Js.t -> bool Js.t) Js.meth_callback Js.meth
|
|
method conditionsHorsAge:
|
|
(unit, enfant_prestations_familiales Js.t -> bool Js.t) Js.meth_callback Js.meth
|
|
method regimeOutreMerL7511: bool Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_prestations_familiales_to_jsoo
|
|
(eligibilite_prestations_familiales : EligibilitePrestationsFamiliales.t)
|
|
: eligibilite_prestations_familiales Js.t =
|
|
object%js
|
|
val ageL51232 =
|
|
duration_to_jsoo eligibilite_prestations_familiales.age_l512_3_2
|
|
method droitOuvert = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: enfant_prestations_familiales Js.t) ->
|
|
Js.bool (eligibilite_prestations_familiales.droit_ouvert (enfant_prestations_familiales_of_jsoo
|
|
function_input0)))
|
|
method conditionsHorsAge = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: enfant_prestations_familiales Js.t) ->
|
|
Js.bool (eligibilite_prestations_familiales.conditions_hors_age
|
|
(enfant_prestations_familiales_of_jsoo
|
|
function_input0)))
|
|
val regimeOutreMerL7511 =
|
|
Js.bool eligibilite_prestations_familiales.regime_outre_mer_l751_1
|
|
end
|
|
let eligibilite_prestations_familiales_of_jsoo
|
|
(eligibilite_prestations_familiales
|
|
: eligibilite_prestations_familiales Js.t) :
|
|
EligibilitePrestationsFamiliales.t =
|
|
{
|
|
age_l512_3_2 =
|
|
duration_of_jsoo eligibilite_prestations_familiales##.ageL51232;
|
|
droit_ouvert = failwith "The function 'droit_ouvert' translation isn't yet supported...";
|
|
conditions_hors_age = failwith "The function 'conditions_hors_age' translation isn't yet supported...";
|
|
regime_outre_mer_l751_1 =
|
|
Js.to_bool eligibilite_prestations_familiales##.regimeOutreMerL7511
|
|
}
|
|
|
|
class type demandeur =
|
|
object
|
|
method dateNaissance: Js.js_string Js.t Js.readonly_prop
|
|
method nationalite: nationalite Js.t Js.readonly_prop
|
|
method personneHebergeeCentreSoinLL162223SecuriteSociale:
|
|
bool Js.t Js.readonly_prop
|
|
method estNonSalarieAgricoleL7818L78146CodeRural:
|
|
bool Js.t Js.readonly_prop
|
|
method magistratFonctionnaireCentreInteretsMaterielsFamiliauxHorsMayotte:
|
|
bool Js.t Js.readonly_prop
|
|
end
|
|
let demandeur_to_jsoo (demandeur : Demandeur.t) : demandeur Js.t =
|
|
object%js
|
|
val dateNaissance = date_to_jsoo demandeur.date_naissance
|
|
val nationalite = nationalite_to_jsoo demandeur.nationalite
|
|
val personneHebergeeCentreSoinLL162223SecuriteSociale =
|
|
Js.bool demandeur.personne_hebergee_centre_soin_l_L162_22_3_securite_sociale
|
|
val estNonSalarieAgricoleL7818L78146CodeRural =
|
|
Js.bool demandeur.est_non_salarie_agricole_l781_8_l_781_46_code_rural
|
|
val magistratFonctionnaireCentreInteretsMaterielsFamiliauxHorsMayotte =
|
|
Js.bool demandeur.magistrat_fonctionnaire_centre_interets_materiels_familiaux_hors_mayotte
|
|
end
|
|
let demandeur_of_jsoo (demandeur : demandeur Js.t) : Demandeur.t =
|
|
{
|
|
date_naissance = date_of_jsoo demandeur##.dateNaissance;
|
|
nationalite = nationalite_of_jsoo demandeur##.nationalite;
|
|
personne_hebergee_centre_soin_l_L162_22_3_securite_sociale =
|
|
Js.to_bool
|
|
demandeur##.personneHebergeeCentreSoinLL162223SecuriteSociale;
|
|
est_non_salarie_agricole_l781_8_l_781_46_code_rural =
|
|
Js.to_bool demandeur##.estNonSalarieAgricoleL7818L78146CodeRural;
|
|
magistrat_fonctionnaire_centre_interets_materiels_familiaux_hors_mayotte =
|
|
Js.to_bool
|
|
demandeur
|
|
##.magistratFonctionnaireCentreInteretsMaterielsFamiliauxHorsMayotte
|
|
}
|
|
|
|
class type enfant_a_charge =
|
|
object
|
|
method identifiant: int Js.readonly_prop
|
|
method nationalite: nationalite Js.t Js.readonly_prop
|
|
method beneficieTitrePersonnelAidePersonnelleLogement:
|
|
bool Js.t Js.readonly_prop
|
|
method aDejaOuvertDroitAuxAllocationsFamiliales:
|
|
bool Js.t Js.readonly_prop
|
|
method dateDeNaissance: Js.js_string Js.t Js.readonly_prop
|
|
method remunerationMensuelle: Js.number Js.t Js.readonly_prop
|
|
method obligationScolaire:
|
|
situation_obligation_scolaire Js.t Js.readonly_prop
|
|
method situationGardeAlternee:
|
|
situation_garde_alternee Js.t Js.readonly_prop
|
|
method etudesApprentissageStageFormationProImpossibiliteTravail:
|
|
bool Js.t Js.readonly_prop
|
|
end
|
|
let enfant_a_charge_to_jsoo (enfant_a_charge : EnfantACharge.t)
|
|
: enfant_a_charge Js.t =
|
|
object%js
|
|
val identifiant = integer_to_int enfant_a_charge.identifiant
|
|
val nationalite = nationalite_to_jsoo enfant_a_charge.nationalite
|
|
val beneficieTitrePersonnelAidePersonnelleLogement =
|
|
Js.bool enfant_a_charge.beneficie_titre_personnel_aide_personnelle_logement
|
|
val aDejaOuvertDroitAuxAllocationsFamiliales =
|
|
Js.bool enfant_a_charge.a_deja_ouvert_droit_aux_allocations_familiales
|
|
val dateDeNaissance = date_to_jsoo enfant_a_charge.date_de_naissance
|
|
val remunerationMensuelle =
|
|
Js.number_of_float @@ money_to_float enfant_a_charge.remuneration_mensuelle
|
|
val obligationScolaire =
|
|
situation_obligation_scolaire_to_jsoo enfant_a_charge.obligation_scolaire
|
|
val situationGardeAlternee =
|
|
situation_garde_alternee_to_jsoo enfant_a_charge.situation_garde_alternee
|
|
val etudesApprentissageStageFormationProImpossibiliteTravail =
|
|
Js.bool enfant_a_charge.etudes_apprentissage_stage_formation_pro_impossibilite_travail
|
|
end
|
|
let enfant_a_charge_of_jsoo (enfant_a_charge : enfant_a_charge Js.t) :
|
|
EnfantACharge.t =
|
|
{
|
|
identifiant = integer_of_int enfant_a_charge##.identifiant;
|
|
nationalite = nationalite_of_jsoo enfant_a_charge##.nationalite;
|
|
beneficie_titre_personnel_aide_personnelle_logement =
|
|
Js.to_bool
|
|
enfant_a_charge##.beneficieTitrePersonnelAidePersonnelleLogement;
|
|
a_deja_ouvert_droit_aux_allocations_familiales =
|
|
Js.to_bool enfant_a_charge##.aDejaOuvertDroitAuxAllocationsFamiliales;
|
|
date_de_naissance = date_of_jsoo enfant_a_charge##.dateDeNaissance;
|
|
remuneration_mensuelle =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
enfant_a_charge##.remunerationMensuelle;
|
|
obligation_scolaire =
|
|
situation_obligation_scolaire_of_jsoo
|
|
enfant_a_charge##.obligationScolaire;
|
|
situation_garde_alternee =
|
|
situation_garde_alternee_of_jsoo
|
|
enfant_a_charge##.situationGardeAlternee;
|
|
etudes_apprentissage_stage_formation_pro_impossibilite_travail =
|
|
Js.to_bool
|
|
enfant_a_charge
|
|
##.etudesApprentissageStageFormationProImpossibiliteTravail
|
|
}
|
|
|
|
class type location =
|
|
object
|
|
method bailleur: type_bailleur Js.t Js.readonly_prop
|
|
method loyerPrincipal: Js.number Js.t Js.readonly_prop
|
|
method beneficiaireAideAdulteOuEnfantHandicapes:
|
|
bool Js.t Js.readonly_prop
|
|
method logementEstChambre: bool Js.t Js.readonly_prop
|
|
method colocation: bool Js.t Js.readonly_prop
|
|
method ageesOuHandicapAdultesHebergeesOnereuxParticuliers:
|
|
bool Js.t Js.readonly_prop
|
|
method logementMeubleD8422: bool Js.t Js.readonly_prop
|
|
method changementLogementD8424:
|
|
changement_logement_d842_4 Js.t Js.readonly_prop
|
|
end
|
|
let location_to_jsoo (location : Location.t) : location Js.t =
|
|
object%js
|
|
val bailleur = type_bailleur_to_jsoo location.bailleur
|
|
val loyerPrincipal =
|
|
Js.number_of_float @@ money_to_float location.loyer_principal
|
|
val beneficiaireAideAdulteOuEnfantHandicapes =
|
|
Js.bool location.beneficiaire_aide_adulte_ou_enfant_handicapes
|
|
val logementEstChambre = Js.bool location.logement_est_chambre
|
|
val colocation = Js.bool location.colocation
|
|
val ageesOuHandicapAdultesHebergeesOnereuxParticuliers =
|
|
Js.bool location.agees_ou_handicap_adultes_hebergees_onereux_particuliers
|
|
val logementMeubleD8422 = Js.bool location.logement_meuble_d842_2
|
|
val changementLogementD8424 =
|
|
changement_logement_d842_4_to_jsoo location.changement_logement_d842_4
|
|
end
|
|
let location_of_jsoo (location : location Js.t) : Location.t =
|
|
{
|
|
bailleur = type_bailleur_of_jsoo location##.bailleur;
|
|
loyer_principal =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
location##.loyerPrincipal;
|
|
beneficiaire_aide_adulte_ou_enfant_handicapes =
|
|
Js.to_bool location##.beneficiaireAideAdulteOuEnfantHandicapes;
|
|
logement_est_chambre = Js.to_bool location##.logementEstChambre;
|
|
colocation = Js.to_bool location##.colocation;
|
|
agees_ou_handicap_adultes_hebergees_onereux_particuliers =
|
|
Js.to_bool
|
|
location##.ageesOuHandicapAdultesHebergeesOnereuxParticuliers;
|
|
logement_meuble_d842_2 = Js.to_bool location##.logementMeubleD8422;
|
|
changement_logement_d842_4 =
|
|
changement_logement_d842_4_of_jsoo location##.changementLogementD8424
|
|
}
|
|
|
|
class type personne_a_charge =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "EnfantACharge"
|
|
- "AutrePersonneACharge" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let personne_a_charge_to_jsoo : PersonneACharge.t -> personne_a_charge Js.t
|
|
= function
|
|
| EnfantACharge arg -> object%js
|
|
val kind = Js.string "EnfantACharge"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (enfant_a_charge_to_jsoo arg))
|
|
end
|
|
| AutrePersonneACharge arg -> object%js
|
|
val kind = Js.string "AutrePersonneACharge"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (autre_personne_a_charge_to_jsoo arg))
|
|
end
|
|
|
|
let personne_a_charge_of_jsoo (personne_a_charge : personne_a_charge Js.t)
|
|
: PersonneACharge.t =
|
|
match personne_a_charge##.kind |> Js.to_string with
|
|
| "EnfantACharge" ->
|
|
PersonneACharge.EnfantACharge (enfant_a_charge_of_jsoo (Js.Unsafe.coerce personne_a_charge##.payload))
|
|
| "AutrePersonneACharge" ->
|
|
PersonneACharge.AutrePersonneACharge (autre_personne_a_charge_of_jsoo (Js.Unsafe.coerce personne_a_charge##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'PersonneACharge.t'" cons)
|
|
|
|
|
|
class type categorie_calcul_a_p_l =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Location"
|
|
- "AccessionPropriete"
|
|
- "LogementFoyer" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let categorie_calcul_a_p_l_to_jsoo
|
|
: CategorieCalculAPL.t -> categorie_calcul_a_p_l Js.t
|
|
= function
|
|
| Location arg -> object%js
|
|
val kind = Js.string "Location"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (location_to_jsoo arg))
|
|
end
|
|
| AccessionPropriete arg -> object%js
|
|
val kind = Js.string "AccessionPropriete"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (proprietaire_to_jsoo arg))
|
|
end
|
|
| LogementFoyer arg -> object%js
|
|
val kind = Js.string "LogementFoyer"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (logement_foyer_to_jsoo arg))
|
|
end
|
|
|
|
let categorie_calcul_a_p_l_of_jsoo
|
|
(categorie_calcul_a_p_l : categorie_calcul_a_p_l Js.t)
|
|
: CategorieCalculAPL.t =
|
|
match categorie_calcul_a_p_l##.kind |> Js.to_string with
|
|
| "Location" ->
|
|
CategorieCalculAPL.Location (location_of_jsoo (Js.Unsafe.coerce categorie_calcul_a_p_l##.payload))
|
|
| "AccessionPropriete" ->
|
|
CategorieCalculAPL.AccessionPropriete (proprietaire_of_jsoo (Js.Unsafe.coerce categorie_calcul_a_p_l##.payload))
|
|
| "LogementFoyer" ->
|
|
CategorieCalculAPL.LogementFoyer (logement_foyer_of_jsoo (Js.Unsafe.coerce categorie_calcul_a_p_l##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'CategorieCalculAPL.t'"
|
|
cons)
|
|
|
|
|
|
class type mode_occupation =
|
|
object
|
|
method kind :
|
|
Js.js_string Js.t Js.readonly_prop
|
|
(** Expects one of:
|
|
- "Locataire"
|
|
- "ResidentLogementFoyer"
|
|
- "AccessionProprieteLocalUsageExclusifHabitation"
|
|
- "SousLocataire"
|
|
- "LocationAccession" *)
|
|
|
|
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
end
|
|
|
|
let mode_occupation_to_jsoo : ModeOccupation.t -> mode_occupation Js.t
|
|
= function
|
|
| Locataire arg -> object%js
|
|
val kind = Js.string "Locataire"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (location_to_jsoo arg))
|
|
end
|
|
| ResidentLogementFoyer arg -> object%js
|
|
val kind = Js.string "ResidentLogementFoyer"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (logement_foyer_to_jsoo arg))
|
|
end
|
|
| AccessionProprieteLocalUsageExclusifHabitation arg -> object%js
|
|
val kind = Js.string "AccessionProprieteLocalUsageExclusifHabitation"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (proprietaire_to_jsoo arg))
|
|
end
|
|
| SousLocataire arg -> object%js
|
|
val kind = Js.string "SousLocataire"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (location_to_jsoo arg))
|
|
end
|
|
| LocationAccession arg -> object%js
|
|
val kind = Js.string "LocationAccession"
|
|
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (proprietaire_to_jsoo arg))
|
|
end
|
|
|
|
let mode_occupation_of_jsoo (mode_occupation : mode_occupation Js.t)
|
|
: ModeOccupation.t =
|
|
match mode_occupation##.kind |> Js.to_string with
|
|
| "Locataire" ->
|
|
ModeOccupation.Locataire (location_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
|
|
| "ResidentLogementFoyer" ->
|
|
ModeOccupation.ResidentLogementFoyer (logement_foyer_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
|
|
| "AccessionProprieteLocalUsageExclusifHabitation" ->
|
|
ModeOccupation.AccessionProprieteLocalUsageExclusifHabitation (proprietaire_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
|
|
| "SousLocataire" ->
|
|
ModeOccupation.SousLocataire (location_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
|
|
| "LocationAccession" ->
|
|
ModeOccupation.LocationAccession (proprietaire_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
|
|
| cons ->
|
|
failwith
|
|
(Printf.sprintf
|
|
"Unexpected '%s' kind for the enumeration 'ModeOccupation.t'" cons)
|
|
|
|
|
|
class type eligibilite_aides_personnelle_logement =
|
|
object
|
|
method dateCourante: Js.js_string Js.t Js.readonly_prop
|
|
method eligibilite: bool Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargePrisesEnCompte: int Js.readonly_prop
|
|
method coefficentsEnfantsGardeAlterneePrisEnCompte:
|
|
Js.number Js.t Js.js_array Js.t Js.readonly_prop
|
|
method condition2R8234:
|
|
(unit, personne_a_charge Js.t -> bool Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let eligibilite_aides_personnelle_logement_to_jsoo
|
|
(eligibilite_aides_personnelle_logement
|
|
: EligibiliteAidesPersonnelleLogement.t)
|
|
: eligibilite_aides_personnelle_logement Js.t =
|
|
object%js
|
|
val dateCourante =
|
|
date_to_jsoo eligibilite_aides_personnelle_logement.date_courante
|
|
val eligibilite =
|
|
Js.bool eligibilite_aides_personnelle_logement.eligibilite
|
|
val nombrePersonnesAChargePrisesEnCompte =
|
|
integer_to_int eligibilite_aides_personnelle_logement.nombre_personnes_a_charge_prises_en_compte
|
|
val coefficentsEnfantsGardeAlterneePrisEnCompte =
|
|
Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) eligibilite_aides_personnelle_logement.coefficents_enfants_garde_alternee_pris_en_compte
|
|
method condition2R8234 = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: personne_a_charge Js.t) ->
|
|
Js.bool (eligibilite_aides_personnelle_logement.condition_2_r823_4
|
|
(personne_a_charge_of_jsoo
|
|
function_input0)))
|
|
end
|
|
let eligibilite_aides_personnelle_logement_of_jsoo
|
|
(eligibilite_aides_personnelle_logement
|
|
: eligibilite_aides_personnelle_logement Js.t) :
|
|
EligibiliteAidesPersonnelleLogement.t =
|
|
{
|
|
date_courante =
|
|
date_of_jsoo eligibilite_aides_personnelle_logement##.dateCourante;
|
|
eligibilite =
|
|
Js.to_bool eligibilite_aides_personnelle_logement##.eligibilite;
|
|
nombre_personnes_a_charge_prises_en_compte =
|
|
integer_of_int
|
|
eligibilite_aides_personnelle_logement
|
|
##.nombrePersonnesAChargePrisesEnCompte;
|
|
coefficents_enfants_garde_alternee_pris_en_compte =
|
|
Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
|
|
eligibilite_aides_personnelle_logement
|
|
##.coefficentsEnfantsGardeAlterneePrisEnCompte;
|
|
condition_2_r823_4 = failwith "The function 'condition_2_r823_4' translation isn't yet supported..."
|
|
}
|
|
|
|
class type logement =
|
|
object
|
|
method residencePrincipale: bool Js.t Js.readonly_prop
|
|
method modeOccupation: mode_occupation Js.t Js.readonly_prop
|
|
method proprietaire: parent_ou_autre Js.t Js.readonly_prop
|
|
method loueOuSousLoueADesTiers:
|
|
loue_ou_sous_loue_a_des_tiers Js.t Js.readonly_prop
|
|
method usufruit: parent_ou_autre Js.t Js.readonly_prop
|
|
method logementDecentL89462: bool Js.t Js.readonly_prop
|
|
method surfaceMCarres: int Js.readonly_prop
|
|
method zone: zone_d_habitation Js.t Js.readonly_prop
|
|
end
|
|
let logement_to_jsoo (logement : Logement.t) : logement Js.t =
|
|
object%js
|
|
val residencePrincipale = Js.bool logement.residence_principale
|
|
val modeOccupation = mode_occupation_to_jsoo logement.mode_occupation
|
|
val proprietaire = parent_ou_autre_to_jsoo logement.proprietaire
|
|
val loueOuSousLoueADesTiers =
|
|
loue_ou_sous_loue_a_des_tiers_to_jsoo logement.loue_ou_sous_loue_a_des_tiers
|
|
val usufruit = parent_ou_autre_to_jsoo logement.usufruit
|
|
val logementDecentL89462 = Js.bool logement.logement_decent_l89_462
|
|
val surfaceMCarres = integer_to_int logement.surface_m_carres
|
|
val zone = zone_d_habitation_to_jsoo logement.zone
|
|
end
|
|
let logement_of_jsoo (logement : logement Js.t) : Logement.t =
|
|
{
|
|
residence_principale = Js.to_bool logement##.residencePrincipale;
|
|
mode_occupation = mode_occupation_of_jsoo logement##.modeOccupation;
|
|
proprietaire = parent_ou_autre_of_jsoo logement##.proprietaire;
|
|
loue_ou_sous_loue_a_des_tiers =
|
|
loue_ou_sous_loue_a_des_tiers_of_jsoo
|
|
logement##.loueOuSousLoueADesTiers;
|
|
usufruit = parent_ou_autre_of_jsoo logement##.usufruit;
|
|
logement_decent_l89_462 = Js.to_bool logement##.logementDecentL89462;
|
|
surface_m_carres = integer_of_int logement##.surfaceMCarres;
|
|
zone = zone_d_habitation_of_jsoo logement##.zone
|
|
}
|
|
|
|
class type menage =
|
|
object
|
|
method prestationsRecues:
|
|
prestation_recue Js.t Js.js_array Js.t Js.readonly_prop
|
|
method logement: logement Js.t Js.readonly_prop
|
|
method personnesACharge:
|
|
personne_a_charge Js.t Js.js_array Js.t Js.readonly_prop
|
|
method nombreAutresOccupantsLogement: int Js.readonly_prop
|
|
method situationFamiliale: situation_familiale Js.t Js.readonly_prop
|
|
method conditionRattacheFoyerFiscalParentIfi: bool Js.t Js.readonly_prop
|
|
method enfantANaitreApresQuatriemeMoisGrossesse:
|
|
bool Js.t Js.readonly_prop
|
|
method personnesAgeesHandicapeesFoyerR8444: bool Js.t Js.readonly_prop
|
|
method residence: collectivite Js.t Js.readonly_prop
|
|
end
|
|
let menage_to_jsoo (menage : Menage.t) : menage Js.t =
|
|
object%js
|
|
val prestationsRecues =
|
|
Js.array @@ Array.map (fun x -> prestation_recue_to_jsoo x) menage.prestations_recues
|
|
val logement = logement_to_jsoo menage.logement
|
|
val personnesACharge =
|
|
Js.array @@ Array.map (fun x -> personne_a_charge_to_jsoo x) menage.personnes_a_charge
|
|
val nombreAutresOccupantsLogement =
|
|
integer_to_int menage.nombre_autres_occupants_logement
|
|
val situationFamiliale =
|
|
situation_familiale_to_jsoo menage.situation_familiale
|
|
val conditionRattacheFoyerFiscalParentIfi =
|
|
Js.bool menage.condition_rattache_foyer_fiscal_parent_ifi
|
|
val enfantANaitreApresQuatriemeMoisGrossesse =
|
|
Js.bool menage.enfant_a_naitre_apres_quatrieme_mois_grossesse
|
|
val personnesAgeesHandicapeesFoyerR8444 =
|
|
Js.bool menage.personnes_agees_handicapees_foyer_r844_4
|
|
val residence = collectivite_to_jsoo menage.residence
|
|
end
|
|
let menage_of_jsoo (menage : menage Js.t) : Menage.t =
|
|
{
|
|
prestations_recues =
|
|
Array.map (fun x -> prestation_recue_of_jsoo x) @@ Js.to_array
|
|
menage##.prestationsRecues;
|
|
logement = logement_of_jsoo menage##.logement;
|
|
personnes_a_charge =
|
|
Array.map (fun x -> personne_a_charge_of_jsoo x) @@ Js.to_array
|
|
menage##.personnesACharge;
|
|
nombre_autres_occupants_logement =
|
|
integer_of_int menage##.nombreAutresOccupantsLogement;
|
|
situation_familiale =
|
|
situation_familiale_of_jsoo menage##.situationFamiliale;
|
|
condition_rattache_foyer_fiscal_parent_ifi =
|
|
Js.to_bool menage##.conditionRattacheFoyerFiscalParentIfi;
|
|
enfant_a_naitre_apres_quatrieme_mois_grossesse =
|
|
Js.to_bool menage##.enfantANaitreApresQuatriemeMoisGrossesse;
|
|
personnes_agees_handicapees_foyer_r844_4 =
|
|
Js.to_bool menage##.personnesAgeesHandicapeesFoyerR8444;
|
|
residence = collectivite_of_jsoo menage##.residence
|
|
}
|
|
|
|
class type eligibilite_aides_personnelle_logement_in =
|
|
object
|
|
method menageIn: menage Js.t Js.readonly_prop
|
|
method demandeurIn: demandeur Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method conditionLogementResidencePrincipaleIn:
|
|
(unit, unit -> bool Js.t) Js.meth_callback Js.meth
|
|
method conditionLogementSurfaceIn:
|
|
(unit, unit -> bool Js.t) Js.meth_callback Js.meth
|
|
method dateEntreeVigueurDiffereeCchIn:
|
|
(unit, unit -> Js.js_string Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let eligibilite_aides_personnelle_logement_in_to_jsoo
|
|
(eligibilite_aides_personnelle_logement_in
|
|
: EligibiliteAidesPersonnelleLogementIn.t)
|
|
: eligibilite_aides_personnelle_logement_in Js.t =
|
|
object%js
|
|
val menageIn =
|
|
menage_to_jsoo eligibilite_aides_personnelle_logement_in.menage_in
|
|
val demandeurIn =
|
|
demandeur_to_jsoo eligibilite_aides_personnelle_logement_in.demandeur_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo eligibilite_aides_personnelle_logement_in.date_courante_in
|
|
method conditionLogementResidencePrincipaleIn = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
Js.bool (eligibilite_aides_personnelle_logement_in.condition_logement_residence_principale_in
|
|
(
|
|
function_input0)))
|
|
method conditionLogementSurfaceIn = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
Js.bool (eligibilite_aides_personnelle_logement_in.condition_logement_surface_in
|
|
(
|
|
function_input0)))
|
|
method dateEntreeVigueurDiffereeCchIn = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
date_to_jsoo (eligibilite_aides_personnelle_logement_in.date_entree_vigueur_differee_cch_in
|
|
(
|
|
function_input0)))
|
|
end
|
|
let eligibilite_aides_personnelle_logement_in_of_jsoo
|
|
(eligibilite_aides_personnelle_logement_in
|
|
: eligibilite_aides_personnelle_logement_in Js.t) :
|
|
EligibiliteAidesPersonnelleLogementIn.t =
|
|
{
|
|
menage_in =
|
|
menage_of_jsoo eligibilite_aides_personnelle_logement_in##.menageIn;
|
|
demandeur_in =
|
|
demandeur_of_jsoo
|
|
eligibilite_aides_personnelle_logement_in##.demandeurIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
eligibilite_aides_personnelle_logement_in##.dateCouranteIn;
|
|
condition_logement_residence_principale_in = failwith "The function 'condition_logement_residence_principale_in' translation isn't yet supported...";
|
|
condition_logement_surface_in = failwith "The function 'condition_logement_surface_in' translation isn't yet supported...";
|
|
date_entree_vigueur_differee_cch_in = failwith "The function 'date_entree_vigueur_differee_cch_in' translation isn't yet supported..."
|
|
}
|
|
|
|
class type eligibilite_aide_personnalisee_logement_in =
|
|
object
|
|
method menageIn: menage Js.t Js.readonly_prop
|
|
method demandeurIn: demandeur Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_aide_personnalisee_logement_in_to_jsoo
|
|
(eligibilite_aide_personnalisee_logement_in
|
|
: EligibiliteAidePersonnaliseeLogementIn.t)
|
|
: eligibilite_aide_personnalisee_logement_in Js.t =
|
|
object%js
|
|
val menageIn =
|
|
menage_to_jsoo eligibilite_aide_personnalisee_logement_in.menage_in
|
|
val demandeurIn =
|
|
demandeur_to_jsoo eligibilite_aide_personnalisee_logement_in.demandeur_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo eligibilite_aide_personnalisee_logement_in.date_courante_in
|
|
end
|
|
let eligibilite_aide_personnalisee_logement_in_of_jsoo
|
|
(eligibilite_aide_personnalisee_logement_in
|
|
: eligibilite_aide_personnalisee_logement_in Js.t) :
|
|
EligibiliteAidePersonnaliseeLogementIn.t =
|
|
{
|
|
menage_in =
|
|
menage_of_jsoo eligibilite_aide_personnalisee_logement_in##.menageIn;
|
|
demandeur_in =
|
|
demandeur_of_jsoo
|
|
eligibilite_aide_personnalisee_logement_in##.demandeurIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
eligibilite_aide_personnalisee_logement_in##.dateCouranteIn
|
|
}
|
|
|
|
class type eligibilite_allocation_logement_in =
|
|
object
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method menageIn: menage Js.t Js.readonly_prop
|
|
method demandeurIn: demandeur Js.t Js.readonly_prop
|
|
method beneficieAidePersonnaliseeLogementIn: bool Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_allocation_logement_in_to_jsoo
|
|
(eligibilite_allocation_logement_in : EligibiliteAllocationLogementIn.t)
|
|
: eligibilite_allocation_logement_in Js.t =
|
|
object%js
|
|
val dateCouranteIn =
|
|
date_to_jsoo eligibilite_allocation_logement_in.date_courante_in
|
|
val menageIn =
|
|
menage_to_jsoo eligibilite_allocation_logement_in.menage_in
|
|
val demandeurIn =
|
|
demandeur_to_jsoo eligibilite_allocation_logement_in.demandeur_in
|
|
val beneficieAidePersonnaliseeLogementIn =
|
|
Js.bool eligibilite_allocation_logement_in.beneficie_aide_personnalisee_logement_in
|
|
end
|
|
let eligibilite_allocation_logement_in_of_jsoo
|
|
(eligibilite_allocation_logement_in
|
|
: eligibilite_allocation_logement_in Js.t) :
|
|
EligibiliteAllocationLogementIn.t =
|
|
{
|
|
date_courante_in =
|
|
date_of_jsoo eligibilite_allocation_logement_in##.dateCouranteIn;
|
|
menage_in =
|
|
menage_of_jsoo eligibilite_allocation_logement_in##.menageIn;
|
|
demandeur_in =
|
|
demandeur_of_jsoo eligibilite_allocation_logement_in##.demandeurIn;
|
|
beneficie_aide_personnalisee_logement_in =
|
|
Js.to_bool
|
|
eligibilite_allocation_logement_in
|
|
##.beneficieAidePersonnaliseeLogementIn
|
|
}
|
|
|
|
class type eligibilite_prime_de_demenagement_in =
|
|
object
|
|
method informationsIn:
|
|
informations_prime_de_demenagement Js.t Js.readonly_prop
|
|
method dateEmmenagementIn: Js.js_string Js.t Js.readonly_prop
|
|
method menageIn: menage Js.t Js.readonly_prop
|
|
method demandeurIn: demandeur Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method depensesJustifieesReellementEngageesIn:
|
|
Js.number Js.t Js.readonly_prop
|
|
end
|
|
let eligibilite_prime_de_demenagement_in_to_jsoo
|
|
(eligibilite_prime_de_demenagement_in
|
|
: EligibilitePrimeDeDemenagementIn.t)
|
|
: eligibilite_prime_de_demenagement_in Js.t =
|
|
object%js
|
|
val informationsIn =
|
|
informations_prime_de_demenagement_to_jsoo eligibilite_prime_de_demenagement_in.informations_in
|
|
val dateEmmenagementIn =
|
|
date_to_jsoo eligibilite_prime_de_demenagement_in.date_emmenagement_in
|
|
val menageIn =
|
|
menage_to_jsoo eligibilite_prime_de_demenagement_in.menage_in
|
|
val demandeurIn =
|
|
demandeur_to_jsoo eligibilite_prime_de_demenagement_in.demandeur_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo eligibilite_prime_de_demenagement_in.date_courante_in
|
|
val depensesJustifieesReellementEngageesIn =
|
|
Js.number_of_float @@ money_to_float eligibilite_prime_de_demenagement_in.depenses_justifiees_reellement_engagees_in
|
|
end
|
|
let eligibilite_prime_de_demenagement_in_of_jsoo
|
|
(eligibilite_prime_de_demenagement_in
|
|
: eligibilite_prime_de_demenagement_in Js.t) :
|
|
EligibilitePrimeDeDemenagementIn.t =
|
|
{
|
|
informations_in =
|
|
informations_prime_de_demenagement_of_jsoo
|
|
eligibilite_prime_de_demenagement_in##.informationsIn;
|
|
date_emmenagement_in =
|
|
date_of_jsoo
|
|
eligibilite_prime_de_demenagement_in##.dateEmmenagementIn;
|
|
menage_in =
|
|
menage_of_jsoo eligibilite_prime_de_demenagement_in##.menageIn;
|
|
demandeur_in =
|
|
demandeur_of_jsoo eligibilite_prime_de_demenagement_in##.demandeurIn;
|
|
date_courante_in =
|
|
date_of_jsoo eligibilite_prime_de_demenagement_in##.dateCouranteIn;
|
|
depenses_justifiees_reellement_engagees_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
eligibilite_prime_de_demenagement_in
|
|
##.depensesJustifieesReellementEngageesIn
|
|
}
|
|
|
|
class type contributions_sociales_aides_personnelle_logement_in =
|
|
object method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
end
|
|
let contributions_sociales_aides_personnelle_logement_in_to_jsoo
|
|
(contributions_sociales_aides_personnelle_logement_in
|
|
: ContributionsSocialesAidesPersonnelleLogementIn.t)
|
|
: contributions_sociales_aides_personnelle_logement_in Js.t =
|
|
object%js
|
|
val dateCouranteIn =
|
|
date_to_jsoo contributions_sociales_aides_personnelle_logement_in.date_courante_in
|
|
end
|
|
let contributions_sociales_aides_personnelle_logement_in_of_jsoo
|
|
(contributions_sociales_aides_personnelle_logement_in
|
|
: contributions_sociales_aides_personnelle_logement_in Js.t) :
|
|
ContributionsSocialesAidesPersonnelleLogementIn.t =
|
|
{
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
contributions_sociales_aides_personnelle_logement_in
|
|
##.dateCouranteIn
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_locatif_in =
|
|
object
|
|
method loyerPrincipalBaseIn: Js.number Js.t Js.readonly_prop
|
|
method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
|
|
method beneficiaireAideAdulteOuEnfantHandicapesIn:
|
|
bool Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method logementEstChambreIn: bool Js.t Js.readonly_prop
|
|
method ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn:
|
|
bool Js.t Js.readonly_prop
|
|
method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
|
|
method colocationIn: bool Js.t Js.readonly_prop
|
|
method reductionLoyerSolidariteIn: Js.number Js.t Js.readonly_prop
|
|
method logementMeubleD8422In: bool Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
end
|
|
let calcul_aide_personnalisee_logement_locatif_in_to_jsoo
|
|
(calcul_aide_personnalisee_logement_locatif_in
|
|
: CalculAidePersonnaliseeLogementLocatifIn.t)
|
|
: calcul_aide_personnalisee_logement_locatif_in Js.t =
|
|
object%js
|
|
val loyerPrincipalBaseIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_in.loyer_principal_base_in
|
|
val ressourcesMenageArrondiesIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_in.ressources_menage_arrondies_in
|
|
val beneficiaireAideAdulteOuEnfantHandicapesIn =
|
|
Js.bool calcul_aide_personnalisee_logement_locatif_in.beneficiaire_aide_adulte_ou_enfant_handicapes_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_locatif_in.date_courante_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_aide_personnalisee_logement_locatif_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_aide_personnalisee_logement_locatif_in.situation_familiale_calcul_apl_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_locatif_in.zone_in
|
|
val logementEstChambreIn =
|
|
Js.bool calcul_aide_personnalisee_logement_locatif_in.logement_est_chambre_in
|
|
val ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn =
|
|
Js.bool calcul_aide_personnalisee_logement_locatif_in.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in
|
|
val typeAideIn =
|
|
type_aides_personnelle_logement_to_jsoo calcul_aide_personnalisee_logement_locatif_in.type_aide_in
|
|
val colocationIn =
|
|
Js.bool calcul_aide_personnalisee_logement_locatif_in.colocation_in
|
|
val reductionLoyerSolidariteIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_in.reduction_loyer_solidarite_in
|
|
val logementMeubleD8422In =
|
|
Js.bool calcul_aide_personnalisee_logement_locatif_in.logement_meuble_d842_2_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo calcul_aide_personnalisee_logement_locatif_in.residence_in
|
|
end
|
|
let calcul_aide_personnalisee_logement_locatif_in_of_jsoo
|
|
(calcul_aide_personnalisee_logement_locatif_in
|
|
: calcul_aide_personnalisee_logement_locatif_in Js.t) :
|
|
CalculAidePersonnaliseeLogementLocatifIn.t =
|
|
{
|
|
loyer_principal_base_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.loyerPrincipalBaseIn;
|
|
ressources_menage_arrondies_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.ressourcesMenageArrondiesIn;
|
|
beneficiaire_aide_adulte_ou_enfant_handicapes_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.beneficiaireAideAdulteOuEnfantHandicapesIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
calcul_aide_personnalisee_logement_locatif_in##.dateCouranteIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.situationFamilialeCalculAplIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_aide_personnalisee_logement_locatif_in##.zoneIn;
|
|
logement_est_chambre_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.logementEstChambreIn;
|
|
agees_ou_handicap_adultes_hebergees_onereux_particuliers_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn;
|
|
type_aide_in =
|
|
type_aides_personnelle_logement_of_jsoo
|
|
calcul_aide_personnalisee_logement_locatif_in##.typeAideIn;
|
|
colocation_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_locatif_in##.colocationIn;
|
|
reduction_loyer_solidarite_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.reductionLoyerSolidariteIn;
|
|
logement_meuble_d842_2_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
##.logementMeubleD8422In;
|
|
residence_in =
|
|
collectivite_of_jsoo
|
|
calcul_aide_personnalisee_logement_locatif_in##.residenceIn
|
|
}
|
|
|
|
class type calcul_equivalence_loyer_minimale_in =
|
|
object
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
|
|
method condition2Du83225In: bool Js.t Js.readonly_prop
|
|
method nNombrePartsD83225In: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calcul_equivalence_loyer_minimale_in_to_jsoo
|
|
(calcul_equivalence_loyer_minimale_in
|
|
: CalculEquivalenceLoyerMinimaleIn.t)
|
|
: calcul_equivalence_loyer_minimale_in Js.t =
|
|
object%js
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_equivalence_loyer_minimale_in.date_courante_in
|
|
val ressourcesMenageArrondiesIn =
|
|
Js.number_of_float @@ money_to_float calcul_equivalence_loyer_minimale_in.ressources_menage_arrondies_in
|
|
val condition2Du83225In =
|
|
Js.bool calcul_equivalence_loyer_minimale_in.condition_2_du_832_25_in
|
|
val nNombrePartsD83225In =
|
|
Js.number_of_float @@ decimal_to_float calcul_equivalence_loyer_minimale_in.n_nombre_parts_d832_25_in
|
|
end
|
|
let calcul_equivalence_loyer_minimale_in_of_jsoo
|
|
(calcul_equivalence_loyer_minimale_in
|
|
: calcul_equivalence_loyer_minimale_in Js.t) :
|
|
CalculEquivalenceLoyerMinimaleIn.t =
|
|
{
|
|
date_courante_in =
|
|
date_of_jsoo calcul_equivalence_loyer_minimale_in##.dateCouranteIn;
|
|
ressources_menage_arrondies_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_equivalence_loyer_minimale_in##.ressourcesMenageArrondiesIn;
|
|
condition_2_du_832_25_in =
|
|
Js.to_bool calcul_equivalence_loyer_minimale_in##.condition2Du83225In;
|
|
n_nombre_parts_d832_25_in =
|
|
decimal_of_float @@ Js.float_of_number
|
|
calcul_equivalence_loyer_minimale_in##.nNombrePartsD83225In
|
|
}
|
|
|
|
class type calcul_nombre_part_logement_foyer_in =
|
|
object
|
|
method condition2Du83225In: bool Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method limitationMajorationPersonnesAChargeIn:
|
|
(unit, unit -> bool Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_nombre_part_logement_foyer_in_to_jsoo
|
|
(calcul_nombre_part_logement_foyer_in
|
|
: CalculNombrePartLogementFoyerIn.t)
|
|
: calcul_nombre_part_logement_foyer_in Js.t =
|
|
object%js
|
|
val condition2Du83225In =
|
|
Js.bool calcul_nombre_part_logement_foyer_in.condition_2_du_832_25_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_nombre_part_logement_foyer_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_nombre_part_logement_foyer_in.situation_familiale_calcul_apl_in
|
|
method limitationMajorationPersonnesAChargeIn = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
Js.bool (calcul_nombre_part_logement_foyer_in.limitation_majoration_personnes_a_charge_in
|
|
(
|
|
function_input0)))
|
|
end
|
|
let calcul_nombre_part_logement_foyer_in_of_jsoo
|
|
(calcul_nombre_part_logement_foyer_in
|
|
: calcul_nombre_part_logement_foyer_in Js.t) :
|
|
CalculNombrePartLogementFoyerIn.t =
|
|
{
|
|
condition_2_du_832_25_in =
|
|
Js.to_bool calcul_nombre_part_logement_foyer_in##.condition2Du83225In;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_nombre_part_logement_foyer_in##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_nombre_part_logement_foyer_in
|
|
##.situationFamilialeCalculAplIn;
|
|
limitation_majoration_personnes_a_charge_in = failwith "The function 'limitation_majoration_personnes_a_charge_in' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_foyer_in =
|
|
object
|
|
method typeLogementFoyerIn: type_logement_foyer Js.t Js.readonly_prop
|
|
method dateConventionnementIn: Js.js_string Js.t Js.readonly_prop
|
|
method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method redevanceIn: Js.number Js.t Js.readonly_prop
|
|
method condition2Du83225In:
|
|
(unit, unit -> bool Js.t) Js.meth_callback Js.meth
|
|
method limitationMajorationPersonnesAChargeIn:
|
|
(unit, unit -> bool Js.t) Js.meth_callback Js.meth
|
|
method nNombrePartsD83225In:
|
|
(unit, unit -> Js.number Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let calcul_aide_personnalisee_logement_foyer_in_to_jsoo
|
|
(calcul_aide_personnalisee_logement_foyer_in
|
|
: CalculAidePersonnaliseeLogementFoyerIn.t)
|
|
: calcul_aide_personnalisee_logement_foyer_in Js.t =
|
|
object%js
|
|
val typeLogementFoyerIn =
|
|
type_logement_foyer_to_jsoo calcul_aide_personnalisee_logement_foyer_in.type_logement_foyer_in
|
|
val dateConventionnementIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_foyer_in.date_conventionnement_in
|
|
val ressourcesMenageArrondiesIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_in.ressources_menage_arrondies_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_aide_personnalisee_logement_foyer_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_aide_personnalisee_logement_foyer_in.situation_familiale_calcul_apl_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_foyer_in.zone_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_foyer_in.date_courante_in
|
|
val redevanceIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_in.redevance_in
|
|
method condition2Du83225In = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
Js.bool (calcul_aide_personnalisee_logement_foyer_in.condition_2_du_832_25_in
|
|
(
|
|
function_input0)))
|
|
method limitationMajorationPersonnesAChargeIn = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
Js.bool (calcul_aide_personnalisee_logement_foyer_in.limitation_majoration_personnes_a_charge_in
|
|
(
|
|
function_input0)))
|
|
method nNombrePartsD83225In = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
Js.number_of_float @@ decimal_to_float (calcul_aide_personnalisee_logement_foyer_in.n_nombre_parts_d832_25_in
|
|
(
|
|
function_input0)))
|
|
end
|
|
let calcul_aide_personnalisee_logement_foyer_in_of_jsoo
|
|
(calcul_aide_personnalisee_logement_foyer_in
|
|
: calcul_aide_personnalisee_logement_foyer_in Js.t) :
|
|
CalculAidePersonnaliseeLogementFoyerIn.t =
|
|
{
|
|
type_logement_foyer_in =
|
|
type_logement_foyer_of_jsoo
|
|
calcul_aide_personnalisee_logement_foyer_in##.typeLogementFoyerIn;
|
|
date_conventionnement_in =
|
|
date_of_jsoo
|
|
calcul_aide_personnalisee_logement_foyer_in
|
|
##.dateConventionnementIn;
|
|
ressources_menage_arrondies_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer_in
|
|
##.ressourcesMenageArrondiesIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_aide_personnalisee_logement_foyer_in
|
|
##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_aide_personnalisee_logement_foyer_in
|
|
##.situationFamilialeCalculAplIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_aide_personnalisee_logement_foyer_in##.zoneIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
calcul_aide_personnalisee_logement_foyer_in##.dateCouranteIn;
|
|
redevance_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_foyer_in##.redevanceIn;
|
|
condition_2_du_832_25_in = failwith "The function 'condition_2_du_832_25_in' translation isn't yet supported...";
|
|
limitation_majoration_personnes_a_charge_in = failwith "The function 'limitation_majoration_personnes_a_charge_in' translation isn't yet supported...";
|
|
n_nombre_parts_d832_25_in = failwith "The function 'n_nombre_parts_d832_25_in' translation isn't yet supported..."
|
|
}
|
|
|
|
class type calcul_nombre_parts_accession_propriete_in =
|
|
object
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
end
|
|
let calcul_nombre_parts_accession_propriete_in_to_jsoo
|
|
(calcul_nombre_parts_accession_propriete_in
|
|
: CalculNombrePartsAccessionProprieteIn.t)
|
|
: calcul_nombre_parts_accession_propriete_in Js.t =
|
|
object%js
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_nombre_parts_accession_propriete_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_nombre_parts_accession_propriete_in.situation_familiale_calcul_apl_in
|
|
end
|
|
let calcul_nombre_parts_accession_propriete_in_of_jsoo
|
|
(calcul_nombre_parts_accession_propriete_in
|
|
: calcul_nombre_parts_accession_propriete_in Js.t) :
|
|
CalculNombrePartsAccessionProprieteIn.t =
|
|
{
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_nombre_parts_accession_propriete_in
|
|
##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_nombre_parts_accession_propriete_in
|
|
##.situationFamilialeCalculAplIn
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_accession_propriete_in =
|
|
object
|
|
method mensualitePrincipaleIn: Js.number Js.t Js.readonly_prop
|
|
method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method typeTravauxLogementIn:
|
|
type_travaux_logement_d832_15 Js.t Js.readonly_prop
|
|
method dateSignaturePretIn: Js.js_string Js.t Js.readonly_prop
|
|
method localHabitePremiereFoisBeneficiaireIn: bool Js.t Js.readonly_prop
|
|
method dateEntreeLogementIn: Js.js_string Js.t Js.readonly_prop
|
|
method coproprieteIn: bool Js.t Js.readonly_prop
|
|
method situationR822111317In: bool Js.t Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method typePretIn: type_pret Js.t Js.readonly_prop
|
|
method ancienneteLogementIn: neuf_ou_ancien Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
end
|
|
let calcul_aide_personnalisee_logement_accession_propriete_in_to_jsoo
|
|
(calcul_aide_personnalisee_logement_accession_propriete_in
|
|
: CalculAidePersonnaliseeLogementAccessionProprieteIn.t)
|
|
: calcul_aide_personnalisee_logement_accession_propriete_in Js.t =
|
|
object%js
|
|
val mensualitePrincipaleIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_in.mensualite_principale_in
|
|
val ressourcesMenageArrondiesIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_in.ressources_menage_arrondies_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_aide_personnalisee_logement_accession_propriete_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.situation_familiale_calcul_apl_in
|
|
val typeTravauxLogementIn =
|
|
type_travaux_logement_d832_15_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.type_travaux_logement_in
|
|
val dateSignaturePretIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.date_signature_pret_in
|
|
val localHabitePremiereFoisBeneficiaireIn =
|
|
Js.bool calcul_aide_personnalisee_logement_accession_propriete_in.local_habite_premiere_fois_beneficiaire_in
|
|
val dateEntreeLogementIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.date_entree_logement_in
|
|
val coproprieteIn =
|
|
Js.bool calcul_aide_personnalisee_logement_accession_propriete_in.copropriete_in
|
|
val situationR822111317In =
|
|
Js.bool calcul_aide_personnalisee_logement_accession_propriete_in.situation_r822_11_13_17_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.zone_in
|
|
val typePretIn =
|
|
type_pret_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.type_pret_in
|
|
val ancienneteLogementIn =
|
|
neuf_ou_ancien_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.anciennete_logement_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.date_courante_in
|
|
end
|
|
let calcul_aide_personnalisee_logement_accession_propriete_in_of_jsoo
|
|
(calcul_aide_personnalisee_logement_accession_propriete_in
|
|
: calcul_aide_personnalisee_logement_accession_propriete_in Js.t) :
|
|
CalculAidePersonnaliseeLogementAccessionProprieteIn.t =
|
|
{
|
|
mensualite_principale_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.mensualitePrincipaleIn;
|
|
ressources_menage_arrondies_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.ressourcesMenageArrondiesIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.situationFamilialeCalculAplIn;
|
|
type_travaux_logement_in =
|
|
type_travaux_logement_d832_15_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.typeTravauxLogementIn;
|
|
date_signature_pret_in =
|
|
date_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.dateSignaturePretIn;
|
|
local_habite_premiere_fois_beneficiaire_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.localHabitePremiereFoisBeneficiaireIn;
|
|
date_entree_logement_in =
|
|
date_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.dateEntreeLogementIn;
|
|
copropriete_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.coproprieteIn;
|
|
situation_r822_11_13_17_in =
|
|
Js.to_bool
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.situationR822111317In;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in##.zoneIn;
|
|
type_pret_in =
|
|
type_pret_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.typePretIn;
|
|
anciennete_logement_in =
|
|
neuf_ou_ancien_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.ancienneteLogementIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
##.dateCouranteIn
|
|
}
|
|
|
|
class type calcul_aide_personnalisee_logement_in =
|
|
object
|
|
method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
|
|
method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
|
|
method ressourcesMenageSansArrondiIn: Js.number Js.t Js.readonly_prop
|
|
method situationFamilialeIn: situation_familiale Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
end
|
|
let calcul_aide_personnalisee_logement_in_to_jsoo
|
|
(calcul_aide_personnalisee_logement_in
|
|
: CalculAidePersonnaliseeLogementIn.t)
|
|
: calcul_aide_personnalisee_logement_in Js.t =
|
|
object%js
|
|
val modeOccupationIn =
|
|
mode_occupation_to_jsoo calcul_aide_personnalisee_logement_in.mode_occupation_in
|
|
val typeAideIn =
|
|
type_aides_personnelle_logement_to_jsoo calcul_aide_personnalisee_logement_in.type_aide_in
|
|
val ressourcesMenageSansArrondiIn =
|
|
Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_in.ressources_menage_sans_arrondi_in
|
|
val situationFamilialeIn =
|
|
situation_familiale_to_jsoo calcul_aide_personnalisee_logement_in.situation_familiale_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_aide_personnalisee_logement_in.nombre_personnes_a_charge_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_in.zone_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_aide_personnalisee_logement_in.date_courante_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo calcul_aide_personnalisee_logement_in.residence_in
|
|
end
|
|
let calcul_aide_personnalisee_logement_in_of_jsoo
|
|
(calcul_aide_personnalisee_logement_in
|
|
: calcul_aide_personnalisee_logement_in Js.t) :
|
|
CalculAidePersonnaliseeLogementIn.t =
|
|
{
|
|
mode_occupation_in =
|
|
mode_occupation_of_jsoo
|
|
calcul_aide_personnalisee_logement_in##.modeOccupationIn;
|
|
type_aide_in =
|
|
type_aides_personnelle_logement_of_jsoo
|
|
calcul_aide_personnalisee_logement_in##.typeAideIn;
|
|
ressources_menage_sans_arrondi_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_aide_personnalisee_logement_in
|
|
##.ressourcesMenageSansArrondiIn;
|
|
situation_familiale_in =
|
|
situation_familiale_of_jsoo
|
|
calcul_aide_personnalisee_logement_in##.situationFamilialeIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_aide_personnalisee_logement_in##.nombrePersonnesAChargeIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_aide_personnalisee_logement_in##.zoneIn;
|
|
date_courante_in =
|
|
date_of_jsoo calcul_aide_personnalisee_logement_in##.dateCouranteIn;
|
|
residence_in =
|
|
collectivite_of_jsoo
|
|
calcul_aide_personnalisee_logement_in##.residenceIn
|
|
}
|
|
|
|
class type calcul_allocation_logement_locatif_in =
|
|
object
|
|
method loyerPrincipalIn: Js.number Js.t Js.readonly_prop
|
|
method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
|
|
method beneficiaireAideAdulteOuEnfantHandicapesIn:
|
|
bool Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method logementEstChambreIn: bool Js.t Js.readonly_prop
|
|
method ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn:
|
|
bool Js.t Js.readonly_prop
|
|
method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
|
|
method colocationIn: bool Js.t Js.readonly_prop
|
|
method reductionLoyerSolidariteIn: Js.number Js.t Js.readonly_prop
|
|
method logementMeubleD8422In: bool Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
method changementLogementD8424In:
|
|
changement_logement_d842_4 Js.t Js.readonly_prop
|
|
end
|
|
let calcul_allocation_logement_locatif_in_to_jsoo
|
|
(calcul_allocation_logement_locatif_in
|
|
: CalculAllocationLogementLocatifIn.t)
|
|
: calcul_allocation_logement_locatif_in Js.t =
|
|
object%js
|
|
val loyerPrincipalIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_in.loyer_principal_in
|
|
val ressourcesMenageArrondiesIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_in.ressources_menage_arrondies_in
|
|
val beneficiaireAideAdulteOuEnfantHandicapesIn =
|
|
Js.bool calcul_allocation_logement_locatif_in.beneficiaire_aide_adulte_ou_enfant_handicapes_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_allocation_logement_locatif_in.date_courante_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_allocation_logement_locatif_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_allocation_logement_locatif_in.situation_familiale_calcul_apl_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_allocation_logement_locatif_in.zone_in
|
|
val logementEstChambreIn =
|
|
Js.bool calcul_allocation_logement_locatif_in.logement_est_chambre_in
|
|
val ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn =
|
|
Js.bool calcul_allocation_logement_locatif_in.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in
|
|
val typeAideIn =
|
|
type_aides_personnelle_logement_to_jsoo calcul_allocation_logement_locatif_in.type_aide_in
|
|
val colocationIn =
|
|
Js.bool calcul_allocation_logement_locatif_in.colocation_in
|
|
val reductionLoyerSolidariteIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_in.reduction_loyer_solidarite_in
|
|
val logementMeubleD8422In =
|
|
Js.bool calcul_allocation_logement_locatif_in.logement_meuble_d842_2_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo calcul_allocation_logement_locatif_in.residence_in
|
|
val changementLogementD8424In =
|
|
changement_logement_d842_4_to_jsoo calcul_allocation_logement_locatif_in.changement_logement_d842_4_in
|
|
end
|
|
let calcul_allocation_logement_locatif_in_of_jsoo
|
|
(calcul_allocation_logement_locatif_in
|
|
: calcul_allocation_logement_locatif_in Js.t) :
|
|
CalculAllocationLogementLocatifIn.t =
|
|
{
|
|
loyer_principal_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_locatif_in##.loyerPrincipalIn;
|
|
ressources_menage_arrondies_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_locatif_in##.ressourcesMenageArrondiesIn;
|
|
beneficiaire_aide_adulte_ou_enfant_handicapes_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_locatif_in
|
|
##.beneficiaireAideAdulteOuEnfantHandicapesIn;
|
|
date_courante_in =
|
|
date_of_jsoo calcul_allocation_logement_locatif_in##.dateCouranteIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_allocation_logement_locatif_in##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_allocation_logement_locatif_in
|
|
##.situationFamilialeCalculAplIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_allocation_logement_locatif_in##.zoneIn;
|
|
logement_est_chambre_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_locatif_in##.logementEstChambreIn;
|
|
agees_ou_handicap_adultes_hebergees_onereux_particuliers_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_locatif_in
|
|
##.ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn;
|
|
type_aide_in =
|
|
type_aides_personnelle_logement_of_jsoo
|
|
calcul_allocation_logement_locatif_in##.typeAideIn;
|
|
colocation_in =
|
|
Js.to_bool calcul_allocation_logement_locatif_in##.colocationIn;
|
|
reduction_loyer_solidarite_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_locatif_in##.reductionLoyerSolidariteIn;
|
|
logement_meuble_d842_2_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_locatif_in##.logementMeubleD8422In;
|
|
residence_in =
|
|
collectivite_of_jsoo
|
|
calcul_allocation_logement_locatif_in##.residenceIn;
|
|
changement_logement_d842_4_in =
|
|
changement_logement_d842_4_of_jsoo
|
|
calcul_allocation_logement_locatif_in##.changementLogementD8424In
|
|
}
|
|
|
|
class type calcul_allocation_logement_accession_propriete_in =
|
|
object
|
|
method ressourcesMenageArrondiesBaseIn: Js.number Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method mensualitePrincipaleIn: Js.number Js.t Js.readonly_prop
|
|
method situationR822111317In: bool Js.t Js.readonly_prop
|
|
method dateSignaturePretIn: Js.js_string Js.t Js.readonly_prop
|
|
method typeTravauxLogementIn:
|
|
type_travaux_logement_r842_5 Js.t Js.readonly_prop
|
|
method localHabitePremiereFoisBeneficiaireIn: bool Js.t Js.readonly_prop
|
|
method dateEntreeLogementIn: Js.js_string Js.t Js.readonly_prop
|
|
method chargesMensuellesPretIn: Js.number Js.t Js.readonly_prop
|
|
method coproprieteIn: bool Js.t Js.readonly_prop
|
|
method operationsLogementEvolutifsSociauxAccessionProprieteAideeEtatIn:
|
|
bool Js.t Js.readonly_prop
|
|
end
|
|
let calcul_allocation_logement_accession_propriete_in_to_jsoo
|
|
(calcul_allocation_logement_accession_propriete_in
|
|
: CalculAllocationLogementAccessionProprieteIn.t)
|
|
: calcul_allocation_logement_accession_propriete_in Js.t =
|
|
object%js
|
|
val ressourcesMenageArrondiesBaseIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_in.ressources_menage_arrondies_base_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_allocation_logement_accession_propriete_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_allocation_logement_accession_propriete_in.situation_familiale_calcul_apl_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_allocation_logement_accession_propriete_in.zone_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo calcul_allocation_logement_accession_propriete_in.residence_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_allocation_logement_accession_propriete_in.date_courante_in
|
|
val mensualitePrincipaleIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_in.mensualite_principale_in
|
|
val situationR822111317In =
|
|
Js.bool calcul_allocation_logement_accession_propriete_in.situation_r822_11_13_17_in
|
|
val dateSignaturePretIn =
|
|
date_to_jsoo calcul_allocation_logement_accession_propriete_in.date_signature_pret_in
|
|
val typeTravauxLogementIn =
|
|
type_travaux_logement_r842_5_to_jsoo calcul_allocation_logement_accession_propriete_in.type_travaux_logement_in
|
|
val localHabitePremiereFoisBeneficiaireIn =
|
|
Js.bool calcul_allocation_logement_accession_propriete_in.local_habite_premiere_fois_beneficiaire_in
|
|
val dateEntreeLogementIn =
|
|
date_to_jsoo calcul_allocation_logement_accession_propriete_in.date_entree_logement_in
|
|
val chargesMensuellesPretIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_in.charges_mensuelles_pret_in
|
|
val coproprieteIn =
|
|
Js.bool calcul_allocation_logement_accession_propriete_in.copropriete_in
|
|
val operationsLogementEvolutifsSociauxAccessionProprieteAideeEtatIn =
|
|
Js.bool calcul_allocation_logement_accession_propriete_in.operations_logement_evolutifs_sociaux_accession_propriete_aidee_Etat_in
|
|
end
|
|
let calcul_allocation_logement_accession_propriete_in_of_jsoo
|
|
(calcul_allocation_logement_accession_propriete_in
|
|
: calcul_allocation_logement_accession_propriete_in Js.t) :
|
|
CalculAllocationLogementAccessionProprieteIn.t =
|
|
{
|
|
ressources_menage_arrondies_base_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.ressourcesMenageArrondiesBaseIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.situationFamilialeCalculAplIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in##.zoneIn;
|
|
residence_in =
|
|
collectivite_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in##.residenceIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in##.dateCouranteIn;
|
|
mensualite_principale_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.mensualitePrincipaleIn;
|
|
situation_r822_11_13_17_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.situationR822111317In;
|
|
date_signature_pret_in =
|
|
date_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.dateSignaturePretIn;
|
|
type_travaux_logement_in =
|
|
type_travaux_logement_r842_5_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.typeTravauxLogementIn;
|
|
local_habite_premiere_fois_beneficiaire_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.localHabitePremiereFoisBeneficiaireIn;
|
|
date_entree_logement_in =
|
|
date_of_jsoo
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.dateEntreeLogementIn;
|
|
charges_mensuelles_pret_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.chargesMensuellesPretIn;
|
|
copropriete_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_accession_propriete_in##.coproprieteIn;
|
|
operations_logement_evolutifs_sociaux_accession_propriete_aidee_Etat_in =
|
|
Js.to_bool
|
|
calcul_allocation_logement_accession_propriete_in
|
|
##.operationsLogementEvolutifsSociauxAccessionProprieteAideeEtatIn
|
|
}
|
|
|
|
class type calcul_allocation_logement_foyer_in =
|
|
object
|
|
method typeLogementFoyerIn: type_logement_foyer Js.t Js.readonly_prop
|
|
method dateConventionnementIn: Js.js_string Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
method redevanceIn: Js.number Js.t Js.readonly_prop
|
|
method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method situationFamilialeCalculAplIn:
|
|
situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method categorieEquivalenceLoyerD84216In:
|
|
categorie_equivalence_loyer_allocation_logement_foyer Js.t Js.readonly_prop
|
|
end
|
|
let calcul_allocation_logement_foyer_in_to_jsoo
|
|
(calcul_allocation_logement_foyer_in : CalculAllocationLogementFoyerIn.t)
|
|
: calcul_allocation_logement_foyer_in Js.t =
|
|
object%js
|
|
val typeLogementFoyerIn =
|
|
type_logement_foyer_to_jsoo calcul_allocation_logement_foyer_in.type_logement_foyer_in
|
|
val dateConventionnementIn =
|
|
date_to_jsoo calcul_allocation_logement_foyer_in.date_conventionnement_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo calcul_allocation_logement_foyer_in.residence_in
|
|
val redevanceIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_in.redevance_in
|
|
val ressourcesMenageArrondiesIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_in.ressources_menage_arrondies_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_allocation_logement_foyer_in.nombre_personnes_a_charge_in
|
|
val situationFamilialeCalculAplIn =
|
|
situation_familiale_calcul_a_p_l_to_jsoo calcul_allocation_logement_foyer_in.situation_familiale_calcul_apl_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_allocation_logement_foyer_in.zone_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_allocation_logement_foyer_in.date_courante_in
|
|
val categorieEquivalenceLoyerD84216In =
|
|
categorie_equivalence_loyer_allocation_logement_foyer_to_jsoo calcul_allocation_logement_foyer_in.categorie_equivalence_loyer_d842_16_in
|
|
end
|
|
let calcul_allocation_logement_foyer_in_of_jsoo
|
|
(calcul_allocation_logement_foyer_in
|
|
: calcul_allocation_logement_foyer_in Js.t) :
|
|
CalculAllocationLogementFoyerIn.t =
|
|
{
|
|
type_logement_foyer_in =
|
|
type_logement_foyer_of_jsoo
|
|
calcul_allocation_logement_foyer_in##.typeLogementFoyerIn;
|
|
date_conventionnement_in =
|
|
date_of_jsoo
|
|
calcul_allocation_logement_foyer_in##.dateConventionnementIn;
|
|
residence_in =
|
|
collectivite_of_jsoo
|
|
calcul_allocation_logement_foyer_in##.residenceIn;
|
|
redevance_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer_in##.redevanceIn;
|
|
ressources_menage_arrondies_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_foyer_in##.ressourcesMenageArrondiesIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_allocation_logement_foyer_in##.nombrePersonnesAChargeIn;
|
|
situation_familiale_calcul_apl_in =
|
|
situation_familiale_calcul_a_p_l_of_jsoo
|
|
calcul_allocation_logement_foyer_in##.situationFamilialeCalculAplIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo
|
|
calcul_allocation_logement_foyer_in##.zoneIn;
|
|
date_courante_in =
|
|
date_of_jsoo calcul_allocation_logement_foyer_in##.dateCouranteIn;
|
|
categorie_equivalence_loyer_d842_16_in =
|
|
categorie_equivalence_loyer_allocation_logement_foyer_of_jsoo
|
|
calcul_allocation_logement_foyer_in
|
|
##.categorieEquivalenceLoyerD84216In
|
|
}
|
|
|
|
class type calcul_allocation_logement_in =
|
|
object
|
|
method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
|
|
method ressourcesMenageSansArrondiIn: Js.number Js.t Js.readonly_prop
|
|
method situationFamilialeIn: situation_familiale Js.t Js.readonly_prop
|
|
method nombrePersonnesAChargeIn: int Js.readonly_prop
|
|
method zoneIn: zone_d_habitation Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
end
|
|
let calcul_allocation_logement_in_to_jsoo (calcul_allocation_logement_in
|
|
: CalculAllocationLogementIn.t) : calcul_allocation_logement_in Js.t =
|
|
object%js
|
|
val modeOccupationIn =
|
|
mode_occupation_to_jsoo calcul_allocation_logement_in.mode_occupation_in
|
|
val ressourcesMenageSansArrondiIn =
|
|
Js.number_of_float @@ money_to_float calcul_allocation_logement_in.ressources_menage_sans_arrondi_in
|
|
val situationFamilialeIn =
|
|
situation_familiale_to_jsoo calcul_allocation_logement_in.situation_familiale_in
|
|
val nombrePersonnesAChargeIn =
|
|
integer_to_int calcul_allocation_logement_in.nombre_personnes_a_charge_in
|
|
val zoneIn =
|
|
zone_d_habitation_to_jsoo calcul_allocation_logement_in.zone_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calcul_allocation_logement_in.date_courante_in
|
|
val typeAideIn =
|
|
type_aides_personnelle_logement_to_jsoo calcul_allocation_logement_in.type_aide_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo calcul_allocation_logement_in.residence_in
|
|
end
|
|
let calcul_allocation_logement_in_of_jsoo
|
|
(calcul_allocation_logement_in : calcul_allocation_logement_in Js.t) :
|
|
CalculAllocationLogementIn.t =
|
|
{
|
|
mode_occupation_in =
|
|
mode_occupation_of_jsoo
|
|
calcul_allocation_logement_in##.modeOccupationIn;
|
|
ressources_menage_sans_arrondi_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calcul_allocation_logement_in##.ressourcesMenageSansArrondiIn;
|
|
situation_familiale_in =
|
|
situation_familiale_of_jsoo
|
|
calcul_allocation_logement_in##.situationFamilialeIn;
|
|
nombre_personnes_a_charge_in =
|
|
integer_of_int
|
|
calcul_allocation_logement_in##.nombrePersonnesAChargeIn;
|
|
zone_in =
|
|
zone_d_habitation_of_jsoo calcul_allocation_logement_in##.zoneIn;
|
|
date_courante_in =
|
|
date_of_jsoo calcul_allocation_logement_in##.dateCouranteIn;
|
|
type_aide_in =
|
|
type_aides_personnelle_logement_of_jsoo
|
|
calcul_allocation_logement_in##.typeAideIn;
|
|
residence_in =
|
|
collectivite_of_jsoo calcul_allocation_logement_in##.residenceIn
|
|
}
|
|
|
|
class type ouverture_droits_retraite_in =
|
|
object method dateNaissanceAssureIn: Js.js_string Js.t Js.readonly_prop
|
|
end
|
|
let ouverture_droits_retraite_in_to_jsoo (ouverture_droits_retraite_in
|
|
: OuvertureDroitsRetraiteIn.t) : ouverture_droits_retraite_in Js.t =
|
|
object%js
|
|
val dateNaissanceAssureIn =
|
|
date_to_jsoo ouverture_droits_retraite_in.date_naissance_assure_in
|
|
end
|
|
let ouverture_droits_retraite_in_of_jsoo
|
|
(ouverture_droits_retraite_in : ouverture_droits_retraite_in Js.t) :
|
|
OuvertureDroitsRetraiteIn.t =
|
|
{
|
|
date_naissance_assure_in =
|
|
date_of_jsoo ouverture_droits_retraite_in##.dateNaissanceAssureIn
|
|
}
|
|
|
|
class type impaye_depense_logement_in =
|
|
object
|
|
method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
|
|
method aideVerseeIn: versement_a Js.t Js.readonly_prop
|
|
method montantAplIn: Js.number Js.t Js.readonly_prop
|
|
method montantChargesIn: Js.number Js.t Js.readonly_prop
|
|
method depenseLogementIn: depense_logement Js.t Js.readonly_prop
|
|
method montantDetteIn: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let impaye_depense_logement_in_to_jsoo (impaye_depense_logement_in
|
|
: ImpayeDepenseLogementIn.t) : impaye_depense_logement_in Js.t =
|
|
object%js
|
|
val modeOccupationIn =
|
|
mode_occupation_to_jsoo impaye_depense_logement_in.mode_occupation_in
|
|
val aideVerseeIn =
|
|
versement_a_to_jsoo impaye_depense_logement_in.aide_versee_in
|
|
val montantAplIn =
|
|
Js.number_of_float @@ money_to_float impaye_depense_logement_in.montant_apl_in
|
|
val montantChargesIn =
|
|
Js.number_of_float @@ money_to_float impaye_depense_logement_in.montant_charges_in
|
|
val depenseLogementIn =
|
|
depense_logement_to_jsoo impaye_depense_logement_in.depense_logement_in
|
|
val montantDetteIn =
|
|
Js.number_of_float @@ money_to_float impaye_depense_logement_in.montant_dette_in
|
|
end
|
|
let impaye_depense_logement_in_of_jsoo
|
|
(impaye_depense_logement_in : impaye_depense_logement_in Js.t) :
|
|
ImpayeDepenseLogementIn.t =
|
|
{
|
|
mode_occupation_in =
|
|
mode_occupation_of_jsoo impaye_depense_logement_in##.modeOccupationIn;
|
|
aide_versee_in =
|
|
versement_a_of_jsoo impaye_depense_logement_in##.aideVerseeIn;
|
|
montant_apl_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
impaye_depense_logement_in##.montantAplIn;
|
|
montant_charges_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
impaye_depense_logement_in##.montantChargesIn;
|
|
depense_logement_in =
|
|
depense_logement_of_jsoo
|
|
impaye_depense_logement_in##.depenseLogementIn;
|
|
montant_dette_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
impaye_depense_logement_in##.montantDetteIn
|
|
}
|
|
|
|
class type calculette_aides_au_logement_in =
|
|
object
|
|
method menageIn: menage Js.t Js.readonly_prop
|
|
method demandeurIn: demandeur Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method ressourcesMenagePrisesEnCompteIn: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calculette_aides_au_logement_in_to_jsoo
|
|
(calculette_aides_au_logement_in : CalculetteAidesAuLogementIn.t)
|
|
: calculette_aides_au_logement_in Js.t =
|
|
object%js
|
|
val menageIn = menage_to_jsoo calculette_aides_au_logement_in.menage_in
|
|
val demandeurIn =
|
|
demandeur_to_jsoo calculette_aides_au_logement_in.demandeur_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calculette_aides_au_logement_in.date_courante_in
|
|
val ressourcesMenagePrisesEnCompteIn =
|
|
Js.number_of_float @@ money_to_float calculette_aides_au_logement_in.ressources_menage_prises_en_compte_in
|
|
end
|
|
let calculette_aides_au_logement_in_of_jsoo
|
|
(calculette_aides_au_logement_in : calculette_aides_au_logement_in Js.t) :
|
|
CalculetteAidesAuLogementIn.t =
|
|
{
|
|
menage_in = menage_of_jsoo calculette_aides_au_logement_in##.menageIn;
|
|
demandeur_in =
|
|
demandeur_of_jsoo calculette_aides_au_logement_in##.demandeurIn;
|
|
date_courante_in =
|
|
date_of_jsoo calculette_aides_au_logement_in##.dateCouranteIn;
|
|
ressources_menage_prises_en_compte_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calculette_aides_au_logement_in##.ressourcesMenagePrisesEnCompteIn
|
|
}
|
|
|
|
class type calculette_aides_au_logement_garde_alternee_in =
|
|
object
|
|
method menageIn: menage Js.t Js.readonly_prop
|
|
method demandeurIn: demandeur Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method ressourcesMenagePrisesEnCompteIn: Js.number Js.t Js.readonly_prop
|
|
end
|
|
let calculette_aides_au_logement_garde_alternee_in_to_jsoo
|
|
(calculette_aides_au_logement_garde_alternee_in
|
|
: CalculetteAidesAuLogementGardeAlterneeIn.t)
|
|
: calculette_aides_au_logement_garde_alternee_in Js.t =
|
|
object%js
|
|
val menageIn =
|
|
menage_to_jsoo calculette_aides_au_logement_garde_alternee_in.menage_in
|
|
val demandeurIn =
|
|
demandeur_to_jsoo calculette_aides_au_logement_garde_alternee_in.demandeur_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo calculette_aides_au_logement_garde_alternee_in.date_courante_in
|
|
val ressourcesMenagePrisesEnCompteIn =
|
|
Js.number_of_float @@ money_to_float calculette_aides_au_logement_garde_alternee_in.ressources_menage_prises_en_compte_in
|
|
end
|
|
let calculette_aides_au_logement_garde_alternee_in_of_jsoo
|
|
(calculette_aides_au_logement_garde_alternee_in
|
|
: calculette_aides_au_logement_garde_alternee_in Js.t) :
|
|
CalculetteAidesAuLogementGardeAlterneeIn.t =
|
|
{
|
|
menage_in =
|
|
menage_of_jsoo
|
|
calculette_aides_au_logement_garde_alternee_in##.menageIn;
|
|
demandeur_in =
|
|
demandeur_of_jsoo
|
|
calculette_aides_au_logement_garde_alternee_in##.demandeurIn;
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
calculette_aides_au_logement_garde_alternee_in##.dateCouranteIn;
|
|
ressources_menage_prises_en_compte_in =
|
|
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
calculette_aides_au_logement_garde_alternee_in
|
|
##.ressourcesMenagePrisesEnCompteIn
|
|
}
|
|
|
|
class type base_mensuelle_allocations_familiales_in =
|
|
object method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
end
|
|
let base_mensuelle_allocations_familiales_in_to_jsoo
|
|
(base_mensuelle_allocations_familiales_in
|
|
: BaseMensuelleAllocationsFamilialesIn.t)
|
|
: base_mensuelle_allocations_familiales_in Js.t =
|
|
object%js
|
|
val dateCouranteIn =
|
|
date_to_jsoo base_mensuelle_allocations_familiales_in.date_courante_in
|
|
end
|
|
let base_mensuelle_allocations_familiales_in_of_jsoo
|
|
(base_mensuelle_allocations_familiales_in
|
|
: base_mensuelle_allocations_familiales_in Js.t) :
|
|
BaseMensuelleAllocationsFamilialesIn.t =
|
|
{
|
|
date_courante_in =
|
|
date_of_jsoo
|
|
base_mensuelle_allocations_familiales_in##.dateCouranteIn
|
|
}
|
|
|
|
class type verification_age_inferieur_ou_egal_a_in =
|
|
object
|
|
method dateNaissanceIn: Js.js_string Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method anneesIn: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
end
|
|
let verification_age_inferieur_ou_egal_a_in_to_jsoo
|
|
(verification_age_inferieur_ou_egal_a_in
|
|
: VerificationAgeInferieurOuEgalAIn.t)
|
|
: verification_age_inferieur_ou_egal_a_in Js.t =
|
|
object%js
|
|
val dateNaissanceIn =
|
|
date_to_jsoo verification_age_inferieur_ou_egal_a_in.date_naissance_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo verification_age_inferieur_ou_egal_a_in.date_courante_in
|
|
val anneesIn =
|
|
duration_to_jsoo verification_age_inferieur_ou_egal_a_in.annees_in
|
|
end
|
|
let verification_age_inferieur_ou_egal_a_in_of_jsoo
|
|
(verification_age_inferieur_ou_egal_a_in
|
|
: verification_age_inferieur_ou_egal_a_in Js.t) :
|
|
VerificationAgeInferieurOuEgalAIn.t =
|
|
{
|
|
date_naissance_in =
|
|
date_of_jsoo
|
|
verification_age_inferieur_ou_egal_a_in##.dateNaissanceIn;
|
|
date_courante_in =
|
|
date_of_jsoo verification_age_inferieur_ou_egal_a_in##.dateCouranteIn;
|
|
annees_in =
|
|
duration_of_jsoo verification_age_inferieur_ou_egal_a_in##.anneesIn
|
|
}
|
|
|
|
class type verification_age_superieur_a_in =
|
|
object
|
|
method dateNaissanceIn: Js.js_string Js.t Js.readonly_prop
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method anneesIn: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
end
|
|
let verification_age_superieur_a_in_to_jsoo
|
|
(verification_age_superieur_a_in : VerificationAgeSuperieurAIn.t)
|
|
: verification_age_superieur_a_in Js.t =
|
|
object%js
|
|
val dateNaissanceIn =
|
|
date_to_jsoo verification_age_superieur_a_in.date_naissance_in
|
|
val dateCouranteIn =
|
|
date_to_jsoo verification_age_superieur_a_in.date_courante_in
|
|
val anneesIn =
|
|
duration_to_jsoo verification_age_superieur_a_in.annees_in
|
|
end
|
|
let verification_age_superieur_a_in_of_jsoo
|
|
(verification_age_superieur_a_in : verification_age_superieur_a_in Js.t) :
|
|
VerificationAgeSuperieurAIn.t =
|
|
{
|
|
date_naissance_in =
|
|
date_of_jsoo verification_age_superieur_a_in##.dateNaissanceIn;
|
|
date_courante_in =
|
|
date_of_jsoo verification_age_superieur_a_in##.dateCouranteIn;
|
|
annees_in = duration_of_jsoo verification_age_superieur_a_in##.anneesIn
|
|
}
|
|
|
|
class type smic_in =
|
|
object
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
end
|
|
let smic_in_to_jsoo (smic_in : SmicIn.t) : smic_in Js.t =
|
|
object%js
|
|
val dateCouranteIn = date_to_jsoo smic_in.date_courante_in
|
|
val residenceIn = collectivite_to_jsoo smic_in.residence_in
|
|
end
|
|
let smic_in_of_jsoo (smic_in : smic_in Js.t) : SmicIn.t =
|
|
{
|
|
date_courante_in = date_of_jsoo smic_in##.dateCouranteIn;
|
|
residence_in = collectivite_of_jsoo smic_in##.residenceIn
|
|
}
|
|
|
|
class type eligibilite_prestations_familiales_in =
|
|
object
|
|
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
method ageL51232In:
|
|
(unit, unit -> Runtime_jsoo.Runtime.duration Js.t) Js.meth_callback Js.meth
|
|
end
|
|
let eligibilite_prestations_familiales_in_to_jsoo
|
|
(eligibilite_prestations_familiales_in
|
|
: EligibilitePrestationsFamilialesIn.t)
|
|
: eligibilite_prestations_familiales_in Js.t =
|
|
object%js
|
|
val dateCouranteIn =
|
|
date_to_jsoo eligibilite_prestations_familiales_in.date_courante_in
|
|
val residenceIn =
|
|
collectivite_to_jsoo eligibilite_prestations_familiales_in.residence_in
|
|
method ageL51232In = Js.wrap_meth_callback
|
|
(
|
|
fun _ (function_input0: unit) ->
|
|
duration_to_jsoo (eligibilite_prestations_familiales_in.age_l512_3_2_in
|
|
(
|
|
function_input0)))
|
|
end
|
|
let eligibilite_prestations_familiales_in_of_jsoo
|
|
(eligibilite_prestations_familiales_in
|
|
: eligibilite_prestations_familiales_in Js.t) :
|
|
EligibilitePrestationsFamilialesIn.t =
|
|
{
|
|
date_courante_in =
|
|
date_of_jsoo eligibilite_prestations_familiales_in##.dateCouranteIn;
|
|
residence_in =
|
|
collectivite_of_jsoo
|
|
eligibilite_prestations_familiales_in##.residenceIn;
|
|
age_l512_3_2_in = failwith "The function 'age_l512_3_2_in' translation isn't yet supported..."
|
|
}
|
|
|
|
|
|
|
|
|
|
let contributions_sociales_aides_personnelle_logement
|
|
(contributions_sociales_aides_personnelle_logement_in : contributions_sociales_aides_personnelle_logement_in Js.t)
|
|
: contributions_sociales_aides_personnelle_logement Js.t =
|
|
contributions_sociales_aides_personnelle_logement_in
|
|
|> contributions_sociales_aides_personnelle_logement_in_of_jsoo
|
|
|> contributions_sociales_aides_personnelle_logement
|
|
|> contributions_sociales_aides_personnelle_logement_to_jsoo
|
|
|
|
|
|
let calcul_equivalence_loyer_minimale
|
|
(calcul_equivalence_loyer_minimale_in : calcul_equivalence_loyer_minimale_in Js.t)
|
|
: calcul_equivalence_loyer_minimale Js.t =
|
|
calcul_equivalence_loyer_minimale_in
|
|
|> calcul_equivalence_loyer_minimale_in_of_jsoo
|
|
|> calcul_equivalence_loyer_minimale
|
|
|> calcul_equivalence_loyer_minimale_to_jsoo
|
|
|
|
|
|
let calcul_nombre_part_logement_foyer
|
|
(calcul_nombre_part_logement_foyer_in : calcul_nombre_part_logement_foyer_in Js.t)
|
|
: calcul_nombre_part_logement_foyer Js.t =
|
|
calcul_nombre_part_logement_foyer_in
|
|
|> calcul_nombre_part_logement_foyer_in_of_jsoo
|
|
|> calcul_nombre_part_logement_foyer
|
|
|> calcul_nombre_part_logement_foyer_to_jsoo
|
|
|
|
|
|
let calcul_nombre_parts_accession_propriete
|
|
(calcul_nombre_parts_accession_propriete_in : calcul_nombre_parts_accession_propriete_in Js.t)
|
|
: calcul_nombre_parts_accession_propriete Js.t =
|
|
calcul_nombre_parts_accession_propriete_in
|
|
|> calcul_nombre_parts_accession_propriete_in_of_jsoo
|
|
|> calcul_nombre_parts_accession_propriete
|
|
|> calcul_nombre_parts_accession_propriete_to_jsoo
|
|
|
|
|
|
let ouverture_droits_retraite
|
|
(ouverture_droits_retraite_in : ouverture_droits_retraite_in Js.t)
|
|
: ouverture_droits_retraite Js.t =
|
|
ouverture_droits_retraite_in
|
|
|> ouverture_droits_retraite_in_of_jsoo
|
|
|> ouverture_droits_retraite
|
|
|> ouverture_droits_retraite_to_jsoo
|
|
|
|
|
|
let impaye_depense_logement
|
|
(impaye_depense_logement_in : impaye_depense_logement_in Js.t)
|
|
: impaye_depense_logement Js.t =
|
|
impaye_depense_logement_in
|
|
|> impaye_depense_logement_in_of_jsoo
|
|
|> impaye_depense_logement
|
|
|> impaye_depense_logement_to_jsoo
|
|
|
|
|
|
let base_mensuelle_allocations_familiales
|
|
(base_mensuelle_allocations_familiales_in : base_mensuelle_allocations_familiales_in Js.t)
|
|
: base_mensuelle_allocations_familiales Js.t =
|
|
base_mensuelle_allocations_familiales_in
|
|
|> base_mensuelle_allocations_familiales_in_of_jsoo
|
|
|> base_mensuelle_allocations_familiales
|
|
|> base_mensuelle_allocations_familiales_to_jsoo
|
|
|
|
|
|
let verification_age_inferieur_ou_egal_a
|
|
(verification_age_inferieur_ou_egal_a_in : verification_age_inferieur_ou_egal_a_in Js.t)
|
|
: verification_age_inferieur_ou_egal_a Js.t =
|
|
verification_age_inferieur_ou_egal_a_in
|
|
|> verification_age_inferieur_ou_egal_a_in_of_jsoo
|
|
|> verification_age_inferieur_ou_egal_a
|
|
|> verification_age_inferieur_ou_egal_a_to_jsoo
|
|
|
|
|
|
let verification_age_superieur_a
|
|
(verification_age_superieur_a_in : verification_age_superieur_a_in Js.t)
|
|
: verification_age_superieur_a Js.t =
|
|
verification_age_superieur_a_in
|
|
|> verification_age_superieur_a_in_of_jsoo
|
|
|> verification_age_superieur_a
|
|
|> verification_age_superieur_a_to_jsoo
|
|
|
|
|
|
let smic (smic_in : smic_in Js.t)
|
|
: smic Js.t =
|
|
smic_in |> smic_in_of_jsoo |> smic |> smic_to_jsoo
|
|
|
|
|
|
let calcul_aide_personnalisee_logement_locatif
|
|
(calcul_aide_personnalisee_logement_locatif_in : calcul_aide_personnalisee_logement_locatif_in Js.t)
|
|
: calcul_aide_personnalisee_logement_locatif Js.t =
|
|
calcul_aide_personnalisee_logement_locatif_in
|
|
|> calcul_aide_personnalisee_logement_locatif_in_of_jsoo
|
|
|> calcul_aide_personnalisee_logement_locatif
|
|
|> calcul_aide_personnalisee_logement_locatif_to_jsoo
|
|
|
|
|
|
let calcul_aide_personnalisee_logement_foyer
|
|
(calcul_aide_personnalisee_logement_foyer_in : calcul_aide_personnalisee_logement_foyer_in Js.t)
|
|
: calcul_aide_personnalisee_logement_foyer Js.t =
|
|
calcul_aide_personnalisee_logement_foyer_in
|
|
|> calcul_aide_personnalisee_logement_foyer_in_of_jsoo
|
|
|> calcul_aide_personnalisee_logement_foyer
|
|
|> calcul_aide_personnalisee_logement_foyer_to_jsoo
|
|
|
|
|
|
let calcul_aide_personnalisee_logement_accession_propriete
|
|
(calcul_aide_personnalisee_logement_accession_propriete_in : calcul_aide_personnalisee_logement_accession_propriete_in Js.t)
|
|
: calcul_aide_personnalisee_logement_accession_propriete Js.t =
|
|
calcul_aide_personnalisee_logement_accession_propriete_in
|
|
|> calcul_aide_personnalisee_logement_accession_propriete_in_of_jsoo
|
|
|> calcul_aide_personnalisee_logement_accession_propriete
|
|
|> calcul_aide_personnalisee_logement_accession_propriete_to_jsoo
|
|
|
|
|
|
let eligibilite_prestations_familiales
|
|
(eligibilite_prestations_familiales_in : eligibilite_prestations_familiales_in Js.t)
|
|
: eligibilite_prestations_familiales Js.t =
|
|
eligibilite_prestations_familiales_in
|
|
|> eligibilite_prestations_familiales_in_of_jsoo
|
|
|> eligibilite_prestations_familiales
|
|
|> eligibilite_prestations_familiales_to_jsoo
|
|
|
|
|
|
let calcul_allocation_logement_locatif
|
|
(calcul_allocation_logement_locatif_in : calcul_allocation_logement_locatif_in Js.t)
|
|
: calcul_allocation_logement_locatif Js.t =
|
|
calcul_allocation_logement_locatif_in
|
|
|> calcul_allocation_logement_locatif_in_of_jsoo
|
|
|> calcul_allocation_logement_locatif
|
|
|> calcul_allocation_logement_locatif_to_jsoo
|
|
|
|
|
|
let calcul_allocation_logement_foyer
|
|
(calcul_allocation_logement_foyer_in : calcul_allocation_logement_foyer_in Js.t)
|
|
: calcul_allocation_logement_foyer Js.t =
|
|
calcul_allocation_logement_foyer_in
|
|
|> calcul_allocation_logement_foyer_in_of_jsoo
|
|
|> calcul_allocation_logement_foyer
|
|
|> calcul_allocation_logement_foyer_to_jsoo
|
|
|
|
|
|
let calcul_allocation_logement_accession_propriete
|
|
(calcul_allocation_logement_accession_propriete_in : calcul_allocation_logement_accession_propriete_in Js.t)
|
|
: calcul_allocation_logement_accession_propriete Js.t =
|
|
calcul_allocation_logement_accession_propriete_in
|
|
|> calcul_allocation_logement_accession_propriete_in_of_jsoo
|
|
|> calcul_allocation_logement_accession_propriete
|
|
|> calcul_allocation_logement_accession_propriete_to_jsoo
|
|
|
|
|
|
let calcul_aide_personnalisee_logement
|
|
(calcul_aide_personnalisee_logement_in : calcul_aide_personnalisee_logement_in Js.t)
|
|
: calcul_aide_personnalisee_logement Js.t =
|
|
calcul_aide_personnalisee_logement_in
|
|
|> calcul_aide_personnalisee_logement_in_of_jsoo
|
|
|> calcul_aide_personnalisee_logement
|
|
|> calcul_aide_personnalisee_logement_to_jsoo
|
|
|
|
|
|
let eligibilite_aides_personnelle_logement
|
|
(eligibilite_aides_personnelle_logement_in : eligibilite_aides_personnelle_logement_in Js.t)
|
|
: eligibilite_aides_personnelle_logement Js.t =
|
|
eligibilite_aides_personnelle_logement_in
|
|
|> eligibilite_aides_personnelle_logement_in_of_jsoo
|
|
|> eligibilite_aides_personnelle_logement
|
|
|> eligibilite_aides_personnelle_logement_to_jsoo
|
|
|
|
|
|
let calcul_allocation_logement
|
|
(calcul_allocation_logement_in : calcul_allocation_logement_in Js.t)
|
|
: calcul_allocation_logement Js.t =
|
|
calcul_allocation_logement_in
|
|
|> calcul_allocation_logement_in_of_jsoo
|
|
|> calcul_allocation_logement
|
|
|> calcul_allocation_logement_to_jsoo
|
|
|
|
|
|
let eligibilite_prime_de_demenagement
|
|
(eligibilite_prime_de_demenagement_in : eligibilite_prime_de_demenagement_in Js.t)
|
|
: eligibilite_prime_de_demenagement Js.t =
|
|
eligibilite_prime_de_demenagement_in
|
|
|> eligibilite_prime_de_demenagement_in_of_jsoo
|
|
|> eligibilite_prime_de_demenagement
|
|
|> eligibilite_prime_de_demenagement_to_jsoo
|
|
|
|
|
|
let eligibilite_allocation_logement
|
|
(eligibilite_allocation_logement_in : eligibilite_allocation_logement_in Js.t)
|
|
: eligibilite_allocation_logement Js.t =
|
|
eligibilite_allocation_logement_in
|
|
|> eligibilite_allocation_logement_in_of_jsoo
|
|
|> eligibilite_allocation_logement
|
|
|> eligibilite_allocation_logement_to_jsoo
|
|
|
|
|
|
let eligibilite_aide_personnalisee_logement
|
|
(eligibilite_aide_personnalisee_logement_in : eligibilite_aide_personnalisee_logement_in Js.t)
|
|
: eligibilite_aide_personnalisee_logement Js.t =
|
|
eligibilite_aide_personnalisee_logement_in
|
|
|> eligibilite_aide_personnalisee_logement_in_of_jsoo
|
|
|> eligibilite_aide_personnalisee_logement
|
|
|> eligibilite_aide_personnalisee_logement_to_jsoo
|
|
|
|
|
|
let calculette_aides_au_logement
|
|
(calculette_aides_au_logement_in : calculette_aides_au_logement_in Js.t)
|
|
: calculette_aides_au_logement Js.t =
|
|
calculette_aides_au_logement_in
|
|
|> calculette_aides_au_logement_in_of_jsoo
|
|
|> calculette_aides_au_logement
|
|
|> calculette_aides_au_logement_to_jsoo
|
|
|
|
|
|
let calculette_aides_au_logement_garde_alternee
|
|
(calculette_aides_au_logement_garde_alternee_in : calculette_aides_au_logement_garde_alternee_in Js.t)
|
|
: calculette_aides_au_logement_garde_alternee Js.t =
|
|
calculette_aides_au_logement_garde_alternee_in
|
|
|> calculette_aides_au_logement_garde_alternee_in_of_jsoo
|
|
|> calculette_aides_au_logement_garde_alternee
|
|
|> calculette_aides_au_logement_garde_alternee_to_jsoo
|
|
|
|
|
|
let _ =
|
|
Js.export "AidesLogementLib"
|
|
(object%js
|
|
|
|
method contributionsSocialesAidesPersonnelleLogement : (contributions_sociales_aides_personnelle_logement_in Js.t -> contributions_sociales_aides_personnelle_logement Js.t) Js.callback =
|
|
Js.wrap_callback contributions_sociales_aides_personnelle_logement
|
|
|
|
method calculEquivalenceLoyerMinimale : (calcul_equivalence_loyer_minimale_in Js.t -> calcul_equivalence_loyer_minimale Js.t) Js.callback =
|
|
Js.wrap_callback calcul_equivalence_loyer_minimale
|
|
|
|
method calculNombrePartLogementFoyer : (calcul_nombre_part_logement_foyer_in Js.t -> calcul_nombre_part_logement_foyer Js.t) Js.callback =
|
|
Js.wrap_callback calcul_nombre_part_logement_foyer
|
|
|
|
method calculNombrePartsAccessionPropriete : (calcul_nombre_parts_accession_propriete_in Js.t -> calcul_nombre_parts_accession_propriete Js.t) Js.callback =
|
|
Js.wrap_callback calcul_nombre_parts_accession_propriete
|
|
|
|
method ouvertureDroitsRetraite : (ouverture_droits_retraite_in Js.t -> ouverture_droits_retraite Js.t) Js.callback =
|
|
Js.wrap_callback ouverture_droits_retraite
|
|
|
|
method impayeDepenseLogement : (impaye_depense_logement_in Js.t -> impaye_depense_logement Js.t) Js.callback =
|
|
Js.wrap_callback impaye_depense_logement
|
|
|
|
method baseMensuelleAllocationsFamiliales : (base_mensuelle_allocations_familiales_in Js.t -> base_mensuelle_allocations_familiales Js.t) Js.callback =
|
|
Js.wrap_callback base_mensuelle_allocations_familiales
|
|
|
|
method verificationAgeInferieurOuEgalA : (verification_age_inferieur_ou_egal_a_in Js.t -> verification_age_inferieur_ou_egal_a Js.t) Js.callback =
|
|
Js.wrap_callback verification_age_inferieur_ou_egal_a
|
|
|
|
method verificationAgeSuperieurA : (verification_age_superieur_a_in Js.t -> verification_age_superieur_a Js.t) Js.callback =
|
|
Js.wrap_callback verification_age_superieur_a
|
|
|
|
method smic : (smic_in Js.t -> smic Js.t) Js.callback =
|
|
Js.wrap_callback smic
|
|
|
|
method calculAidePersonnaliseeLogementLocatif : (calcul_aide_personnalisee_logement_locatif_in Js.t -> calcul_aide_personnalisee_logement_locatif Js.t) Js.callback =
|
|
Js.wrap_callback calcul_aide_personnalisee_logement_locatif
|
|
|
|
method calculAidePersonnaliseeLogementFoyer : (calcul_aide_personnalisee_logement_foyer_in Js.t -> calcul_aide_personnalisee_logement_foyer Js.t) Js.callback =
|
|
Js.wrap_callback calcul_aide_personnalisee_logement_foyer
|
|
|
|
method calculAidePersonnaliseeLogementAccessionPropriete : (calcul_aide_personnalisee_logement_accession_propriete_in Js.t -> calcul_aide_personnalisee_logement_accession_propriete Js.t) Js.callback =
|
|
Js.wrap_callback
|
|
calcul_aide_personnalisee_logement_accession_propriete
|
|
|
|
method eligibilitePrestationsFamiliales : (eligibilite_prestations_familiales_in Js.t -> eligibilite_prestations_familiales Js.t) Js.callback =
|
|
Js.wrap_callback eligibilite_prestations_familiales
|
|
|
|
method calculAllocationLogementLocatif : (calcul_allocation_logement_locatif_in Js.t -> calcul_allocation_logement_locatif Js.t) Js.callback =
|
|
Js.wrap_callback calcul_allocation_logement_locatif
|
|
|
|
method calculAllocationLogementFoyer : (calcul_allocation_logement_foyer_in Js.t -> calcul_allocation_logement_foyer Js.t) Js.callback =
|
|
Js.wrap_callback calcul_allocation_logement_foyer
|
|
|
|
method calculAllocationLogementAccessionPropriete : (calcul_allocation_logement_accession_propriete_in Js.t -> calcul_allocation_logement_accession_propriete Js.t) Js.callback =
|
|
Js.wrap_callback calcul_allocation_logement_accession_propriete
|
|
|
|
method calculAidePersonnaliseeLogement : (calcul_aide_personnalisee_logement_in Js.t -> calcul_aide_personnalisee_logement Js.t) Js.callback =
|
|
Js.wrap_callback calcul_aide_personnalisee_logement
|
|
|
|
method eligibiliteAidesPersonnelleLogement : (eligibilite_aides_personnelle_logement_in Js.t -> eligibilite_aides_personnelle_logement Js.t) Js.callback =
|
|
Js.wrap_callback eligibilite_aides_personnelle_logement
|
|
|
|
method calculAllocationLogement : (calcul_allocation_logement_in Js.t -> calcul_allocation_logement Js.t) Js.callback =
|
|
Js.wrap_callback calcul_allocation_logement
|
|
|
|
method eligibilitePrimeDeDemenagement : (eligibilite_prime_de_demenagement_in Js.t -> eligibilite_prime_de_demenagement Js.t) Js.callback =
|
|
Js.wrap_callback eligibilite_prime_de_demenagement
|
|
|
|
method eligibiliteAllocationLogement : (eligibilite_allocation_logement_in Js.t -> eligibilite_allocation_logement Js.t) Js.callback =
|
|
Js.wrap_callback eligibilite_allocation_logement
|
|
|
|
method eligibiliteAidePersonnaliseeLogement : (eligibilite_aide_personnalisee_logement_in Js.t -> eligibilite_aide_personnalisee_logement Js.t) Js.callback =
|
|
Js.wrap_callback eligibilite_aide_personnalisee_logement
|
|
|
|
method calculetteAidesAuLogement : (calculette_aides_au_logement_in Js.t -> calculette_aides_au_logement Js.t) Js.callback =
|
|
Js.wrap_callback calculette_aides_au_logement
|
|
|
|
method calculetteAidesAuLogementGardeAlternee : (calculette_aides_au_logement_garde_alternee_in Js.t -> calculette_aides_au_logement_garde_alternee Js.t) Js.callback =
|
|
Js.wrap_callback calculette_aides_au_logement_garde_alternee
|
|
|
|
end) |