blob: 5da8d7d41b56c3b498f9eafece396ac3ca7381b0 (
plain)
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
(**************************************************************************)
(* *)
(* OCaml *)
(* *)
(* Maxence Guesdon, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 Institut National de Recherche en Informatique et *)
(* en Automatique. *)
(* *)
(* All rights reserved. This file is distributed under the terms of *)
(* the GNU Lesser General Public License version 2.1, with the *)
(* special exception on linking described in the file LICENSE. *)
(* *)
(**************************************************************************)
(** Representation of element names. *)
type t = string
(** Add parenthesis to the given simple name if needed. *)
val parens_if_infix : t -> t
(** Return a simple name from a name.*)
val simple : t -> t
(** Return the name of the 'father' (like dirname for a file name).*)
val father : t -> t
(** Concatenates two names. *)
val concat : t -> t -> t
(** Normalize the given name by removing the beginning and ending spaces
of the simple name and adding parenthesis if needed. *)
val normalize_name : t -> t
(** Returns the head of a name. *)
val head : t -> t
(** Returns the depth of the name, i.e. the number of levels to the root.
Example : [Toto.Tutu.name] has depth 3. *)
val depth : t -> int
(** Returns true if the first name is a prefix of the second name.
If the two names are equal, then it is false (strict prefix).*)
val prefix : t -> t -> bool
(** remove a [Library__] prefix and capitalize the resulting name *)
val alias_unprefix: t -> t -> t
(** Take two names n1 and n2 = n3.n4 and return n4 if n3=n1 or else n2. *)
val get_relative : t -> t -> t
(** [get_relative_opt n1 n2] is [n2] if [n1=""] and
[get_relative n1 n2] otherwise *)
val get_relative_opt : t -> t -> t
(** Take two names n1=n3.n4 and n2 = n5.n6 and return n6 if n3=n5 or else n2. *)
val get_relative_raw : t -> t -> t
(** Take a list of module names to hide and a name,
and return the name when the module name (or part of it)
was removed, according to the list of module names to hide.*)
val hide_given_modules : t list -> t -> t
(** Indicate if a name if qualified or not. *)
val qualified : t -> bool
(** Get a name from an [Ident.t]. *)
val from_ident : Ident.t -> t
(** Get a name from a [Path.t]. *)
val from_path : Path.t -> t
(** Get a [Path.t] from a name.*)
val to_path : t -> Path.t
(** Get a name from a [Longident.t].*)
val from_longident : Longident.t -> t
module Map : Map.S with type key = t
|
