Index

Package: Create

Description

package Zip.Create is
Contributed by ITEC - NXP Semiconductors June 2008 Change log: ========== 25-Feb-2010: GdM: Fixed major bottlenecks around Dir_entries -> 5x faster overall for 1000 files, 356x for 100'000 ! 17-Feb-2009: GdM: Added procedure Add_String 10-Feb-2009: GdM: Create / Finish: if Info.Stream is to a file, the underling file is also created / closed in time 4-Feb-2009: GdM: Added procedure Add_File

Types

Zip_Create_info

type Zip_Create_info is private;

Subprograms & Entries

Create

procedure Create
(Info: out Zip_Create_info;
Z_Stream: in Zipstream_Class;
Name: String;
Compress: Zip.Compress.Compression_Method:= Zip.Compress.Shrink);

Add_Stream

procedure Add_Stream 
(Info: in out Zip_Create_info;
Stream: Zipstream_Class);

Add_Stream

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);

Add_File

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 );

Add_String

procedure Add_String 
(Info: in out Zip_Create_info;
Contents: String;
Name_in_archive: String );

Add_String

procedure Add_String 
(Info: in out Zip_Create_info;
Contents: Unbounded_String;
Name_in_archive: String );
Complete the Zip archive; close the file if the stream is a file

Finish

procedure Finish 
(Info: in out Zip_Create_info);