fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-09-03 19:41 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* contrib/hbziparc/hbziparc.prg
     ! RTE fixed when not specifying some optional params.
     ! Fixed to parse the right array, and thus not exluding 
       all filenames to be zipped.
     ; Disclaimer: I'm not a user of these functions, and 
       I've admittedly not tested them besides tests/unzipa.prg 
       and tests/zipa.prg (which are pretty basic cases), so 
       bumps are expected. If you find some bugs, please try 
       to provide patches to fix them. Thanks.
This commit is contained in:
Viktor Szakats
2008-09-03 17:42:46 +00:00
parent 1ab0f2347c
commit a46904f1b9
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-09-03 19:41 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbziparc/hbziparc.prg
! RTE fixed when not specifying some optional params.
! Fixed to parse the right array, and thus not exluding
all filenames to be zipped.
; Disclaimer: I'm not a user of these functions, and
I've admittedly not tested them besides tests/unzipa.prg
and tests/zipa.prg (which are pretty basic cases), so
bumps are expected. If you find some bugs, please try
to provide patches to fix them. Thanks.
2008-09-03 16:36 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbziparc/make_b32.bat
* contrib/hbziparc/make_vc.bat

4
harbour/contrib/hbziparc/hbziparc.prg
View File

@@ -760,6 +760,8 @@ FUNCTION hb_ZipFile( cFileName,;
IF !Empty( hZip := hb_ZipOpen( cFileName ) )
DEFAULT acFiles TO {}
DEFAULT acExclude TO {}
DEFAULT lWithPath TO .F.
DEFAULT lWithDrive TO .F.
@@ -775,7 +777,7 @@ FUNCTION hb_ZipFile( cFileName,;
/* NOTE: Try not to add the .zip file to itself. */
hb_FNameSplit( cFileName, NIL, @cName, @cExt )
aExclFile := { hb_FNameMerge( NIL, cName, cExt ) }
FOR EACH cFN IN acFiles
FOR EACH cFN IN acExclude
IF "?" $ cFN .OR. "*" $ cFN
tmp := Directory( cFN )
FOR EACH aFile IN tmp