type Archive is abstract new Limited_Object with private;
type A_Archive is access all Archive'Class;
FILE_NOT_FOUND : exception;
READ_ERROR : exception;
function Load_Archive
( | path | : String ) return A_Archive; |
function Load_Archive
( | resource | : not null A_Resource_File ) return A_Archive; |
function Exists
( | this | : access Archive; |
filename | : String ) return Boolean is abstract; |
function Open
( | this | : access Archive; |
filename | : String ) return A_Packfile is abstract; |
function Open_Chunk
( | this | : access Archive; |
filename | : String ) return access Stream_Element_Array is abstract; |