Added missing double-pointers declarations in all ".inc" and "pas" files.

Author: furious programming

README.md

@@ -71,7 +71,9 @@ Exception: Replace `*char` by `PAnsiChar`! (see issue [#26](https://github.com/P
 
 4. If an identifier or a function declaration is gone, mark them as `deprecated`. (see issue [#34](https://github.com/PascalGameDevelopment/SDL2-for-Pascal/issues/34))
 
-5. Have a look at our [Translation Cheat Sheet](CHEATSHEET.md) for reference.
+5. For convenience we encourage to add single and double pointers for any SDL type. (See #105)
+
+6. Have a look at our [Translation Cheat Sheet](CHEATSHEET.md) for reference.
 
 ## Versions
 

units/ctypes.inc

@@ -24,10 +24,12 @@
 type
   DWord = LongWord;
 
+  ppcbool = ^pcbool;
   pcbool = ^cbool;
   cbool = LongBool;
   {$EXTERNALSYM cbool}
 
+  ppcint8 = ^pcint8;
   pcint8 = ^cint8;
   cint8 = ShortInt;
   {$EXTERNALSYM cint8}
@@ -36,50 +38,60 @@ type
   cuint8 = Byte;
   {$EXTERNALSYM cuint8}
 
+  ppcint16 = ^pcint16;
   pcint16 = ^cint16;
   cint16 = SmallInt;
   {$EXTERNALSYM cint16}
 
+  ppcuint16 = ^pcuint16;
   pcuint16 = ^cuint16;
   cuint16 = Word;
   {$EXTERNALSYM cuint16}
 
+  ppcushort = ^pcushort;
   pcushort = ^cushort;
   cushort = Word;
   {$EXTERNALSYM cushort}
 
+  ppcint32 = ^pcint32;
   pcint32 = ^cint32;
   cint32 = LongInt;
   {$EXTERNALSYM cint32}
 
+  ppcuint32 = ^pcuint32;
   pcuint32 = ^cuint32;
   cuint32 = LongWord;
   {$EXTERNALSYM cuint32}
 
   {$IFNDEF Has_Int64}
+     ppcint64 = ^pcint64;
      pcint64 = ^cint64;
      cint64 = record
        hi: cuint32;
        lo: cuint32;
      end;
     {$EXTERNALSYM cint64}
 
+    ppcuint64 = ^pcuint64;
     pcuint64 = ^cuint64;
     cuint64 = record
       hi: cuint32;
       lo: cuint32;
     end;
     {$EXTERNALSYM cuint64}
   {$ELSE}
+    ppcint64 = ^pcint64;
     pcint64 = ^cint64;
     cint64 = Int64;
     {$EXTERNALSYM cint64}
 
+    ppcuint64 = ^pcuint64;
     pcuint64 = ^cuint64;
     cuint64 = UInt64;
     {$EXTERNALSYM cuint64}
   {$ENDIF}
 
+  ppcsize_t = ^pcsize_t;
   pcsize_t = ^csize_t;
   {$IFNDEF WIN64}
     csize_t = cuint32;
@@ -88,17 +100,26 @@ type
   {$ENDIF}
   {$EXTERNALSYM csize_t}
 
+  ppcfloat = ^pcfloat;
   pcfloat = ^cfloat;
   cfloat = Single;
   {$EXTERNALSYM cfloat}
 
+  ppcdouble = ^pcdouble;
   pcdouble = ^cdouble;
   cdouble = Double;
   {$EXTERNALSYM cfloat}
 
+  ppcint = ^pcint;
   pcint = ^cint;
+
+  ppcuint = ^pcuint;
   pcuint = ^cuint;
+
+  ppclong = ^pclong;
   pclong = ^clong;
+
+  ppculong = ^pculong;
   pculong = ^culong;
   {
     Integer type sizes based on:
@@ -127,6 +148,7 @@ type
 
 { Data types for all compilers }
 type
+  PPUInt8Array = ^PUInt8Array;
   PUInt8Array = ^TUInt8Array;
   TUInt8Array = array [0..MAXINT shr 1] of cuint8;
 

units/sdl.inc

@@ -1,6 +1,8 @@
 // based on "sdl.h"
 
 type
+  PPSDL_Init = ^PSDL_Init;
+  PSDL_Init = ^TSDL_Init;
   TSDL_Init = type cuint32;
 
 const

units/sdl2_image.pas

@@ -90,6 +90,8 @@ function IMG_Linked_Version: PSDL_Version cdecl; external IMG_LibName {$IFDEF DE
   IMG_INIT_WEBP = $00000008;
 
 type
+  PPIMG_InitFlags = ^PIMG_InitFlags;
+  PIMG_InitFlags = ^TIMG_InitFlags;
   TIMG_InitFlags = DWord;
 
   {* Loads dynamic libraries and prepares them for use.  Flags should be

units/sdl2_mixer.pas

@@ -95,6 +95,8 @@ function Mix_Linked_Version: PSDL_Version cdecl; external MIX_LibName {$IFDEF DE
   MIX_INIT_FLUIDSYNTH  = $00000020;
 }
 type
+  PPMIX_InitFlags = ^PMIX_InitFlags;
+  PMIX_InitFlags = ^TMIX_InitFlags;
   TMIX_InitFlags = cint;
 
   {* Loads dynamic libraries and prepares them for use.  Flags should be
@@ -131,6 +133,7 @@ procedure Mix_Quit() cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS}
 
   {* The internal format for an audio chunk *}
 type
+  PPMix_Chunk = ^PMix_Chunk;
   PMix_Chunk = ^TMix_Chunk;
   TMix_Chunk = record
     allocated: cint;
@@ -141,8 +144,12 @@   TMix_Chunk = record
 
   {* The different fading types supported *}
 type
+  PPMix_Fading = ^PMix_Fading;
+  PMix_Fading = ^TMix_Fading;
   TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN);
 
+  PPMix_MusicType = ^PMix_MusicType;
+  PMix_MusicType = ^TMix_MusicType;
   TMix_MusicType = (
     MUS_NONE,
     MUS_CMD,
@@ -158,6 +165,7 @@   TMix_Chunk = record
   );
 
   {* The internal format for a music chunk interpreted via mikmod *}
+  PPMix_Music = ^PMix_Music;
   PMix_Music = ^TMix_Music;
   TMix_Music = record end;
 
@@ -240,6 +248,8 @@ function Mix_GetMusicType(music: TMix_Music): TMix_MusicType cdecl; external MIX
      or add a custom mixer filter for the stream data.
   *}
 type
+  PPMix_Func = ^PMix_Func;
+  PMix_Func = ^TMix_Func;
   TMix_Func = procedure(udata: Pointer; stream: pcuint8; len: cint) cdecl;
 
 procedure Mix_SetPostMix(func: TMix_Func; arg: Pointer) cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_SetPostMix' {$ENDIF} {$ENDIF};
@@ -253,6 +263,7 @@ procedure Mix_HookMusic(func: TMix_Func; arg: Pointer) cdecl; external MIX_LibNa
    *  or when it is stopped from a call to Mix_HaltMusic.
    *}
 type
+  PPMix_Music_Finished = ^PMix_Music_Finished;
   PMix_Music_Finished = ^TMix_Music_Finished;
   TMix_Music_Finished = procedure() cdecl;
 
@@ -270,6 +281,8 @@ function Mix_GetMusicHookData: Pointer cdecl; external MIX_LibName {$IFDEF DELPH
    *  before calling your callback.
    *}
 type
+  PPMix_Channel_Finished = ^PMix_Channel_Finished;
+  PMix_Channel_Finished = ^TMix_Channel_Finished;
   TMix_Channel_Finished = procedure(channel: cint) cdecl;
 
 procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished) cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_ChannelFinished' {$ENDIF} {$ENDIF};
@@ -296,6 +309,8 @@ procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished) cdecl; ex
    * DO NOT EVER call SDL_LockAudio() from your callback function!
    *}
 type
+  PPMix_EffectFunc_t = ^PMix_EffectFunc_t;
+  PMix_EffectFunc_t = ^TMix_EffectFunc_t;
   TMix_EffectFunc_t = procedure(chan: cint; stream: Pointer; len: cint; udata: Pointer) cdecl;
 
   {*
@@ -308,6 +323,8 @@ procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished) cdecl; ex
    * DO NOT EVER call SDL_LockAudio() from your callback function!
    *}
 type
+  PPMix_EffectDone_t = ^PMix_EffectDone_t;
+  PMix_EffectDone_t = ^TMix_EffectDone_t;
   TMix_EffectDone_t = procedure(chan: cint; udata: Pointer) cdecl;
 
   {* Register a special effect function. At mixing time, the channel data is
@@ -652,6 +669,8 @@ function Mix_SetSoundFonts(paths: PAnsiChar): cint cdecl; external MIX_LibName {
 function Mix_GetSoundFonts: PAnsiChar cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_GetSoundFonts' {$ENDIF} {$ENDIF};
 
 type
+  PPMix_SoundFunc = ^PMix_SoundFunc;
+  PMix_SoundFunc = ^TMix_SoundFunc;
   TMix_SoundFunc = function(c: PAnsiChar; p: Pointer): cint cdecl;
 
 function Mix_EachSoundFont(func: TMix_SoundFunc; data: Pointer): cint cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_EachSoundFont' {$ENDIF} {$ENDIF};

units/sdl2_net.pas

@@ -59,7 +59,9 @@ interface
 
 
 type
-   TSDLNet_Version = TSDL_Version;
+  PPSDLNet_Version = ^PSDLNet_Version;
+  PSDLNet_Version = ^TSDLNet_Version;
+  TSDLNet_Version = TSDL_Version;
 
 const
    {* Printable format: "%d.%d.%d", MAJOR, MINOR, PATCHLEVEL *}
@@ -89,11 +91,12 @@ procedure SDLNet_Quit() cdecl; external SDLNet_LibName {$IFDEF DELPHI} {$IFDEF M
   {***********************************************************************}
   {* IPv4 hostname resolution API                                        *}
   {***********************************************************************}
+  PPIPaddress = ^PIPaddress;
+  PIPaddress = ^TIPaddress;
   TIPaddress = record
     host: cuint32;            {* 32-bit IPv4 host address *}
     port: cuint16;            {* 16-bit protocol port *}
   end;
-  PIPaddress = ^TIPaddress;
 
 {* Resolve a host name and port to an IP address in network form.
    If the function succeeds, it will return 0.
@@ -178,10 +181,13 @@ procedure SDLNet_TCP_Close(sock: TTCPSocket) cdecl; external SDLNet_LibName {$IF
   SDLNET_MAX_UDPADDRESSES = 4;
 
 type
+  PPUDPSocket = ^PUDPSocket;
+  PUDPSocket = ^TUDPSocket;
   TUDPSocket = record
   end;
-  PUDPSocket = ^TUDPSocket;
 
+  PPUDPPacket = ^PUDPPacket;
+  PUDPPacket = ^TUDPPacket;
   TUDPPacket = record
     channel: cint;     {* The src/dst channel of the packet *}
     data: pcuint8;         {* The packet data *}
@@ -190,8 +196,6 @@   TUDPPacket = record
     status: cint;      {* packet status after sending *}
     address: TIPaddress;  {* The source/dest address of an incoming/outgoing packet *}
   end;
-  PUDPPacket = ^TUDPPacket;
-  PPUDPPacket = ^PUDPPacket;
 
 {* Allocate/resize/free a single UDP packet 'size' bytes long.
    The new packet is returned, or NULL if the function ran out of memory.
@@ -297,15 +301,17 @@ procedure SDLNet_UDP_Close(sock: TUDPSocket) cdecl; external SDLNet_LibName {$IF
 {***********************************************************************}
 
 type
+  PPSDLNet_SocketSet = ^PSDLNet_SocketSet;
+  PSDLNet_SocketSet = ^TSDLNet_SocketSet;
   TSDLNet_SocketSet = record
   end;
-  PSDLNet_SocketSet = ^TSDLNet_SocketSet;
 
   {* Any network socket can be safely cast to this socket type *}
+  PPSDLNet_GenericSocket = ^PSDLNet_GenericSocket;
+  PSDLNet_GenericSocket = ^TSDLNet_GenericSocket;
   TSDLNet_GenericSocket = record
     ready: cint;
   end;
-  PSDLNet_GenericSocket = ^TSDLNet_GenericSocket;
 
 {* Allocate a socket set for use with SDLNet_CheckSockets()
    This returns a socket set for up to 'maxsockets' sockets, or NULL if

units/sdl2_ttf.pas

@@ -174,6 +174,7 @@ procedure TTF_ByteSwappedUNICODE(swapped: TSDL_bool); cdecl;
 
 {* The internal structure containing font information *}
 type
+  PPTTF_Font = ^PTTF_Font;
   PTTF_Font = ^TTTF_Font;
   TTTF_Font = record  end; //todo?
 
@@ -2277,6 +2278,7 @@ function TTF_GetError: PAnsiChar; cdecl;
  * \sa TTF_SetFontDirection
   }
 type
+  PPTTF_Direction = ^PTTF_Direction;
   PTTF_Direction = ^TTTF_Direction;
   TTTF_Direction =  type Integer;
 

units/sdlatomic.inc

@@ -10,6 +10,7 @@
  * The atomic locks are not safe to lock recursively.
  *}
 type
+	PPSDL_SpinLock = ^PSDL_SpinLock;
 	PSDL_SpinLock = ^TSDL_SpinLock;
 	TSDL_SpinLock = type cint;
 
@@ -40,11 +41,12 @@ procedure SDL_AtomicUnlock(lock: PSDL_SpinLock); cdecl;
 procedure SDL_CompilerBarrier();
 
 type
-	PSDL_Atomic = ^TSDL_Atomic;
 	{**
 	 * A type representing an atomic integer value.  It is a record
 	 * so people don't accidentally use numeric operations on it.
 	 *}
+	PPSDL_Atomic = ^PSDL_Atomic;
+	PSDL_Atomic = ^TSDL_Atomic;
 	TSDL_Atomic = record
 		Value: cint
 	end;

units/sdlaudio.inc

@@ -19,6 +19,8 @@
    *  There are macros in SDL 2.0 and later to query these bits.
    *}
 type
+  PPSDL_AudioFormat = ^PSDL_AudioFormat;
+  PSDL_AudioFormat = ^TSDL_AudioFormat;
   TSDL_AudioFormat = cuint16;
 
   {**
@@ -118,6 +120,8 @@ const
  *  you like. Just open your audio device with a NULL callback.
    *}
 type
+  PPSDL_AudioCallback = ^PSDL_AudioCallback;
+  PSDL_AudioCallback = ^TSDL_AudioCallback;
   TSDL_AudioCallback = procedure(userdata: Pointer; stream: pcuint8; len: cint); cdecl;
 
   {**
@@ -133,6 +137,7 @@ type
    *  8:  FL FR FC LFE BL BR SL SR    (7.1 surround)
    *}
 type
+  PPSDL_AudioSpec = ^PSDL_AudioSpec;
   PSDL_AudioSpec = ^TSDL_AudioSpec;
   TSDL_AudioSpec = record
     freq: cint;                    {**< DSP frequency -- samples per second *}
@@ -157,6 +162,7 @@ const
   SDL_AUDIOCVT_MAX_FILTERS = 9;
 
 type
+  PPSDL_AudioCVT = ^PSDL_AudioCVT;
   PSDL_AudioCVT = ^TSDL_AudioCVT;
   TSDL_AudioFilter = procedure(cvt: PSDL_AudioCVT; format: TSDL_AudioFormat); cdecl;
 
@@ -359,6 +365,8 @@ function SDL_OpenAudio(desired: PSDL_AudioSpec; obtained: PSDL_AudioSpec): cint;
    *  specific, or capture devices.
    *}
 type
+  PPSDL_AudioDeviceID = ^PSDL_AudioDeviceID;
+  PSDL_AudioDeviceID = ^TSDL_AudioDeviceID;
   TSDL_AudioDeviceID = cuint32;
 
 {**
@@ -620,6 +628,7 @@ function SDL_OpenAudioDevice(device: PAnsiChar;
    *}
 
 type
+  PPSDL_AudioStatus = ^PSDL_AudioStatus;
   PSDL_AudioStatus = ^TSDL_AudioStatus;
   TSDL_AudioStatus = type cint;