This file is indexed.

/usr/lib/ocaml/reins/dugExtractor.mli is in libreins-ocaml-dev 0.1a-5.

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
(**************************************************************************)
(*  The OCaml Reins Library                                               *)
(*                                                                        *)
(*  Copyright 2007 Mike Furr.                                             *)
(*  All rights reserved.  This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1 with the linking        *)
(*  exception given in the COPYING file.                                  *)
(**************************************************************************)

(** Helper module for extracting a DUG from a specific program execution *)

type 'a wrap = private { data : 'a; id : Dug.Id.t; }

val mutate : ('gen,'mut,'obs) Dug.t -> 
  (Dug.Id.t -> 'mut) -> ('a -> 'a) -> 'a wrap -> 'a wrap

val mutate2 : ('gen,'mut,'obs) Dug.t -> 
  (Dug.Id.t -> 'mut) -> ('a -> 'a -> 'a) -> 'a wrap -> 'a wrap -> 'a wrap

val observe : ('gen,'mut,'obs) Dug.t -> 
  'obs -> ('a -> 'b) -> 'a wrap -> 'b
  
val observe2 : ('gen,'mut,'obs) Dug.t -> 
  'obs -> ('a -> 'a -> 'b) -> 'a wrap -> 'a wrap -> 'b

val generate : ('gen,'mut,'obs) Dug.t -> 
  (Dug.Id.t -> 'gen) -> 'a -> 'a wrap