From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.1 required=5.0 tests=BAYES_00,PDS_OTHER_BAD_TLD
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,910d7d0c3be7d12c,start
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Date: Mon, 23 Feb 2009 20:57:54 +0100
From: Gautier <gautier@fakeaddress.nil>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US;
 rv:1.8.1.18) Gecko/20081031 SeaMonkey/1.1.13
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Ann: Zip-Ada v.31
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 85.1.219.162
X-Original-NNTP-Posting-Host: 85.1.219.162
Message-ID: <49a2ffc2$1_4@news.bluewin.ch>
X-Trace: news.bluewin.ch 1235419074 85.1.219.162 (23 Feb 2009 20:57:54 +0100)
Organization: Bluewin AG
Complaints-To: abuse@bluewin.ch
X-Original-NNTP-Posting-Host: 127.0.0.1
Path: 
 g2news2.google.com!news4.google.com!proxad.net!feeder1-2.proxad.net!212.101.4.254.MISMATCH!solnet.ch!solnet.ch!news-zh.switch.ch!switch.ch!news.ip-plus.net!newsfeed.ip-plus.net!news.bluewin.ch!not-for-mail
Xref: g2news2.google.com comp.lang.ada:4705
Date: 2009-02-23T20:57:54+01:00
List-Id: <comp.lang.ada>

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!