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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,c136e56dd53ba470,start
X-Google-Attributes: gid103376,public
From: Gautier <gautier.demontmollin@maths.unine.ch>
Subject: Unzip-Ada, "beta 2"
Date: 1999/06/22
Message-ID: <376FFDE8.1BDCC034@maths.unine.ch>#1/1
X-Deja-AN: 492670202
Content-Transfer-Encoding: 7bit
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
Organization: =?iso-8859-1?Q?Universit=E9?= de =?iso-8859-1?Q?Neuch=E2tel?=
MIME-Version: 1.0
Reply-To: gautier.demontmollin@maths.unine.ch
Newsgroups: comp.lang.ada
Date: 1999-06-22T00:00:00+00:00
List-Id: <comp.lang.ada>

Another upgrade...

To be short, you can now unzip single files from Zip
archives or extract a whole archive, with a direct
procedure call.

More infos: --> http://members.xoom.com/gdemont/unzipada.htm

-- 
Gautier

PS: Copy of unzip.ads:

--  ___  ____  ____  ____  ________  ___   ______       ______     ___
--  |.|  |../  |...\ |../ /___..._/  |.|   |.___.\     /. __ .\  __|.|   ____
--  |.|  |.|   |.|\.\|.|     /../    |.|   |.____/     |.|__|.| /....|  __\..\
--  |.|__|.|   |.| \...|   _/../___  |.|   |.|    ===  |..__..||. = .| |
= ..|
--  |______|  /__|  \__|  /_______/  |_|  /__|        /__|  |_| \__\_|  \__\_|

-- UnZip-Ada
------------
-- Unzips deflated, imploded, reduced, shrunk and stored files

--  Ada translation & cleanup by Gautier de Montmollin
--    http://members.xoom.com/gdemont/unzipada.htm

--  based on Pascal version 2.10 by Dr Abimbola A Olowofoyeku,
--    http://ourworld.compuserve.com/homepages/African_Chief,

--  itself based on Pascal version by Christian Ghisler,
--  itself based on C code by Info-Zip group (Mark Adler et al.)

-- Documentation: read appnote.txt

-- Legal notice: no copyright, no warranty.

package Unzip is

  ----------------------------------
  -- Simple extraction procedures --
  ----------------------------------

  procedure Extract( from, what : String );         -- a precise file
  procedure Extract( from, what, rename : String ); -- id., under a new name
  procedure Extract_all_files( from : String );     -- all files

  ----------------------------------------------
  -- Extraction procedures for user interface --
  ----------------------------------------------

 type feedback_proc is access
   procedure ( percents_done: in float; user_abort: out boolean );

  type pkzip_method is

   ( store,    -- ok
     shrink,   -- ok (tested with small files)
     reduce_1, reduce_2, reduce_3, reduce_4, -- untested (must be rare)
     implode,  -- ok
     tokenize, -- not yet implemented by PKWARE
     deflate,  -- ok
     unknown );

  procedure Extract(from, what : String;
                    method     : out pkzip_method;
                    feedback   : feedback_proc );

end Unzip;