diff options
| -rw-r--r-- | example/virtual_io_example.adb | 7 | ||||
| -rw-r--r-- | src/libsndfile.ads | 14 |
2 files changed, 13 insertions, 8 deletions
diff --git a/example/virtual_io_example.adb b/example/virtual_io_example.adb index 8953c07..add9b56 100644 --- a/example/virtual_io_example.adb +++ b/example/virtual_io_example.adb @@ -15,6 +15,7 @@ with Ada.Directories, Ada.Direct_IO, Ada.Text_IO, + Interfaces, Libsndfile.Virtual; use type @@ -27,7 +28,7 @@ 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 DIO is new Ada.Direct_IO (Element_Type => Interfaces.Unsigned_8); package TIO renames Ada.Text_IO; @@ -69,7 +70,7 @@ procedure Virtual_IO_Example is Bytes : in Libsndfile.Count_Type) return Libsndfile.Count_Type is - Item : Character; + Item : Interfaces.Unsigned_8; Data_Position : Integer := 1; begin while Current_Offset <= Libsndfile.Count_Type (DIO.Size (Virtual_File)) and @@ -88,7 +89,7 @@ procedure Virtual_IO_Example is Bytes : in Libsndfile.Count_Type) return Libsndfile.Count_Type is - Item : Character; + Item : Interfaces.Unsigned_8; Data_Position : Integer := 1; begin while Current_Offset <= Libsndfile.Count_Type (DIO.Size (Virtual_File)) and diff --git a/src/libsndfile.ads b/src/libsndfile.ads index 2c0866c..d88c06d 100644 --- a/src/libsndfile.ads +++ b/src/libsndfile.ads @@ -7,6 +7,10 @@ pragma Ada_2012; +with + + Interfaces; + private with Interfaces.C, @@ -28,12 +32,12 @@ package Libsndfile is type Seek_From is (From_Start, From_Current, From_End); - type Short_Data is array (Positive range <>) of Short_Integer; - type Integer_Data is array (Positive range <>) of Integer; - type Float_Data is array (Positive range <>) of Float; - type Double_Data is array (Positive range <>) of Long_Float; + type Short_Data is array (Positive range <>) of Interfaces.Integer_16; + type Integer_Data is array (Positive range <>) of Interfaces.Integer_32; + type Float_Data is array (Positive range <>) of Interfaces.IEEE_Float_32; + type Double_Data is array (Positive range <>) of Interfaces.IEEE_Float_64; - type Raw_Data is new String; + type Raw_Data is array (Positive range <>) of Interfaces.Unsigned_8; type Metadata is (Title_String, |