Index

Package: Create

Description

package Zip.Create is
Contributed by ITEC - NXP Semiconductors June 2008 Change log: ========== 30-Mar-2010: GdM: Added Name function 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);

Name

function Name
(Info: Zip_Create_info) return String;

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 Name_UTF_8_encoded: Boolean:= False -- True if Name[_in_archive] is actually -- UTF-8 encoded (Unicode) );

Add_String

procedure Add_String 
(Info: in out Zip_Create_info;
Contents: String;
Name_in_archive: String;
Name_UTF_8_encoded: Boolean:= False -- True if Name is actually UTF-8 encoded (Unicode) );

Add_String

procedure Add_String 
(Info: in out Zip_Create_info;
Contents: Unbounded_String;
Name_in_archive: String;
Name_UTF_8_encoded: Boolean:= False -- True if Name is actually UTF-8 encoded (Unicode) );

Finish

procedure Finish 
(Info: in out Zip_Create_info);