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

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

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

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();