mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-16 14:57:13 +03:00
Remove generated files from git
and add proper pointers to the online artifacts
This commit is contained in:
parent
3cb8fc1499
commit
71e3ca21c0
11
.gitattributes
vendored
11
.gitattributes
vendored
@ -3,16 +3,5 @@
|
|||||||
*.md linguist-documentation
|
*.md linguist-documentation
|
||||||
*.hints linguist-generated
|
*.hints linguist-generated
|
||||||
|
|
||||||
french_law/js/src/french_law.js binary linguist-generated
|
|
||||||
|
|
||||||
**/package-lock.json linguist-generated
|
**/package-lock.json linguist-generated
|
||||||
**/yarn.lock linguist-generated
|
**/yarn.lock linguist-generated
|
||||||
|
|
||||||
french_law/ocaml/law_source/allocations_familiales.ml binary linguist-generated
|
|
||||||
french_law/ocaml/law_source/allocations_familiales_api_web.ml binary linguist-generated
|
|
||||||
french_law/ocaml/law_source/unit_tests/tests_allocations_famiales.ml binary linguist-generated
|
|
||||||
french_law/python/src/allocations_familiales.py binary linguist-generated
|
|
||||||
|
|
||||||
french_law/ocaml/law_source/aides_logement.ml binary linguist-generated
|
|
||||||
french_law/ocaml/law_source/aides_logement_api_web.ml binary linguist-generated
|
|
||||||
french_law/python/src/aides_logement.py binary linguist-generated
|
|
||||||
|
9
.gitignore
vendored
9
.gitignore
vendored
@ -16,3 +16,12 @@ build.ninja
|
|||||||
|
|
||||||
.envrc
|
.envrc
|
||||||
.direnv
|
.direnv
|
||||||
|
|
||||||
|
french_law/js/src/french_law.js
|
||||||
|
french_law/ocaml/law_source/allocations_familiales.ml
|
||||||
|
french_law/ocaml/law_source/allocations_familiales_api_web.ml
|
||||||
|
french_law/ocaml/law_source/unit_tests/tests_allocations_famiales.ml
|
||||||
|
french_law/python/src/allocations_familiales.py
|
||||||
|
french_law/ocaml/law_source/aides_logement.ml
|
||||||
|
french_law/ocaml/law_source/aides_logement_api_web.ml
|
||||||
|
french_law/python/src/aides_logement.py
|
||||||
|
16
README.md
16
README.md
@ -153,9 +153,9 @@ To get more information about Clerk, see [the dedicated readme](https://github.c
|
|||||||
|
|
||||||
### Syntax cheat sheet
|
### Syntax cheat sheet
|
||||||
|
|
||||||
A complete and handy reference of the Catala syntax can be found in the
|
A complete and handy reference of the Catala syntax can be found in the [cheat
|
||||||
[cheat sheet](doc/syntax/syntax.pdf) (for French and English versions
|
sheet](https://catalalang.github.io/catala/syntax.pdf) (for French and English
|
||||||
of the syntax).
|
versions of the syntax).
|
||||||
|
|
||||||
### Formal semantics
|
### Formal semantics
|
||||||
|
|
||||||
@ -164,13 +164,15 @@ see [the dedicated readme](doc/formalization/README.md).
|
|||||||
|
|
||||||
### Compiler documentation
|
### Compiler documentation
|
||||||
|
|
||||||
The compiler documentation is auto-generated from its source code using
|
The documentation is accessible online, both for the [latest release](https://catala-lang.org/ocaml_docs/) and [bleeding-edge version](https://catalalang.github.io/catala/api-doc/).
|
||||||
`dune` and `odoc`. Use
|
|
||||||
|
|
||||||
|
It is otherwise generated from the compiler source code using
|
||||||
|
`dune` and `odoc`. Run
|
||||||
|
|
||||||
make doc
|
make doc
|
||||||
|
|
||||||
to generate the documentation, then open the `doc/odoc.html` file in any browser.
|
to generate the documentation, then open the `doc/odoc.html` file in any browser.
|
||||||
The documentation is also accessible [online](https://catala-lang.org/ocaml_docs/).
|
|
||||||
|
|
||||||
## Examples
|
## Examples
|
||||||
|
|
||||||
@ -180,7 +182,7 @@ To explore the different programs written in Catala, see
|
|||||||
## API
|
## API
|
||||||
|
|
||||||
To know how to use the code generated by the Catala compiler in your favorite
|
To know how to use the code generated by the Catala compiler in your favorite
|
||||||
programming language, head to the [readme of the French law library](french_law/README.md)
|
programming language, head to the [readme of the French law library](french_law/README.md). The corresponding pre-built examples are also [available](https://catalalang.github.io/catala/).
|
||||||
|
|
||||||
## Contributing
|
## Contributing
|
||||||
|
|
||||||
|
@ -51,15 +51,11 @@ one, which contains all the class types and conversion functions between the
|
|||||||
OCaml types and their corresponding JS objects. At the end the module exposes
|
OCaml types and their corresponding JS objects. At the end the module exposes
|
||||||
all methods in a JS lib [<module_name>Lib].
|
all methods in a JS lib [<module_name>Lib].
|
||||||
|
|
||||||
See
|
See the `law_source/` directory in the
|
||||||
{{:https://github.com/CatalaLang/catala/tree/master/french_law/ocaml/law_source}
|
{{:https://catalalang.github.io/catala/french_law_ocaml.tar.gz}
|
||||||
law_source} for examples of generated code.
|
OCaml french law bundle} for examples of generated code.
|
||||||
|
|
||||||
{2 JSON schema generator example}
|
{2 JSON schema generator example}
|
||||||
|
|
||||||
This plugin generates a {{:https://json-schema.org} JSON schema} corresponding
|
This plugin generates a {{:https://json-schema.org} JSON schema} corresponding
|
||||||
to a scope of a Catala program.
|
to a scope of a Catala program.
|
||||||
|
|
||||||
See
|
|
||||||
{{:https://github.com/CatalaLang/catala/tree/master/french_law/json_schemas}
|
|
||||||
json_schemas} for examples of generated schemas.
|
|
||||||
|
Binary file not shown.
@ -5,6 +5,10 @@ deployed inside existing applications. Each sub-folder is specialized for
|
|||||||
a particular programming language, and features a ready-to-use library of
|
a particular programming language, and features a ready-to-use library of
|
||||||
all the French public algorithms coded up using Catala so far.
|
all the French public algorithms coded up using Catala so far.
|
||||||
|
|
||||||
|
Pre-built artifacts for the OCaml, JS and Python backends are available at
|
||||||
|
https://catalalang.github.io/catala/ ; they are automatically updated to follow
|
||||||
|
the latest updates of the development version of Catala (`master` branch).
|
||||||
|
|
||||||
## General principles
|
## General principles
|
||||||
|
|
||||||
Let us say you want to deploy a Catala program inside an application written
|
Let us say you want to deploy a Catala program inside an application written
|
||||||
|
File diff suppressed because one or more lines are too long
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,907 +0,0 @@
|
|||||||
(** 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 Allocations_familiales
|
|
||||||
|
|
||||||
[@@@ocaml.warning "-4-26-27-32-41-42"]
|
|
||||||
|
|
||||||
(* Generated API *)
|
|
||||||
|
|
||||||
class type prise_en_charge =
|
|
||||||
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_to_jsoo : PriseEnCharge.t -> prise_en_charge 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_of_jsoo (prise_en_charge : prise_en_charge Js.t)
|
|
||||||
: PriseEnCharge.t =
|
|
||||||
match prise_en_charge##.kind |> Js.to_string with
|
|
||||||
| "GardeAlterneePartageAllocations" ->
|
|
||||||
PriseEnCharge.GardeAlterneePartageAllocations ()
|
|
||||||
| "GardeAlterneeAllocataireUnique" ->
|
|
||||||
PriseEnCharge.GardeAlterneeAllocataireUnique ()
|
|
||||||
| "EffectiveEtPermanente" -> PriseEnCharge.EffectiveEtPermanente ()
|
|
||||||
| "ServicesSociauxAllocationVerseeALaFamille" ->
|
|
||||||
PriseEnCharge.ServicesSociauxAllocationVerseeALaFamille ()
|
|
||||||
| "ServicesSociauxAllocationVerseeAuxServicesSociaux" ->
|
|
||||||
PriseEnCharge.ServicesSociauxAllocationVerseeAuxServicesSociaux ()
|
|
||||||
| cons ->
|
|
||||||
failwith
|
|
||||||
(Printf.sprintf
|
|
||||||
"Unexpected '%s' kind for the enumeration 'PriseEnCharge.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 prise_en_compte =
|
|
||||||
object
|
|
||||||
method kind :
|
|
||||||
Js.js_string Js.t Js.readonly_prop
|
|
||||||
(** Expects one of:
|
|
||||||
- "Complete"
|
|
||||||
- "Partagee"
|
|
||||||
- "Zero" *)
|
|
||||||
|
|
||||||
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
|
|
||||||
let prise_en_compte_to_jsoo : PriseEnCompte.t -> prise_en_compte Js.t
|
|
||||||
= function
|
|
||||||
| Complete arg -> object%js
|
|
||||||
val kind = Js.string "Complete"
|
|
||||||
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
||||||
end
|
|
||||||
| Partagee arg -> object%js
|
|
||||||
val kind = Js.string "Partagee"
|
|
||||||
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
||||||
end
|
|
||||||
| Zero arg -> object%js
|
|
||||||
val kind = Js.string "Zero"
|
|
||||||
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
||||||
end
|
|
||||||
|
|
||||||
let prise_en_compte_of_jsoo (prise_en_compte : prise_en_compte Js.t)
|
|
||||||
: PriseEnCompte.t =
|
|
||||||
match prise_en_compte##.kind |> Js.to_string with
|
|
||||||
| "Complete" -> PriseEnCompte.Complete ()
|
|
||||||
| "Partagee" -> PriseEnCompte.Partagee ()
|
|
||||||
| "Zero" -> PriseEnCompte.Zero ()
|
|
||||||
| cons ->
|
|
||||||
failwith
|
|
||||||
(Printf.sprintf
|
|
||||||
"Unexpected '%s' kind for the enumeration 'PriseEnCompte.t'" cons)
|
|
||||||
|
|
||||||
|
|
||||||
class type versement_allocations =
|
|
||||||
object
|
|
||||||
method kind :
|
|
||||||
Js.js_string Js.t Js.readonly_prop
|
|
||||||
(** Expects one of:
|
|
||||||
- "Normal"
|
|
||||||
- "AllocationVerseeAuxServicesSociaux" *)
|
|
||||||
|
|
||||||
method payload : Js.Unsafe.any Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
|
|
||||||
let versement_allocations_to_jsoo
|
|
||||||
: VersementAllocations.t -> versement_allocations Js.t
|
|
||||||
= function
|
|
||||||
| Normal arg -> object%js
|
|
||||||
val kind = Js.string "Normal"
|
|
||||||
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
||||||
end
|
|
||||||
| AllocationVerseeAuxServicesSociaux arg -> object%js
|
|
||||||
val kind = Js.string "AllocationVerseeAuxServicesSociaux"
|
|
||||||
val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
|
|
||||||
end
|
|
||||||
|
|
||||||
let versement_allocations_of_jsoo
|
|
||||||
(versement_allocations : versement_allocations Js.t)
|
|
||||||
: VersementAllocations.t =
|
|
||||||
match versement_allocations##.kind |> Js.to_string with
|
|
||||||
| "Normal" -> VersementAllocations.Normal ()
|
|
||||||
| "AllocationVerseeAuxServicesSociaux" ->
|
|
||||||
VersementAllocations.AllocationVerseeAuxServicesSociaux ()
|
|
||||||
| cons ->
|
|
||||||
failwith
|
|
||||||
(Printf.sprintf
|
|
||||||
"Unexpected '%s' kind for the enumeration 'VersementAllocations.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 allocation_familiales_avril2008 =
|
|
||||||
object
|
|
||||||
method ageMinimumAlinea1L5213:
|
|
||||||
Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let allocation_familiales_avril2008_to_jsoo
|
|
||||||
(allocation_familiales_avril2008 : AllocationFamilialesAvril2008.t)
|
|
||||||
: allocation_familiales_avril2008 Js.t =
|
|
||||||
object%js
|
|
||||||
val ageMinimumAlinea1L5213 =
|
|
||||||
duration_to_jsoo allocation_familiales_avril2008.age_minimum_alinea_1_l521_3
|
|
||||||
end
|
|
||||||
let allocation_familiales_avril2008_of_jsoo
|
|
||||||
(allocation_familiales_avril2008 : allocation_familiales_avril2008 Js.t) :
|
|
||||||
AllocationFamilialesAvril2008.t =
|
|
||||||
{
|
|
||||||
age_minimum_alinea_1_l521_3 =
|
|
||||||
duration_of_jsoo
|
|
||||||
allocation_familiales_avril2008##.ageMinimumAlinea1L5213
|
|
||||||
}
|
|
||||||
|
|
||||||
class type verification_age_inferieur_ou_egal_a =
|
|
||||||
object method estInferieurOuEgal: bool Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let verification_age_inferieur_ou_egal_a_to_jsoo
|
|
||||||
(verification_age_inferieur_ou_egal_a
|
|
||||||
: VerificationAgeInferieurOuEgalA.t)
|
|
||||||
: verification_age_inferieur_ou_egal_a Js.t =
|
|
||||||
object%js
|
|
||||||
val estInferieurOuEgal =
|
|
||||||
Js.bool verification_age_inferieur_ou_egal_a.est_inferieur_ou_egal
|
|
||||||
end
|
|
||||||
let verification_age_inferieur_ou_egal_a_of_jsoo
|
|
||||||
(verification_age_inferieur_ou_egal_a
|
|
||||||
: verification_age_inferieur_ou_egal_a Js.t) :
|
|
||||||
VerificationAgeInferieurOuEgalA.t =
|
|
||||||
{
|
|
||||||
est_inferieur_ou_egal =
|
|
||||||
Js.to_bool verification_age_inferieur_ou_egal_a##.estInferieurOuEgal
|
|
||||||
}
|
|
||||||
|
|
||||||
class type verification_age_superieur_a =
|
|
||||||
object method estSuperieur: bool Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let verification_age_superieur_a_to_jsoo (verification_age_superieur_a
|
|
||||||
: VerificationAgeSuperieurA.t) : verification_age_superieur_a Js.t =
|
|
||||||
object%js
|
|
||||||
val estSuperieur = Js.bool verification_age_superieur_a.est_superieur
|
|
||||||
end
|
|
||||||
let verification_age_superieur_a_of_jsoo
|
|
||||||
(verification_age_superieur_a : verification_age_superieur_a Js.t) :
|
|
||||||
VerificationAgeSuperieurA.t =
|
|
||||||
{est_superieur = Js.to_bool verification_age_superieur_a##.estSuperieur
|
|
||||||
}
|
|
||||||
|
|
||||||
class type smic =
|
|
||||||
object method brutHoraire: Js.number Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let smic_to_jsoo (smic : Smic.t) : smic Js.t =
|
|
||||||
object%js
|
|
||||||
val brutHoraire =
|
|
||||||
Js.number_of_float @@ money_to_float smic.brut_horaire
|
|
||||||
end
|
|
||||||
let smic_of_jsoo (smic : smic Js.t) : Smic.t =
|
|
||||||
{
|
|
||||||
brut_horaire =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
smic##.brutHoraire
|
|
||||||
}
|
|
||||||
|
|
||||||
class type 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 interface_allocations_familiales =
|
|
||||||
object method iMontantVerse: Js.number Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let interface_allocations_familiales_to_jsoo
|
|
||||||
(interface_allocations_familiales : InterfaceAllocationsFamiliales.t)
|
|
||||||
: interface_allocations_familiales Js.t =
|
|
||||||
object%js
|
|
||||||
val iMontantVerse =
|
|
||||||
Js.number_of_float @@ money_to_float interface_allocations_familiales.i_montant_verse
|
|
||||||
end
|
|
||||||
let interface_allocations_familiales_of_jsoo
|
|
||||||
(interface_allocations_familiales
|
|
||||||
: interface_allocations_familiales Js.t) :
|
|
||||||
InterfaceAllocationsFamiliales.t =
|
|
||||||
{
|
|
||||||
i_montant_verse =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
interface_allocations_familiales##.iMontantVerse
|
|
||||||
}
|
|
||||||
|
|
||||||
class type enfant_entree =
|
|
||||||
object
|
|
||||||
method dIdentifiant: int Js.readonly_prop
|
|
||||||
method dRemunerationMensuelle: Js.number Js.t Js.readonly_prop
|
|
||||||
method dDateDeNaissance: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method dPriseEnCharge: prise_en_charge Js.t Js.readonly_prop
|
|
||||||
method dADejaOuvertDroitAuxAllocationsFamiliales:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
method dBeneficieTitrePersonnelAidePersonnelleLogement:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let enfant_entree_to_jsoo (enfant_entree : EnfantEntree.t)
|
|
||||||
: enfant_entree Js.t =
|
|
||||||
object%js
|
|
||||||
val dIdentifiant = integer_to_int enfant_entree.d_identifiant
|
|
||||||
val dRemunerationMensuelle =
|
|
||||||
Js.number_of_float @@ money_to_float enfant_entree.d_remuneration_mensuelle
|
|
||||||
val dDateDeNaissance = date_to_jsoo enfant_entree.d_date_de_naissance
|
|
||||||
val dPriseEnCharge =
|
|
||||||
prise_en_charge_to_jsoo enfant_entree.d_prise_en_charge
|
|
||||||
val dADejaOuvertDroitAuxAllocationsFamiliales =
|
|
||||||
Js.bool enfant_entree.d_a_deja_ouvert_droit_aux_allocations_familiales
|
|
||||||
val dBeneficieTitrePersonnelAidePersonnelleLogement =
|
|
||||||
Js.bool enfant_entree.d_beneficie_titre_personnel_aide_personnelle_logement
|
|
||||||
end
|
|
||||||
let enfant_entree_of_jsoo (enfant_entree : enfant_entree Js.t) :
|
|
||||||
EnfantEntree.t =
|
|
||||||
{
|
|
||||||
d_identifiant = integer_of_int enfant_entree##.dIdentifiant;
|
|
||||||
d_remuneration_mensuelle =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
enfant_entree##.dRemunerationMensuelle;
|
|
||||||
d_date_de_naissance = date_of_jsoo enfant_entree##.dDateDeNaissance;
|
|
||||||
d_prise_en_charge =
|
|
||||||
prise_en_charge_of_jsoo enfant_entree##.dPriseEnCharge;
|
|
||||||
d_a_deja_ouvert_droit_aux_allocations_familiales =
|
|
||||||
Js.to_bool enfant_entree##.dADejaOuvertDroitAuxAllocationsFamiliales;
|
|
||||||
d_beneficie_titre_personnel_aide_personnelle_logement =
|
|
||||||
Js.to_bool
|
|
||||||
enfant_entree##.dBeneficieTitrePersonnelAidePersonnelleLogement
|
|
||||||
}
|
|
||||||
|
|
||||||
class type enfant =
|
|
||||||
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 Js.t Js.readonly_prop
|
|
||||||
method aDejaOuvertDroitAuxAllocationsFamiliales:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
method beneficieTitrePersonnelAidePersonnelleLogement:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let enfant_to_jsoo (enfant : Enfant.t) : enfant Js.t =
|
|
||||||
object%js
|
|
||||||
val identifiant = integer_to_int enfant.identifiant
|
|
||||||
val obligationScolaire =
|
|
||||||
situation_obligation_scolaire_to_jsoo enfant.obligation_scolaire
|
|
||||||
val remunerationMensuelle =
|
|
||||||
Js.number_of_float @@ money_to_float enfant.remuneration_mensuelle
|
|
||||||
val dateDeNaissance = date_to_jsoo enfant.date_de_naissance
|
|
||||||
val priseEnCharge = prise_en_charge_to_jsoo enfant.prise_en_charge
|
|
||||||
val aDejaOuvertDroitAuxAllocationsFamiliales =
|
|
||||||
Js.bool enfant.a_deja_ouvert_droit_aux_allocations_familiales
|
|
||||||
val beneficieTitrePersonnelAidePersonnelleLogement =
|
|
||||||
Js.bool enfant.beneficie_titre_personnel_aide_personnelle_logement
|
|
||||||
end
|
|
||||||
let enfant_of_jsoo (enfant : enfant Js.t) : Enfant.t =
|
|
||||||
{
|
|
||||||
identifiant = integer_of_int enfant##.identifiant;
|
|
||||||
obligation_scolaire =
|
|
||||||
situation_obligation_scolaire_of_jsoo enfant##.obligationScolaire;
|
|
||||||
remuneration_mensuelle =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
enfant##.remunerationMensuelle;
|
|
||||||
date_de_naissance = date_of_jsoo enfant##.dateDeNaissance;
|
|
||||||
prise_en_charge = prise_en_charge_of_jsoo enfant##.priseEnCharge;
|
|
||||||
a_deja_ouvert_droit_aux_allocations_familiales =
|
|
||||||
Js.to_bool enfant##.aDejaOuvertDroitAuxAllocationsFamiliales;
|
|
||||||
beneficie_titre_personnel_aide_personnelle_logement =
|
|
||||||
Js.to_bool enfant##.beneficieTitrePersonnelAidePersonnelleLogement
|
|
||||||
}
|
|
||||||
|
|
||||||
class type allocations_familiales =
|
|
||||||
object
|
|
||||||
method versement:
|
|
||||||
(unit, enfant Js.t -> versement_allocations Js.t) Js.meth_callback Js.meth
|
|
||||||
method montantVerse: Js.number Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let allocations_familiales_to_jsoo (allocations_familiales
|
|
||||||
: AllocationsFamiliales.t) : allocations_familiales Js.t =
|
|
||||||
object%js
|
|
||||||
method versement = Js.wrap_meth_callback
|
|
||||||
(
|
|
||||||
fun _ (function_input0: enfant Js.t) ->
|
|
||||||
versement_allocations_to_jsoo (allocations_familiales.versement
|
|
||||||
(enfant_of_jsoo
|
|
||||||
function_input0)))
|
|
||||||
val montantVerse =
|
|
||||||
Js.number_of_float @@ money_to_float allocations_familiales.montant_verse
|
|
||||||
end
|
|
||||||
let allocations_familiales_of_jsoo
|
|
||||||
(allocations_familiales : allocations_familiales Js.t) :
|
|
||||||
AllocationsFamiliales.t =
|
|
||||||
{
|
|
||||||
versement = failwith "The function 'versement' translation isn't yet supported...";
|
|
||||||
montant_verse =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
allocations_familiales##.montantVerse
|
|
||||||
}
|
|
||||||
|
|
||||||
class type enfant_le_plus_age =
|
|
||||||
object method lePlusAge: enfant Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let enfant_le_plus_age_to_jsoo (enfant_le_plus_age : EnfantLePlusAge.t)
|
|
||||||
: enfant_le_plus_age Js.t =
|
|
||||||
object%js
|
|
||||||
val lePlusAge = enfant_to_jsoo enfant_le_plus_age.le_plus_age
|
|
||||||
end
|
|
||||||
let enfant_le_plus_age_of_jsoo
|
|
||||||
(enfant_le_plus_age : enfant_le_plus_age Js.t) : EnfantLePlusAge.t =
|
|
||||||
{le_plus_age = enfant_of_jsoo enfant_le_plus_age##.lePlusAge
|
|
||||||
}
|
|
||||||
|
|
||||||
class type prestations_familiales =
|
|
||||||
object
|
|
||||||
method droitOuvert:
|
|
||||||
(unit, enfant Js.t -> bool Js.t) Js.meth_callback Js.meth
|
|
||||||
method conditionsHorsAge:
|
|
||||||
(unit, enfant 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 prestations_familiales_to_jsoo (prestations_familiales
|
|
||||||
: PrestationsFamiliales.t) : prestations_familiales Js.t =
|
|
||||||
object%js
|
|
||||||
method droitOuvert = Js.wrap_meth_callback
|
|
||||||
(
|
|
||||||
fun _ (function_input0: enfant Js.t) ->
|
|
||||||
Js.bool (prestations_familiales.droit_ouvert (enfant_of_jsoo
|
|
||||||
function_input0)))
|
|
||||||
method conditionsHorsAge = Js.wrap_meth_callback
|
|
||||||
(
|
|
||||||
fun _ (function_input0: enfant Js.t) ->
|
|
||||||
Js.bool (prestations_familiales.conditions_hors_age (enfant_of_jsoo
|
|
||||||
function_input0)))
|
|
||||||
val ageL51232 = duration_to_jsoo prestations_familiales.age_l512_3_2
|
|
||||||
val regimeOutreMerL7511 =
|
|
||||||
Js.bool prestations_familiales.regime_outre_mer_l751_1
|
|
||||||
end
|
|
||||||
let prestations_familiales_of_jsoo
|
|
||||||
(prestations_familiales : prestations_familiales Js.t) :
|
|
||||||
PrestationsFamiliales.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 prestations_familiales##.ageL51232;
|
|
||||||
regime_outre_mer_l751_1 =
|
|
||||||
Js.to_bool prestations_familiales##.regimeOutreMerL7511
|
|
||||||
}
|
|
||||||
|
|
||||||
class type prestations_familiales_in =
|
|
||||||
object
|
|
||||||
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let prestations_familiales_in_to_jsoo (prestations_familiales_in
|
|
||||||
: PrestationsFamilialesIn.t) : prestations_familiales_in Js.t =
|
|
||||||
object%js
|
|
||||||
val dateCouranteIn =
|
|
||||||
date_to_jsoo prestations_familiales_in.date_courante_in
|
|
||||||
val residenceIn =
|
|
||||||
collectivite_to_jsoo prestations_familiales_in.residence_in
|
|
||||||
end
|
|
||||||
let prestations_familiales_in_of_jsoo
|
|
||||||
(prestations_familiales_in : prestations_familiales_in Js.t) :
|
|
||||||
PrestationsFamilialesIn.t =
|
|
||||||
{
|
|
||||||
date_courante_in =
|
|
||||||
date_of_jsoo prestations_familiales_in##.dateCouranteIn;
|
|
||||||
residence_in =
|
|
||||||
collectivite_of_jsoo prestations_familiales_in##.residenceIn
|
|
||||||
}
|
|
||||||
|
|
||||||
class type allocation_familiales_avril2008_in =
|
|
||||||
object end
|
|
||||||
let allocation_familiales_avril2008_in_to_jsoo (_ : AllocationFamilialesAvril2008In.t) : allocation_familiales_avril2008_in Js.t = object%js end
|
|
||||||
let allocation_familiales_avril2008_in_of_jsoo (_ : allocation_familiales_avril2008_in Js.t) : AllocationFamilialesAvril2008In.t = ()
|
|
||||||
class type enfant_le_plus_age_in =
|
|
||||||
object method enfantsIn: enfant Js.t Js.js_array Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let enfant_le_plus_age_in_to_jsoo (enfant_le_plus_age_in
|
|
||||||
: EnfantLePlusAgeIn.t) : enfant_le_plus_age_in Js.t =
|
|
||||||
object%js
|
|
||||||
val enfantsIn =
|
|
||||||
Js.array @@ Array.map (fun x -> enfant_to_jsoo x) enfant_le_plus_age_in.enfants_in
|
|
||||||
end
|
|
||||||
let enfant_le_plus_age_in_of_jsoo
|
|
||||||
(enfant_le_plus_age_in : enfant_le_plus_age_in Js.t) :
|
|
||||||
EnfantLePlusAgeIn.t =
|
|
||||||
{
|
|
||||||
enfants_in =
|
|
||||||
Array.map (fun x -> enfant_of_jsoo x) @@ Js.to_array
|
|
||||||
enfant_le_plus_age_in##.enfantsIn
|
|
||||||
}
|
|
||||||
|
|
||||||
class type allocations_familiales_in =
|
|
||||||
object
|
|
||||||
method personneChargeEffectivePermanenteEstParentIn:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
method personneChargeEffectivePermanenteRemplitTitreIIn:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
method ressourcesMenageIn: Js.number Js.t Js.readonly_prop
|
|
||||||
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
||||||
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method enfantsAChargeIn: enfant Js.t Js.js_array Js.t Js.readonly_prop
|
|
||||||
method avaitEnfantAChargeAvant1erJanvier2012In:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let allocations_familiales_in_to_jsoo (allocations_familiales_in
|
|
||||||
: AllocationsFamilialesIn.t) : allocations_familiales_in Js.t =
|
|
||||||
object%js
|
|
||||||
val personneChargeEffectivePermanenteEstParentIn =
|
|
||||||
Js.bool allocations_familiales_in.personne_charge_effective_permanente_est_parent_in
|
|
||||||
val personneChargeEffectivePermanenteRemplitTitreIIn =
|
|
||||||
Js.bool allocations_familiales_in.personne_charge_effective_permanente_remplit_titre_I_in
|
|
||||||
val ressourcesMenageIn =
|
|
||||||
Js.number_of_float @@ money_to_float allocations_familiales_in.ressources_menage_in
|
|
||||||
val residenceIn =
|
|
||||||
collectivite_to_jsoo allocations_familiales_in.residence_in
|
|
||||||
val dateCouranteIn =
|
|
||||||
date_to_jsoo allocations_familiales_in.date_courante_in
|
|
||||||
val enfantsAChargeIn =
|
|
||||||
Js.array @@ Array.map (fun x -> enfant_to_jsoo x) allocations_familiales_in.enfants_a_charge_in
|
|
||||||
val avaitEnfantAChargeAvant1erJanvier2012In =
|
|
||||||
Js.bool allocations_familiales_in.avait_enfant_a_charge_avant_1er_janvier_2012_in
|
|
||||||
end
|
|
||||||
let allocations_familiales_in_of_jsoo
|
|
||||||
(allocations_familiales_in : allocations_familiales_in Js.t) :
|
|
||||||
AllocationsFamilialesIn.t =
|
|
||||||
{
|
|
||||||
personne_charge_effective_permanente_est_parent_in =
|
|
||||||
Js.to_bool
|
|
||||||
allocations_familiales_in
|
|
||||||
##.personneChargeEffectivePermanenteEstParentIn;
|
|
||||||
personne_charge_effective_permanente_remplit_titre_I_in =
|
|
||||||
Js.to_bool
|
|
||||||
allocations_familiales_in
|
|
||||||
##.personneChargeEffectivePermanenteRemplitTitreIIn;
|
|
||||||
ressources_menage_in =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
allocations_familiales_in##.ressourcesMenageIn;
|
|
||||||
residence_in =
|
|
||||||
collectivite_of_jsoo allocations_familiales_in##.residenceIn;
|
|
||||||
date_courante_in =
|
|
||||||
date_of_jsoo allocations_familiales_in##.dateCouranteIn;
|
|
||||||
enfants_a_charge_in =
|
|
||||||
Array.map (fun x -> enfant_of_jsoo x) @@ Js.to_array
|
|
||||||
allocations_familiales_in##.enfantsAChargeIn;
|
|
||||||
avait_enfant_a_charge_avant_1er_janvier_2012_in =
|
|
||||||
Js.to_bool
|
|
||||||
allocations_familiales_in##.avaitEnfantAChargeAvant1erJanvier2012In
|
|
||||||
}
|
|
||||||
|
|
||||||
class type verification_age_inferieur_ou_egal_a_in =
|
|
||||||
object
|
|
||||||
method dateNaissanceIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method anneesIn: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let verification_age_inferieur_ou_egal_a_in_to_jsoo
|
|
||||||
(verification_age_inferieur_ou_egal_a_in
|
|
||||||
: VerificationAgeInferieurOuEgalAIn.t)
|
|
||||||
: verification_age_inferieur_ou_egal_a_in Js.t =
|
|
||||||
object%js
|
|
||||||
val dateNaissanceIn =
|
|
||||||
date_to_jsoo verification_age_inferieur_ou_egal_a_in.date_naissance_in
|
|
||||||
val dateCouranteIn =
|
|
||||||
date_to_jsoo verification_age_inferieur_ou_egal_a_in.date_courante_in
|
|
||||||
val anneesIn =
|
|
||||||
duration_to_jsoo verification_age_inferieur_ou_egal_a_in.annees_in
|
|
||||||
end
|
|
||||||
let verification_age_inferieur_ou_egal_a_in_of_jsoo
|
|
||||||
(verification_age_inferieur_ou_egal_a_in
|
|
||||||
: verification_age_inferieur_ou_egal_a_in Js.t) :
|
|
||||||
VerificationAgeInferieurOuEgalAIn.t =
|
|
||||||
{
|
|
||||||
date_naissance_in =
|
|
||||||
date_of_jsoo
|
|
||||||
verification_age_inferieur_ou_egal_a_in##.dateNaissanceIn;
|
|
||||||
date_courante_in =
|
|
||||||
date_of_jsoo verification_age_inferieur_ou_egal_a_in##.dateCouranteIn;
|
|
||||||
annees_in =
|
|
||||||
duration_of_jsoo verification_age_inferieur_ou_egal_a_in##.anneesIn
|
|
||||||
}
|
|
||||||
|
|
||||||
class type verification_age_superieur_a_in =
|
|
||||||
object
|
|
||||||
method dateNaissanceIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method anneesIn: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let verification_age_superieur_a_in_to_jsoo
|
|
||||||
(verification_age_superieur_a_in : VerificationAgeSuperieurAIn.t)
|
|
||||||
: verification_age_superieur_a_in Js.t =
|
|
||||||
object%js
|
|
||||||
val dateNaissanceIn =
|
|
||||||
date_to_jsoo verification_age_superieur_a_in.date_naissance_in
|
|
||||||
val dateCouranteIn =
|
|
||||||
date_to_jsoo verification_age_superieur_a_in.date_courante_in
|
|
||||||
val anneesIn =
|
|
||||||
duration_to_jsoo verification_age_superieur_a_in.annees_in
|
|
||||||
end
|
|
||||||
let verification_age_superieur_a_in_of_jsoo
|
|
||||||
(verification_age_superieur_a_in : verification_age_superieur_a_in Js.t) :
|
|
||||||
VerificationAgeSuperieurAIn.t =
|
|
||||||
{
|
|
||||||
date_naissance_in =
|
|
||||||
date_of_jsoo verification_age_superieur_a_in##.dateNaissanceIn;
|
|
||||||
date_courante_in =
|
|
||||||
date_of_jsoo verification_age_superieur_a_in##.dateCouranteIn;
|
|
||||||
annees_in = duration_of_jsoo verification_age_superieur_a_in##.anneesIn
|
|
||||||
}
|
|
||||||
|
|
||||||
class type smic_in =
|
|
||||||
object
|
|
||||||
method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method residenceIn: collectivite Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let smic_in_to_jsoo (smic_in : SmicIn.t) : smic_in Js.t =
|
|
||||||
object%js
|
|
||||||
val dateCouranteIn = date_to_jsoo smic_in.date_courante_in
|
|
||||||
val residenceIn = collectivite_to_jsoo smic_in.residence_in
|
|
||||||
end
|
|
||||||
let smic_in_of_jsoo (smic_in : smic_in Js.t) : SmicIn.t =
|
|
||||||
{
|
|
||||||
date_courante_in = date_of_jsoo smic_in##.dateCouranteIn;
|
|
||||||
residence_in = collectivite_of_jsoo smic_in##.residenceIn
|
|
||||||
}
|
|
||||||
|
|
||||||
class type 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 interface_allocations_familiales_in =
|
|
||||||
object
|
|
||||||
method iDateCouranteIn: Js.js_string Js.t Js.readonly_prop
|
|
||||||
method iEnfantsIn: enfant_entree Js.t Js.js_array Js.t Js.readonly_prop
|
|
||||||
method iRessourcesMenageIn: Js.number Js.t Js.readonly_prop
|
|
||||||
method iResidenceIn: collectivite Js.t Js.readonly_prop
|
|
||||||
method iPersonneChargeEffectivePermanenteEstParentIn:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
method iPersonneChargeEffectivePermanenteRemplitTitreIIn:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
method iAvaitEnfantAChargeAvant1erJanvier2012In:
|
|
||||||
bool Js.t Js.readonly_prop
|
|
||||||
end
|
|
||||||
let interface_allocations_familiales_in_to_jsoo
|
|
||||||
(interface_allocations_familiales_in
|
|
||||||
: InterfaceAllocationsFamilialesIn.t)
|
|
||||||
: interface_allocations_familiales_in Js.t =
|
|
||||||
object%js
|
|
||||||
val iDateCouranteIn =
|
|
||||||
date_to_jsoo interface_allocations_familiales_in.i_date_courante_in
|
|
||||||
val iEnfantsIn =
|
|
||||||
Js.array @@ Array.map (fun x -> enfant_entree_to_jsoo x) interface_allocations_familiales_in.i_enfants_in
|
|
||||||
val iRessourcesMenageIn =
|
|
||||||
Js.number_of_float @@ money_to_float interface_allocations_familiales_in.i_ressources_menage_in
|
|
||||||
val iResidenceIn =
|
|
||||||
collectivite_to_jsoo interface_allocations_familiales_in.i_residence_in
|
|
||||||
val iPersonneChargeEffectivePermanenteEstParentIn =
|
|
||||||
Js.bool interface_allocations_familiales_in.i_personne_charge_effective_permanente_est_parent_in
|
|
||||||
val iPersonneChargeEffectivePermanenteRemplitTitreIIn =
|
|
||||||
Js.bool interface_allocations_familiales_in.i_personne_charge_effective_permanente_remplit_titre_I_in
|
|
||||||
val iAvaitEnfantAChargeAvant1erJanvier2012In =
|
|
||||||
Js.bool interface_allocations_familiales_in.i_avait_enfant_a_charge_avant_1er_janvier_2012_in
|
|
||||||
end
|
|
||||||
let interface_allocations_familiales_in_of_jsoo
|
|
||||||
(interface_allocations_familiales_in
|
|
||||||
: interface_allocations_familiales_in Js.t) :
|
|
||||||
InterfaceAllocationsFamilialesIn.t =
|
|
||||||
{
|
|
||||||
i_date_courante_in =
|
|
||||||
date_of_jsoo interface_allocations_familiales_in##.iDateCouranteIn;
|
|
||||||
i_enfants_in =
|
|
||||||
Array.map (fun x -> enfant_entree_of_jsoo x) @@ Js.to_array
|
|
||||||
interface_allocations_familiales_in##.iEnfantsIn;
|
|
||||||
i_ressources_menage_in =
|
|
||||||
money_of_decimal @@ decimal_of_float @@ Js.float_of_number
|
|
||||||
interface_allocations_familiales_in##.iRessourcesMenageIn;
|
|
||||||
i_residence_in =
|
|
||||||
collectivite_of_jsoo
|
|
||||||
interface_allocations_familiales_in##.iResidenceIn;
|
|
||||||
i_personne_charge_effective_permanente_est_parent_in =
|
|
||||||
Js.to_bool
|
|
||||||
interface_allocations_familiales_in
|
|
||||||
##.iPersonneChargeEffectivePermanenteEstParentIn;
|
|
||||||
i_personne_charge_effective_permanente_remplit_titre_I_in =
|
|
||||||
Js.to_bool
|
|
||||||
interface_allocations_familiales_in
|
|
||||||
##.iPersonneChargeEffectivePermanenteRemplitTitreIIn;
|
|
||||||
i_avait_enfant_a_charge_avant_1er_janvier_2012_in =
|
|
||||||
Js.to_bool
|
|
||||||
interface_allocations_familiales_in
|
|
||||||
##.iAvaitEnfantAChargeAvant1erJanvier2012In
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
let allocation_familiales_avril2008
|
|
||||||
(allocation_familiales_avril2008_in : allocation_familiales_avril2008_in Js.t)
|
|
||||||
: allocation_familiales_avril2008 Js.t =
|
|
||||||
allocation_familiales_avril2008_in
|
|
||||||
|> allocation_familiales_avril2008_in_of_jsoo
|
|
||||||
|> allocation_familiales_avril2008
|
|
||||||
|> allocation_familiales_avril2008_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let enfant_le_plus_age (enfant_le_plus_age_in : enfant_le_plus_age_in Js.t)
|
|
||||||
: enfant_le_plus_age Js.t =
|
|
||||||
enfant_le_plus_age_in
|
|
||||||
|> enfant_le_plus_age_in_of_jsoo
|
|
||||||
|> enfant_le_plus_age
|
|
||||||
|> enfant_le_plus_age_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let verification_age_inferieur_ou_egal_a
|
|
||||||
(verification_age_inferieur_ou_egal_a_in : verification_age_inferieur_ou_egal_a_in Js.t)
|
|
||||||
: verification_age_inferieur_ou_egal_a Js.t =
|
|
||||||
verification_age_inferieur_ou_egal_a_in
|
|
||||||
|> verification_age_inferieur_ou_egal_a_in_of_jsoo
|
|
||||||
|> verification_age_inferieur_ou_egal_a
|
|
||||||
|> verification_age_inferieur_ou_egal_a_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let verification_age_superieur_a
|
|
||||||
(verification_age_superieur_a_in : verification_age_superieur_a_in Js.t)
|
|
||||||
: verification_age_superieur_a Js.t =
|
|
||||||
verification_age_superieur_a_in
|
|
||||||
|> verification_age_superieur_a_in_of_jsoo
|
|
||||||
|> verification_age_superieur_a
|
|
||||||
|> verification_age_superieur_a_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let smic (smic_in : smic_in Js.t)
|
|
||||||
: smic Js.t =
|
|
||||||
smic_in |> smic_in_of_jsoo |> smic |> smic_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let 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 prestations_familiales
|
|
||||||
(prestations_familiales_in : prestations_familiales_in Js.t)
|
|
||||||
: prestations_familiales Js.t =
|
|
||||||
prestations_familiales_in
|
|
||||||
|> prestations_familiales_in_of_jsoo
|
|
||||||
|> prestations_familiales
|
|
||||||
|> prestations_familiales_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let allocations_familiales
|
|
||||||
(allocations_familiales_in : allocations_familiales_in Js.t)
|
|
||||||
: allocations_familiales Js.t =
|
|
||||||
allocations_familiales_in
|
|
||||||
|> allocations_familiales_in_of_jsoo
|
|
||||||
|> allocations_familiales
|
|
||||||
|> allocations_familiales_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let interface_allocations_familiales
|
|
||||||
(interface_allocations_familiales_in : interface_allocations_familiales_in Js.t)
|
|
||||||
: interface_allocations_familiales Js.t =
|
|
||||||
interface_allocations_familiales_in
|
|
||||||
|> interface_allocations_familiales_in_of_jsoo
|
|
||||||
|> interface_allocations_familiales
|
|
||||||
|> interface_allocations_familiales_to_jsoo
|
|
||||||
|
|
||||||
|
|
||||||
let _ =
|
|
||||||
Js.export "AllocationsFamilialesLib"
|
|
||||||
(object%js
|
|
||||||
|
|
||||||
method allocationFamilialesAvril2008 : (allocation_familiales_avril2008_in Js.t -> allocation_familiales_avril2008 Js.t) Js.callback =
|
|
||||||
Js.wrap_callback allocation_familiales_avril2008
|
|
||||||
|
|
||||||
method enfantLePlusAge : (enfant_le_plus_age_in Js.t -> enfant_le_plus_age Js.t) Js.callback =
|
|
||||||
Js.wrap_callback enfant_le_plus_age
|
|
||||||
|
|
||||||
method verificationAgeInferieurOuEgalA : (verification_age_inferieur_ou_egal_a_in Js.t -> verification_age_inferieur_ou_egal_a Js.t) Js.callback =
|
|
||||||
Js.wrap_callback verification_age_inferieur_ou_egal_a
|
|
||||||
|
|
||||||
method verificationAgeSuperieurA : (verification_age_superieur_a_in Js.t -> verification_age_superieur_a Js.t) Js.callback =
|
|
||||||
Js.wrap_callback verification_age_superieur_a
|
|
||||||
|
|
||||||
method smic : (smic_in Js.t -> smic Js.t) Js.callback =
|
|
||||||
Js.wrap_callback smic
|
|
||||||
|
|
||||||
method baseMensuelleAllocationsFamiliales : (base_mensuelle_allocations_familiales_in Js.t -> base_mensuelle_allocations_familiales Js.t) Js.callback =
|
|
||||||
Js.wrap_callback base_mensuelle_allocations_familiales
|
|
||||||
|
|
||||||
method prestationsFamiliales : (prestations_familiales_in Js.t -> prestations_familiales Js.t) Js.callback =
|
|
||||||
Js.wrap_callback prestations_familiales
|
|
||||||
|
|
||||||
method allocationsFamiliales : (allocations_familiales_in Js.t -> allocations_familiales Js.t) Js.callback =
|
|
||||||
Js.wrap_callback allocations_familiales
|
|
||||||
|
|
||||||
method interfaceAllocationsFamiliales : (interface_allocations_familiales_in Js.t -> interface_allocations_familiales Js.t) Js.callback =
|
|
||||||
Js.wrap_callback interface_allocations_familiales
|
|
||||||
|
|
||||||
end)
|
|
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user