diff options
| -rw-r--r-- | example.gpr | 3 | ||||
| -rw-r--r-- | example/read_example.adb | 117 |
2 files changed, 119 insertions, 1 deletions
diff --git a/example.gpr b/example.gpr index 5170e1f..9f8479e 100644 --- a/example.gpr +++ b/example.gpr @@ -12,11 +12,12 @@ project Example is for Source_Dirs use ("example"); for Object_Dir use "obj"; for Exec_Dir use "bin"; - for Main use ("file_info_example.adb", "virtual_io_example.adb"); + for Main use ("file_info_example.adb", "read_example.adb", "virtual_io_example.adb"); package Builder is for Executable("file_info_example.adb") use "info_example"; + for Executable("read_example.adb") use "read_example"; for Executable("virtual_io_example.adb") use "virtual_example"; end Builder; diff --git a/example/read_example.adb b/example/read_example.adb new file mode 100644 index 0000000..33b2d7a --- /dev/null +++ b/example/read_example.adb @@ -0,0 +1,117 @@ + + +-- Programmed by Jedidiah Barber +-- Released into the public domain + + +-- This program opens the file supplied as a command line argument, then reads +-- up to 5 frames from it in Short, Integer, Float, Double formats, seeking to +-- the file beginning between each read. The data is printed to stdout, then +-- the file is closed. No modifications are made. + + +with + + Ada.Command_Line, + Ada.Directories, + Ada.Text_IO, + Interfaces, + Libsndfile; + + +procedure Read_Example is + + + package ACom renames Ada.Command_Line; + package ADir renames Ada.Directories; + package TIO renames Ada.Text_IO; + + + My_Info : Libsndfile.File_Info := Libsndfile.Blank_Info; + My_Sound_File : Libsndfile.Sound_File; + + +begin + + + if ACom.Argument_Count < 1 then + TIO.Put_Line ("No filename provided"); + ACom.Set_Exit_Status (ACom.Failure); + return; + end if; + + if not ADir.Exists (ACom.Argument (1)) then + TIO.Put_Line ("File does not exist"); + ACom.Set_Exit_Status (ACom.Failure); + return; + end if; + + + TIO.Put_Line ("Load file " & ACom.Argument (1)); + My_Sound_File.Open (ACom.Argument (1), Libsndfile.Read_Only, My_Info); + TIO.New_Line; + + declare + Channel_Count : Natural := Libsndfile.Channels (My_Info); + Test_Frames : Libsndfile.Count_Type := 5; + + My_Shorts : Libsndfile.Short_Data (1 .. Natural (Test_Frames) * Channel_Count); + My_Integers : Libsndfile.Integer_Data (1 .. Natural (Test_Frames) * Channel_Count); + My_Floats : Libsndfile.Float_Data (1 .. Natural (Test_Frames) * Channel_Count); + My_Doubles : Libsndfile.Double_Data (1 .. Natural (Test_Frames) * Channel_Count); + + Read_Count, Position : Libsndfile.Count_Type; + begin + TIO.Put_Line ("Reading" & Libsndfile.Count_Type'Image (Test_Frames) & + " frames of Short data"); + Read_Count := My_Sound_File.Read_Short (My_Shorts, Test_Frames); + TIO.Put_Line ("Obtained" & Libsndfile.Count_Type'Image (Read_Count) & " frames"); + for Index in Integer range 1 .. Natural (Read_Count) * Channel_Count loop + TIO.Put_Line (Interfaces.Integer_16'Image (My_Shorts (Index))); + end loop; + TIO.Put_Line ("Seeking to start again"); + Position := My_Sound_File.Seek (0, Libsndfile.From_Start); + TIO.Put_Line ("Reached position" & Libsndfile.Count_Type'Image (Position)); + TIO.New_Line; + + TIO.Put_Line ("Reading" & Libsndfile.Count_Type'Image (Test_Frames) & + " frames of Integer data"); + Read_Count := My_Sound_File.Read_Integer (My_Integers, Test_Frames); + TIO.Put_Line ("Obtained" & Libsndfile.Count_Type'Image (Read_Count) & " frames"); + for Index in Integer range 1 .. Natural (Read_Count) * Channel_Count loop + TIO.Put_Line (Interfaces.Integer_32'Image (My_Integers (Index))); + end loop; + TIO.Put_Line ("Seeking to start again"); + Position := My_Sound_File.Seek (0, Libsndfile.From_Start); + TIO.Put_Line ("Reached position" & Libsndfile.Count_Type'Image (Position)); + TIO.New_Line; + + TIO.Put_Line ("Reading" & Libsndfile.Count_Type'Image (Test_Frames) & + " frames of Float data"); + Read_Count := My_Sound_File.Read_Float (My_Floats, Test_Frames); + TIO.Put_Line ("Obtained" & Libsndfile.Count_Type'Image (Read_Count) & " frames"); + for Index in Integer range 1 .. Natural (Read_Count) * Channel_Count loop + TIO.Put_Line (Interfaces.IEEE_Float_32'Image (My_Floats (Index))); + end loop; + TIO.Put_Line ("Seeking to start again"); + Position := My_Sound_File.Seek (0, Libsndfile.From_Start); + TIO.Put_Line ("Reached position" & Libsndfile.Count_Type'Image (Position)); + TIO.New_Line; + + TIO.Put_Line ("Reading" & Libsndfile.Count_Type'Image (Test_Frames) & + " frames of Double data"); + Read_Count := My_Sound_File.Read_Double (My_Doubles, Test_Frames); + TIO.Put_Line ("Obtained" & Libsndfile.Count_Type'Image (Read_Count) & " frames"); + for Index in Integer range 1 .. Natural (Read_Count) * Channel_Count loop + TIO.Put_Line (Interfaces.IEEE_Float_64'Image (My_Doubles (Index))); + end loop; + TIO.New_Line; + end; + + My_Sound_File.Close; + TIO.Put_Line ("File closed"); + + +end Read_Example; + + |