type Resource_File is tagged limited private;
type A_Async_Operation is access all Async_Operation;
type A_Resource_File is access all Resource_File'Class;
procedure Complete;
function Is_Complete return Boolean;
procedure Loading_Begins;
procedure Loading_Ends;
function Get_Address
( | this | : not null access Resource_File'Class ) return Address; |
function Get_Filename
( | this | : not null access Resource_File'Class ) return String; |
function Get_Id
( | this | : not null access Resource_File'Class ) return String; |
function Get_Packfile
( | this | : not null access Resource_File'Class ) return A_Packfile; |
procedure Get_Stream
( | this | : not null access Resource_File'Class; |
strm | : out A_Buffer_Stream ); |
function Size
( | this | : not null access Resource_File'Class ) return Unsigned_32; |
function Load_Resource
( | filepath | : String; |
group | : String ) return A_Resource_File; |
procedure Unload_Resource
( | resource | : in out A_Resource_File ); |