/usr/lib/ocaml/sdl/sdl.mli is in libsdl-ocaml-dev 0.9.1-2build4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | (*
* OCamlSDL - An ML interface to the SDL library
* Copyright (C) 1999 Frederic Brunel
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
(* $Id: sdl.mli,v 1.12 2012/06/19 18:20:59 oliv__a Exp $ *)
(** This module contains functions for initializing/quitting the library *)
exception SDL_init_exception of string
(** Exception for reporting errors during initialization *)
(** {3 Main functions} *)
(** Initialization flag type *)
type subsystem = [
| `TIMER (** init flag for the timer subsystem *)
| `AUDIO (** init flag for the audio subsystem *)
| `VIDEO (** init flag for the video subsystem *)
| `CDROM (** init flag for the cdrom subsystem *)
| `JOYSTICK (** init flag for the joystick subsystem *)
]
val init :
?auto_clean:bool ->
[< subsystem | `NOPARACHUTE | `EVENTTHREAD | `EVERYTHING ] list ->
unit
(** Initialize the SDL library. This should be called before all other
SDL functions.
The flags parameter specifies what part(s) of SDL to initialize.
- `NOPARACHUTE : Don't catch fatal signals
- `EVENTTHREAD : Automatically pump events in a separate threads
- `EVERYTHING : initialize all subsystems
*)
val init_subsystem : subsystem list -> unit
val was_init : unit -> subsystem list
val quit : unit -> unit
(**
[quit] shuts down all SDL subsystems and frees the resources allocated
to them. This should always be called before you exit.
*)
val quit_subsystem : subsystem list -> unit
(** {3 Versioning information} *)
type version = {
major : int ;
minor : int ;
patch : int ;
}
val version : unit -> version
(** version of the SDL library *)
val string_of_version : version -> string
(** {3 Environment variables} *)
val getenv : string -> string
val putenv : string -> string -> unit
(**/**)
type rwops_in
val rwops_from_mem : string -> rwops_in
val rwops_in_close : rwops_in -> unit
|