;;
;; chicken-sdl2: CHICKEN Scheme bindings to Simple DirectMedia Layer 2
;;
;; Copyright © 2013–2021  John Croisant.
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions
;; are met:
;;
;; - Redistributions of source code must retain the above copyright
;;   notice, this list of conditions and the following disclaimer.
;;
;; - Redistributions in binary form must reproduce the above copyright
;;   notice, this list of conditions and the following disclaimer in
;;   the documentation and/or other materials provided with the
;;   distribution.
;;
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
;; FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
;; COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
;; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
;; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
;; OF THE POSSIBILITY OF SUCH DAMAGE.


(export chickenSDL2_SurfaceGetPixel
        chickenSDL2_SurfaceSetPixel
        chickenSDL2_RotateSurface90
        chickenSDL2_FlipSurface

        SDL_CreateRGBSurface
        SDL_CreateRGBSurfaceFrom
        SDL_FreeSurface

        SDL_ConvertSurface
        SDL_ConvertSurfaceFormat
        SDL_ConvertPixels

        SDL_LoadBMP
        SDL_LoadBMP_RW
        SDL_SaveBMP
        SDL_SaveBMP_RW

        SDL_LockSurface
        SDL_UnlockSurface
        SDL_MUSTLOCK

        SDL_BlitSurface
        SDL_BlitScaled
        SDL_LowerBlit
        SDL_LowerBlitScaled

        SDL_FillRect
        SDL_FillRects

        SDL_GetClipRect
        SDL_GetColorKey
        SDL_GetSurfaceAlphaMod
        SDL_GetSurfaceBlendMode
        SDL_GetSurfaceColorMod

        SDL_SetClipRect
        SDL_SetColorKey
        SDL_SetSurfaceAlphaMod
        SDL_SetSurfaceBlendMode
        SDL_SetSurfaceColorMod

        SDL_SetSurfacePalette
        SDL_SetSurfaceRLE)

#+libSDL-2.0.5+
(export SDL_CreateRGBSurfaceWithFormat
        SDL_CreateRGBSurfaceWithFormatFrom)

#+libSDL-2.0.6+
(export SDL_DuplicateSurface
        SDL_ComposeCustomBlendMode)

#+libSDL-2.0.8+
(export SDL_GetYUVConversionMode
        SDL_SetYUVConversionMode)

#+libSDL-2.0.9+
(export SDL_HasColorKey)

#+libSDL-2.0.14+
(export SDL_HasSurfaceRLE)


;;; See custom-functions.c
(define-function-binding chickenSDL2_SurfaceGetPixel
  return: (Uint32 pixel)
  args: ((SDL_Surface* surface)
         (Sint32 x)
         (Sint32 y)))

;;; See custom-functions.c
(define-function-binding chickenSDL2_SurfaceSetPixel
  args: ((SDL_Surface* surface)
         (Sint32 x)
         (Sint32 y)
         (Uint32 pixel)))

;;; See custom-functions.c
(define-function-binding chickenSDL2_RotateSurface90
  return: (SDL_Surface* result)
  args: ((SDL_Surface* surface)
         (Sint32 turns)))

;;; See custom-functions.c
(define-function-binding chickenSDL2_FlipSurface
  return: (SDL_Surface* result)
  args: ((SDL_Surface* surface)
         (bool flipx)
         (bool flipy)))


;;; This takes a u32vector instead of four Uint32 masks because
;;; CHICKEN on 32-bit systems can only represent fixnums up to 31
;;; bits, so the mask #xff000000 cannot be converted to a fixnum.
;;; Smuggling the masks inside a u32vector bypasses that limitation.
;;; See issue #44, "make-surface fails on 32bit platform".
(define-function-binding* SDL_CreateRGBSurface
  return: (SDL_Surface* surface)
  args: ((Uint32 flags)
         (Sint32 width)
         (Sint32 height)
         (Sint32 depth)
         (nonnull-u32vector masks))
  body: "C_return(
           SDL_CreateRGBSurface(
             flags, width, height, depth,
             masks[0], masks[1], masks[2], masks[3]));")

;;; See SDL_CreateRGBSurface for why this takes a u32vector.
(define-function-binding* SDL_CreateRGBSurfaceFrom
  return: (SDL_Surface* surface)
  args: ((c-pointer pixels)
         (Sint32 width)
         (Sint32 height)
         (Sint32 depth)
         (Sint32 pitch)
         (nonnull-u32vector masks))
  body: "C_return(
           SDL_CreateRGBSurfaceFrom(
             pixels, width, height, depth, pitch,
             masks[0], masks[1], masks[2], masks[3]));")


;;; This takes a u32vector instead of a Uint32 format because CHICKEN
;;; on 32-bit systems can only represent fixnums up to 31 bits, so
;;; some formats might not be expressable as a fixnum. Smuggling the
;;; format inside a u32vector bypasses that limitation.
#+libSDL-2.0.5+
(define-function-binding* SDL_CreateRGBSurfaceWithFormat
  return: (SDL_Surface* surface)
  args: ((Uint32 flags)
         (Sint32 width)
         (Sint32 height)
         (Sint32 depth)
         (nonnull-u32vector format))
  body: "C_return(
           SDL_CreateRGBSurfaceWithFormat(
             flags, width, height, depth, format[0]));")

;;; See SDL_CreateRGBSurfaceWithFormat for why this takes a u32vector.
#+libSDL-2.0.5+
(define-function-binding* SDL_CreateRGBSurfaceWithFormatFrom
  return: (SDL_Surface* surface)
  args: ((c-pointer pixels)
         (Sint32 width)
         (Sint32 height)
         (Sint32 depth)
         (Sint32 pitch)
         (nonnull-u32vector format))
  body: "C_return(
           SDL_CreateRGBSurfaceWithFormatFrom(
             pixels, width, height, depth, pitch, format[0]));")


(define-function-binding SDL_FreeSurface
  args: ((SDL_Surface*-or-null surface)))


(define-function-binding SDL_ConvertSurface
  return: (SDL_Surface* surface)
  args: ((SDL_Surface* src)
         (SDL_PixelFormat* fmt)
         (Uint32 flags)))

(define-function-binding SDL_ConvertSurfaceFormat
  return: (SDL_Surface* surface)
  args: ((SDL_Surface* src)
         (SDL_PixelFormatEnum pixel_format)
         (Uint32 flags)))

(define-function-binding SDL_ConvertPixels
  return: (Sint32 zero-if-success)
  args: ((Sint32 width)
         (Sint32 height)
         (SDL_PixelFormatEnum src-format)
         (c-pointer src)
         (Sint32 src-pitch)
         (SDL_PixelFormatEnum dst-format)
         (c-pointer dst-out)
         (Sint32 dst-pitch)))

#+libSDL-2.0.6+
(define-function-binding SDL_DuplicateSurface
  return: (SDL_Surface* new-surface)
  args: ((SDL_Surface* surface)))


(define-function-binding SDL_LoadBMP
  return: (SDL_Surface* surface)
  args: ((c-string filepath)))

(define-function-binding SDL_LoadBMP_RW
  return: (SDL_Surface* surface)
  args: ((SDL_RWops* src)
         (bool freesrc)))

(define-function-binding SDL_SaveBMP
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)
         (c-string filepath)))

(define-function-binding SDL_SaveBMP_RW
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)
         (SDL_RWops* dst)
         (bool freedst)))


(define-function-binding SDL_LockSurface
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)))

(define-function-binding SDL_UnlockSurface
  args: ((SDL_Surface* surface)))

(define-function-binding SDL_MUSTLOCK
  return: (bool must-lock?)
  args: ((SDL_Surface* surface)))


(define-function-binding SDL_BlitSurface
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* src)
         (SDL_Rect*-or-null srcrect)
         (SDL_Surface* dst)
         (SDL_Rect*-or-null dstrect-in-out)))

(define-function-binding SDL_BlitScaled
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* src)
         (SDL_Rect*-or-null srcrect)
         (SDL_Surface* dst)
         (SDL_Rect*-or-null dstrect-in-out)))

(define-function-binding SDL_LowerBlit
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* src)
         (SDL_Rect* srcrect)
         (SDL_Surface* dst)
         (SDL_Rect* dstrect-in-out)))

(define-function-binding SDL_LowerBlitScaled
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* src)
         (SDL_Rect* srcrect)
         (SDL_Surface* dst)
         (SDL_Rect* dstrect-in-out)))


(define-function-binding SDL_FillRect
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* dst)
         (SDL_Rect*-or-null rect)
         (Uint32 mapped-color)))

(define-function-binding SDL_FillRects
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* dst)
         (SDL_Rect* rects)
         (Sint32 count)
         (Uint32 mapped-color)))


(define-function-binding SDL_GetClipRect
  args: ((SDL_Surface* surface)
         (SDL_Rect* rect-out)))

(define-function-binding SDL_GetColorKey
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)
         (Uint32* key-out)))

#+libSDL-2.0.9+
(define-function-binding SDL_HasColorKey
  return: (bool has-key)
  args: ((SDL_Surface* surface)))

(define-function-binding SDL_GetSurfaceAlphaMod
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)
         (Uint8* alpha-out)))

(define-function-binding SDL_GetSurfaceBlendMode
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)
         ((c-pointer "SDL_BlendMode") blend-mode-out)))

(define-function-binding SDL_GetSurfaceColorMod
  return: (Sint32 zero-if-success)
  args: ((SDL_Surface* surface)
         (Uint8* r-out)
         (Uint8* g-out)
         (Uint8* b-out)))


(define-function-binding SDL_SetClipRect
  return: (bool intersects?)
  args: ((SDL_Surface* surface)
         (SDL_Rect*-or-null rect)))

(define-function-binding SDL_SetColorKey
  return: (Sint32 zero-on-success)
  args: ((SDL_Surface* surface)
         (bool enable-or-disable?)
         (Uint32 key)))

(define-function-binding SDL_SetSurfaceAlphaMod
  return: (Sint32 zero-on-success)
  args: ((SDL_Surface* surface)
         (Uint8 alpha)))

(define-function-binding SDL_SetSurfaceBlendMode
  return: (Sint32 zero-on-success)
  args: ((SDL_Surface* surface)
         (SDL_BlendMode blend-mode)))

(define-function-binding SDL_SetSurfaceColorMod
  return: (Sint32 zero-on-success)
  args: ((SDL_Surface* surface)
         (Uint8 r)
         (Uint8 g)
         (Uint8 b)))


(define-function-binding SDL_SetSurfacePalette
  return: (Sint32 zero-on-success)
  args: ((SDL_Surface* surface)
         (SDL_Palette* palette)))


#+libSDL-2.0.14+
(define-function-binding SDL_HasSurfaceRLE
  return: (bool rle)
  args: ((SDL_Surface* surface)))

(define-function-binding SDL_SetSurfaceRLE
  return: (Sint32 zero-on-success)
  args: ((SDL_Surface* surface)
         (bool enable-or-disable)))


#+libSDL-2.0.6+
(define-function-binding SDL_ComposeCustomBlendMode
  return: (SDL_BlendMode mode)
  args: ((SDL_BlendFactor     srcColorFactor)
         (SDL_BlendFactor     dstColorFactor)
         (SDL_BlendOperation  colorOperation)
         (SDL_BlendFactor     srcAlphaFactor)
         (SDL_BlendFactor     dstAlphaFactor)
         (SDL_BlendOperation  alphaOperation)))


#+libSDL-2.0.8+
(define-function-binding SDL_GetYUVConversionMode
  return: (SDL_YUV_CONVERSION_MODE mode))

#+libSDL-2.0.8+
(define-function-binding SDL_SetYUVConversionMode
  args: ((SDL_YUV_CONVERSION_MODE mode)))