From c1768728a5673d5e7a66e754bd715bef81c90d60 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Tue, 12 May 2009 13:39:52 +0000
Subject: [PATCH] 2009-05-12 15:48 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/hbzlib.c     + added
 HB_GZPUTC( <pGZipStream>, <nByte> ) => <nResult>

---
 harbour/ChangeLog           |  4 ++++
 harbour/source/rtl/hbzlib.c | 15 +++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 03b631f236..dc1889e904 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to these authors: Viktor Szakats.
 */
 
+2009-05-12 15:48 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/hbzlib.c
+    + added HB_GZPUTC( <pGZipStream>, <nByte> ) => <nResult>
+
 2009-05-12 10:37 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * contrib/xhb/hbcompat.ch
     + Added HB_GETENV() <-> GETENV() conversions.
diff --git a/harbour/source/rtl/hbzlib.c b/harbour/source/rtl/hbzlib.c
index 706bbd8ec6..1cc2b8542d 100644
--- a/harbour/source/rtl/hbzlib.c
+++ b/harbour/source/rtl/hbzlib.c
@@ -423,6 +423,21 @@ HB_FUNC( HB_GZPUTS )
       hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
 }
 
+/*
+ * HB_GZPUTC( <pGZipStream>, <nByte> ) => <nResult>
+ */
+HB_FUNC( HB_GZPUTC )
+{
+   if( ISNUM( 2 ) )
+   {
+      gzFile gz = hb_gzParam( 1 );
+      if( gz )
+         hb_retni( gzputc( gz, hb_parni( 2 ) ) );
+   }
+   else
+      hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
+}
+
 /*
  * HB_GZGETC( <pGZipStream> ) => <nByte>
  */