Source file `path.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
(** Module paths in the Lambdapi library. *)

open Lplib open Base

module Path =
  struct
    (** Representation of a module name (roughly, a file path). *)
    type t = string list

    (** [pp ppf p] prints path [p] on the formatter [ppf]. Remark: to be used
       in Common only as it does not escape identifiers that need to be
       escaped. *)
    let pp : t pp = Lplib.List.pp string "."

    (** [compare] is a standard comparison function on paths. *)
    let compare : t cmp = Stdlib.compare

  end

include Path

module Set = Set.Make(Path)
module Map = Map.Make(Path)

(** [ghost s] creates a module path that cannot be entered by a user. *)
let ghost : string -> Path.t = fun s -> [""; s]