From 43c3c2eeb1a06bf1cacea08062739b8381ad7ab3 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 22 May 2008 09:12:40 +0000
Subject: [PATCH] 2008-05-22 10:30 UTC+0100 Viktor Szakats (harbour.01 syenar
 hu)    * include/hbextern.ch    * source/rdd/dbcmdx.c      + Added dbPack()
 and dbZap() XBase++        compatibility functions.

---
 harbour/ChangeLog           |  6 ++++++
 harbour/include/hbextern.ch |  2 ++
 harbour/source/rdd/dbcmdx.c | 14 ++++++++++++++
 3 files changed, 22 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 96a35599d8..33832dc46f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,12 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-05-22 10:30 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
+   * include/hbextern.ch
+   * source/rdd/dbcmdx.c
+     + Added dbPack() and dbZap() XBase++ 
+       compatibility functions.
+
 2008-05-22 10:10 UTC+0100 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
   * source/common/hbstr.c
     * casting for gcc 4.3.0
diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch
index 17ac999f85..58e850c908 100644
--- a/harbour/include/hbextern.ch
+++ b/harbour/include/hbextern.ch
@@ -757,6 +757,8 @@ EXTERNAL SHOWMSG
 #ifdef HB_COMPAT_XPP
 
 EXTERNAL BIN2U
+EXTERNAL DBPACK
+EXTERNAL DBZAP
 EXTERNAL DBCOPYEXTSTRUCT
 EXTERNAL DBCOPYSTRUCT
 EXTERNAL DBJOIN
diff --git a/harbour/source/rdd/dbcmdx.c b/harbour/source/rdd/dbcmdx.c
index 75f2359417..91ba7eb0a1 100644
--- a/harbour/source/rdd/dbcmdx.c
+++ b/harbour/source/rdd/dbcmdx.c
@@ -58,6 +58,20 @@
 
 #ifdef HB_COMPAT_XPP
 
+HB_FUNC_EXTERN( HB_DBPACK );
+
+HB_FUNC( DBPACK )
+{
+   HB_FUNC_EXEC( HB_DBPACK );
+}
+
+HB_FUNC_EXTERN( HB_DBZAP );
+
+HB_FUNC( DBZAP )
+{
+   HB_FUNC_EXEC( HB_DBZAP );
+}
+
 HB_FUNC( ORDWILDSEEK )
 {
    AREAP pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();