29a72856ac
* contrib/hbmzip/hbmzip.c
+ HB_UNZIPFILEINFO() extended to also return CRC.
* contrib/hbziparc/hbziparc.prg
! HB_GETFILESINZIP() fixed to return CRC in verbose mode.
* contrib/hbziparc/tests/zipa.prg
+ Added more test code.
* contrib/xhb/cgi.ch
* contrib/xhb/xhbarr.c
* Cleanups.
23 lines
288 B
Plaintext
23 lines
288 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main( cZip, ... )
|
|
LOCAL a, b, c
|
|
|
|
SET DATE TO ANSI
|
|
SET CENTURY ON
|
|
|
|
? hb_ZipFile( cZip, hb_AParams() )
|
|
|
|
a := hb_GetFilesInZip( cZip, .T. )
|
|
|
|
FOR EACH b IN a
|
|
?
|
|
FOR EACH c IN b
|
|
?? c, ""
|
|
NEXT
|
|
NEXT
|
|
|
|
RETURN
|