catala/compiler/lcalc/ast.mli

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

61 lines
1.9 KiB
OCaml
Raw Normal View History

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. *)
open Utils
open Shared_ast
2021-02-12 19:20:14 +03:00
(** Abstract syntax tree for the lambda calculus *)
(** {1 Abstract syntax tree} *)
2022-07-27 13:18:14 +03:00
type lit = lcalc glit
type 'm expr = (lcalc, 'm mark) naked_gexpr
and 'm marked_expr = (lcalc, 'm mark) gexpr
2021-11-02 20:09:59 +03:00
2022-08-16 17:54:42 +03:00
type 'm program = 'm expr Shared_ast.program
(** {1 Language terms construction}*)
2021-02-12 19:20:14 +03:00
val option_enum : EnumName.t
val none_constr : EnumConstructor.t
val some_constr : EnumConstructor.t
2022-08-16 11:04:01 +03:00
val option_enum_config : (EnumConstructor.t * typ Marked.pos) list
val make_none : 'm mark -> 'm marked_expr Bindlib.box
val make_some : 'm marked_expr Bindlib.box -> 'm marked_expr Bindlib.box
2022-02-04 14:33:26 +03:00
val make_matchopt_with_abs_arms :
'm marked_expr Bindlib.box ->
'm marked_expr Bindlib.box ->
'm marked_expr Bindlib.box ->
'm marked_expr Bindlib.box
val make_matchopt :
'm mark ->
'm expr Var.t ->
typ Marked.pos ->
'm marked_expr Bindlib.box ->
'm marked_expr Bindlib.box ->
'm marked_expr Bindlib.box ->
'm marked_expr Bindlib.box
(** [e' = make_matchopt'' pos v e e_none e_some] Builds the term corresponding
to [match e with | None -> fun () -> e_none |Some -> fun v -> e_some]. *)
(** {1 Special symbols} *)
val handle_default : untyped expr Var.t
val handle_default_opt : untyped expr Var.t