src/lib/sdl2/sdl.inc

   1 //from "sdl.h"
   2
   3 const
   4
   5   SDL_INIT_TIMER          = $00000001;
   6   {$EXTERNALSYM SDL_INIT_TIMER}
   7   SDL_INIT_AUDIO          = $00000010;
   8   {$EXTERNALSYM SDL_INIT_AUDIO}
   9   SDL_INIT_VIDEO          = $00000020;
  10   {$EXTERNALSYM SDL_INIT_VIDEO}
  11   SDL_INIT_JOYSTICK       = $00000200;
  12   {$EXTERNALSYM SDL_INIT_JOYSTICK}
  13   SDL_INIT_HAPTIC         = $00001000;
  14   {$EXTERNALSYM SDL_INIT_HAPTIC}
  15   SDL_INIT_GAMECONTROLLER = $00002000;  //turn on game controller also implicitly does JOYSTICK
  16   {$EXTERNALSYM SDL_INIT_GAMECONTROLLER}
  17   SDL_INIT_NOPARACHUTE    = $00100000;  //Don't catch fatal signals
  18   {$EXTERNALSYM SDL_INIT_NOPARACHUTE}
  19   SDL_INIT_EVERYTHING     = SDL_INIT_TIMER    or
  20               SDL_INIT_AUDIO    or
  21               SDL_INIT_VIDEO    or
  22               SDL_INIT_JOYSTICK or
  23               SDL_INIT_HAPTIC   or
  24               SDL_INIT_GAMECONTROLLER;
  25   {$EXTERNALSYM SDL_INIT_EVERYTHING}
  26
  27 {**
  28  *  This function initializes  the subsystems specified by flags
  29  *  Unless the SDL_INIT_NOPARACHUTE flag is set, it will install cleanup
  30  *  signal handlers for some commonly ignored fatal signals (like SIGSEGV).
  31  *}
  32
  33 function SDL_Init(flags: UInt32): SInt32 cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Init' {$ENDIF} {$ENDIF};
  34
  35 {**
  36  *  This function initializes specific SDL subsystems
  37  *}
  38
  39 function SDL_InitSubSystem(flags: UInt32): SInt32 cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_InitSubSystem' {$ENDIF} {$ENDIF};
  40
  41 {**
  42  *  This function cleans up specific SDL subsystems
  43  *}
  44
  45 procedure SDL_QuitSubSystem(flags: UInt32) cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_QuitSubSystem' {$ENDIF} {$ENDIF};
  46
  47 {**
  48  *  This function returns a mask of the specified subsystems which have
  49  *  previously been initialized.
  50  *
  51  *  If flags is 0, it returns a mask of all initialized subsystems.
  52  *}
  53
  54 function SDL_WasInit(flags: UInt32): UInt32 cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_WasInit' {$ENDIF} {$ENDIF};
  55
  56 {**
  57  *  This function cleans up all initialized subsystems. You should
  58  *  call it upon all exit conditions.
  59  *}
  60
  61 procedure SDL_Quit() cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Quit' {$ENDIF} {$ENDIF};