ec13203192
* src/vm/itemapi.c
- hb_itemGetNL() no longer works for date types.
INCOMPATIBLE. If you used it to retrieve date/time,
use hb_itemGetDL() instead.
! Fixed typo in prev addition.
* include/hbapi.h
* src/vm/arrays.c
+ Added hb_arrayGetNSize(), hb_arraySetNSize().
! Fixed old typo in TRACE() call of hb_arrayGetNInt().
* src/vm/extend.c
! Fixed typo in prev addition.
* src/rtl/filesys.c
! Applied fixed from Przemek to hb_fsReadAt()/hb_fsWriteAt()
code to be MT safe plus fix other problems.
; QUESTION: Shouls the same applied to hb_fsWriteLarge()/hb_fsReadLarge()
loops? (BTW inactive in 32-bit Harbour builds)
* contrib/hbct/screen2.c
! Type cleanup.
* contrib/hbct/pack.c
* contrib/xhb/hbxml.c
* contrib/xhb/hbxml.h
* contrib/hbgt/charmixg.c
* contrib/hbgt/charodd.c
* contrib/hbgt/strexpan.c
* contrib/hbgt/asciisgt.c
* contrib/hbgt/strright.c
* contrib/hbgt/strasint.c
* contrib/hbgt/strdiffg.c
* contrib/hbgt/chrtotal.c
* contrib/hbgt/strcount.c
* contrib/hbgt/strleft.c
* contrib/hbgt/chrfirst.c
* contrib/hbgt/chrcount.c
* contrib/hbgt/strpbrk.c
* contrib/hbgt/chareven.c
* contrib/hbgt/bitflags.c
* contrib/hbgt/strcspn.c
* contrib/hbgt/atdiff.c
* contrib/hbnf/proper.c
* contrib/hbnf/getenvrn.c
! Fixed to use Harbour size types.
* contrib/hbnf/dispc.c
! Started using Harbour type, but this is code is
deadly and needs further work. I still wonder how
to create code which mixes properly HB_FOFFSET and
HB_SIZE.
* contrib/xhb/cstructc.c
* Formatting.
143 lines
3.5 KiB
C
143 lines
3.5 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* File......: proper.c
|
|
* Author....: Robert DiFalco and Glenn Scott
|
|
* CIS ID....: 71610,1705
|
|
*
|
|
* This is an original work by Glenn Scott and Robert DiFalco
|
|
* and is placed in the public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.4 01 Jan 1995 03:01:00 TED
|
|
* Ted Means made a couple of minor mods to eliminate some (mostly
|
|
* benign) compiler warnings.
|
|
*
|
|
* Rev 1.3 28 Sep 1992 00:54:58 GLENN
|
|
* Don Caton fixed the function to conform to extend system rules.
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:08:22 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:53:50 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 01 Apr 1991 01:02:56 GLENN
|
|
* Nanforum Toolkit
|
|
*
|
|
*
|
|
*/
|
|
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* FT_PROPER()
|
|
* $CATEGORY$
|
|
* String
|
|
* $ONELINER$
|
|
* Convert a string to proper-name case
|
|
* $SYNTAX$
|
|
* FT_PROPER( <cString> ) -> cProperName
|
|
* $ARGUMENTS$
|
|
* <cString> is the string to be converted.
|
|
* $RETURNS$
|
|
* A string of the same length as <cString>, only converted to
|
|
* proper name case (upper/lower case).
|
|
* $DESCRIPTION$
|
|
* FT_PROPER() uses a brute-force algorithm to convert a string
|
|
* to propername case. First, it capitalizes the first letter of
|
|
* all words starting after a blank, dash, or apostrophe. This
|
|
* catches most names, including special cases such as names
|
|
* beginning with O' (O'Malley, O'Reilly) and hyphenated names
|
|
* (such as Susan Chia-Mei Lo).
|
|
*
|
|
* Next, it does a specific adjustment for words beginning in "Mc"
|
|
* It finds the first 'Mc' and capitalizes the next character after
|
|
* it. It does this for all occurrences of Mc.
|
|
*
|
|
* The original FT_PROPER() was written in Clipper by Glenn Scott
|
|
* and Mark Zechiel; it was re-written in C (and thus, optimized
|
|
* and enhanced) by Robert DiFalco.
|
|
* $EXAMPLES$
|
|
* FUNCTION main( cStr )
|
|
* OutStd( FT_PROPER( cStr ) + chr(13) + chr(10) )
|
|
* RETURN ( nil )
|
|
* $END$
|
|
*/
|
|
|
|
|
|
#include "hbapi.h"
|
|
|
|
static char _ftToLower( char c )
|
|
{
|
|
return c >= 'A' && c <= 'Z' ? c - 'A' + 'a' : c;
|
|
}
|
|
|
|
static char _ftToUpper( char c )
|
|
{
|
|
return c >= 'a' && c <= 'z' ? c - 'a' + 'A' : c;
|
|
}
|
|
|
|
static HB_BOOL _ftIsUpper( char c )
|
|
{
|
|
return c >= 'A' && c <= 'Z';
|
|
}
|
|
|
|
static HB_BOOL _ftIsLower( char c )
|
|
{
|
|
return c >= 'a' && c <= 'z';
|
|
}
|
|
|
|
static HB_BOOL _ftIsAlpha( char c )
|
|
{
|
|
return _ftIsUpper(c) || _ftIsLower(c);
|
|
}
|
|
|
|
HB_FUNC( FT_PROPER )
|
|
{
|
|
HB_ISIZ iLen = hb_parclen(1);
|
|
const char *cStr;
|
|
char *cDst = NULL;
|
|
HB_ISIZ i; /*, iPos = 0; */
|
|
HB_BOOL fCap = HB_TRUE;
|
|
|
|
hb_storc( NULL, 1 );
|
|
cStr = hb_parc(1);
|
|
|
|
for( i = 0; i < iLen; i++ ) {
|
|
if( _ftIsAlpha( cStr[i] ) ) {
|
|
if( !cDst ) {
|
|
cDst = (char *) hb_xgrab(iLen + 1);
|
|
memcpy(cDst, cStr, iLen + 1);
|
|
}
|
|
if( fCap )
|
|
cDst[i] = _ftToUpper( cDst[i] );
|
|
else
|
|
cDst[i] = _ftToLower( cDst[i] );
|
|
}
|
|
fCap = ( cStr[i] == ' ' || cStr[i] == '-' || cStr[i] == 0x27 );
|
|
}
|
|
|
|
/* Find "Mc" */
|
|
if( cDst ) {
|
|
for( i = 0; i < iLen - 2; i++ )
|
|
if( cStr[i] == 'M' && cStr[i+1] == 'c' ) {
|
|
cDst[i+2] = _ftToUpper( cDst[i+2] );
|
|
}
|
|
}
|
|
/* // If "Mc" was found, Cap next letter if Alpha
|
|
if( iPos > 1 )
|
|
if( iPos < iLen )
|
|
if( ! _ftIsUpper( cStr[iPos] ) )
|
|
cStr[iPos] = _ftToUpper( cStr[iPos] );
|
|
*/
|
|
if( cDst )
|
|
hb_retclen_buffer( cDst, iLen );
|
|
else
|
|
hb_retclen( cStr, iLen );
|
|
}
|