mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-19 16:28:12 +03:00
dbe0990163
Rather than require all files to be listed on the command-line (and having to check consistency with `> Using` directives), the main catala CLI is now a bit more clever. ⇒ There is a new assumption that a module name definition must match the file name (up to case and extension) — with appropriate error handling to enforce it. In exchange, `> Using` directives are now used to more transparently lookup the appropriate `.catala_*` interfaces and the compiled artifacts for the used modules (handling transitive dependencies), with just standard `-I` flags for when they need to be looked up in different places.
60 lines
2.0 KiB
OCaml
60 lines
2.0 KiB
OCaml
(* This file is part of the Catala compiler, a specification language for tax
|
|
and social benefits computation rules. Copyright (C) 2020 Inria, contributor:
|
|
Louis Gesbert <louis.gesbert@inria.fr>.
|
|
|
|
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. *)
|
|
|
|
(** This file is only for demonstration purposes, showing a trivial use of
|
|
backend plugins for Catala.
|
|
|
|
The code for the Python backend already has first-class support, so there
|
|
would be no reason to use this plugin instead *)
|
|
|
|
open Catala_utils
|
|
|
|
let run
|
|
includes
|
|
output
|
|
optimize
|
|
check_invariants
|
|
avoid_exceptions
|
|
closure_conversion
|
|
options =
|
|
let open Driver.Commands in
|
|
let prg, _, type_ordering =
|
|
Driver.Passes.scalc options ~includes ~optimize ~check_invariants
|
|
~avoid_exceptions ~closure_conversion
|
|
in
|
|
|
|
let output_file, with_output = get_output_format options ~ext:".py" output in
|
|
Message.emit_debug "Compiling program into Python...";
|
|
Message.emit_debug "Writing to %s..."
|
|
(Option.value ~default:"stdout" output_file);
|
|
with_output @@ fun fmt -> Scalc.To_python.format_program fmt prg type_ordering
|
|
|
|
let term =
|
|
let open Cmdliner.Term in
|
|
const run
|
|
$ Driver.Commands.include_flags
|
|
$ Cli.Flags.output
|
|
$ Cli.Flags.optimize
|
|
$ Cli.Flags.check_invariants
|
|
$ Cli.Flags.avoid_exceptions
|
|
$ Cli.Flags.closure_conversion
|
|
|
|
let () =
|
|
Driver.Plugin.register "python-plugin" term
|
|
~doc:
|
|
"This plugin is for demonstration purposes and should be equivalent to \
|
|
using the built-in Python backend"
|