From 9be42c6fc44ff0725895dc208e14ca6f7a6797a2 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 17 Apr 2008 11:29:20 +0000 Subject: [PATCH] 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. --- harbour/ChangeLog | 11 ++++++ harbour/common.mak | 3 ++ harbour/source/rtl/Makefile | 3 ++ harbour/source/rtl/defpath.c | 11 +----- harbour/source/rtl/defpathu.c | 64 ++++++++++++++++++++++++++++++++ harbour/source/rtl/errorapi.c | 16 +------- harbour/source/rtl/errorapu.c | 69 +++++++++++++++++++++++++++++++++++ harbour/source/rtl/shadow.c | 11 +----- harbour/source/rtl/shadowu.c | 64 ++++++++++++++++++++++++++++++++ 9 files changed, 217 insertions(+), 35 deletions(-) create mode 100644 harbour/source/rtl/defpathu.c create mode 100644 harbour/source/rtl/errorapu.c create mode 100644 harbour/source/rtl/shadowu.c diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0ecc01c0e9..613eef0717 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,17 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +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 diff --git a/harbour/common.mak b/harbour/common.mak index 157d5a564e..ce02503803 100644 --- 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) \ diff --git a/harbour/source/rtl/Makefile b/harbour/source/rtl/Makefile index 22b2e497aa..3eb523d093 100644 --- 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 \ diff --git a/harbour/source/rtl/defpath.c b/harbour/source/rtl/defpath.c index b071c6875f..ac5a2d6ee0 100644 --- 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 * 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 diff --git a/harbour/source/rtl/defpathu.c b/harbour/source/rtl/defpathu.c new file mode 100644 index 0000000000..f8ae65a6c7 --- /dev/null +++ b/harbour/source/rtl/defpathu.c @@ -0,0 +1,64 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * DEFPATH() function + * + * Copyright 1999 Jose Lalin + * 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 diff --git a/harbour/source/rtl/errorapi.c b/harbour/source/rtl/errorapi.c index 1db50f1d15..0f86347e07 100644 --- a/harbour/source/rtl/errorapi.c +++ b/harbour/source/rtl/errorapi.c @@ -56,7 +56,7 @@ * * Copyright 1999-2001 Viktor Szakats * 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 ); diff --git a/harbour/source/rtl/errorapu.c b/harbour/source/rtl/errorapu.c new file mode 100644 index 0000000000..99af97e8a2 --- /dev/null +++ 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 + * 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 diff --git a/harbour/source/rtl/shadow.c b/harbour/source/rtl/shadow.c index 27edf07473..655ea75ce6 100644 --- 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 * 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 diff --git a/harbour/source/rtl/shadowu.c b/harbour/source/rtl/shadowu.c new file mode 100644 index 0000000000..94c7694755 --- /dev/null +++ b/harbour/source/rtl/shadowu.c @@ -0,0 +1,64 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * DBGSHADOW() function + * + * Copyright 1999 Antonio Linares + * 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