scripts/merjisforwiki.mli

   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 $
   5  *)
   6
   7 (* This is a copy of an internal library which we use at Merjis. *)
   8
   9 val identity : 'a -> 'a
  10 val unique : unit -> int
  11 val range : int -> int -> int list
  12
  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
  29
  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
  35
  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
  42
  43 val cmd : string -> unit
  44 val copy : string -> string -> unit
  45 val pget : string -> string list
  46 val unlink : string -> unit
  47
  48 val notf : ('a -> bool) -> 'a -> bool
  49
  50 val short_weekday : int -> string
  51 val short_month : int -> string
  52
  53 val image_identify : string -> string * int * int
  54 val image_thumbnail : string -> int -> int -> string * string * int * int
  55
  56 val mime_type_of_filename : string -> string