mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-19 00:15:39 +03:00
583e80993a
*Disclaimer*: This is intended for discussion My impression is that the with-exceptions backend is to be superseded by the without-exception backend, which is more general and more efficient. Therefore, seeing the added complexity of maintaining the two in parallel, I see no good reason to keep the with-exceptions version now that the equivalence of their semantics have been proved. It will also be nice to reduce divergences between the different backends ; and this should make further simplifications possible (e.g. some thunkings may no longer be needed) Of course I am ready to hear arguments in favor of keeping it, be it in the mid- or long-term. This patch removes the `--avoid-exceptions` flag, making it the only option, and the corresponding `with_exceptions` variant of the dcalc->lcalc translation. It doesn't do further simplifications.
114 lines
3.3 KiB
OCaml
114 lines
3.3 KiB
OCaml
(* This file is part of the Catala compiler, a specification language for tax
|
|
and social benefits computation rules. Copyright (C) 2020 Inria,
|
|
contributors: Denis Merigoux <denis.merigoux@inria.fr>, Emile Rolley
|
|
<emile.rolley@tuta.io>
|
|
|
|
Licensed under the Apache License, Version 2.0 (the "License"); you may not
|
|
use this file except in compliance with the License. You may obtain a copy of
|
|
the License at
|
|
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
|
|
|
Unless required by applicable law or agreed to in writing, software
|
|
distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
|
|
WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
|
|
License for the specific language governing permissions and limitations under
|
|
the License. *)
|
|
|
|
open Catala_utils
|
|
|
|
val main : unit -> unit
|
|
(** Main program entry point, including command-line parsing and return code *)
|
|
|
|
(** Compiler passes
|
|
|
|
Each pass takes only its cli options, then calls upon its dependent passes
|
|
(forwarding their options as needed) *)
|
|
module Passes : sig
|
|
val surface : Global.options -> Surface.Ast.program
|
|
|
|
val desugared :
|
|
Global.options ->
|
|
includes:Global.raw_file list ->
|
|
Desugared.Ast.program * Desugared.Name_resolution.context
|
|
|
|
val scopelang :
|
|
Global.options ->
|
|
includes:Global.raw_file list ->
|
|
Shared_ast.untyped Scopelang.Ast.program
|
|
|
|
val dcalc :
|
|
Global.options ->
|
|
includes:Global.raw_file list ->
|
|
optimize:bool ->
|
|
check_invariants:bool ->
|
|
typed:'m Shared_ast.mark ->
|
|
'm Dcalc.Ast.program * Scopelang.Dependency.TVertex.t list
|
|
|
|
val lcalc :
|
|
Global.options ->
|
|
includes:Global.raw_file list ->
|
|
optimize:bool ->
|
|
check_invariants:bool ->
|
|
typed:'m Shared_ast.mark ->
|
|
closure_conversion:bool ->
|
|
monomorphize_types:bool ->
|
|
Shared_ast.typed Lcalc.Ast.program * Scopelang.Dependency.TVertex.t list
|
|
|
|
val scalc :
|
|
Global.options ->
|
|
includes:Global.raw_file list ->
|
|
optimize:bool ->
|
|
check_invariants:bool ->
|
|
closure_conversion:bool ->
|
|
keep_special_ops:bool ->
|
|
dead_value_assignment:bool ->
|
|
no_struct_literals:bool ->
|
|
monomorphize_types:bool ->
|
|
Scalc.Ast.program * Scopelang.Dependency.TVertex.t list
|
|
end
|
|
|
|
module Commands : sig
|
|
(** Helper functions used by top-level commands *)
|
|
|
|
val get_output :
|
|
?ext:string ->
|
|
Global.options ->
|
|
Global.raw_file option ->
|
|
string option * ((out_channel -> 'a) -> 'a)
|
|
(** bounded open of the expected output file *)
|
|
|
|
val get_output_format :
|
|
?ext:string ->
|
|
Global.options ->
|
|
Global.raw_file option ->
|
|
string option * ((Format.formatter -> 'a) -> 'a)
|
|
|
|
val get_scope_uid : Shared_ast.decl_ctx -> string -> Shared_ast.ScopeName.t
|
|
|
|
val get_variable_uid :
|
|
Desugared.Name_resolution.context ->
|
|
Shared_ast.ScopeName.t ->
|
|
string ->
|
|
Desugared.Ast.ScopeDef.t
|
|
|
|
val commands : unit Cmdliner.Cmd.t list
|
|
(** The list of built-in catala subcommands, as expected by
|
|
[Cmdliner.Cmd.group] *)
|
|
end
|
|
|
|
(** Various helpers *)
|
|
|
|
val modname_of_file : string -> string
|
|
|
|
(** API available to plugins for their own registration *)
|
|
|
|
module Plugin : sig
|
|
val register :
|
|
string ->
|
|
?man:Cmdliner.Manpage.block list ->
|
|
?doc:string ->
|
|
(Global.options -> unit) Cmdliner.Term.t ->
|
|
unit
|
|
end
|