`sig
type unichar = int
type unistring = Glib.unichar array
exception GError of string
module Main :
sig
type t
val create : bool -> Glib.Main.t
val iteration : bool -> bool
val pending : unit -> bool
val is_running : Glib.Main.t -> bool
val quit : Glib.Main.t -> unit
val destroy : Glib.Main.t -> unit
type locale_category =
[ `ALL
| `COLLATE
| `CTYPE
| `MESSAGES
| `MONETARY
| `NUMERIC
| `TIME ]
val setlocale : Glib.Main.locale_category -> string option -> string
val wrap_poll_func : unit -> unit
end
val int_of_priority :
[< `DEFAULT | `DEFAULT_IDLE | `HIGH | `HIGH_IDLE | `LOW ] -> int
module Timeout :
sig
type id
val add : ms:int -> callback:(unit -> bool) -> Glib.Timeout.id
val remove : Glib.Timeout.id -> unit
end
module Idle :
sig
type id
val add : ?prio:int -> (unit -> bool) -> Glib.Idle.id
val remove : Glib.Idle.id -> unit
end
module Io :
sig
type channel
type condition = [ `ERR | `HUP | `IN | `NVAL | `OUT | `PRI ]
type id
val channel_of_descr : Unix.file_descr -> Glib.Io.channel
val add_watch :
cond:Glib.Io.condition list ->
callback:(Glib.Io.condition list -> bool) ->
?prio:int -> Glib.Io.channel -> Glib.Io.id
val remove : Glib.Io.id -> unit
val read : Glib.Io.channel -> buf:string -> pos:int -> len:int -> int
val read_chars :
Glib.Io.channel -> buf:string -> pos:int -> len:int -> int
end
module Message :
sig
type log_level =
[ `CRITICAL
| `DEBUG
| `ERROR
| `FLAG_FATAL
| `FLAG_RECURSION
| `INFO
| `MESSAGE
| `WARNING ]
val log_level :
[< `CRITICAL
| `CUSTOM of int
| `DEBUG
| `ERROR
| `FLAG_FATAL
| `FLAG_RECURSION
| `INFO
| `MESSAGE
| `WARNING ] ->
int
type log_handler
val set_log_handler :
?domain:string ->
levels:Glib.Message.log_level list ->
(level:int -> string -> unit) -> Glib.Message.log_handler
val remove_log_handler : Glib.Message.log_handler -> unit
val set_always_fatal : Glib.Message.log_level list -> unit
val set_fatal_mask :
?domain:string ->
[ `CRITICAL
| `CUSTOM of int
| `DEBUG
| `ERROR
| `FLAG_FATAL
| `FLAG_RECURSION
| `INFO
| `MESSAGE
| `WARNING ] list -> unit
val log :
?domain:string ->
[ `CRITICAL
| `CUSTOM of int
| `DEBUG
| `ERROR
| `FLAG_FATAL
| `FLAG_RECURSION
| `INFO
| `MESSAGE
| `WARNING ] -> ('a, unit, string, unit) Pervasives.format4 -> 'a
end
module Convert :
sig
type error =
NO_CONVERSION
| ILLEGAL_SEQUENCE
| FAILED
| PARTIAL_INPUT
| BAD_URI
| NOT_ABSOLUTE_PATH
exception Error of Glib.Convert.error * string
val convert :
string -> to_codeset:string -> from_codeset:string -> string
val convert_with_fallback :
?fallback:string ->
to_codeset:string -> from_codeset:string -> string -> string
val locale_from_utf8 : string -> string
val locale_to_utf8 : string -> string
val filename_from_utf8 : string -> string
val filename_to_utf8 : string -> string
val filename_from_uri : string -> string option * string
val filename_to_uri : ?hostname:string -> string -> string
val get_charset : unit -> bool * string
end
module Unichar :
sig
val to_lower : Glib.unichar -> Glib.unichar
val to_upper : Glib.unichar -> Glib.unichar
val to_title : Glib.unichar -> Glib.unichar
val digit_value : Glib.unichar -> int
val xdigit_value : Glib.unichar -> int
val validate : Glib.unichar -> bool
val isalnum : Glib.unichar -> bool
val isalpha : Glib.unichar -> bool
val iscntrl : Glib.unichar -> bool
val isdigit : Glib.unichar -> bool
val isgraph : Glib.unichar -> bool
val islower : Glib.unichar -> bool
val isprint : Glib.unichar -> bool
val ispunct : Glib.unichar -> bool
val isspace : Glib.unichar -> bool
val isupper : Glib.unichar -> bool
val isxdigit : Glib.unichar -> bool
val istitle : Glib.unichar -> bool
val isdefined : Glib.unichar -> bool
val iswide : Glib.unichar -> bool
end
module Utf8 :
sig
val validate : string -> bool
val length : string -> int
val from_unichar : Glib.unichar -> string
val from_unistring : Glib.unistring -> string
val to_unichar_validated :
string -> pos:int Pervasives.ref -> Glib.unichar
val to_unichar : string -> pos:int Pervasives.ref -> Glib.unichar
val to_unistring : string -> Glib.unistring
val first_char : string -> Glib.unichar
val offset_to_pos : string -> pos:int -> off:int -> int
type normalize_mode =
[ `ALL | `ALL_COMPOSE | `DEFAULT | `DEFAULT_COMPOSE ]
val normalize : string -> Glib.Utf8.normalize_mode -> string
val uppercase : string -> string
val lowercase : string -> string
val casefold : string -> string
val collate : string -> string -> int
val collate_key : string -> string
end
module Markup :
sig
type error =
BAD_UTF8
| EMPTY
| PARSE
| UNKNOWN_ELEMENT
| UNKNOWN_ATTRIBUTE
| INVALID_CONTENT
exception Error of Glib.Markup.error * string
val escape_text : string -> string
end
val get_prgname : unit -> string
val set_prgname : string -> unit
val get_application_name : unit -> string
val set_application_name : string -> unit
val get_user_name : unit -> string
val get_real_name : unit -> string
val get_home_dir : unit -> string option
val get_tmp_dir : unit -> string
val find_program_in_path : string -> string
val getenv : string -> string
val setenv : string -> string -> bool -> unit
val unsetenv : string -> unit
val get_user_cache_dir : unit -> string
val get_user_data_dir : unit -> string
val get_user_config_dir : unit -> string
val get_system_data_dirs : unit -> string list
val get_system_config_dirs : unit -> string list
val usleep : int -> unit
end`