From 6a79e0df228fbb4d72366aba8f7029f80e082883 Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Sun, 20 May 2001 16:36:17 +0000
Subject: [PATCH] See changelog 2001-05-20 13:35 GMT -3

---
 harbour/ChangeLog                     | 7 +++++++
 harbour/contrib/hbzlib/doc/zipnew.txt | 6 +++---
 harbour/contrib/hbzlib/zip.c          | 4 ++--
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f42594a824..05f7a62c83 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,10 @@
+2001-05-20 13:35 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
+
+*contrib/hbzlib/zip.c
+    *Fixed an small bug on hb_zipfilebytdspan()
+contrib/hbzlib/doc/zipnew.txt
+    *Updated the doc to reflect the change
+
 2001-05-19 19:00 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
 +contrib/hbzlib/hbzip2.h
     *include files need by the library
diff --git a/harbour/contrib/hbzlib/doc/zipnew.txt b/harbour/contrib/hbzlib/doc/zipnew.txt
index 451408e281..ab6a8fc400 100644
--- a/harbour/contrib/hbzlib/doc/zipnew.txt
+++ b/harbour/contrib/hbzlib/doc/zipnew.txt
@@ -212,7 +212,7 @@
  *      Create a zip file
  * $SYNTAX$
  *      HB_ZIPFILEBYTDSPAN()( <cFile> , <cFileToCompress> | <aFiles>, <nLevel> ,
- *      <bBlock>,<lOverWrite> ,<cPassword>,<iSize>,<lWithPath>) ---> lCompress
+ *      <bBlock>,<lOverWrite> ,<cPassword>,<iSize>,<lWithPath>,<lWithDrive>) ---> lCompress
  * $ARGUMENTS$
  *      <cFile>   Name of the zip file
  *
@@ -230,7 +230,7 @@
  *
  *      <cPassword> Password to encrypt the files
  *
- *      <iSize> Size of the archive
+ *      <iSize> Size of the archive, in bytes,default is 1457664 bytes
  *
  *      <lWithPath> Toggle to store the path or not
  *
@@ -304,7 +304,7 @@
  *      Create a zip file on removable media
  * $SYNTAX$
  *      HB_ZIPFILEBYPKSPAN( <cFile> , <cFileToCompress> | <aFiles>, <nLevel> ,
- *      <bBlock>,<lOverWrite> ,<cPassword>,<lWithPath>) ---> lCompress
+ *      <bBlock>,<lOverWrite> ,<cPassword>,<lWithPath>,<lWithDrive>) ---> lCompress
  * $ARGUMENTS$
  *      <cFile>   Name of the zip file
  *
diff --git a/harbour/contrib/hbzlib/zip.c b/harbour/contrib/hbzlib/zip.c
index 3265c269f3..1215ff2231 100644
--- a/harbour/contrib/hbzlib/zip.c
+++ b/harbour/contrib/hbzlib/zip.c
@@ -105,13 +105,13 @@ HB_FUNC(HB_ZIPFILEBYTDSPAN)
     if( ISCHAR(1) && ISCHAR(2))        {
         char szFile[_POSIX_PATH_MAX];
         strcpy(szFile,hb_parc(1));
-            hb_retl(hb_CmpTdSpanStd(hb___CheckFile(szFile),hb_parc(2),ISNUM(3) ? hb_parni(3) : (-1),hb_param( 4, HB_IT_BLOCK) ,ISLOG(5) ? hb_parl(5) : 0, hb_parc(6),hb_param( 7,HB_IT_BLOCK),ISNUM(8) ? hb_parni(8) : NULL,ISLOG(9) ? hb_parl(9) : 0,ISLOG(10) ? hb_parl(10) : 0));
+            hb_retl(hb_CmpTdSpanStd(hb___CheckFile(szFile),hb_parc(2),ISNUM(3) ? hb_parni(3) : (-1),hb_param( 4, HB_IT_BLOCK) ,ISLOG(5) ? hb_parl(5) : 0, hb_parc(6),hb_param( 7,HB_IT_BLOCK),ISNUM(8) ? hb_parni(8) : 0,ISLOG(9) ? hb_parl(9) : 0,ISLOG(10) ? hb_parl(10) : 0));
     }
 
     if(ISCHAR(1) && ISARRAY(2))        {
         char szFile[_POSIX_PATH_MAX];
         strcpy(szFile,hb_parc(1));
-        hb_retl(hb_CmpTdSpan(hb___CheckFile(szFile),hb_param( 2, HB_IT_ARRAY ),ISNUM(3) ? hb_parni(3) : (-1) ,hb_param( 4,HB_IT_BLOCK),ISLOG(5) ? hb_parl(5) : 0 ,hb_parc(6)   ,hb_param( 7,HB_IT_BLOCK),ISNUM(8) ? hb_parni(8) : NULL,ISLOG(9) ? hb_parl(9) : 0,ISLOG(10) ? hb_parl(10) : 0));
+        hb_retl(hb_CmpTdSpan(hb___CheckFile(szFile),hb_param( 2, HB_IT_ARRAY ),ISNUM(3) ? hb_parni(3) : (-1) ,hb_param( 4,HB_IT_BLOCK),ISLOG(5) ? hb_parl(5) : 0 ,hb_parc(6)   ,hb_param( 7,HB_IT_BLOCK),ISNUM(8) ? hb_parni(8) : 0,ISLOG(9) ? hb_parl(9) : 0,ISLOG(10) ? hb_parl(10) : 0));
     }
      
 }