(*
 * 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: sdlloader.ml,v 1.8 2003/02/24 23:06:57 oliv__a Exp $ *)

(* Define a new exception for loader errors and register 
   it to be callable from C code. *)

exception SDLloader_exception of string
let _ = Callback.register_exception 
    "SDLloader_exception" (SDLloader_exception "")

external load_image : string -> Sdlvideo.surface 
    = "ml_IMG_Load"

external load_image_RW : ?autoclose:bool -> Sdl.rwops_in -> Sdlvideo.surface 
    = "ml_IMG_Load_RW"
let load_image_from_mem buff =
  load_image_RW (Sdl.rwops_from_mem buff)

external read_XPM_from_array : string array -> Sdlvideo.surface
    = "ml_IMG_ReadXPMFromArray"