/usr/lib/ocaml/ocsigenserver/ocsigen_lib.mli is in libocsigenserver-ocaml-dev 2.2.0-3.
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 | (* Ocsigen
* Copyright (C) 2005 Vincent Balat
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, with linking exception;
* either version 2.1 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 Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*)
(** This module contains some auxiliaries for the Ocsigenserver. In contrast to
{!Ocsigen_lib_base}, the function may also refer to libraries other than the
standard library.
*)
include module type of Ocsigen_lib_base
with type poly = Ocsigen_lib_base.poly
and type yesnomaybe = Ocsigen_lib_base.yesnomaybe
and type ('a, 'b) leftright = ('a, 'b) Ocsigen_lib_base.leftright
and type 'a Clist.t = 'a Ocsigen_lib_base.Clist.t
and type 'a Clist.node = 'a Ocsigen_lib_base.Clist.node
(** Generate an unique and cryptographically safe random string.
It is impossible to guess for other people and
will never return twice the same value (with very good probabilities). *)
val make_cryptographic_safe_string : unit -> string
module String : module type of String_base
module Ip_address : sig
type t =
| IPv4 of int32
| IPv6 of int64 * int64
(* exception Invalid_ipaddress of string *)
val parse : string -> t * (t option)
val match_ip : t * (t option) -> t -> bool
val network_of_ip : t -> int32 -> int64 * int64 -> t
exception No_such_host
val inet6_addr_loopback : t
val get_inet_addr : string -> Unix.inet_addr Lwt.t
(* val getnameinfo : Unix.inet_addr -> int -> string Lwt.t *)
end
module Filename : sig
include module type of Filename
(* val basename : string -> string *)
(* val extension : string -> string *)
val extension_no_directory : string -> string
end
module Url : sig
include module type of Url_base with type t = Url_base.t
val fixup_url_string : t -> t
val encode : ?plus:bool -> string -> string
val decode : ?plus:bool -> string -> string
val make_encoded_parameters : (string * string) list -> string
val string_of_url_path : encode:bool -> path -> uri
val parse : t ->
bool option * string option * int option *
string (** the path, as a string, without the first / *) *
string list * string option *
(string * string) list Lazy.t
end
|