package Zip.Compress is
type Compression_Method is (Store, Shrink, Reduce_1, Reduce_2, Reduce_3, Reduce_4, Deflate_Fixed -- compress the data in one block with -- predefined compression structures. );
subtype Reduction_Method is Compression_Method range Reduce_1 .. Reduce_4;
subtype Deflation_Method is Compression_Method range Deflate_Fixed .. Deflate_Fixed;
procedure Compress_data
( | input, output | : Zip_Streams.Zipstream_Class; |
input_size_known | : Boolean; | |
input_size | : File_size_type; | |
-- ignored if unknown method | : Compression_Method; | |
feedback | : Feedback_proc; | |
CRC | : out Interfaces.Unsigned_32; | |
output_size | : out File_size_type; | |
zip_type | : out Interfaces.Unsigned_16 -- ^ code corresponding to the compression method actually used ); |