1 (* Basic Merjis functions.
2 * Copyright (C) 2004 Merjis Ltd.
3 * Written By Richard W.M. Jones (rich@merjis.com)
4 * $Id: merjisforwiki.mli,v 1.1 2004/09/07 10:14:09 rich Exp $
7 (* This is a copy of an internal library which we use at Merjis. *)
9 val identity : 'a -> 'a
10 val unique : unit -> int
11 val range : int -> int -> int list
13 val string_contains : string -> string -> bool
14 val string_of_char : char -> string
15 val truncate : int -> string -> string
16 val isspace : char -> bool
17 val isalpha : char -> bool
18 val isdigit : char -> bool
19 val isalnum : char -> bool
20 val islower : char -> bool
21 val isupper : char -> bool
22 val isxdigit : char -> bool
23 val triml : ?test:(char -> bool) -> string -> string
24 val trimr : ?test:(char -> bool) -> string -> string
25 val trim : ?test:(char -> bool) -> string -> string
26 val string_for_all : (char -> bool) -> string -> bool
27 val string_exists : (char -> bool) -> string -> bool
28 val string_is_whitespace : string -> bool
30 val first : int -> 'a list -> 'a list
31 val uniq : ?cmp:('a -> 'a -> int) -> 'b list -> 'b list
32 val sort_uniq : ?cmp:('a -> 'a -> int) -> 'a list -> 'a list
33 val frequency : ?cmp:('a -> 'a -> int) -> 'a list -> (int * 'a) list
34 val group_by : ?cmp:('a -> 'a -> int) -> ('a * 'b) list -> ('a * 'b list) list
36 val (//) : string -> string -> string
37 val input_all_lines : in_channel -> string list
38 val input_all : in_channel -> string
39 val input_file : string -> string
40 val output_file : string -> string -> unit
41 val output_tempfile : string -> string
43 val cmd : string -> unit
44 val copy : string -> string -> unit
45 val pget : string -> string list
46 val unlink : string -> unit
48 val notf : ('a -> bool) -> 'a -> bool
50 val short_weekday : int -> string
51 val short_month : int -> string
53 val image_identify : string -> string * int * int
54 val image_thumbnail : string -> int -> int -> string * string * int * int
56 val mime_type_of_filename : string -> string