2021-02-12 19:20:14 +03:00
|
|
|
(* This file is part of the Catala compiler, a specification language for tax
|
|
|
|
and social benefits computation rules. Copyright (C) 2020 Inria, contributor:
|
|
|
|
Denis Merigoux <denis.merigoux@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. *)
|
|
|
|
|
2022-01-02 16:53:51 +03:00
|
|
|
(** Wrapping module around parser and lexer that offers the
|
|
|
|
[Surface.Parser_driver.parse_source_file] API. *)
|
2021-02-12 19:20:14 +03:00
|
|
|
|
2022-11-21 12:46:17 +03:00
|
|
|
open Catala_utils
|
2021-02-12 19:20:14 +03:00
|
|
|
|
2023-09-11 17:44:35 +03:00
|
|
|
val lines :
|
|
|
|
File.t -> Cli.backend_lang -> (string * Lexer_common.line_token) Seq.t
|
|
|
|
(** Raw file parser that doesn't interpret any includes and returns the flat law
|
|
|
|
structure as is *)
|
|
|
|
|
2023-09-26 12:42:46 +03:00
|
|
|
val load_interface : Cli.input_src -> Ast.interface * string Mark.pos list
|
2023-08-10 17:52:39 +03:00
|
|
|
(** Reads only declarations in metadata in the supplied input file, and only
|
2023-09-19 12:44:18 +03:00
|
|
|
keeps type information ; returns the modules used as well *)
|
2023-04-19 19:26:50 +03:00
|
|
|
|
2023-09-26 12:42:46 +03:00
|
|
|
val parse_top_level_file : Cli.input_src -> Ast.program
|
2023-09-19 12:44:18 +03:00
|
|
|
(** Parses a catala file (handling file includes) and returns a program.
|
|
|
|
Interfaces of the used modules are returned empty, use [load_interface] to
|
|
|
|
fill them. *)
|