CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-20 08:47:14 +03:00
Code Issues Projects Releases Wiki Activity
c680b932ff
catala/french_law/ocaml/law_source/aides_logement_api_web.ml
Louis Gesbert a51d082033 Use scope calls in "Aides logement"
2022-11-07 14:23:10 +01:00

4749 lines
201 KiB
OCaml
Generated
Raw Blame History

(** 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"
- "AllocationJeuneEnfant"
- "AllocationSoutienFamilial"
- "AllocationSoutienEnfantHandicape"
- "AllocationAdulteHandicape" *)
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
| AllocationJeuneEnfant arg -> object%js
val kind = Js.string "AllocationJeuneEnfant"
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
| AllocationAdulteHandicape arg -> object%js
val kind = Js.string "AllocationAdulteHandicape"
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 ()
| "AllocationJeuneEnfant" -> PrestationRecue.AllocationJeuneEnfant ()
| "AllocationSoutienFamilial" ->
PrestationRecue.AllocationSoutienFamilial ()
| "AllocationSoutienEnfantHandicape" ->
PrestationRecue.AllocationSoutienEnfantHandicape ()
| "AllocationAdulteHandicape" ->
PrestationRecue.AllocationAdulteHandicape ()
| 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 paiement_logement_distinct_professionnel =
object
method kind :
Js.js_string Js.t Js.readonly_prop
(** Expects one of:
- "OuiAvecLoyerOuCharges"
- "Non" *)
method payload : Js.Unsafe.any Js.t Js.readonly_prop
end
let paiement_logement_distinct_professionnel_to_jsoo
: PaiementLogementDistinctProfessionnel.t -> paiement_logement_distinct_professionnel Js.t
= function
| OuiAvecLoyerOuCharges arg -> object%js
val kind = Js.string "OuiAvecLoyerOuCharges"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
end
| Non arg -> object%js
val kind = Js.string "Non"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
let paiement_logement_distinct_professionnel_of_jsoo
(paiement_logement_distinct_professionnel
: paiement_logement_distinct_professionnel Js.t)
: PaiementLogementDistinctProfessionnel.t =
match paiement_logement_distinct_professionnel##.kind |> Js.to_string with
| "OuiAvecLoyerOuCharges" ->
PaiementLogementDistinctProfessionnel.OuiAvecLoyerOuCharges (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce paiement_logement_distinct_professionnel##.payload))
| "Non" -> PaiementLogementDistinctProfessionnel.Non ()
| cons ->
failwith
(Printf.sprintf
"Unexpected '%s' kind for the enumeration 'PaiementLogementDistinctProfessionnel.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 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 prise_en_charge =
object
method kind :
Js.js_string Js.t Js.readonly_prop
(** Expects one of:
- "EffectiveEtPermanente"
- "ResidenceAlterneeAllocataireUnique"
- "ResidenceAlterneeAllocationsPartagee" *)
method payload : Js.Unsafe.any Js.t Js.readonly_prop
end
let prise_en_charge_to_jsoo : PriseEnCharge.t -> prise_en_charge Js.t
= function
| EffectiveEtPermanente arg -> object%js
val kind = Js.string "EffectiveEtPermanente"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| ResidenceAlterneeAllocataireUnique arg -> object%js
val kind = Js.string "ResidenceAlterneeAllocataireUnique"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| ResidenceAlterneeAllocationsPartagee arg -> object%js
val kind = Js.string "ResidenceAlterneeAllocationsPartagee"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
let prise_en_charge_of_jsoo (prise_en_charge : prise_en_charge Js.t)
: PriseEnCharge.t =
match prise_en_charge##.kind |> Js.to_string with
| "EffectiveEtPermanente" -> PriseEnCharge.EffectiveEtPermanente ()
| "ResidenceAlterneeAllocataireUnique" ->
PriseEnCharge.ResidenceAlterneeAllocataireUnique ()
| "ResidenceAlterneeAllocationsPartagee" ->
PriseEnCharge.ResidenceAlterneeAllocationsPartagee ()
| cons ->
failwith
(Printf.sprintf
"Unexpected '%s' kind for the enumeration 'PriseEnCharge.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 prise_en_charge_enfant =
object
method kind :
Js.js_string Js.t Js.readonly_prop
(** Expects one of:
- "GardeAlterneePartageAllocations"
- "GardeAlterneeAllocataireUnique"
- "EffectiveEtPermanente"
- "ServicesSociauxAllocationVerseeALaFamille"
- "ServicesSociauxAllocationVerseeAuxServicesSociaux" *)
method payload : Js.Unsafe.any Js.t Js.readonly_prop
end
let prise_en_charge_enfant_to_jsoo
: PriseEnChargeEnfant.t -> prise_en_charge_enfant Js.t
= function
| GardeAlterneePartageAllocations arg -> object%js
val kind = Js.string "GardeAlterneePartageAllocations"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| GardeAlterneeAllocataireUnique arg -> object%js
val kind = Js.string "GardeAlterneeAllocataireUnique"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| EffectiveEtPermanente arg -> object%js
val kind = Js.string "EffectiveEtPermanente"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| ServicesSociauxAllocationVerseeALaFamille arg -> object%js
val kind = Js.string "ServicesSociauxAllocationVerseeALaFamille"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| ServicesSociauxAllocationVerseeAuxServicesSociaux arg -> object%js
val kind = Js.string "ServicesSociauxAllocationVerseeAuxServicesSociaux"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
let prise_en_charge_enfant_of_jsoo
(prise_en_charge_enfant : prise_en_charge_enfant Js.t)
: PriseEnChargeEnfant.t =
match prise_en_charge_enfant##.kind |> Js.to_string with
| "GardeAlterneePartageAllocations" ->
PriseEnChargeEnfant.GardeAlterneePartageAllocations ()
| "GardeAlterneeAllocataireUnique" ->
PriseEnChargeEnfant.GardeAlterneeAllocataireUnique ()
| "EffectiveEtPermanente" -> PriseEnChargeEnfant.EffectiveEtPermanente ()
| "ServicesSociauxAllocationVerseeALaFamille" ->
PriseEnChargeEnfant.ServicesSociauxAllocationVerseeALaFamille ()
| "ServicesSociauxAllocationVerseeAuxServicesSociaux" ->
PriseEnChargeEnfant.ServicesSociauxAllocationVerseeAuxServicesSociaux ()
| cons ->
failwith
(Printf.sprintf
"Unexpected '%s' kind for the enumeration 'PriseEnChargeEnfant.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 element_prestations_familiales =
object
method kind :
Js.js_string Js.t Js.readonly_prop
(** Expects one of:
- "PrestationAccueilJeuneEnfant"
- "AllocationsFamiliales"
- "ComplementFamilial"
- "AllocationLogement"
- "AllocationEducationEnfantHandicape"
- "AllocationSoutienFamilial"
- "AllocationRentreeScolaire"
- "AllocationJournalierePresenceParentale" *)
method payload : Js.Unsafe.any Js.t Js.readonly_prop
end
let element_prestations_familiales_to_jsoo
: ElementPrestationsFamiliales.t -> element_prestations_familiales Js.t
= function
| PrestationAccueilJeuneEnfant arg -> object%js
val kind = Js.string "PrestationAccueilJeuneEnfant"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| 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
| AllocationLogement arg -> object%js
val kind = Js.string "AllocationLogement"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| AllocationEducationEnfantHandicape arg -> object%js
val kind = Js.string "AllocationEducationEnfantHandicape"
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
| AllocationRentreeScolaire arg -> object%js
val kind = Js.string "AllocationRentreeScolaire"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
| AllocationJournalierePresenceParentale arg -> object%js
val kind = Js.string "AllocationJournalierePresenceParentale"
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
end
let element_prestations_familiales_of_jsoo
(element_prestations_familiales : element_prestations_familiales Js.t)
: ElementPrestationsFamiliales.t =
match element_prestations_familiales##.kind |> Js.to_string with
| "PrestationAccueilJeuneEnfant" ->
ElementPrestationsFamiliales.PrestationAccueilJeuneEnfant ()
| "AllocationsFamiliales" ->
ElementPrestationsFamiliales.AllocationsFamiliales ()
| "ComplementFamilial" ->
ElementPrestationsFamiliales.ComplementFamilial ()
| "AllocationLogement" ->
ElementPrestationsFamiliales.AllocationLogement ()
| "AllocationEducationEnfantHandicape" ->
ElementPrestationsFamiliales.AllocationEducationEnfantHandicape ()
| "AllocationSoutienFamilial" ->
ElementPrestationsFamiliales.AllocationSoutienFamilial ()
| "AllocationRentreeScolaire" ->
ElementPrestationsFamiliales.AllocationRentreeScolaire ()
| "AllocationJournalierePresenceParentale" ->
ElementPrestationsFamiliales.AllocationJournalierePresenceParentale ()
| cons ->
failwith
(Printf.sprintf
"Unexpected '%s' kind for the enumeration 'ElementPrestationsFamiliales.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 patrimoine =
object
method produisantRevenuPeriodeR82233R8224:
Js.number Js.t Js.readonly_prop
method neProduisantPasRevenuPeriodeR82233R8224:
Js.number Js.t Js.readonly_prop
end
let patrimoine_to_jsoo (patrimoine : Patrimoine.t) : patrimoine Js.t =
object%js
val produisantRevenuPeriodeR82233R8224 =
Js.number_of_float @@ money_to_float patrimoine.produisant_revenu_periode_r822_3_3_r822_4
val neProduisantPasRevenuPeriodeR82233R8224 =
Js.number_of_float @@ money_to_float patrimoine.ne_produisant_pas_revenu_periode_r822_3_3_r822_4
end
let patrimoine_of_jsoo (patrimoine : patrimoine Js.t) : Patrimoine.t =
{
produisant_revenu_periode_r822_3_3_r822_4 =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
patrimoine##.produisantRevenuPeriodeR82233R8224;
ne_produisant_pas_revenu_periode_r822_3_3_r822_4 =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
patrimoine##.neProduisantPasRevenuPeriodeR82233R8224
}
class type conditions_etrangers =
object
method satisfaitConditionsL5122CodeSecuriteSociale:
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
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
}
class type personne_vivant_habituellement_au_foyer =
object
method dureeResidenceDurantPeriodeR82231SuperieureA6Mois:
bool Js.t Js.readonly_prop
method ressources: Js.number Js.t Js.readonly_prop
end
let personne_vivant_habituellement_au_foyer_to_jsoo
(personne_vivant_habituellement_au_foyer
: PersonneVivantHabituellementAuFoyer.t)
: personne_vivant_habituellement_au_foyer Js.t =
object%js
val dureeResidenceDurantPeriodeR82231SuperieureA6Mois =
Js.bool personne_vivant_habituellement_au_foyer.duree_residence_durant_periode_r_822_3_1_superieure_a_6_mois
val ressources =
Js.number_of_float @@ money_to_float personne_vivant_habituellement_au_foyer.ressources
end
let personne_vivant_habituellement_au_foyer_of_jsoo
(personne_vivant_habituellement_au_foyer
: personne_vivant_habituellement_au_foyer Js.t) :
PersonneVivantHabituellementAuFoyer.t =
{
duree_residence_durant_periode_r_822_3_1_superieure_a_6_mois =
Js.to_bool
personne_vivant_habituellement_au_foyer
##.dureeResidenceDurantPeriodeR82231SuperieureA6Mois;
ressources =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
personne_vivant_habituellement_au_foyer##.ressources
}
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 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 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 =
{
montant_prime_demenagement =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
eligibilite_prime_de_demenagement##.montantPrimeDemenagement
}
class type ressources_aides_personnelle_logement =
object method ressourcesPrisesEnCompte: Js.number Js.t Js.readonly_prop
end
let ressources_aides_personnelle_logement_to_jsoo
(ressources_aides_personnelle_logement
: RessourcesAidesPersonnelleLogement.t)
: ressources_aides_personnelle_logement Js.t =
object%js
val ressourcesPrisesEnCompte =
Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement.ressources_prises_en_compte
end
let ressources_aides_personnelle_logement_of_jsoo
(ressources_aides_personnelle_logement
: ressources_aides_personnelle_logement Js.t) :
RessourcesAidesPersonnelleLogement.t =
{
ressources_prises_en_compte =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
ressources_aides_personnelle_logement##.ressourcesPrisesEnCompte
}
class type contributions_sociales_aides_personnelle_logement =
object
method montant:
(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 input ->
Js.number_of_float @@ money_to_float (contributions_sociales_aides_personnelle_logement.montant (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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:
(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 input ->
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 input)))
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:
(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 input ->
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 input)))
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:
(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 input ->
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 input)))
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:
(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 input ->
Js.number_of_float @@ money_to_float (traitement_formule_aide_finale.traitement_aide_finale (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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:
(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 input ->
Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement.traitement_aide_finale (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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:
(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 input ->
Js.number_of_float @@ money_to_float (calcul_allocation_logement_locatif.traitement_aide_finale (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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 aideFinaleFormule: Js.number Js.t Js.readonly_prop
method traitementAideFinale:
(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 aideFinaleFormule =
Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete.aide_finale_formule
method traitementAideFinale = Js.wrap_meth_callback
(
fun input ->
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 input)))
end
let calcul_allocation_logement_accession_propriete_of_jsoo
(calcul_allocation_logement_accession_propriete
: calcul_allocation_logement_accession_propriete Js.t) :
CalculAllocationLogementAccessionPropriete.t =
{
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:
(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 input ->
Js.number_of_float @@ money_to_float (calcul_allocation_logement_foyer.traitement_aide_finale (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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:
(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 input ->
Js.number_of_float @@ money_to_float (calcul_allocation_logement.traitement_aide_finale (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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:
(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 input ->
Js.number_of_float @@ money_to_float (calculette_aides_au_logement.traitement_aide_finale (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
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 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 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
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
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
}
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 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 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
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 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
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;
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
}
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 priseEnCharge: prise_en_charge_enfant 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 priseEnCharge =
prise_en_charge_enfant_to_jsoo enfant_prestations_familiales.prise_en_charge
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;
prise_en_charge =
prise_en_charge_enfant_of_jsoo
enfant_prestations_familiales##.priseEnCharge;
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 enfant_a_charge =
object
method identifiant: int 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
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 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
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;
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
}
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 proprietaire =
object
method logementSitueCommuneDesequilibreL8312: bool Js.t Js.readonly_prop
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
end
let proprietaire_to_jsoo (proprietaire : Proprietaire.t)
: proprietaire Js.t =
object%js
val logementSitueCommuneDesequilibreL8312 =
Js.bool proprietaire.logement_situe_commune_desequilibre_l831_2
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
end
let proprietaire_of_jsoo (proprietaire : proprietaire Js.t) :
Proprietaire.t =
{
logement_situe_commune_desequilibre_l831_2 =
Js.to_bool proprietaire##.logementSitueCommuneDesequilibreL8312;
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
}
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 eligibilite_prestations_familiales =
object
method droitOuvert:
(enfant_prestations_familiales Js.t, bool Js.t) Js.meth_callback Js.meth
method conditionsHorsAge:
(enfant_prestations_familiales Js.t, bool Js.t) Js.meth_callback Js.meth
method ageL51232: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
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
method droitOuvert = Js.wrap_meth_callback
(
fun input ->
Js.bool (eligibilite_prestations_familiales.droit_ouvert (enfant_prestations_familiales_of_jsoo input)))
method conditionsHorsAge = Js.wrap_meth_callback
(
fun input ->
Js.bool (eligibilite_prestations_familiales.conditions_hors_age (enfant_prestations_familiales_of_jsoo input)))
val ageL51232 =
duration_to_jsoo eligibilite_prestations_familiales.age_l512_3_2
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 =
{
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...";
age_l512_3_2 =
duration_of_jsoo eligibilite_prestations_familiales##.ageL51232;
regime_outre_mer_l751_1 =
Js.to_bool eligibilite_prestations_familiales##.regimeOutreMerL7511
}
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 demandeur =
object
method dateNaissance: Js.js_string Js.t Js.readonly_prop
method nationalite: nationalite Js.t Js.readonly_prop
method patrimoine: patrimoine Js.t Js.readonly_prop
method personneHebergeeCentreSoinLL162223SecuriteSociale:
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 patrimoine = patrimoine_to_jsoo demandeur.patrimoine
val personneHebergeeCentreSoinLL162223SecuriteSociale =
Js.bool demandeur.personne_hebergee_centre_soin_l_L162_22_3_securite_sociale
end
let demandeur_of_jsoo (demandeur : demandeur Js.t) : Demandeur.t =
{
date_naissance = date_of_jsoo demandeur##.dateNaissance;
nationalite = nationalite_of_jsoo demandeur##.nationalite;
patrimoine = patrimoine_of_jsoo demandeur##.patrimoine;
personne_hebergee_centre_soin_l_L162_22_3_securite_sociale =
Js.to_bool
demandeur##.personneHebergeeCentreSoinLL162223SecuriteSociale
}
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 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:
(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 input ->
Js.bool (eligibilite_aides_personnelle_logement.condition_2_r823_4 (personne_a_charge_of_jsoo input)))
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 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 logement =
object
method residencePrincipale: bool Js.t Js.readonly_prop
method estEhpadOuMaisonAutonomieL31312Asf: 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 estEhpadOuMaisonAutonomieL31312Asf =
Js.bool logement.est_ehpad_ou_maison_autonomie_l313_12_asf
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;
est_ehpad_ou_maison_autonomie_l313_12_asf =
Js.to_bool logement##.estEhpadOuMaisonAutonomieL31312Asf;
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
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
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
}
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, bool Js.t) Js.meth_callback Js.meth
method conditionLogementSurfaceIn:
(unit, bool 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 input ->
Js.bool (eligibilite_aides_personnelle_logement_in.condition_logement_residence_principale_in ( input)))
method conditionLogementSurfaceIn = Js.wrap_meth_callback
(
fun input ->
Js.bool (eligibilite_aides_personnelle_logement_in.condition_logement_surface_in ( input)))
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..."
}
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 ressources_aides_personnelle_logement_in =
object
method ressourcesDemandeurIn: Js.number Js.t Js.readonly_prop
method ressourcesConjointIn: Js.number Js.t Js.readonly_prop
method personnesVivantHabituellementFoyerIn:
personne_vivant_habituellement_au_foyer Js.t Js.js_array Js.t Js.readonly_prop
method demandeurExerceActiviteRemunereeIn: bool Js.t Js.readonly_prop
method conjointExerceActiviteRemunereeIn: bool Js.t Js.readonly_prop
method personnesAChargeIn:
personne_a_charge Js.t Js.js_array Js.t Js.readonly_prop
method situationFamilialeIn: situation_familiale Js.t Js.readonly_prop
method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
method conditionAgeBourseEnseignementSuperieurIn:
bool Js.t Js.readonly_prop
method demandeurPoursuitDesEtudesIn: bool Js.t Js.readonly_prop
method dateDemandeOuReexamenDroitIn: Js.js_string Js.t Js.readonly_prop
method paiementLogementDistinctProfessionnelIn:
paiement_logement_distinct_professionnel Js.t Js.readonly_prop
method ressourcesMenageArrondiesBaseIn: Js.number Js.t Js.readonly_prop
end
let ressources_aides_personnelle_logement_in_to_jsoo
(ressources_aides_personnelle_logement_in
: RessourcesAidesPersonnelleLogementIn.t)
: ressources_aides_personnelle_logement_in Js.t =
object%js
val ressourcesDemandeurIn =
Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_in.ressources_demandeur_in
val ressourcesConjointIn =
Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_in.ressources_conjoint_in
val personnesVivantHabituellementFoyerIn =
Js.array @@ Array.map (fun x -> personne_vivant_habituellement_au_foyer_to_jsoo x) ressources_aides_personnelle_logement_in.personnes_vivant_habituellement_foyer_in
val demandeurExerceActiviteRemunereeIn =
Js.bool ressources_aides_personnelle_logement_in.demandeur_exerce_activite_remuneree_in
val conjointExerceActiviteRemunereeIn =
Js.bool ressources_aides_personnelle_logement_in.conjoint_exerce_activite_remuneree_in
val personnesAChargeIn =
Js.array @@ Array.map (fun x -> personne_a_charge_to_jsoo x) ressources_aides_personnelle_logement_in.personnes_a_charge_in
val situationFamilialeIn =
situation_familiale_to_jsoo ressources_aides_personnelle_logement_in.situation_familiale_in
val modeOccupationIn =
mode_occupation_to_jsoo ressources_aides_personnelle_logement_in.mode_occupation_in
val conditionAgeBourseEnseignementSuperieurIn =
Js.bool ressources_aides_personnelle_logement_in.condition_age_bourse_enseignement_superieur_in
val demandeurPoursuitDesEtudesIn =
Js.bool ressources_aides_personnelle_logement_in.demandeur_poursuit_des_etudes_in
val dateDemandeOuReexamenDroitIn =
date_to_jsoo ressources_aides_personnelle_logement_in.date_demande_ou_reexamen_droit_in
val paiementLogementDistinctProfessionnelIn =
paiement_logement_distinct_professionnel_to_jsoo ressources_aides_personnelle_logement_in.paiement_logement_distinct_professionnel_in
val ressourcesMenageArrondiesBaseIn =
Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_in.ressources_menage_arrondies_base_in
end
let ressources_aides_personnelle_logement_in_of_jsoo
(ressources_aides_personnelle_logement_in
: ressources_aides_personnelle_logement_in Js.t) :
RessourcesAidesPersonnelleLogementIn.t =
{
ressources_demandeur_in =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
ressources_aides_personnelle_logement_in##.ressourcesDemandeurIn;
ressources_conjoint_in =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
ressources_aides_personnelle_logement_in##.ressourcesConjointIn;
personnes_vivant_habituellement_foyer_in =
Array.map (fun x -> personne_vivant_habituellement_au_foyer_of_jsoo x) @@ Js.to_array
ressources_aides_personnelle_logement_in
##.personnesVivantHabituellementFoyerIn;
demandeur_exerce_activite_remuneree_in =
Js.to_bool
ressources_aides_personnelle_logement_in
##.demandeurExerceActiviteRemunereeIn;
conjoint_exerce_activite_remuneree_in =
Js.to_bool
ressources_aides_personnelle_logement_in
##.conjointExerceActiviteRemunereeIn;
personnes_a_charge_in =
Array.map (fun x -> personne_a_charge_of_jsoo x) @@ Js.to_array
ressources_aides_personnelle_logement_in##.personnesAChargeIn;
situation_familiale_in =
situation_familiale_of_jsoo
ressources_aides_personnelle_logement_in##.situationFamilialeIn;
mode_occupation_in =
mode_occupation_of_jsoo
ressources_aides_personnelle_logement_in##.modeOccupationIn;
condition_age_bourse_enseignement_superieur_in =
Js.to_bool
ressources_aides_personnelle_logement_in
##.conditionAgeBourseEnseignementSuperieurIn;
demandeur_poursuit_des_etudes_in =
Js.to_bool
ressources_aides_personnelle_logement_in
##.demandeurPoursuitDesEtudesIn;
date_demande_ou_reexamen_droit_in =
date_of_jsoo
ressources_aides_personnelle_logement_in
##.dateDemandeOuReexamenDroitIn;
paiement_logement_distinct_professionnel_in =
paiement_logement_distinct_professionnel_of_jsoo
ressources_aides_personnelle_logement_in
##.paiementLogementDistinctProfessionnelIn;
ressources_menage_arrondies_base_in =
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
ressources_aides_personnelle_logement_in
##.ressourcesMenageArrondiesBaseIn
}
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
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
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
}
class type calcul_equivalence_loyer_minimale_in =
object
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 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 =
{
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
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
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
}
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, bool Js.t) Js.meth_callback Js.meth
method nNombrePartsD83225In:
(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 input ->
Js.bool (calcul_aide_personnalisee_logement_foyer_in.condition_2_du_832_25_in ( input)))
method nNombrePartsD83225In = Js.wrap_meth_callback
(
fun input ->
Js.number_of_float @@ decimal_to_float (calcul_aide_personnalisee_logement_foyer_in.n_nombre_parts_d832_25_in ( input)))
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...";
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
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
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
}
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 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 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;
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 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
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 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
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;
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
}
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 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 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;
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
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
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
}
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 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 prestationCouranteIn:
element_prestations_familiales Js.t Js.readonly_prop
method residenceIn: collectivite Js.t Js.readonly_prop
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 prestationCouranteIn =
element_prestations_familiales_to_jsoo eligibilite_prestations_familiales_in.prestation_courante_in
val residenceIn =
collectivite_to_jsoo eligibilite_prestations_familiales_in.residence_in
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;
prestation_courante_in =
element_prestations_familiales_of_jsoo
eligibilite_prestations_familiales_in##.prestationCouranteIn;
residence_in =
collectivite_of_jsoo
eligibilite_prestations_familiales_in##.residenceIn
}
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 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_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 ressources_aides_personnelle_logement
(ressources_aides_personnelle_logement_in : ressources_aides_personnelle_logement_in Js.t)
: ressources_aides_personnelle_logement Js.t =
ressources_aides_personnelle_logement_in
|> ressources_aides_personnelle_logement_in_of_jsoo
|> ressources_aides_personnelle_logement
|> ressources_aides_personnelle_logement_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_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_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 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 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 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 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 eligibiliteAidesPersonnelleLogement : (eligibilite_aides_personnelle_logement_in Js.t -> eligibilite_aides_personnelle_logement Js.t) Js.callback =
Js.wrap_callback eligibilite_aides_personnelle_logement
method ressourcesAidesPersonnelleLogement : (ressources_aides_personnelle_logement_in Js.t -> ressources_aides_personnelle_logement Js.t) Js.callback =
Js.wrap_callback ressources_aides_personnelle_logement
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 eligibilitePrimeDeDemenagement : (eligibilite_prime_de_demenagement_in Js.t -> eligibilite_prime_de_demenagement Js.t) Js.callback =
Js.wrap_callback eligibilite_prime_de_demenagement
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 eligibiliteAllocationLogement : (eligibilite_allocation_logement_in Js.t -> eligibilite_allocation_logement Js.t) Js.callback =
Js.wrap_callback eligibilite_allocation_logement
method calculAllocationLogement : (calcul_allocation_logement_in Js.t -> calcul_allocation_logement Js.t) Js.callback =
Js.wrap_callback calcul_allocation_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)
Reference in New Issue View Git Blame Copy Permalink