(* Basic Merjis functions.
 * Copyright (C) 2004 Merjis Ltd.
 * Written By Richard W.M. Jones (rich@merjis.com)
 * $Id: merjisforwiki.mli,v 1.1 2004/09/07 10:14:09 rich Exp $
 *)

(* This is a copy of an internal library which we use at Merjis. *)

val identity : 'a -> 'a
val unique : unit -> int
val range : int -> int -> int list

val string_contains : string -> string -> bool
val string_of_char : char -> string
val truncate : int -> string -> string
val isspace : char -> bool
val isalpha : char -> bool
val isdigit : char -> bool
val isalnum : char -> bool
val islower : char -> bool
val isupper : char -> bool
val isxdigit : char -> bool
val triml : ?test:(char -> bool) -> string -> string
val trimr : ?test:(char -> bool) -> string -> string
val trim : ?test:(char -> bool) -> string -> string
val string_for_all : (char -> bool) -> string -> bool
val string_exists : (char -> bool) -> string -> bool
val string_is_whitespace : string -> bool

val first : int -> 'a list -> 'a list
val uniq : ?cmp:('a -> 'a -> int) -> 'b list -> 'b list
val sort_uniq : ?cmp:('a -> 'a -> int) -> 'a list -> 'a list
val frequency : ?cmp:('a -> 'a -> int) -> 'a list -> (int * 'a) list
val group_by : ?cmp:('a -> 'a -> int) -> ('a * 'b) list -> ('a * 'b list) list

val (//) : string -> string -> string
val input_all_lines : in_channel -> string list
val input_all : in_channel -> string
val input_file : string -> string
val output_file : string -> string -> unit
val output_tempfile : string -> string

val cmd : string -> unit
val copy : string -> string -> unit
val pget : string -> string list
val unlink : string -> unit

val notf : ('a -> bool) -> 'a -> bool

val short_weekday : int -> string
val short_month : int -> string

val image_identify : string -> string * int * int
val image_thumbnail : string -> int -> int -> string * string * int * int

val mime_type_of_filename : string -> string