package catala

  1. Overview
  2. Docs
Compiler and library for the literate programming language for tax code specification

Install

Dune Dependency

Authors

Maintainers

Sources

0.10.0.tar.gz
md5=5abd76e8c51a47670645e91b21b57fc5
sha512=9c6fbe50c0b5a60566e877eeddadca0a339e2ce35deb5c1beceb03bc40eb6af2d519313e71859d88645b53fad591d4fa5288c633b185c9d765603da0f5b7dd7b

doc/src/catala.literate/pygmentize.ml.html

Source file pygmentize.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
(* 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. *)

open Catala_utils
open Literate_common

let lang_of_ext s =
  if String.starts_with ~prefix:"catala_" s then
    match s with
    | "catala_en" -> Some Global.En
    | "catala_fr" -> Some Global.Fr
    | "catala_pl" -> Some Global.Pl
    | _ -> failwith "Unknown Catala dialect"
  else None

let exec () =
  let args = List.tl (Array.to_list Sys.argv) in
  let rec find_lang acc = function
    | "-l" :: lang :: r -> Some lang, List.rev_append acc r
    | x :: r -> find_lang (x :: acc) r
    | [] -> None, List.rev acc
  in
  let lang, args = find_lang [] args in
  let catala_lang =
    match lang with
    | Some l -> lang_of_ext l
    | None ->
      List.find_map
        (fun s ->
          match Filename.extension s with
          | "" -> None
          | e -> lang_of_ext (String.sub e 1 (String.length e - 1)))
        args
  in
  match catala_lang with
  | None -> Unix.execvp "pygmentize" (Array.of_list args)
  | Some lang ->
    with_pygmentize_lexer lang
    @@ fun lex_args ->
    Unix.execvp "pygmentize"
      (Array.of_list (("pygmentize" :: lex_args) @ List.tl args))
OCaml

Innovation. Community. Security.