Ann: Zip-Ada v.31

Ann: Zip-Ada v.31

[Gautier]

Hello!
Some news from the Zip-Ada library @ http://unzip-ada.sf.net/ :
   - the library's name is now Zip-Ada and not UnZip-Ada anymore
     (except the site name at SF which is in the process of being
      renamed...)
   - Added tiny demos: Demo_Zip, Demo_UnZip
   -!- Zip.Create: Create / Finish: if Info.Stream is to a file,
       the underlying archive file is also created / closed as well
   - Added procedure Add_String in Zip.Create
(-!- marks an incompatibility)

Here is a small demo showing how simple it is to create a Zip file with 
the Zip-Ada library (2 files + 1 direct content are archived there):
--8<------8<------8<------8<------8<----
with Zip_Streams;                       use Zip_Streams;
with Zip.Create;                        use Zip.Create;

procedure Demo_zip is
   zip_file : aliased ZipFile_Stream; -- Archive is a file
   archive : Zip_Create_info;
begin
   Create (archive, zip_file'Unchecked_Access, "Mini_zip.zip" );
   Add_File(archive, "demo_zip.adb");
   Add_File(archive, "demo_unzip.adb");
   Add_String(archive,
     "==== Hello world! ====" & ASCII.LF &
     "It is such a nice ""Hello world""-like demo, isn't it ?",
     "nice_string.txt"
   );
   Finish (archive);
end Demo_zip;
--8<------8<------8<------8<------8<----

Enjoy!
_________________________________________________________
Gautier's Ada programming -- http://sf.net/users/gdemont/
NB: For a direct answer, e-mail address on the Web site!