package dune-private-libs

  1. Overview
  2. Docs
Private libraries of Dune

Install 

dune-project
 Dependency

github.com Readme Changelog MIT License Edit opam file Versions (13)

Authors

  1. J
    Jane Street Group, LLC <opensource@janestreet.com>

Maintainers

  1. J
    Jane Street Group, LLC <opensource@janestreet.com>

Sources

dune-3.22.2.tbz
sha256=c2ccf8bc6b17afa47c450297357496303aa7c8680e329b79d98c68e35013a118
sha512=26d3df56a509c6e8937a9333944303bdd8800a41e1b869c3adfb76d1e1fe615b6ec41491d596bd5982e338dcf70b97c18f963f37bfbf2bd581cbd356f3d5f4e5

doc/src/dune-private-libs.dune-section/dune_section.ml.html

Source file dune_section.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
type t =
  | Lib
  | Lib_root
  | Libexec
  | Libexec_root
  | Bin
  | Sbin
  | Toplevel
  | Share
  | Share_root
  | Etc
  | Doc
  | Stublibs
  | Man
  | Misc

let all =
  [ Lib, "lib"
  ; Lib_root, "lib_root"
  ; Libexec, "libexec"
  ; Libexec_root, "libexec_root"
  ; Bin, "bin"
  ; Sbin, "sbin"
  ; Toplevel, "toplevel"
  ; Share, "share"
  ; Share_root, "share_root"
  ; Etc, "etc"
  ; Doc, "doc"
  ; Stublibs, "stublibs"
  ; Man, "man"
  ; Misc, "misc"
  ]
;;

let to_string t = List.assoc t all

let rec of_string x = function
  | [] -> None
  | (s, x') :: xs -> if x' = x then Some s else of_string x xs
;;

let of_string x = of_string x all