This file is indexed.

/usr/lib/ocaml/ocamlbricks/hashmap.mli is in libocamlbricks-ocaml-dev 0.90+bzr400-1build2.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 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
(* This file is part of our reusable OCaml BRICKS library
   Copyright (C) 2009 Jean-Vincent Loddo

   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>. *)

(** Polymorphic {e unbounded} maps (environments). *)

type ('a, 'b) t

val make     : ?size:int -> unit -> ('a, 'b) t
val lookup   : ('a, 'b) t -> 'a -> 'b
val mem      : ('a, 'b) t -> 'a -> 'b -> bool
val memq     : ('a, 'b) t -> 'a -> 'b -> bool
val bound    : ('a, 'b) t -> 'a -> bool
val add      : ('a, 'b) t -> 'a -> 'b -> unit
val add_list : ('a, 'b) t -> ('a * 'b) list -> unit
val replace  : ('a, 'b) t -> 'a -> 'b -> unit
val remove   : ('a, 'b) t -> 'a -> unit
val update   : ('a, 'b) t -> ('a, 'b) t -> unit
val to_list  : ('a, 'b) t -> ('a * 'b) list
val of_list  : ?size:int -> ('a * 'b) list -> ('a, 'b) t

(** {2 Object-oriented interface} *)

class ['a, 'b] hashmap :
  ?size:int ->
  unit ->
  object
    method add      : 'a -> 'b -> unit
    method add_list : ('a * 'b) list -> unit
    method bound    : 'a -> bool
    method get      : ('a, 'b) Hashtbl.t
    method lookup   : 'a -> 'b
    method mem      : 'a -> 'b -> bool
    method memq     : 'a -> 'b -> bool
    method remove   : 'a -> unit
    method replace  : 'a -> 'b -> unit
    method to_list  : ('a * 'b) list
  end