src/lib/sdl2/SDL2_image.pas

   1 {$MODE DELPHI}
   2 unit sdl2_image;
   3
   4 {*
   5   SDL_image:  An example image loading library for use with SDL
   6   Copyright (C) 1997-2013 Sam Lantinga <slouken@libsdl.org>
   7
   8   Pascal-Header-Translation 2013 by Tim Blume
   9
  10   Both, header translation and sdl_image, under following license:
  11
  12   This software is provided 'as-is', without any express or implied
  13   warranty.  In no event will the authors be held liable for any damages
  14   arising from the use of this software.
  15
  16   Permission is granted to anyone to use this software for any purpose,
  17   including commercial applications, and to alter it and redistribute it
  18   freely, subject to the following restrictions:
  19
  20   1. The origin of this software must not be misrepresented; you must not
  21      claim that you wrote the original software. If you use this software
  22      in a product, an acknowledgment in the product documentation would be
  23      appreciated but is not required.
  24   2. Altered source versions must be plainly marked as such, and must not be
  25      misrepresented as being the original software.
  26   3. This notice may not be removed or altered from any source distribution.
  27
  28   ChangeLog (Header-Translation):
  29   -------------------------------
  30
  31   v.1.72-stable; 29.09.2013: fixed bug with procedure without parameters
  32                              (they must have brackets)
  33   v.1.70-stable; 11.09.2013: MacOS compatibility (with Delphi)
  34   v.1.33-Alpha; 31.07.2013: Initial Commit
  35
  36 *}
  37
  38 {$DEFINE SDL_IMAGE}
  39
  40 {$I jedi.inc}
  41
  42 interface
  43
  44 uses
  45   SDL2;
  46
  47 const
  48   {$IFDEF WINDOWS}
  49     IMG_LibName = 'SDL2_image.dll';
  50   {$ENDIF}
  51
  52   {$IFDEF UNIX}
  53     {$IFDEF DARWIN}
  54       IMG_LibName = 'libSDL2_image.dylib';
  55     {$ELSE}
  56       {$IFDEF FPC}
  57         IMG_LibName = 'libSDL2_image.so';
  58       {$ELSE}
  59         IMG_LibName = 'libSDL2_image.so.0';
  60       {$ENDIF}
  61     {$ENDIF}
  62   {$ENDIF}
  63
  64   {$IFDEF MACOS}
  65     IMG_LibName = 'SDL2_image';
  66     {$IFDEF FPC}
  67       {$linklib libSDL2_image}
  68     {$ENDIF}
  69   {$ENDIF}
  70
  71   {* Printable format: "%d.%d.%d", MAJOR, MINOR, PATCHLEVEL *}
  72   SDL_IMAGE_MAJOR_VERSION = 2;
  73   SDL_IMAGE_MINOR_VERSION = 0;
  74   SDL_IMAGE_PATCHLEVEL    = 0;
  75
  76   {* This macro can be used to fill a version structure with the compile-time
  77    * version of the SDL_image library.
  78    *}
  79
  80 procedure SDL_IMAGE_VERSION(Out X: TSDL_Version);
  81
  82   {* This function gets the version of the dynamically linked SDL_image library.
  83    *
  84    * Note that this function does NOT allocate a new TSDL_Version and fill it with info,
  85    * but returns a pointer to a TSDL_Version residing inside dynlinked file.
  86    *
  87    * As such, attempting to Dispose() of this memory will result in access violation.
  88    *}
  89 function IMG_Linked_Version: PSDL_Version cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Linked_Version' {$ENDIF} {$ENDIF};
  90
  91 const
  92   IMG_INIT_JPG  = $00000001;
  93   IMG_INIT_PNG  = $00000002;
  94   IMG_INIT_TIF  = $00000004;
  95   IMG_INIT_WEBP = $00000008;
  96
  97 type
  98   TIMG_InitFlags = DWord;
  99
 100   {* Loads dynamic libraries and prepares them for use.  Flags should be
 101      one or more flags from IMG_InitFlags OR'd together.
 102      It returns the flags successfully initialized, or 0 on failure.
 103    *}
 104 function IMG_Init(flags: SInt32): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Init' {$ENDIF} {$ENDIF};
 105
 106   {* Unloads libraries loaded with IMG_Init *}
 107 procedure IMG_Quit() cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Quit' {$ENDIF} {$ENDIF};
 108
 109   {* Load an image from an SDL data source.
 110      The 'type' may be one of: "BMP", "GIF", "PNG", etc.
 111
 112      If the image format supports a transparent pixel, SDL will set the
 113      colorkey for the surface.  You can enable RLE acceleration on the
 114      surface afterwards by calling:
 115       SDL_SetColorKey(image, SDL_RLEACCEL, image->format->colorkey);
 116    *}
 117 function IMG_LoadTyped_RW(src: PSDL_RWops; freesrc: SInt32; _type: PAnsiChar): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadTyped_RW' {$ENDIF} {$ENDIF};
 118   {* Convenience functions *}
 119 function IMG_Load(_file: PAnsiChar): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Load' {$ENDIF} {$ENDIF};
 120 function IMG_Load_RW(src: PSDL_RWops; freesrc: SInt32): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Load_RW' {$ENDIF} {$ENDIF};
 121
 122   {* Load an image directly into a render texture. *}
 123 function IMG_LoadTexture(renderer: PSDL_Renderer; _file: PAnsiChar): PSDL_Texture cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadTexture' {$ENDIF} {$ENDIF};
 124 function IMG_LoadTexture_RW(renderer: PSDL_Renderer; src: PSDL_RWops; freesrc: SInt32): PSDL_Texture cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadTexture_RW' {$ENDIF} {$ENDIF};
 125 function IMG_LoadTextureTyped_RW(renderer: PSDL_Renderer; src: PSDL_RWops; freesrc: SInt32; _type: PAnsiChar): PSDL_Texture cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadTextureTyped_RW' {$ENDIF} {$ENDIF};
 126
 127   {* Functions to detect a file type, given a seekable source *}
 128 function IMG_isICO(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isICO' {$ENDIF} {$ENDIF};
 129 function IMG_isCUR(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isCUR' {$ENDIF} {$ENDIF};
 130 function IMG_isBMP(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isBMP' {$ENDIF} {$ENDIF};
 131 function IMG_isGIF(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isGIF' {$ENDIF} {$ENDIF};
 132 function IMG_isJPG(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isJPG' {$ENDIF} {$ENDIF};
 133 function IMG_isLBM(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isLBM' {$ENDIF} {$ENDIF};
 134 function IMG_isPCX(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isPCX' {$ENDIF} {$ENDIF};
 135 function IMG_isPNG(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isPNG' {$ENDIF} {$ENDIF};
 136 function IMG_isPNM(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isPNM' {$ENDIF} {$ENDIF};
 137 function IMG_isTIF(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isTIF' {$ENDIF} {$ENDIF};
 138 function IMG_isXCF(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '-IMG_isXCF' {$ENDIF} {$ENDIF};
 139 function IMG_isXPM(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isXPM' {$ENDIF} {$ENDIF};
 140 function IMG_isXV(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isXV' {$ENDIF} {$ENDIF};
 141 function IMG_isWEBP(src: PSDL_RWops): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_isWEBP' {$ENDIF} {$ENDIF};
 142
 143   {* Individual loading functions *}
 144 function IMG_LoadICO_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadICO_RW' {$ENDIF} {$ENDIF};
 145 function IMG_LoadCUR_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadCUR_RW' {$ENDIF} {$ENDIF};
 146 function IMG_LoadBMP_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadBMP_RW' {$ENDIF} {$ENDIF};
 147 function IMG_LoadGIF_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadGIF_RW' {$ENDIF} {$ENDIF};
 148 function IMG_LoadJPG_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadJPG_RW' {$ENDIF} {$ENDIF};
 149 function IMG_LoadLBM_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadLBM_RW' {$ENDIF} {$ENDIF};
 150 function IMG_LoadPCX_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadPCX_RW' {$ENDIF} {$ENDIF};
 151 function IMG_LoadPNG_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadPNG_RW' {$ENDIF} {$ENDIF};
 152 function IMG_LoadPNM_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadPNM_RW' {$ENDIF} {$ENDIF};
 153 function IMG_LoadTGA_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadTGA_RW' {$ENDIF} {$ENDIF};
 154 function IMG_LoadTIF_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadTIF_RW' {$ENDIF} {$ENDIF};
 155 function IMG_LoadXCF_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadXCF_RW' {$ENDIF} {$ENDIF};
 156 function IMG_LoadXPM_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadXMP_RW' {$ENDIF} {$ENDIF};
 157 function IMG_LoadXV_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadXV_RW' {$ENDIF} {$ENDIF};
 158 function IMG_LoadWEBP_RW(src: PSDL_RWops): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_LoadWEBP_RW' {$ENDIF} {$ENDIF};
 159
 160 function IMG_ReadXPMFromArray(xpm: PPChar): PSDL_Surface cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_ReadXPMFromArray' {$ENDIF} {$ENDIF};
 161
 162   {* Individual saving functions *}
 163 function IMG_SavePNG(surface: PSDL_Surface; const _file: PAnsiChar): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_SavePNG' {$ENDIF} {$ENDIF};
 164 function IMG_SavePNG_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: SInt32): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_SavePNG_RW' {$ENDIF} {$ENDIF};
 165
 166 {* We'll use SDL for reporting errors *}
 167 function IMG_SetError(fmt: PAnsiChar): SInt32; cdecl;
 168 function IMG_GetError: PAnsiChar; cdecl;
 169
 170 implementation
 171
 172 procedure SDL_IMAGE_VERSION(Out X: TSDL_Version);
 173 begin
 174   X.major := SDL_IMAGE_MAJOR_VERSION;
 175   X.minor := SDL_IMAGE_MINOR_VERSION;
 176   X.patch := SDL_IMAGE_PATCHLEVEL;
 177 end;
 178
 179 function IMG_SetError(fmt: PAnsiChar): SInt32; cdecl;
 180 begin
 181   Result := SDL_SetError(fmt);
 182 end;
 183
 184 function IMG_GetError: PAnsiChar; cdecl;
 185 begin
 186   Result := SDL_GetError();
 187 end;
 188
 189 end.