(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program 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 General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

 *)

{$INCLUDE "options.inc"}

unit SDLh;

interface

{$IFDEF LINUX}

    {$DEFINE UNIX}

{$ENDIF}

{$IFDEF FREEBSD}

    {$DEFINE UNIX}

{$ENDIF}

{$IFDEF DARWIN}

    {$DEFINE UNIX}

{$ENDIF}

{$IFDEF HAIKU}

    {$DEFINE UNIX}

{$ENDIF}

{$IFDEF UNIX}

    {$IFDEF HAIKU}

        {$linklib root}

    {$ELSE}

        {$IFNDEF ANDROID}

            {$linklib pthread}

        {$ENDIF}

    {$ENDIF}

{$ENDIF}

{$IFDEF FPC}

    {$PACKRECORDS C}

{$ELSE}

    {$DEFINE cdecl attribute(cdecl)}

    type PByte = ^Byte;

    type PInteger = ^Integer;

    type PLongInt = ^LongInt;

{$ENDIF}

(*  SDL  *)

const

{$IFDEF WIN32}

    SDLLibName = 'SDL2.dll';

    SDL_TTFLibName = 'SDL2_ttf.dll';

    SDL_MixerLibName = 'SDL2_mixer.dll';

    SDL_ImageLibName = 'SDL2_image.dll';

    SDL_NetLibName = 'SDL2_net.dll';

{$ELSE}

    SDLLibName = 'libSDL2';

    SDL_TTFLibName = 'libSDL2_ttf';

    SDL_MixerLibName = 'libSDL2_mixer';

    SDL_ImageLibName = 'libSDL2_image';

    SDL_NetLibName = 'libSDL2_net';

{$ENDIF}

/////////////////////////////////////////////////////////////////

/////////////////////  CONSTANT DEFINITIONS /////////////////////

/////////////////////////////////////////////////////////////////

    // SDL_Init() flags

    SDL_INIT_TIMER          = $00000001;

    SDL_INIT_AUDIO          = $00000010;

    SDL_INIT_VIDEO          = $00000020; // implies SDL_INIT_EVENTS (sdl2)

    SDL_INIT_JOYSTICK       = $00000200; // implies SDL_INIT_EVENTS (sdl2)

    SDL_INIT_HAPTIC         = $00001000;

    SDL_INIT_GAMECONTROLLER = $00002000; // implies SDL_INIT_JOYSTICK

    SDL_INIT_EVENTS         = $00004000;

    SDL_INIT_NOPARACHUTE    = $00100000;

    //SDL_INIT_EVERYTHING                // unsafe, init subsystems one at a time

    SDL_ALLEVENTS        = $FFFFFFFF;    // dummy event type to prevent stack corruption

    SDL_APPINPUTFOCUS    = $02;

    // (some) audio formats from SDL_audio.h

    AUDIO_S16LSB         = $8010; // Signed 16-bit samples, in little-endian byte order

    AUDIO_S16MSB         = $9010; // Signed 16-bit samples, in big-endian byte order

    AUDIO_S16SYS         = {$IFDEF ENDIAN_LITTLE}AUDIO_S16LSB{$ELSE}AUDIO_S16MSB{$ENDIF};

    // default audio format from SDL_mixer.h

    MIX_DEFAULT_FORMAT   = AUDIO_S16SYS;

    SDL_BUTTON_LEFT      = 1;

    SDL_BUTTON_MIDDLE    = 2;

    SDL_BUTTON_RIGHT     = 3;

    SDL_BUTTON_X1        = 4;

    SDL_BUTTON_X2        = 5;

    SDL_TEXTEDITINGEVENT_TEXT_SIZE = 32;

    SDL_TEXTINPUTEVENT_TEXT_SIZE   = 32;

    // SDL_Event types

    // pascal does not support unions as is, so we list here every possible event

    // and later associate a struct type each

    SDL_FIRSTEVENT        = 0;              // type

    SDL_COMMONDEVENT      = 1;              // type and timestamp

    SDL_QUITEV            = $100;

    SDL_APP_TERMINATING   = $101;

    SDL_APP_LOWMEMORY     = $102;

    SDL_APP_WILLENTERBACKGROUND = $103;

    SDL_APP_DIDENTERBACKGROUND = $104;

    SDL_APP_WILLENTERFOREGROUND = $105;

    SDL_APP_DIDENTERFOREGROUND = $106;

    SDL_WINDOWEVENT       = $200;

    SDL_SYSWMEVENT        = $201;

    SDL_KEYDOWN           = $300;

    SDL_KEYUP             = $301;

    SDL_TEXTEDITING       = $302;

    SDL_TEXTINPUT         = $303;

    SDL_MOUSEMOTION       = $400;

    SDL_MOUSEBUTTONDOWN   = $401;

    SDL_MOUSEBUTTONUP     = $402;

    SDL_MOUSEWHEEL        = $403;

    SDL_JOYAXISMOTION     = $600;

    SDL_JOYBALLMOTION     = $601;

    SDL_JOYHATMOTION      = $602;

    SDL_JOYBUTTONDOWN     = $603;

    SDL_JOYBUTTONUP       = $604;

    SDL_JOYDEVICEADDED    = $605;

    SDL_JOYDEVICEREMOVED  = $606;

    SDL_CONTROLLERAXISMOTION = $650;

    SDL_CONTROLLERBUTTONDOWN = $651;

    SDL_CONTROLLERBUTTONUP = $652;

    SDL_CONTROLLERDEVICEADDED = $653;

    SDL_CONTROLLERDEVICEREMOVED = $654;

    SDL_CONTROLLERDEVICEREMAPPED = $655;

    SDL_FINGERDOWN        = $700;

    SDL_FINGERUP          = $701;

    SDL_FINGERMOTION      = $702;

    SDL_DOLLARGESTURE     = $800;

    SDL_DOLLARRECORD      = $801;

    SDL_MULTIGESTURE      = $802;

    SDL_CLIPBOARDUPDATE   = $900;

    SDL_DROPFILE          = $1000;

    SDL_USEREVENT         = $8000;

    SDL_LASTEVENT         = $FFFF;

    // SDL_Surface flags

    SDL_SWSURFACE   = $00000000;  //*< Not used */

    SDL_PREALLOC    = $00000001;  //*< Surface uses preallocated memory */

    SDL_RLEACCEL    = $00000002;  //*< Surface is RLE encoded */

    SDL_DONTFREE    = $00000004;  //*< Surface is referenced internally */

    SDL_SRCCOLORKEY = $00020000;  // compatibility only

    // SDL_RendererFlags

    SDL_RENDERER_SOFTWARE     = $00000001;     //*< The renderer is a software fallback */

    SDL_RENDERER_ACCELERATED  = $00000002;     //*< The renderer uses hardware acceleration */

    SDL_RENDERER_PRESENTVSYNC = $00000004;     //*< Present is synchronized with the refresh rate */

    SDL_RENDERER_TARGETTEXTURE = $00000008;    //*< The renderer supports rendering to texture */

    // SDL_WindowFlags

    SDL_WINDOW_FULLSCREEN    = $00000001;      //*< fullscreen window, implies borderless */

    SDL_WINDOW_OPENGL        = $00000002;      //*< window usable with OpenGL context */

    SDL_WINDOW_SHOWN         = $00000004;      //*< window is visible */

    SDL_WINDOW_HIDDEN        = $00000008;      //*< window is not visible */

    SDL_WINDOW_BORDERLESS    = $00000010;      //*< no window decoration */

    SDL_WINDOW_RESIZABLE     = $00000020;      //*< window can be resized */

    SDL_WINDOW_MINIMIZED     = $00000040;      //*< window is minimized */

    SDL_WINDOW_MAXIMIZED     = $00000080;      //*< window is maximized */

    SDL_WINDOW_INPUT_GRABBED = $00000100;      //*< window has grabbed input focus */

    SDL_WINDOW_INPUT_FOCUS   = $00000200;      //*< window has input focus */

    SDL_WINDOW_MOUSE_FOCUS   = $00000400;      //*< window has mouse focus */

    SDL_WINDOW_FULLSCREEN_DESKTOP = $00001001; //*< fullscreen as maximed window */

    SDL_WINDOW_FOREIGN       = $00000800;      //*< window not created by SDL */

    SDL_WINDOWPOS_CENTERED_MASK = $2FFF0000;

    // SDL_WindowEventID

    SDL_WINDOWEVENT_NONE         = 0;    //*< Never used

    SDL_WINDOWEVENT_SHOWN        = 1;    //*< Window has been shown

    SDL_WINDOWEVENT_HIDDEN       = 2;    //*< Window has been hidden

    SDL_WINDOWEVENT_EXPOSED      = 3;    //*< Window has been exposed and should be redrawn

    SDL_WINDOWEVENT_MOVED        = 4;    //*< Window has been moved to data1, data2

    SDL_WINDOWEVENT_RESIZED      = 5;    //*< Window size changed to data1xdata2

    SDL_WINDOWEVENT_SIZE_CHANGED = 6;    //*< The window size has changed, [...] */

    SDL_WINDOWEVENT_MINIMIZED    = 7;    //*< Window has been minimized

    SDL_WINDOWEVENT_MAXIMIZED    = 8;    //*< Window has been maximized

    SDL_WINDOWEVENT_RESTORED     = 9;    //*< Window has been restored to normal size and position

    SDL_WINDOWEVENT_ENTER        = 10;   //*< Window has gained mouse focus

    SDL_WINDOWEVENT_LEAVE        = 11;   //*< Window has lost mouse focus

    SDL_WINDOWEVENT_FOCUS_GAINED = 12;   //*< Window has gained keyboard focus

    SDL_WINDOWEVENT_FOCUS_LOST   = 13;   //*< Window has lost keyboard focus

    SDL_WINDOWEVENT_CLOSE        = 14;   //*< The window manager requests that the window be closed */

{$IFDEF ENDIAN_LITTLE}

    RMask = $000000FF;

    GMask = $0000FF00;

    BMask = $00FF0000;

    AMask = $FF000000;

    RShift = 0;

    GShift = 8;

    BShift = 16;

    AShift = 24;

{$ELSE}

    RMask = $FF000000;

    GMask = $00FF0000;

    BMask = $0000FF00;

    AMask = $000000FF;

    RShift = 24;

    GShift = 16;

    BShift = 8;

    AShift = 0;

{$ENDIF}

    KMOD_NONE   = $0000;

    KMOD_LSHIFT = $0001;

    KMOD_RSHIFT = $0002;

    KMOD_LCTRL  = $0040;

    KMOD_RCTRL  = $0080;

    KMOD_LALT   = $0400;

    KMOD_RALT   = $0800;

    KMOD_LMETA  = $0400;

    KMOD_RMETA  = $0800;

    KMOD_NUM    = $1000;

    KMOD_CAPS   = $2000;

    KMOD_MODE   = $4000;

    {* SDL_mixer *}

    MIX_MAX_VOLUME      = 128;

    MIX_INIT_FLAC       = $00000001;

    MIX_INIT_MOD        = $00000002;

    MIX_INIT_MODPLUG    = $00000004;

    MIX_INIT_MP3        = $00000008;

    MIX_INIT_OGG        = $00000010;

    MIX_INIT_FLUIDSYNTH = $00000020;

    {* SDL_TTF *}

    TTF_STYLE_NORMAL = 0;

    TTF_STYLE_BOLD   = 1;

    TTF_STYLE_ITALIC = 2;

    {* SDL Joystick *}

    SDL_HAT_CENTERED  = $00;

    SDL_HAT_UP        = $01;

    SDL_HAT_RIGHT     = $02;

    SDL_HAT_DOWN      = $04;

    SDL_HAT_LEFT      = $08;

    SDL_HAT_RIGHTUP   = SDL_HAT_RIGHT or SDL_HAT_UP;

    SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN;

    SDL_HAT_LEFTUP    = SDL_HAT_LEFT  or SDL_HAT_UP;

    SDL_HAT_LEFTDOWN  = SDL_HAT_LEFT  or SDL_HAT_DOWN;

    {* SDL_image *}

    IMG_INIT_JPG = $00000001;

    IMG_INIT_PNG = $00000002;

    IMG_INIT_TIF = $00000004;

    {* SDL_keycode *}

    SDLK_UNKNOWN = 0;

    SDLK_BACKSPACE = 8;

    SDLK_RETURN    = 13;

    SDLK_ESCAPE    = 27;

    SDLK_a         = 97;

    SDLK_c         = 99;

    SDLK_q         = 113;

    SDLK_v         = 118;

    SDLK_w         = 119;

    SDLK_x         = 120;

    SDLK_DELETE    = 127;

    SDLK_KP_ENTER  = 271;

    SDLK_UP        = 273;

    SDLK_DOWN      = 274;

    SDLK_RIGHT     = 275;

    SDLK_LEFT      = 276;

    SDLK_HOME      = 278;

    SDLK_END       = 279;

    SDLK_PAGEUP    = 280;

    SDLK_PAGEDOWN  = 281;

    // special keycodes (for modifier keys etc. will have this bit set)

    SDLK_SCANCODE_MASK = (1 shl 30);

    SDL_SCANCODE_UNKNOWN = 0;

    SDL_SCANCODE_A = 4;

    SDL_SCANCODE_B = 5;

    SDL_SCANCODE_C = 6;

    SDL_SCANCODE_D = 7;

    SDL_SCANCODE_E = 8;

    SDL_SCANCODE_F = 9;

    SDL_SCANCODE_G = 10;

    SDL_SCANCODE_H = 11;

    SDL_SCANCODE_I = 12;

    SDL_SCANCODE_J = 13;

    SDL_SCANCODE_K = 14;

    SDL_SCANCODE_L = 15;

    SDL_SCANCODE_M = 16;

    SDL_SCANCODE_N = 17;

    SDL_SCANCODE_O = 18;

    SDL_SCANCODE_P = 19;

    SDL_SCANCODE_Q = 20;

    SDL_SCANCODE_R = 21;

    SDL_SCANCODE_S = 22;

    SDL_SCANCODE_T = 23;

    SDL_SCANCODE_U = 24;

    SDL_SCANCODE_V = 25;

    SDL_SCANCODE_W = 26;

    SDL_SCANCODE_X = 27;

    SDL_SCANCODE_Y = 28;

    SDL_SCANCODE_Z = 29;

    SDL_SCANCODE_1 = 30;

    SDL_SCANCODE_2 = 31;

    SDL_SCANCODE_3 = 32;

    SDL_SCANCODE_4 = 33;

    SDL_SCANCODE_5 = 34;

    SDL_SCANCODE_6 = 35;

    SDL_SCANCODE_7 = 36;

    SDL_SCANCODE_8 = 37;

    SDL_SCANCODE_9 = 38;

    SDL_SCANCODE_0 = 39;

    SDL_SCANCODE_RETURN = 40;

    SDL_SCANCODE_ESCAPE = 41;

    SDL_SCANCODE_BACKSPACE = 42;

    SDL_SCANCODE_TAB = 43;

    SDL_SCANCODE_SPACE = 44;

    SDL_SCANCODE_MINUS = 45;

    SDL_SCANCODE_EQUALS = 46;

    SDL_SCANCODE_LEFTBRACKET = 47;

    SDL_SCANCODE_RIGHTBRACKET = 48;

    SDL_SCANCODE_BACKSLASH = 49;

    SDL_SCANCODE_NONUSHASH = 50;

    SDL_SCANCODE_SEMICOLON = 51;

    SDL_SCANCODE_APOSTROPHE = 52;

    SDL_SCANCODE_GRAVE = 53;

    SDL_SCANCODE_COMMA = 54;

    SDL_SCANCODE_PERIOD = 55;

    SDL_SCANCODE_SLASH = 56;

    SDL_SCANCODE_CAPSLOCK = 57;

    SDL_SCANCODE_F1 = 58;

    SDL_SCANCODE_F2 = 59;

    SDL_SCANCODE_F3 = 60;

    SDL_SCANCODE_F4 = 61;

    SDL_SCANCODE_F5 = 62;

    SDL_SCANCODE_F6 = 63;

    SDL_SCANCODE_F7 = 64;

    SDL_SCANCODE_F8 = 65;

    SDL_SCANCODE_F9 = 66;

    SDL_SCANCODE_F10 = 67;

    SDL_SCANCODE_F11 = 68;

    SDL_SCANCODE_F12 = 69;

    SDL_SCANCODE_PRINTSCREEN = 70;

    SDL_SCANCODE_SCROLLLOCK = 71;

    SDL_SCANCODE_PAUSE = 72;

    SDL_SCANCODE_INSERT = 73;

    SDL_SCANCODE_HOME = 74;

    SDL_SCANCODE_PAGEUP = 75;

    SDL_SCANCODE_DELETE = 76;

    SDL_SCANCODE_END = 77;

    SDL_SCANCODE_PAGEDOWN = 78;

    SDL_SCANCODE_RIGHT = 79;

    SDL_SCANCODE_LEFT = 80;

    SDL_SCANCODE_DOWN = 81;

    SDL_SCANCODE_UP = 82;

    SDL_SCANCODE_NUMLOCKCLEAR = 83;

    SDL_SCANCODE_KP_DIVIDE = 84;

    SDL_SCANCODE_KP_MULTIPLY = 85;

    SDL_SCANCODE_KP_MINUS = 86;

    SDL_SCANCODE_KP_PLUS = 87;

    SDL_SCANCODE_KP_ENTER = 88;

    SDL_SCANCODE_KP_1 = 89;

    SDL_SCANCODE_KP_2 = 90;

    SDL_SCANCODE_KP_3 = 91;

    SDL_SCANCODE_KP_4 = 92;

    SDL_SCANCODE_KP_5 = 93;

    SDL_SCANCODE_KP_6 = 94;

    SDL_SCANCODE_KP_7 = 95;

    SDL_SCANCODE_KP_8 = 96;

    SDL_SCANCODE_KP_9 = 97;

    SDL_SCANCODE_KP_0 = 98;

    SDL_SCANCODE_KP_PERIOD = 99;

    SDL_SCANCODE_NONUSBACKSLASH = 100;

    SDL_SCANCODE_APPLICATION = 101;

    SDL_SCANCODE_POWER = 102;

    SDL_SCANCODE_KP_EQUALS = 103;

    SDL_SCANCODE_F13 = 104;

    SDL_SCANCODE_F14 = 105;

    SDL_SCANCODE_F15 = 106;

    SDL_SCANCODE_F16 = 107;

    SDL_SCANCODE_F17 = 108;

    SDL_SCANCODE_F18 = 109;

    SDL_SCANCODE_F19 = 110;

    SDL_SCANCODE_F20 = 111;

    SDL_SCANCODE_F21 = 112;

    SDL_SCANCODE_F22 = 113;

    SDL_SCANCODE_F23 = 114;

    SDL_SCANCODE_F24 = 115;

    SDL_SCANCODE_EXECUTE = 116;

    SDL_SCANCODE_HELP = 117;

    SDL_SCANCODE_MENU = 118;

    SDL_SCANCODE_SELECT = 119;

    SDL_SCANCODE_STOP = 120;

    SDL_SCANCODE_AGAIN = 121;

    SDL_SCANCODE_UNDO = 122;

    SDL_SCANCODE_CUT = 123;

    SDL_SCANCODE_COPY = 124;

    SDL_SCANCODE_PASTE = 125;

    SDL_SCANCODE_FIND = 126;

    SDL_SCANCODE_MUTE = 127;

    SDL_SCANCODE_VOLUMEUP = 128;

    SDL_SCANCODE_VOLUMEDOWN = 129;

    SDL_SCANCODE_KP_COMMA = 133;

    SDL_SCANCODE_KP_EQUALSAS400 = 134;

    SDL_SCANCODE_INTERNATIONAL1 = 135;

    SDL_SCANCODE_INTERNATIONAL2 = 136;

    SDL_SCANCODE_INTERNATIONAL3 = 137;

    SDL_SCANCODE_INTERNATIONAL4 = 138;

    SDL_SCANCODE_INTERNATIONAL5 = 139;

    SDL_SCANCODE_INTERNATIONAL6 = 140;

    SDL_SCANCODE_INTERNATIONAL7 = 141;

    SDL_SCANCODE_INTERNATIONAL8 = 142;

    SDL_SCANCODE_INTERNATIONAL9 = 143;

    SDL_SCANCODE_LANG1 = 144; (*< Hangul/English toggle *)

    SDL_SCANCODE_LANG2 = 145; (*< Hanja conversion *)

    SDL_SCANCODE_LANG3 = 146; (*< Katakana *)

    SDL_SCANCODE_LANG4 = 147; (*< Hiragana *)

    SDL_SCANCODE_LANG5 = 148; (*< Zenkaku/Hankaku *)

    SDL_SCANCODE_LANG6 = 149; (*< reserved *)

    SDL_SCANCODE_LANG7 = 150; (*< reserved *)

    SDL_SCANCODE_LANG8 = 151; (*< reserved *)

    SDL_SCANCODE_LANG9 = 152; (*< reserved *)

    SDL_SCANCODE_ALTERASE = 153;

    SDL_SCANCODE_SYSREQ = 154;

    SDL_SCANCODE_CANCEL = 155;

    SDL_SCANCODE_CLEAR = 156;

    SDL_SCANCODE_PRIOR = 157;

    SDL_SCANCODE_RETURN2 = 158;

    SDL_SCANCODE_SEPARATOR = 159;

    SDL_SCANCODE_OUT = 160;

    SDL_SCANCODE_OPER = 161;

    SDL_SCANCODE_CLEARAGAIN = 162;

    SDL_SCANCODE_CRSEL = 163;

    SDL_SCANCODE_EXSEL = 164;

    SDL_SCANCODE_KP_00 = 176;

    SDL_SCANCODE_KP_000 = 177;

    SDL_SCANCODE_THOUSANDSSEPARATOR = 178;

    SDL_SCANCODE_DECIMALSEPARATOR = 179;

    SDL_SCANCODE_CURRENCYUNIT = 180;

    SDL_SCANCODE_CURRENCYSUBUNIT = 181;

    SDL_SCANCODE_KP_LEFTPAREN = 182;

    SDL_SCANCODE_KP_RIGHTPAREN = 183;

    SDL_SCANCODE_KP_LEFTBRACE = 184;

    SDL_SCANCODE_KP_RIGHTBRACE = 185;

    SDL_SCANCODE_KP_TAB = 186;

    SDL_SCANCODE_KP_BACKSPACE = 187;

    SDL_SCANCODE_KP_A = 188;

    SDL_SCANCODE_KP_B = 189;

    SDL_SCANCODE_KP_C = 190;

    SDL_SCANCODE_KP_D = 191;

    SDL_SCANCODE_KP_E = 192;

    SDL_SCANCODE_KP_F = 193;

    SDL_SCANCODE_KP_XOR = 194;

    SDL_SCANCODE_KP_POWER = 195;

    SDL_SCANCODE_KP_PERCENT = 196;

    SDL_SCANCODE_KP_LESS = 197;

    SDL_SCANCODE_KP_GREATER = 198;

    SDL_SCANCODE_KP_AMPERSAND = 199;

    SDL_SCANCODE_KP_DBLAMPERSAND = 200;

    SDL_SCANCODE_KP_VERTICALBAR = 201;

    SDL_SCANCODE_KP_DBLVERTICALBAR = 202;

    SDL_SCANCODE_KP_COLON = 203;

    SDL_SCANCODE_KP_HASH = 204;

    SDL_SCANCODE_KP_SPACE = 205;

    SDL_SCANCODE_KP_AT = 206;

    SDL_SCANCODE_KP_EXCLAM = 207;

    SDL_SCANCODE_KP_MEMSTORE = 208;

    SDL_SCANCODE_KP_MEMRECALL = 209;

    SDL_SCANCODE_KP_MEMCLEAR = 210;

    SDL_SCANCODE_KP_MEMADD = 211;

    SDL_SCANCODE_KP_MEMSUBTRACT = 212;

    SDL_SCANCODE_KP_MEMMULTIPLY = 213;

    SDL_SCANCODE_KP_MEMDIVIDE = 214;