← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/ocsigen/oneiric

« back to all changes in this revision

Viewing changes to baselib/ocsigen_lib.mli

  • Committer: Bazaar Package Importer
  • Author(s): Stephane Glondu
  • Date: 2009-07-02 10:02:08 UTC
  • mfrom: (1.1.9 upstream) (4.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090702100208-n158b1sqwzn0asil
Tags: 1.2.0-2
Fix build on non-native architectures

Show diffs side-by-side

added added

removed removed

Lines of Context:
baselib/ocsigen_lib.mli
14
14
val list_last : 'a list -> 'a
15
15
val list_assoc_remove : 'a -> ('a * 'b) list -> 'b * ('a * 'b) list
16
16
val list_is_prefix : 'a list -> 'a list -> bool
 
17
val list_is_prefix_skip_end_slash : string list -> string list -> bool
17
18
val remove_dotdot : string list -> string list
 
19
 
18
20
val remove_slash_at_beginning : string list -> string list
 
21
(** Remove the slash at beginning but if it is also at the end *)
 
22
 
19
23
val recursively_remove_slash_at_beginning : string list -> string list
 
24
(** Recursively remove the slash at beginning but if it is also at the end *)
 
25
 
20
26
val remove_slash_at_end : string list -> string list
21
27
val remove_internal_slash : string list -> string list
22
28
val add_end_slash_if_missing : string list -> string list
23
29
val change_empty_list : string list -> string list
24
30
val remove_end_slash : string -> string
25
 
val string_of_url_path : string list -> string
 
31
val string_of_url_path : encode:bool -> string list -> string
26
32
val string_first_diff : string -> string -> int -> int -> int
27
33
val add_to_string : string -> string -> string -> string
28
34
val concat_strings : string -> string -> string -> string
35
41
val sep : char -> string -> string * string
36
42
 
37
43
val split : ?multisep:bool -> char -> string -> string list
 
44
 
38
45
val string_of_exn : exn -> string
 
46
  (** [string_of_exn e] returns a (hopefully) meaningful explanation of
 
47
      the exception [e]. *)
 
48
 
 
49
val register_exn_printer : ((exn -> string) -> exn -> string) -> unit
 
50
  (** [register_exn_printer p] registers [p] so that a call to [p
 
51
      string_of_exn e] is tried first in [string_of_exn e]. [p] must raise
 
52
      [e] if it doesn't handle it. *)
 
53
 
39
54
val fst3 : 'a * 'b * 'c -> 'a
40
55
val snd3 : 'a * 'b * 'c -> 'b
41
56
val thd3 : 'a * 'b * 'c -> 'c
42
57
 
43
58
type ('a, 'b) leftright = Left of 'a | Right of 'b
 
59
type yesnomaybe = Yes | No | Maybe
44
60
 
45
61
val get_inet_addr : string -> Unix.inet_addr Lwt.t
46
62
(** returns the first inet address for one host *)
59
75
    with [ before and ] after IPv6 addresses. *)
60
76
 
61
77
val basename : string -> string
 
78
 
 
79
(** Extension of a file. Raises [Not_found] if the argument has no
 
80
  extension *)
 
81
val extension : string -> string
 
82
 
 
83
(** Extension of a file. Supposes that the argument does not
 
84
    contain '/' (but is faster than extension) *)
 
85
val extension_no_directory : string -> string
 
86
 
62
87
val fixup_url_string : string -> string
63
88
val parse_url : string ->
64
 
  string option * int option *
 
89
  bool option * string option * int option *
65
90
    string * Neturl.url * string list * string option *
66
91
    (string * string) list Lazy.t
67
92
 
 
93
val make_absolute_url : 
 
94
  https:bool -> host:string -> port:int -> string -> string
 
95
 
68
96
module StringSet : Set.S with type elt = string