with System;
with Interfaces.C;
with Interfaces.C.Strings;
with System.Storage_Elements; use System.Storage_Elements;
with QOI;
package Reference_QOI is
type Ref_Desc is record
width : Interfaces.C.unsigned;
height : Interfaces.C.unsigned;
channels : Interfaces.C.char;
colorspace : Interfaces.C.char;
end record
with Convention => C;
type Ref_Desc_Acc is access all Ref_Desc;
function Encode (Data : System.Address;
Desc : not null Ref_Desc_Acc;
Out_Len : not null access Interfaces.C.int)
return System.Address;
pragma Import (C, Encode, "qoi_encode");
function Check_Encode (Pix : Storage_Array;
Desc : QOI.QOI_Desc;
Output : Storage_Array)
return Boolean;
function Decode (Data : System.Address;
Size : Interfaces.C.int;
Desc : not null Ref_Desc_Acc;
Channels : Interfaces.C.int)
return System.Address;
pragma Import (C, Decode, "qoi_decode");
function Check_Decode (Data : Storage_Array;
Out_Desc : QOI.QOI_Desc;
Out_Data : Storage_Array)
return Boolean;
end Reference_QOI;