Index

Package: Zip.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;

References:

zip-create.ads:21:9 (declaration)
zip-create.adb:8:39 (reference)
zip-create.adb:45:50 (reference)
zip-create.adb:54:50 (reference)
zip-create.adb:136:51 (reference)
zip-create.adb:167:51 (reference)
zip-create.adb:176:51 (reference)
zip-create.adb:189:36 (reference)
zip-create.ads:25:39 (reference)
zip-create.ads:33:42 (reference)
zip-create.ads:36:50 (reference)
zip-create.ads:44:51 (reference)
zip-create.ads:56:51 (reference)
zip-create.ads:61:51 (reference)
zip-create.ads:68:42 (reference)
zip-create.ads:80:9 (full declaration)

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

References:

zip-create.ads:25:14 (declaration)
zip-create.adb:8:14 (body)
zip-create.adb:24:8 (label)

Add_Stream

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

References:

zip-create.ads:33:14 (declaration)
zip-create.adb:45:14 (body)
zip-create.adb:52:8 (label)
zip-create.adb:159:6 (reference)
zip-create.adb:186:6 (reference)

Calls:

Add_Stream defined at zip-create.ads:36:14

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

References:

zip-create.ads:36:14 (declaration)
zip-create.adb:51:6 (reference)
zip-create.adb:54:14 (body)
zip-create.adb:134:8 (label)

Called by:

Add_Stream defined at zip-create.ads:33:14

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

References:

zip-create.ads:44:14 (declaration)
zip-create.adb:136:14 (body)
zip-create.adb:165:8 (label)

Calls:

Add_Stream defined at zip-create.ads:33:14
Delete defined at a-textio.ads:102:14
Open defined at a-textio.ads:95:14
Zip_Streams.Close defined at zip_streams.ads:101:14
Zip_Streams.Open defined at zip_streams.ads:94:14
Zip_Streams.SetName defined at zip_streams.ads:50:14

Add_String

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

References:

zip-create.ads:56:14 (declaration)
zip-create.adb:167:14 (body)
zip-create.adb:174:8 (label)

Calls:

Add_String defined at zip-create.ads:61:14
To_Unbounded_String defined at a-strunb.ads:59:13

Add_String

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

References:

zip-create.ads:61:14 (declaration)
zip-create.adb:173:6 (reference)
zip-create.adb:176:14 (body)
zip-create.adb:187:8 (label)

Called by:

Add_String defined at zip-create.ads:56:14
Complete the Zip archive; close the file if the stream is a file

Finish

procedure Finish 
(Info: in out Zip_Create_info);

References:

zip-create.ads:68:14 (declaration)
zip-create.adb:189:14 (body)
zip-create.adb:227:8 (label)

Calls:

Ada.Exceptions.Raise_Exception defined at a-except.ads:97:14
Zip.Create.Dispose defined at zip-create.adb:26:14
Zip.Create.Dispose defined at zip-create.adb:28:14
Zip.Headers.Write defined at zip-headers.ads:121:13
Zip.Headers.Write defined at zip-headers.ads:164:13
Zip_Streams.Close defined at zip_streams.ads:101:14
Zip_Streams.Index defined at zip_streams.ads:44:13