diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9e73e4e236..bda74f00ad 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,15 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2004-06-08 22:10 UTC+0300 Phil Krylov + - contrib/libct/setlast.prg + * contrib/libct/Makefile + * contrib/libct/ctflist.txt + * contrib/libct/makefile.bc + * contrib/libct/makefile.vc + - Removed SETLASTKEY() from libct, because it conflicts with the RTL + implementation which is also cleaner. + 2004-06-08 02:25 UTC+0300 Phil Krylov * source/debug/debugger.prg + Added preliminary CLD-compatible scripting capabilities. diff --git a/harbour/contrib/libct/Makefile b/harbour/contrib/libct/Makefile index c74cee5e98..43dfd09048 100644 --- a/harbour/contrib/libct/Makefile +++ b/harbour/contrib/libct/Makefile @@ -69,7 +69,6 @@ PRG_SOURCES= \ invertwin.prg \ numconv.prg \ screen2.prg \ - setlast.prg \ LIBNAME=ct diff --git a/harbour/contrib/libct/ctflist.txt b/harbour/contrib/libct/ctflist.txt index 39fcd5df4d..2b72ff72e4 100644 --- a/harbour/contrib/libct/ctflist.txt +++ b/harbour/contrib/libct/ctflist.txt @@ -536,7 +536,6 @@ LASTKFUNC ;N; LASTKLINE ;N; LASTKPROC ;N; NUMFKEY ;N; -SETLASTKEY ;S; ; ; ;3.2 system info functions diff --git a/harbour/contrib/libct/makefile.bc b/harbour/contrib/libct/makefile.bc index 238662ea8e..7d3841affe 100644 --- a/harbour/contrib/libct/makefile.bc +++ b/harbour/contrib/libct/makefile.bc @@ -153,7 +153,6 @@ TOOLS_LIB_OBJS = \ $(OBJ_DIR)\invertwin.obj \ $(OBJ_DIR)\numconv.obj \ $(OBJ_DIR)\screen2.obj \ - $(OBJ_DIR)\setlast.obj \ # # Our default target @@ -444,9 +443,3 @@ $(OBJ_DIR)\screen2.obj : $(OBJ_DIR)\screen2.c $(CC) $(CLIBFLAGS) -o$@ $** tlib $(TOOLS_LIB) $(ARFLAGS) -+$@,, -$(OBJ_DIR)\setlast.c : $(TOOLS_DIR)\setlast.prg - $(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@ - -$(OBJ_DIR)\setlast.obj : $(OBJ_DIR)\setlast.c - $(CC) $(CLIBFLAGS) -o$@ $** - tlib $(TOOLS_LIB) $(ARFLAGS) -+$@,, diff --git a/harbour/contrib/libct/makefile.vc b/harbour/contrib/libct/makefile.vc index 593811f255..66c4d4e53c 100644 --- a/harbour/contrib/libct/makefile.vc +++ b/harbour/contrib/libct/makefile.vc @@ -172,7 +172,6 @@ TOOLS_LIB_OBJS = \ $(OBJ_DIR)\invertwin.obj \ $(OBJ_DIR)\numconv.obj \ $(OBJ_DIR)\screen2.obj \ - $(OBJ_DIR)\setlast.obj \ # # Our default target @@ -242,7 +241,6 @@ CLEAN: -@if exist $(OBJ_DIR)\invertwin.* del $(OBJ_DIR)\invertwin.* -@if exist $(OBJ_DIR)\numconv.* del $(OBJ_DIR)\numconv.* -@if exist $(OBJ_DIR)\screen2.* del $(OBJ_DIR)\screen2.* - -@if exist $(OBJ_DIR)\setlast.* del $(OBJ_DIR)\screen2.* -@if exist $(TOOLS_LIB) del $(TOOLS_LIB) # diff --git a/harbour/contrib/libct/setlast.prg b/harbour/contrib/libct/setlast.prg deleted file mode 100644 index 79d6375db0..0000000000 --- a/harbour/contrib/libct/setlast.prg +++ /dev/null @@ -1,86 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * CT3 Set Status functions: - SETLASTKEY() - * - * Copyright 2002 Walter Negro - * 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. - * - */ - -/* $DOC$ - * $FUNCNAME$ - * SETLASTKEY() - * $CATEGORY$ - * CT3 Set Status functions - * $ONELINER$ - * $SYNTAX$ - * SETLASTKEY( ) -> - * $ARGUMENTS$ - * Designates the character code passed to LASTKEY(). - * $RETURNS$ - * SETLASTKEY() always returns a null string. - * $DESCRIPTION$ - * TODO: add documentation - * $EXAMPLES$ - * $TESTS$ - * $STATUS$ - * Started - * $COMPLIANCE$ - * $PLATFORMS$ - * All - * $FILES$ - * Source is setlast.prg, library is libct. - * $SEEALSO$ - * LASTKEY() - * $END$ - */ - -FUNCTION SETLASTKEY( nKey ) - -HB_KEYPUT( nKey ) - -RETURN "" -