Audio stream functions...

diff --git a/raylib.ads b/raylib.ads
index 0658490389a24bd9dfff9fcafe626f718a6ef8e8..140b52e3bb90e4279928ec2d332b1ad0b5f7dcfd 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -3967,76 +3967,111 @@ package Raylib is
                Import        => True,
                Convention    => C,
                External_Name => "GetMusicTimePlayed";
---~################################################################
-       --~function AudioStream LoadAudioStream (unsigned int sampleRate, unsigned int sampleSize, unsigned int channels) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
 
-       --~function bool IsAudioStreamReady (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Load_Audio_Stream (
+               Sample_Rate : Natural := 0;
+               Sample_Size : Natural := 0;
+               Channels    : Natural := 0
+       ) return Audio_Stream with
+               Import        => True,
+               Convention    => C,
+               External_Name => "LoadAudioStream";
 
-       --~procedure UnloadAudioStream (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Is_Audio_Stream_Ready (
+               Data : Audio_Stream := No_Audio_Stream
+       ) return Logical with
+               Import        => True,
+               Convention    => C,
+               External_Name => "IsAudioStreamReady";
 
-       --~procedure UpdateAudioStream (AudioStream stream, const void *data, int frameCount) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Unload_Audio_Stream (
+               Data : Audio_Stream := No_Audio_Stream
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "UnloadAudioStream";
 
-       --~function bool IsAudioStreamProcessed (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Update_Audio_Stream (
+               Data        : Audio_Stream := No_Audio_Stream;
+               Raw_Data    : Pointer      := null;
+               Frame_Count : Integer      := 0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "UpdateAudioStream";
 
-       --~procedure PlayAudioStream (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Is_Audio_Stream_Processed (
+               Data : Audio_Stream := No_Audio_Stream
+       ) return Logical with
+               Import        => True,
+               Convention    => C,
+               External_Name => "IsAudioStreamProcessed";
 
-       --~procedure PauseAudioStream (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Play_Audio_Stream (
+               Data : Audio_Stream := No_Audio_Stream
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "PlayAudioStream";
 
-       --~procedure ResumeAudioStream (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Pause_Audio_Stream (
+               Data : Audio_Stream := No_Audio_Stream
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "PauseAudioStream";
 
-       --~function bool IsAudioStreamPlaying (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Resume_Audio_Stream (
+               Data : Audio_Stream := No_Audio_Stream
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "ResumeAudioStream";
 
-       --~procedure StopAudioStream (AudioStream stream) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Is_Audio_Stream_Playing (
+               Data : Audio_Stream := No_Audio_Stream
+       ) return Logical with
+               Import        => True,
+               Convention    => C,
+               External_Name => "IsAudioStreamPlaying";
 
-       --~procedure SetAudioStreamVolume (AudioStream stream, float volume) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Stop_Audio_Stream (
+               Data : Audio_Stream := No_Audio_Stream
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "StopAudioStream";
 
-       --~procedure SetAudioStreamPitch (AudioStream stream, float pitch) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Set_Audio_Stream_Volume (
+               Data   : Audio_Stream := No_Audio_Stream;
+               Volume : Float        := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetAudioStreamVolume";
 
-       --~procedure SetAudioStreamPan (AudioStream stream, float pan) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Set_Audio_Stream_Pitch (
+               Data  : Audio_Stream := No_Audio_Stream;
+               Pitch : Float        := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetAudioStreamPitch";
 
-       --~procedure SetAudioStreamBufferSizeDefault (int size) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Set_Audio_Stream_Pan (
+               Data : Audio_Stream := No_Audio_Stream;
+               Pan  : Float        := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetAudioStreamPan";
+
+       procedure Set_Audio_Stream_Buffer_Size_Default (
+               Size : Integer := 0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetAudioStreamBufferSizeDefault";
 
        --~procedure SetAudioStreamCallback (AudioStream stream, AudioCallback callback) with
                --~Import        => True,