summaryrefslogtreecommitdiff
path: root/example
diff options
context:
space:
mode:
Diffstat (limited to 'example')
-rw-r--r--example/file_info_example.adb70
-rw-r--r--example/virtual_io_example.adb165
2 files changed, 235 insertions, 0 deletions
diff --git a/example/file_info_example.adb b/example/file_info_example.adb
new file mode 100644
index 0000000..3971163
--- /dev/null
+++ b/example/file_info_example.adb
@@ -0,0 +1,70 @@
+
+
+-- Programmed by Jedidiah Barber
+-- Released into the public domain
+
+-- This program opens the file supplied as a command line argument, outputs the
+-- file info from it, then closes the file. No modifications are made.
+
+
+with
+
+ Ada.Command_Line,
+ Ada.Directories,
+ Ada.Text_IO,
+ Libsndfile;
+
+
+procedure File_Info_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;
+
+ TIO.Put_Line ("Open frame count:" &
+ Libsndfile.Count_Type'Image (Libsndfile.Frames (My_Info)));
+ TIO.Put_Line ("Open sample rate:" & Natural'Image (Libsndfile.Rate (My_Info)));
+ TIO.Put_Line ("Open channel count:" & Natural'Image (Libsndfile.Channels (My_Info)));
+ TIO.Put_Line ("Open major format: " &
+ Libsndfile.Major_Format'Image (Libsndfile.Major (My_Info)));
+ TIO.Put_Line ("Open minor format: " &
+ Libsndfile.Minor_Format'Image (Libsndfile.Minor (My_Info)));
+ TIO.Put_Line ("Open endianness: " &
+ Libsndfile.Endianness'Image (Libsndfile.Endian (My_Info)));
+ TIO.Put_Line ("Open section count:" & Natural'Image (Libsndfile.Sections (My_Info)));
+ TIO.Put_Line ("Open seekable: " & Boolean'Image (Libsndfile.Seekable (My_Info)));
+
+ TIO.New_Line;
+ My_Sound_File.Close;
+ TIO.Put_Line ("File closed");
+
+
+end File_Info_Example;
+
+
diff --git a/example/virtual_io_example.adb b/example/virtual_io_example.adb
new file mode 100644
index 0000000..8953c07
--- /dev/null
+++ b/example/virtual_io_example.adb
@@ -0,0 +1,165 @@
+
+
+-- Programmed by Jedidiah Barber
+-- Released into the public domain
+
+-- This program opens the file supplied as a command line argument. Except
+-- rather than the usual libsndfile open procedure, it uses the standard Ada
+-- library and libsndfile's virtual open. Then the program outputs the file
+-- info and closes the file. No modifications are made.
+
+
+with
+
+ Ada.Command_Line,
+ Ada.Directories,
+ Ada.Direct_IO,
+ Ada.Text_IO,
+ Libsndfile.Virtual;
+
+use type
+
+ Libsndfile.Count_Type;
+
+
+procedure Virtual_IO_Example is
+
+
+ package ACom renames Ada.Command_Line;
+ package ADir renames Ada.Directories;
+ package DIO is new Ada.Direct_IO (Element_Type => Character);
+ package TIO renames Ada.Text_IO;
+
+
+ Virtual_File : DIO.File_Type;
+ Current_Offset : Libsndfile.Count_Type := 1;
+
+
+ function My_Length
+ return Libsndfile.Count_Type is
+ begin
+ return Libsndfile.Count_Type (DIO.Size (Virtual_File));
+ end My_Length;
+
+ function My_Seek
+ (Offset : in Libsndfile.Count_Type;
+ Whence : in Libsndfile.Seek_From)
+ return Libsndfile.Count_Type is
+ begin
+ case Whence is
+ when Libsndfile.From_Start =>
+ Current_Offset := 1 + Offset;
+ when Libsndfile.From_Current =>
+ Current_Offset := Current_Offset + Offset;
+ when Libsndfile.From_End =>
+ Current_Offset := Libsndfile.Count_Type (DIO.Size (Virtual_File)) + Offset;
+ end case;
+ if Current_Offset < 1 or
+ Current_Offset > Libsndfile.Count_Type (DIO.Size (Virtual_File))
+ then
+ Current_Offset := 1;
+ return -1;
+ else
+ return Current_Offset;
+ end if;
+ end My_Seek;
+
+ function My_Read
+ (Data : out Libsndfile.Raw_Data;
+ Bytes : in Libsndfile.Count_Type)
+ return Libsndfile.Count_Type
+ is
+ Item : Character;
+ Data_Position : Integer := 1;
+ begin
+ while Current_Offset <= Libsndfile.Count_Type (DIO.Size (Virtual_File)) and
+ Data_Position - 1 < Integer (Bytes)
+ loop
+ DIO.Read (Virtual_File, Item, DIO.Count (Current_Offset));
+ Data (Data_Position) := Item;
+ Current_Offset := Current_Offset + 1;
+ Data_Position := Data_Position + 1;
+ end loop;
+ return Libsndfile.Count_Type (Data_Position - 1);
+ end My_Read;
+
+ function My_Write
+ (Data : in Libsndfile.Raw_Data;
+ Bytes : in Libsndfile.Count_Type)
+ return Libsndfile.Count_Type
+ is
+ Item : Character;
+ Data_Position : Integer := 1;
+ begin
+ while Current_Offset <= Libsndfile.Count_Type (DIO.Size (Virtual_File)) and
+ Data_Position - 1 < Integer (Bytes)
+ loop
+ Item := Data (Data_Position);
+ DIO.Write (Virtual_File, Item, DIO.Count (Current_Offset));
+ Current_Offset := Current_Offset + 1;
+ Data_Position := Data_Position + 1;
+ end loop;
+ return Libsndfile.Count_Type (Data_Position - 1);
+ end My_Write;
+
+ function My_Tell
+ return Libsndfile.Count_Type is
+ begin
+ return Current_Offset;
+ end My_Tell;
+
+
+ My_Info : Libsndfile.File_Info := Libsndfile.Blank_Info;
+ Test_File : Libsndfile.Virtual.Virtual_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));
+ DIO.Open (Virtual_File, DIO.In_File, ACom.Argument (1));
+ Test_File.Open
+ (Libsndfile.Read_Only,
+ My_Info,
+ My_Length'Unrestricted_Access,
+ My_Seek'Unrestricted_Access,
+ My_Read'Unrestricted_Access,
+ My_Write'Unrestricted_Access,
+ My_Tell'Unrestricted_Access);
+ TIO.New_Line;
+
+ TIO.Put_Line ("Open frame count:" &
+ Libsndfile.Count_Type'Image (Libsndfile.Frames (My_Info)));
+ TIO.Put_Line ("Open sample rate:" & Natural'Image (Libsndfile.Rate (My_Info)));
+ TIO.Put_Line ("Open channel count:" & Natural'Image (Libsndfile.Channels (My_Info)));
+ TIO.Put_Line ("Open major format: " &
+ Libsndfile.Major_Format'Image (Libsndfile.Major (My_Info)));
+ TIO.Put_Line ("Open minor format: " &
+ Libsndfile.Minor_Format'Image (Libsndfile.Minor (My_Info)));
+ TIO.Put_Line ("Open endianness: " &
+ Libsndfile.Endianness'Image (Libsndfile.Endian (My_Info)));
+ TIO.Put_Line ("Open section count:" & Natural'Image (Libsndfile.Sections (My_Info)));
+ TIO.Put_Line ("Open seekable: " & Boolean'Image (Libsndfile.Seekable (My_Info)));
+
+ TIO.New_Line;
+ Test_File.Close;
+ DIO.Close (Virtual_File);
+ TIO.Put_Line ("File closed");
+
+
+end Virtual_IO_Example;
+
+