This file is indexed.

/usr/lib/ocaml/obus/oBus_name.mli is in libobus-ocaml-dev 1.1.5-5build1.

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
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
(*
 * oBus_name.mli
 * -------------
 * Copyright : (c) 2008, Jeremie Dimino <jeremie@dimino.org>
 * Licence   : BSD3
 *
 * This file is a part of obus, an ocaml implementation of D-Bus.
 *)

(** D-Bus names *)

(** For specific restrictions on D-Bus names, see
    @see <http://dbus.freedesktop.org/doc/dbus-specification.html#message-protocol-names> the specification

    General restrisction include:

    - names must not be empty
    - names must contains only ascii characters *)

type bus = OBus_string.t
    (** Bus names

        example: "org.freedesktop.DBus", ":1.1" *)

val validate_bus : OBus_string.validator

val is_unique : bus -> bool
  (** Tell wether a bus name is a unique connection name or not. *)

type interface = OBus_string.t
    (** Interface names

        example: "org.freedesktop.DBus.Introspectable" *)

val validate_interface : OBus_string.validator

type member = OBus_string.t
    (** Methods/signals/properties names

        example: "StartServiceByName" *)

val validate_member : OBus_string.validator

type error = OBus_string.t
    (** Error names

        example: "org.freedesktop.Error.UnknownMethod" *)

val validate_error : OBus_string.validator

(** {6 D-Bus name translation} *)

val split : string -> string list
  (** Split a name into longest blocks matched by the regular
      expression "[A-Z]*[^A-Z.]*":

      [split "SetCPUFreqGovernor" = ["Set"; "CPUFreq"; "Governor"]],
      [split "org.freedesktop.DBus" = ["org"; "freedesktop"; "DBus"]] *)

val ocaml_lid : string -> string
  (** Translate a D-Bus name into an ocaml-style lower-identifier:

      [caml_lid "SetCPUFreqGovernor" = "set_cpufreq_governor"] *)

val ocaml_uid : string -> string
  (** Translate a D-Bus name into an ocaml-style upper-identifier:

      [caml_uid "org.freedesktop.DBus" = "Org_freedesktop_dbus"] *)

val haskell_lid : string -> string
  (** Translate a D-Bus name into an haskell-style lower-identifier:

      [haskell_lid "SetCPUFreqGovernor" = "setCPUFreqGovernor"] *)

val haskell_uid : string -> string
  (** Translate a D-Bus name into an haskell-style upper-identifier:

      [haskell_uid "org.freedesktop.DBus" = "OrgFreedesktopDBus"] *)