package Zip.Create is
procedure Create
( | Info | : out Zip_Create_info; |
Z_Stream | : in Zipstream_Class; | |
Name | : String; | |
Compress | : Zip.Compress.Compression_Method:= Zip.Compress.Shrink); |
procedure Add_Stream
( | Info | : in out Zip_Create_info; |
Stream | : Zipstream_Class); |
procedure Add_Stream
( | Info | : in out Zip_Create_info; |
Stream | : Zipstream_Class; | |
Feedback | : in Feedback_proc; | |
Compressed_Size | : out Zip.File_size_type; | |
Final_Method | : out Natural); |
procedure Add_File
( | Info | : in out Zip_Create_info; |
Name | : String; | |
Name_in_archive | : String:= ""; | |
-- default: add the file in the archive -- under the same name Delete_file_after | : Boolean:= False -- practical to delete temporary file after -- adding ); |
procedure Add_String
( | Info | : in out Zip_Create_info; |
Contents | : String; | |
Name_in_archive | : String ); |
procedure Add_String
( | Info | : in out Zip_Create_info; |
Contents | : Unbounded_String; | |
Name_in_archive | : String ); |
procedure Finish
( | Info | : in out Zip_Create_info); |