Music functions...

diff --git a/raylib.ads b/raylib.ads
index 8379a539297d1062627bbd97f5aeceb689ace715..0658490389a24bd9dfff9fcafe626f718a6ef8e8 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -784,6 +784,8 @@ package Raylib is
                Context_Data : Pointer      := null;
        end record with Convention => C_Pass_By_Copy;
 
+       No_Music : Music;
+
        type VR_Device_Info is record
                Horizontal_Resoultion        : Integer       := 0;
                Vertical_Resoultion          : Integer       := 0;
@@ -3848,86 +3850,124 @@ package Raylib is
                Convention    => C,
                External_Name => "UnloadWaveSamples";
 
-       --~function Music LoadMusicStream (const char *fileName) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
-
-       --~function Music LoadMusicStreamFromMemory (const char *fileType, const unsigned char *data, int dataSize) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Load_Music_Stream (
+               File_Name : String := ""
+       ) return Music with
+               Import        => True,
+               Convention    => C,
+               External_Name => "LoadMusicStream";
 
-       --~function bool IsMusicReady (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Load_Music_Stream_From_Memory (
+               File_Type : String  := "";
+               Data      : Pointer := null;
+               Data_Size : Integer := 0
+       ) return Music with
+               Import        => True,
+               Convention    => C,
+               External_Name => "LoadMusicStreamFromMemory";
 
-       --~procedure UnloadMusicStream (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Is_Music_Ready (
+               Data : Music := No_Music
+       ) return Logical with
+               Import        => True,
+               Convention    => C,
+               External_Name => "IsMusicReady";
 
-       --~procedure PlayMusicStream (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Unload_Music_Stream (
+               Data : Music := No_Music
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "UnloadMusicStream";
 
-       --~function bool IsMusicStreamPlaying (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Play_Music_Stream (
+               Data : Music := No_Music
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "PlayMusicStream";
 
-       --~procedure UpdateMusicStream (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Is_Music_Stream_Playing (
+               Data : Music := No_Music
+       ) return Logical with
+               Import        => True,
+               Convention    => C,
+               External_Name => "IsMusicStreamPlaying";
 
-       --~procedure StopMusicStream (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Update_Music_Stream (
+               Data : Music := No_Music
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "UpdateMusicStream";
 
-       --~procedure PauseMusicStream (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Stop_Music_Stream (
+               Data : Music := No_Music
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "StopMusicStream";
 
-       --~procedure ResumeMusicStream (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Pause_Music_Stream (
+               Data : Music := No_Music
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "PauseMusicStream";
 
-       --~procedure SeekMusicStream (Music music, float position) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Resume_Music_Stream (
+               Data : Music := No_Music
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "ResumeMusicStream";
 
-       --~procedure SetMusicVolume (Music music, float volume) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Seek_Music_Stream (
+               Data     : Music := No_Music;
+               Position : Float := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SeekMusicStream";
 
-       --~procedure SetMusicPitch (Music music, float pitch) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Set_Music_Volume (
+               Data   : Music := No_Music;
+               Volume : Float := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetMusicVolume";
 
-       --~procedure SetMusicPan (Music music, float pan) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Set_Music_Pitch (
+               Data  : Music := No_Music;
+               Pitch : Float := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetMusicPitch";
 
-       --~function float GetMusicTimeLength (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Set_Music_Pan (
+               Data : Music := No_Music;
+               Pan  : Float := 0.0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "SetMusicPan";
 
-       --~function float GetMusicTimePlayed (Music music) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Get_Music_Time_Length (
+               Data : Music := No_Music
+       ) return Float with
+               Import        => True,
+               Convention    => C,
+               External_Name => "GetMusicTimeLength";
 
+       function Get_Music_Time_Played (
+               Data : Music := No_Music
+       ) return Float with
+               Import        => True,
+               Convention    => C,
+               External_Name => "GetMusicTimePlayed";
+--~################################################################
        --~function AudioStream LoadAudioStream (unsigned int sampleRate, unsigned int sampleSize, unsigned int channels) with
                --~Import        => True,
                --~Convention    => C,