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

@@ -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.

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>
  */