This file is indexed.

/usr/lib/ocaml/melt/melt.mli is in libmelt-ocaml-dev 1.4.0-1build1.

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
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
(**************************************************************************)
(* Copyright (c) 2009, Romain BARDOU                                      *)
(* All rights reserved.                                                   *)
(*                                                                        *)
(* Redistribution and  use in  source and binary  forms, with  or without *)
(* modification, are permitted provided that the following conditions are *)
(* met:                                                                   *)
(*                                                                        *)
(* * Redistributions  of  source code  must  retain  the above  copyright *)
(*   notice, this list of conditions and the following disclaimer.        *)
(* * Redistributions in  binary form  must reproduce the  above copyright *)
(*   notice, this list of conditions  and the following disclaimer in the *)
(*   documentation and/or other materials provided with the distribution. *)
(* * Neither the  name of Melt nor  the names of its  contributors may be *)
(*   used  to endorse  or  promote products  derived  from this  software *)
(*   without specific prior written permission.                           *)
(*                                                                        *)
(* THIS SOFTWARE  IS PROVIDED BY  THE COPYRIGHT HOLDERS  AND CONTRIBUTORS *)
(* "AS  IS" AND  ANY EXPRESS  OR IMPLIED  WARRANTIES, INCLUDING,  BUT NOT *)
(* LIMITED TO, THE IMPLIED  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR *)
(* A PARTICULAR PURPOSE  ARE DISCLAIMED. IN NO EVENT  SHALL THE COPYRIGHT *)
(* OWNER OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, *)
(* SPECIAL,  EXEMPLARY,  OR  CONSEQUENTIAL  DAMAGES (INCLUDING,  BUT  NOT *)
(* LIMITED TO, PROCUREMENT OF SUBSTITUTE  GOODS OR SERVICES; LOSS OF USE, *)
(* DATA, OR PROFITS; OR BUSINESS  INTERRUPTION) HOWEVER CAUSED AND ON ANY *)
(* THEORY OF  LIABILITY, WHETHER IN  CONTRACT, STRICT LIABILITY,  OR TORT *)
(* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING  IN ANY WAY OUT OF THE USE *)
(* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.   *)
(**************************************************************************)

(** Unification of [Mlpost], [Latex] and the preprocessor. *)

(** Emit a LaTeX file. *)
val emit: ?file: string -> Latex.t -> unit
  (**  This is  basically the  same than  [Latex.to_file]  except that
there is  a default file name  [base.tex] where [base]  is computed in
the same way than [base] in the [mlpost] function. *)

module Verbatim: sig
  (** Verbatim modes for the Melt pre-processor. *)

  (** These modes are the same as the ones in the [Latex.Verbatim] module,
except that they work with the Melt pre-processor. *)

  type melt_verbatim_string =
      [ `V of string | `C of Latex.t | `M of Latex.t | `T of Latex.t ] list
  type latex_verbatim_function = string -> Latex.t
  type melt_verbatim_function = melt_verbatim_string -> Latex.t

  val convert: latex_verbatim_function -> melt_verbatim_function
    (** Convert a verbatim function of the [Latex] module to a function
usable with the Melt pre-processor. The original function is applied to
each quotations; anti-quotations are left as it, and the resulting list
is concatenated. *)

  (** {2 Conversion of [Latex.Verbatim]} *)

  val trim: char list -> melt_verbatim_string -> melt_verbatim_string
    (** The [trim] function will only be applied at the beginning
of the first [`V] item and at the end of the last [`V] item. *)

  val split_lines: melt_verbatim_string -> melt_verbatim_string list

  val verbatim: melt_verbatim_function
  val regexps: (Str.regexp * (string -> Latex.t)) list -> (string -> Latex.t) ->
    melt_verbatim_function
  val keywords: ?apply: (Latex.t -> Latex.t) -> string list ->
    melt_verbatim_function
  val pseudocode : ?trim: (melt_verbatim_string -> melt_verbatim_string) ->
    ?id_regexp: Str.regexp ->
    ?kw_apply: (Latex.t -> Latex.t) ->
    ?id_apply: (Latex.t -> Latex.t) ->
    ?rem_apply: (string -> Latex.t) ->
    ?keywords: string list ->
    ?symbols: (string * Latex.t) list ->
    ?keyword_symbols: (string * Latex.t) list ->
    ?underscore: Str.regexp ->
    melt_verbatim_function
end

include Mlpost_specific.Signature

module Arg :
sig
  (** simple command line parameters handling *)

  val bool : Latex.t -> bool
    (** [bool "text"] is true iff the command line contains "-text" *)

  val int : ?default:int -> Latex.t -> int
    (** [int "text"] is n if the command line contains "-text n".
	The value defaults to 0 if unspecified *)

  val float : ?default:float -> Latex.t -> float
    (** [float "text"] is n if the command line contains "-text n"
	The value defaults to 0. if unspecified *)

  val text : ?default:Latex.t -> Latex.t -> Latex.t
    (** [float "text"] is [Latex.text s] if the command line contains
	"-text s" The value defaults to the empty string if
	unspecified *)

  val mode : [ `Pdf | `Ps | `Cairo | `Mps ]
    (** [mode] reflects the mode in which [melt] is ran.
	[`Pdf] for [-pdf]
	[`Ps] for [-ps]
	[`Cairo] for [-cairo]
	[`Mps] for [-mps] *)
end