From: Gautier <gautier@fakeaddress.nil>
Subject: Ann: Zip-Ada v.31
Date: Mon, 23 Feb 2009 20:57:54 +0100
Date: 2009-02-23T20:57:54+01:00 [thread overview]
Message-ID: <49a2ffc2$1_4@news.bluewin.ch> (raw)
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!
reply other threads:[~2009-02-23 19:57 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox