From a48321cf39300d34d28811451928063b7c12e8fc Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Wed, 17 Jun 2009 22:52:52 +0000
Subject: [PATCH] 2009-06-18 00:52 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * include/hbextern.ch   * source/rtl/mousehb.c   *
 source/rdd/rddinfo.c   * source/rdd/dbdrop.c   * source/rdd/dbexists.c   *
 source/rdd/fieldhb.c     * Rest of similar to STOD() status functions also   
    protected with ! HB_C52_STRICT.

---
 harbour/ChangeLog             | 10 ++++++++++
 harbour/include/hbextern.ch   |  6 +++---
 harbour/source/rdd/dbdrop.c   |  8 ++++++--
 harbour/source/rdd/dbexists.c |  8 ++++++--
 harbour/source/rdd/fieldhb.c  |  8 ++++++--
 harbour/source/rdd/rddinfo.c  |  8 ++++++--
 harbour/source/rtl/mousehb.c  |  4 ++++
 7 files changed, 41 insertions(+), 11 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e47e3f3047..5a0936cd6a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,16 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-18 00:52 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * include/hbextern.ch
+  * source/rtl/mousehb.c
+  * source/rdd/rddinfo.c
+  * source/rdd/dbdrop.c
+  * source/rdd/dbexists.c
+  * source/rdd/fieldhb.c
+    * Rest of similar to STOD() status functions also
+      protected with ! HB_C52_STRICT.
+
 2009-06-18 00:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * include/hbextern.ch
   * source/rtl/datesx.c
diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch
index 2743f589d0..842f5bebab 100644
--- a/harbour/include/hbextern.ch
+++ b/harbour/include/hbextern.ch
@@ -328,9 +328,10 @@ EXTERNAL VERSION
 EXTERNAL WORD
 EXTERNAL YEAR
 
-/* Harbour extensions violating extension namespace rules
-   (but not marked as HB_EXTENSION). */
+/* Harbour extensions violating extension namespace rules.
+   See reasons in source. */
 
+#ifndef HB_C52_STRICT
 EXTERNAL RDDINFO
 EXTERNAL DBDROP
 EXTERNAL DBEXISTS
@@ -338,7 +339,6 @@ EXTERNAL FIELDLEN
 EXTERNAL FIELDDEC
 EXTERNAL FIELDTYPE
 EXTERNAL MMIDDLEDOWN
-#ifndef HB_C52_STRICT
 EXTERNAL STOD
 #endif
 
diff --git a/harbour/source/rdd/dbdrop.c b/harbour/source/rdd/dbdrop.c
index b5a6f610e5..e56d90601d 100644
--- a/harbour/source/rdd/dbdrop.c
+++ b/harbour/source/rdd/dbdrop.c
@@ -53,8 +53,10 @@
 
 #include "hbapi.h"
 
-/* NOTE: This function is a new Harbour function implemented in the 
-         original CA-Cl*pper namespace. This should have been 
+#ifndef HB_C52_STRICT
+
+/* NOTE: This function is a new Harbour function implemented in the
+         original CA-Cl*pper namespace. This should have been
          marked as HB_EXTENSION, but it's not. */
 
 HB_FUNC_EXTERN( HB_DBDROP );
@@ -63,3 +65,5 @@ HB_FUNC( DBDROP )
 {
    HB_FUNC_EXEC( HB_DBDROP );
 }
+
+#endif
diff --git a/harbour/source/rdd/dbexists.c b/harbour/source/rdd/dbexists.c
index b2d0d7b070..9d02e0faf4 100644
--- a/harbour/source/rdd/dbexists.c
+++ b/harbour/source/rdd/dbexists.c
@@ -53,8 +53,10 @@
 
 #include "hbapi.h"
 
-/* NOTE: This function is a new Harbour function implemented in the 
-         original CA-Cl*pper namespace. This should have been 
+#ifndef HB_C52_STRICT
+
+/* NOTE: This function is a new Harbour function implemented in the
+         original CA-Cl*pper namespace. This should have been
          marked as HB_EXTENSION, but it's not. */
 
 HB_FUNC_EXTERN( HB_DBEXISTS );
@@ -63,3 +65,5 @@ HB_FUNC( DBEXISTS )
 {
    HB_FUNC_EXEC( HB_DBEXISTS );
 }
+
+#endif
diff --git a/harbour/source/rdd/fieldhb.c b/harbour/source/rdd/fieldhb.c
index 0472472c71..324f18a41d 100644
--- a/harbour/source/rdd/fieldhb.c
+++ b/harbour/source/rdd/fieldhb.c
@@ -53,8 +53,10 @@
 
 #include "hbapi.h"
 
-/* NOTE: These functions are a new Harbour functions implemented in the 
-         original CA-Cl*pper namespace. These should have been marked as 
+#ifndef HB_C52_STRICT
+
+/* NOTE: These functions are a new Harbour functions implemented in the
+         original CA-Cl*pper namespace. These should have been marked as
          HB_EXTENSION, but they're not. */
 
 HB_FUNC_EXTERN( HB_FIELDLEN );
@@ -77,3 +79,5 @@ HB_FUNC( FIELDTYPE )
 {
    HB_FUNC_EXEC( HB_FIELDTYPE );
 }
+
+#endif
diff --git a/harbour/source/rdd/rddinfo.c b/harbour/source/rdd/rddinfo.c
index efe6af6a9d..ebe5b6c664 100644
--- a/harbour/source/rdd/rddinfo.c
+++ b/harbour/source/rdd/rddinfo.c
@@ -53,13 +53,17 @@
 
 #include "hbapi.h"
 
+#ifndef HB_C52_STRICT
+
 HB_FUNC_EXTERN( HB_RDDINFO );
 
-/* NOTE: This function is a new Harbour function implemented in the 
-         original CA-Cl*pper namespace. This should have been 
+/* NOTE: This function is a new Harbour function implemented in the
+         original CA-Cl*pper namespace. This should have been
          marked as HB_EXTENSION, but it's not. */
 
 HB_FUNC( RDDINFO )
 {
    HB_FUNC_EXEC( HB_RDDINFO )
 }
+
+#endif
diff --git a/harbour/source/rtl/mousehb.c b/harbour/source/rtl/mousehb.c
index 243daa92a2..ff9784911a 100644
--- a/harbour/source/rtl/mousehb.c
+++ b/harbour/source/rtl/mousehb.c
@@ -52,6 +52,8 @@
 
 #include "hbapigt.h"
 
+#ifndef HB_C52_STRICT
+
 /* NOTE: This function is a new Harbour functions implemented in the
          original CA-Cl*pper namespace. It should have been marked as
          HB_EXTENSION, but it's not. */
@@ -62,3 +64,5 @@ HB_FUNC( MMIDDLEDOWN )
 {
    HB_FUNC_EXEC( HB_MMIDDLEDOWN );
 }
+
+#endif