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=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.98.24.144 with SMTP id 138mr647669pfy.5.1472168594513; Thu, 25 Aug 2016 16:43:14 -0700 (PDT) X-Received: by 10.157.24.83 with SMTP id t19mr74898ott.17.1472168594469; Thu, 25 Aug 2016 16:43:14 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!f6no13017790ith.0!news-out.google.com!d68ni39003ith.0!nntp.google.com!f6no13017781ith.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Thu, 25 Aug 2016 16:43:14 -0700 (PDT) In-Reply-To: <21dcddb3-1e20-4e54-afc7-fb66b1b6021e@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=2a02:120b:2c4c:6700:f99f:b9eb:801e:8ab9; posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG NNTP-Posting-Host: 2a02:120b:2c4c:6700:f99f:b9eb:801e:8ab9 References: <5d516246-3a7c-4be5-abef-c34fb0f5c753@googlegroups.com> <21dcddb3-1e20-4e54-afc7-fb66b1b6021e@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: zLibAda vs ZipAda (which should I use, if any)? From: gautier_niouzes@hotmail.com Injection-Date: Thu, 25 Aug 2016 23:43:14 +0000 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Xref: news.eternal-september.org comp.lang.ada:31580 Date: 2016-08-25T16:43:14-07:00 List-Id: Le vendredi 26 ao=C3=BBt 2016 01:07:12 UTC+2, Aurele a =C3=A9crit=C2=A0: > Looking at AdaZip a bit closer with the Info I received (thanks guys), I = do not think AdaZip provide file type specific extraction services (thanks = for the heads up Qunying"). I may have to write that myself as a layer over= or in addition to ZipAda. Not sure about AdaZip, but Zip-Ada provides this service, and Jeff found wh= ich one: Traverse_Verbose. -- Same as Traverse, but Action gives also full technical informations -- about the compressed entry. generic with procedure Action( name : String; -- 'name' is compressed entry's name file_index : Zip_Streams.ZS_Index_Type; comp_size : File_size_type; uncomp_size : File_size_type; crc_32 : Interfaces.Unsigned_32; date_time : Time; method : PKZip_method; name_encoding : Zip_name_encoding; read_only : Boolean; encrypted_2_x : Boolean; -- PKZip 2.x encryption user_code : in out Integer ); procedure Traverse_verbose( z: Zip_info ); You can find an example of scanning of the Zip file's directory for images = here (using the non-verbose version): http://globe3d.sf.net/g3d_html/globe_3d-textures__adb.htm#181_13 Cheers Gautier