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