* Ann: Zip-Ada v.31
@ 2009-02-23 19:57 Gautier
0 siblings, 0 replies; only message in thread
From: Gautier @ 2009-02-23 19:57 UTC (permalink / 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!
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2009-02-23 19:57 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-02-23 19:57 Ann: Zip-Ada v.31 Gautier
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox