2934968133
* contrib/hbziparc/ziparc.prg
! fixed using old IS*() macro w/o common.ch
* contrib/hbziparc/tests/unzipa.prg
* contrib/hbziparc/tests/zipa.prg
+ added #require directives
* contrib/hbgd/tests/animgif.prg
* contrib/hbgd/tests/antialia.prg
* contrib/hbgd/tests/barms.prg
* contrib/hbgd/tests/bartest.prg
* contrib/hbgd/tests/counter.prg
* contrib/hbgd/tests/gdtest.prg
* contrib/hbgd/tests/gdtestcl.prg
* contrib/hbgd/tests/test_out.prg
* contrib/hbgd/tests/testdpi.prg
* contrib/hbgd/tests/tostring.prg
* contrib/hbgd/tests/tpoly.prg
* examples/httpsrv/modules/showcounter.prg
* cleanups and fixes (replaced ISDIRECTORY() xhb function,
fixed Windows dir detection, added simpleio.ch)
* contrib/hbzebra/tests/testcair.prg
* contrib/hbzebra/tests/testhpdf.prg
* contrib/hbzebra/tests/testwin.prg
* contrib/rddads/tests/datad.prg
* contrib/rddads/tests/testmg.prg
+ added #require directives for testing
* contrib/hbfoxpro/misc.prg
* contrib/hbnf/clrsel.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/metaph.prg
* src/rtl/hbi18n2.prg
* utils/hbtest/rt_str.prg
* formatting (to help a grep case)
27 lines
333 B
Plaintext
27 lines
333 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#require "hbziparc"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
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
|