2008-04-17 13:26 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

* common.mak * source/rtl/Makefile * source/rtl/defpath.c + source/rtl/defpathu.c * source/rtl/errorapi.c + source/rtl/errorapu.c * source/rtl/shadow.c + source/rtl/shadowu.c * Undocumented compatibility functions moved to separate files.
2008-04-17 11:29:20 +00:00
parent cb966c280e
commit 9be42c6fc4
9 changed files with 217 additions and 35 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,17 @@
   2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2008-04-17 13:26 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
+   * common.mak
+   * source/rtl/Makefile
+   * source/rtl/defpath.c
+   + source/rtl/defpathu.c
+   * source/rtl/errorapi.c
+   + source/rtl/errorapu.c
+   * source/rtl/shadow.c
+   + source/rtl/shadowu.c
+     * Undocumented compatibility functions moved to separate files.
+
 2008-04-17 03:53 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
   * include/hbextern.ch
   * source/rtl/errorapi.c
--- a/harbour/common.mak
+++ b/harbour/common.mak
@@ -456,6 +456,7 @@ RTL_LIB_OBJS = \
    $(OBJ_DIR)\dateshb$(OBJEXT)  \
    $(OBJ_DIR)\datesx$(OBJEXT)   \
    $(OBJ_DIR)\defpath$(OBJEXT)  \
+    $(OBJ_DIR)\defpathu$(OBJEXT)  \
    $(OBJ_DIR)\descend$(OBJEXT)  \
    $(OBJ_DIR)\dirdrive$(OBJEXT) \
    $(OBJ_DIR)\direct$(OBJEXT)   \
@@ -464,6 +465,7 @@ RTL_LIB_OBJS = \
    $(OBJ_DIR)\do$(OBJEXT)       \
    $(OBJ_DIR)\empty$(OBJEXT)    \
    $(OBJ_DIR)\errorapi$(OBJEXT) \
+    $(OBJ_DIR)\errorapu$(OBJEXT) \
    $(OBJ_DIR)\errorint$(OBJEXT) \
    $(OBJ_DIR)\file$(OBJEXT)     \
    $(OBJ_DIR)\filehb$(OBJEXT)   \
@@ -551,6 +553,7 @@ RTL_LIB_OBJS = \
    $(OBJ_DIR)\setpos$(OBJEXT)   \
    $(OBJ_DIR)\setposbs$(OBJEXT) \
    $(OBJ_DIR)\shadow$(OBJEXT)   \
+    $(OBJ_DIR)\shadowu$(OBJEXT)   \
    $(OBJ_DIR)\soundex$(OBJEXT)  \
    $(OBJ_DIR)\space$(OBJEXT)    \
    $(OBJ_DIR)\spfiles$(OBJEXT)  \
--- a/harbour/source/rtl/Makefile
+++ b/harbour/source/rtl/Makefile
@@ -22,6 +22,7 @@ C_SOURCES=\
 	dateshb.c    \
 	datesx.c     \
 	defpath.c    \
+	defpathu.c   \
 	descend.c    \
 	dirdrive.c   \
 	direct.c     \
@@ -30,6 +31,7 @@ C_SOURCES=\
 	do.c         \
 	empty.c      \
 	errorapi.c   \
+	errorapu.c   \
 	errorint.c   \
 	file.c       \
 	filehb.c     \
@@ -116,6 +118,7 @@ C_SOURCES=\
 	setpos.c     \
 	setposbs.c   \
 	shadow.c     \
+	shadowu.c    \
 	soundex.c    \
 	space.c      \
 	spfiles.c    \
--- a/harbour/source/rtl/defpath.c
+++ b/harbour/source/rtl/defpath.c
@@ -4,7 +4,7 @@

 /*
 * Harbour Project source code:
- * DEFPATH(), __DEFPATH() functions
+ * __DEFPATH() function
 *
 * Copyright 1999 Jose Lalin <dezac@corevia.com>
 * www - http://www.harbour-project.org
@@ -90,12 +90,3 @@ HB_FUNC( __DEFPATH )

   hb_retclen( buffer, size );
 }
-
-#ifdef HB_C52_UNDOC
-
-HB_FUNC( DEFPATH )
-{
-   HB_FUNC_EXEC( __DEFPATH );
-}
-
-#endif
--- a/harbour/source/rtl/defpathu.c
+++ b/harbour/source/rtl/defpathu.c
@@ -0,0 +1,64 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ * DEFPATH() function
+ *
+ * Copyright 1999 Jose Lalin <dezac@corevia.com>
+ * www - http://www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+ *
+ * As a special exception, the Harbour Project gives permission for
+ * additional uses of the text contained in its release of Harbour.
+ *
+ * The exception is that, if you link the Harbour libraries with other
+ * files to produce an executable, this does not by itself cause the
+ * resulting executable to be covered by the GNU General Public License.
+ * Your use of that executable is in no way restricted on account of
+ * linking the Harbour library code into it.
+ *
+ * This exception does not however invalidate any other reasons why
+ * the executable file might be covered by the GNU General Public License.
+ *
+ * This exception applies only to the code released by the Harbour
+ * Project under the name Harbour.  If you copy code from other
+ * Harbour Project or Free Software Foundation releases into a copy of
+ * Harbour, as the General Public License permits, the exception does
+ * not apply to the code that you add in this way.  To avoid misleading
+ * anyone as to the status of such modified files, you must delete
+ * this exception notice from them.
+ *
+ * If you write modifications of your own for Harbour, it is your choice
+ * whether to permit this exception to apply to your modifications.
+ * If you do not wish that, delete this exception notice.
+ *
+ */
+
+#include "hbapi.h"
+
+#ifdef HB_C52_UNDOC
+
+HB_FUNC_EXTERN( __DEFPATH );
+
+HB_FUNC( DEFPATH )
+{
+   HB_FUNC_EXEC( __DEFPATH );
+}
+
+#endif
--- a/harbour/source/rtl/errorapi.c
+++ b/harbour/source/rtl/errorapi.c
@@ -56,7 +56,7 @@
 *
 * Copyright 1999-2001 Viktor Szakats <viktor.szakats@syenar.hu>
 *    DOSERROR()
- *    __ERRINHANDLER(), ERRORINHAN(), ERRORINHANDLER()
+ *    __ERRINHANDLER()
 *    __ERRRT_BASE()
 *    __ERRRT_SBASE()
 *    hb_errLaunch()
@@ -442,20 +442,6 @@ HB_FUNC( __ERRINHANDLER )
   hb_errInternal( HB_EI_ERRRECFAILURE, NULL, NULL, NULL );
 }

-#ifdef HB_C52_UNDOC
-   
-HB_FUNC( ERRORINHAN )
-{
-   HB_FUNC_EXEC( __ERRINHANDLER )
-}
-   
-HB_FUNC( ERRORINHANDLER )
-{
-   HB_FUNC_EXEC( __ERRINHANDLER )
-}
-
-#endif
-
 HB_FUNC( ERRORBLOCK )
 {
   PHB_ITEM pNewErrorBlock = hb_param( 1, HB_IT_BLOCK );
--- a/harbour/source/rtl/errorapu.c
+++ b/harbour/source/rtl/errorapu.c
@@ -0,0 +1,69 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ * The Error API undocumented functions
+ *
+ * Copyright 1999-2001 Viktor Szakats <viktor.szakats@syenar.hu>
+ * www - http://www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+ *
+ * As a special exception, the Harbour Project gives permission for
+ * additional uses of the text contained in its release of Harbour.
+ *
+ * The exception is that, if you link the Harbour libraries with other
+ * files to produce an executable, this does not by itself cause the
+ * resulting executable to be covered by the GNU General Public License.
+ * Your use of that executable is in no way restricted on account of
+ * linking the Harbour library code into it.
+ *
+ * This exception does not however invalidate any other reasons why
+ * the executable file might be covered by the GNU General Public License.
+ *
+ * This exception applies only to the code released by the Harbour
+ * Project under the name Harbour.  If you copy code from other
+ * Harbour Project or Free Software Foundation releases into a copy of
+ * Harbour, as the General Public License permits, the exception does
+ * not apply to the code that you add in this way.  To avoid misleading
+ * anyone as to the status of such modified files, you must delete
+ * this exception notice from them.
+ *
+ * If you write modifications of your own for Harbour, it is your choice
+ * whether to permit this exception to apply to your modifications.
+ * If you do not wish that, delete this exception notice.
+ *
+ */
+
+#include "hbapi.h"
+
+#ifdef HB_C52_UNDOC
+
+HB_FUNC_EXTERN( __ERRINHANDLER );
+   
+HB_FUNC( ERRORINHAN )
+{
+   HB_FUNC_EXEC( __ERRINHANDLER )
+}
+   
+HB_FUNC( ERRORINHANDLER )
+{
+   HB_FUNC_EXEC( __ERRINHANDLER )
+}
+
+#endif
--- a/harbour/source/rtl/shadow.c
+++ b/harbour/source/rtl/shadow.c
@@ -4,7 +4,7 @@

 /*
 * Harbour Project source code:
- * HB_SHADOW(), HB_CLRAREA(), DBGSHADOW() functions
+ * HB_SHADOW(), HB_CLRAREA() functions
 *
 * Copyright 1999 Antonio Linares <alinares@fivetech.com>
 * www - http://www.harbour-project.org
@@ -72,12 +72,3 @@ HB_FUNC( HB_CLRAREA )
                         hb_parni( 4 ),
                         hb_parni( 5 ) );
 }
-
-#ifdef HB_C52_UNDOC
-
-HB_FUNC( DBGSHADOW )
-{
-   HB_FUNC_EXEC( HB_SHADOW );
-}
-
-#endif
--- a/harbour/source/rtl/shadowu.c
+++ b/harbour/source/rtl/shadowu.c
@@ -0,0 +1,64 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ * DBGSHADOW() function
+ *
+ * Copyright 1999 Antonio Linares <alinares@fivetech.com>
+ * www - http://www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+ *
+ * As a special exception, the Harbour Project gives permission for
+ * additional uses of the text contained in its release of Harbour.
+ *
+ * The exception is that, if you link the Harbour libraries with other
+ * files to produce an executable, this does not by itself cause the
+ * resulting executable to be covered by the GNU General Public License.
+ * Your use of that executable is in no way restricted on account of
+ * linking the Harbour library code into it.
+ *
+ * This exception does not however invalidate any other reasons why
+ * the executable file might be covered by the GNU General Public License.
+ *
+ * This exception applies only to the code released by the Harbour
+ * Project under the name Harbour.  If you copy code from other
+ * Harbour Project or Free Software Foundation releases into a copy of
+ * Harbour, as the General Public License permits, the exception does
+ * not apply to the code that you add in this way.  To avoid misleading
+ * anyone as to the status of such modified files, you must delete
+ * this exception notice from them.
+ *
+ * If you write modifications of your own for Harbour, it is your choice
+ * whether to permit this exception to apply to your modifications.
+ * If you do not wish that, delete this exception notice.
+ *
+ */
+
+#include "hbapi.h"
+
+#ifdef HB_C52_UNDOC
+
+HB_FUNC_EXTERN( HB_SHADOW );
+
+HB_FUNC( DBGSHADOW )
+{
+   HB_FUNC_EXEC( HB_SHADOW );
+}
+
+#endif