fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2002-05-05 21:05 UTC+0100 Martin Vogel <vogel@inttec.de>

Browse Source
This commit is contained in:
Martin Vogel
2002-05-05 19:03:27 +00:00
parent 59d4e7bc1a
commit a11d2dd839
5 changed files with 197 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -7,6 +7,15 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
but will be kept in memory, what significantly increases the performance.
This may be especially helpful in case of creating temporary indexes for
reporting, etc.
2002-05-05 21:05 UTC+0100 Martin Vogel <vogel@inttec.de>
* contrib/libct/range.c
+ contrib/libct/tests/rangerem.prg
+ contrib/libct/tests/rangerepl.prg
* contrib/libct/tests/Makefile
* fix of a bug in RANGEREPL() and RANGEREM(): return string too long,
reported by Guenther Steiner <byte-one@aon.at>

23
harbour/contrib/libct/range.c
View File

@@ -70,7 +70,14 @@
* $DESCRIPTION$
* TODO: add documentation
* $EXAMPLES$
* ? rangerem ("0","9","year2002.dbf") // "year.dbf", remove all digits
* ? rangerem ("9","0","year2002.dbf") // "22", testing removal from "9" to chr(255)
* // and from chr(0) to "0"
* ? rangerem ("0","9","yearcurr.dbf") // "yearcurr.dbf", test leaving string untouched
* $TESTS$
* rangerem ("0","9","year2002.dbf") == "year.dbf"
* rangerem ("9","0","year2002.dbf") == "22"
* rangerem ("0","9","yearcurr.dbf") == "yearcurr.dbf"
* $STATUS$
* Started
* $COMPLIANCE$
@@ -140,7 +147,8 @@ HB_FUNC (RANGEREM)
}
}
hb_retclen (pcRet, sRetIndex+1);
hb_retclen (pcRet, sRetIndex);
hb_xfree (pcRet);
}
else /* ((hb_parclen (1) > 0) || ISNUM (1)) &&
@@ -196,7 +204,14 @@ HB_FUNC (RANGEREM)
* $DESCRIPTION$
* TODO: add documentation
* $EXAMPLES$
* ? rangerepl ("0","9","year2002.dbf","?") // "year????.dbf", replace all digits
* ? rangerepl ("9","0","year2002.dbf","?") // "????2??2????", testing replacement from "9" to chr(255)
* // and from chr(0) to "0"
* ? rangerepl ("0","9","yearcurr.dbf","?") // "yearcurr.dbf", test leaving string untouched
* $TESTS$
* rangerepl ("0","9","year2002.dbf","?") == "year????.dbf"
* rangerepl ("9","0","year2002.dbf","?") == "????2??2????"
* rangerepl ("0","9","yearcurr.dbf","?") == "yearcurr.dbf"
* $STATUS$
* Started
* $COMPLIANCE$
@@ -285,7 +300,7 @@ HB_FUNC (RANGEREPL)
if (ISBYREF (3))
{
hb_storclen (pcRet, sRetIndex+1, 3);
hb_storclen (pcRet, sStrLen, 3);
}
if (iNoRef)
@@ -294,8 +309,10 @@ HB_FUNC (RANGEREPL)
}
else
{
hb_retclen (pcRet, sRetIndex+1);
hb_retclen (pcRet, sStrLen);
}
hb_xfree (pcRet);
}
else /* ((hb_parclen (1) > 0) || ISNUM (1)) &&

2
harbour/contrib/libct/tests/Makefile
View File

@@ -71,6 +71,8 @@ PRG_SOURCES=\
math.prg \
num1.prg \
numtoken.prg \
rangerem.prg \
rangerepl.prg \
setatlik.prg \
strdiff.prg \
tab.prg \

83
harbour/contrib/libct/tests/rangerem.prg Normal file
View File

@@ -0,0 +1,83 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* Test CT3 function RANGEREM()
*
* Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany
* Author: Martin Vogel <vogel@inttec.de>
*
* 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 "../ct.ch"
procedure main
ctinit()
qout ("Begin test of RANGEREM()")
qout ("")
qout ([ rangerem ("0","9","year2002.dbf") == "year.dbf" ? --> "] + ;
rangerem ("0","9","year2002.dbf") + ["])
qout ([ rangerem ("9","0","year2002.dbf") == "22" ? --> "] + ;
rangerem ("9","0","year2002.dbf") + ["])
qout ([ rangerem ("0","9","yearcurr.dbf") == "yearcurr.dbf" ? --> "] + ;
rangerem ("0","9","yearcurr.dbf") + ["])
qout ("")
qout ("End test of RANGEREM()")
qout ("")
ctexit()
return

83
harbour/contrib/libct/tests/rangerep.prg Normal file
View File

@@ -0,0 +1,83 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* Test CT3 function RANGEREPL()
*
* Copyright 2002 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany
* Author: Martin Vogel <vogel@inttec.de>
*
* 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 "../ct.ch"
procedure main
ctinit()
qout ("Begin test of RANGEREPL()")
qout ("")
qout ([ rangerepl ("0","9","year2002.dbf","?") == "year????.dbf" ? --> "] + ;
rangerepl ("0","9","year2002.dbf","?") + ["])
qout ([ rangerepl ("9","0","year2002.dbf","?") == "????2??2????" ? --> "] + ;
rangerepl ("9","0","year2002.dbf","?") + ["])
qout ([ rangerepl ("0","9","yearcurr.dbf","?") == "yearcurr.dbf" ? --> "] + ;
rangerepl ("0","9","yearcurr.dbf","?") + ["])
qout ("")
qout ("End test of RANGEREPL()")
qout ("")
ctexit()
return