af2b63500f
* src/vm/macro.c
* src/vm/strapi.c
* src/vm/runner.c
* src/vm/codebloc.c
* src/vm/hashes.c
* src/vm/debug.c
* src/vm/itemapi.c
* src/vm/hvm.c
* src/vm/arrays.c
* src/vm/fm.c
* src/vm/memvars.c
* src/vm/extend.c
* src/common/hbstr.c
* src/common/hbmem.c
* src/rtl/descend.c
* src/rtl/gtapi.c
* src/rtl/filesys.c
* src/rtl/console.c
* src/rtl/hbgtcore.c
* src/rtl/cdpapi.c
* src/rtl/hardcr.c
* src/rtl/inkeyapi.c
* src/rtl/mtran.c
* src/rtl/hbproces.c
* src/rtl/ati.c
* contrib/hbct/ctwin.c
* contrib/xhb/xhbat.c
* contrib/xhb/freadlin.c
* contrib/xhb/txtline.c
* contrib/xhb/cstructc.c
* contrib/hbgt/strasint.c
* contrib/hbmisc/stringsx.c
* contrib/hbwin/win_prn3.c
+ Using HB_PFS format in HB_TRACE() format strings.
* contrib/xhb/freadlin.c
* contrib/xhb/txtline.c
* Variable names prefixed.
* src/vm/macro.c
* Deleted unnecessary '( void * )' casts.
* INSTALL
* Cleaned pocc support information.
* contrib/hbct/files.c
* contrib/hbct/color.c
* contrib/hbct/ctwfunc.c
* contrib/hbct/print.c
% Optimized to use hb_parn*def() calls instead of inline-if expression
(where default value is constant or simple variable).
108 lines
2.3 KiB
C
108 lines
2.3 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
|
|
static const char *hb_strtoken(const char *szText,
|
|
HB_ISIZ lText,
|
|
HB_ISIZ lIndex,
|
|
char cDelimiter,
|
|
HB_ISIZ *lLen)
|
|
{
|
|
HB_ISIZ wStart;
|
|
HB_ISIZ wEnd = 0;
|
|
HB_ISIZ wCounter = 0;
|
|
|
|
HB_TRACE(HB_TR_DEBUG, ("hb_strtoken(%s, %" HB_PFS "d, %" HB_PFS "d, %d, %p)", szText, lText, lIndex, (int) cDelimiter, lLen));
|
|
|
|
do
|
|
{
|
|
wStart = wEnd;
|
|
|
|
if( cDelimiter != ' ' )
|
|
{
|
|
if( szText[wStart] == cDelimiter )
|
|
wStart++;
|
|
}
|
|
else
|
|
{
|
|
while( wStart < lText && szText[wStart] == cDelimiter )
|
|
wStart++;
|
|
}
|
|
|
|
if( wStart < lText && szText[wStart] != cDelimiter )
|
|
{
|
|
wEnd = wStart + 1;
|
|
|
|
while( wEnd < lText && szText[wEnd] != cDelimiter )
|
|
wEnd++;
|
|
}
|
|
else
|
|
wEnd = wStart;
|
|
} while( wCounter++ < lIndex - 1 && wEnd < lText );
|
|
|
|
if( wCounter < lIndex )
|
|
{
|
|
*lLen = 0;
|
|
return "";
|
|
}
|
|
else
|
|
{
|
|
*lLen = wEnd - wStart;
|
|
return szText + wStart;
|
|
}
|
|
}
|
|
|
|
/* returns the nth occurence of a substring within a token-delimited string */
|
|
HB_FUNC( STRTOKEN )
|
|
{
|
|
const char *szText;
|
|
HB_ISIZ lIndex = hb_parns(2);
|
|
char cDelimiter = *hb_parc(3);
|
|
HB_ISIZ lLen;
|
|
|
|
if( !cDelimiter )
|
|
cDelimiter = ' ';
|
|
|
|
szText = hb_strtoken(hb_parc(1), hb_parclen(1), lIndex, cDelimiter, &lLen);
|
|
|
|
hb_storns(lLen, 4);
|
|
hb_retclen(szText, lLen);
|
|
}
|
|
|
|
/* debug function to dump the ASCII values of an entire string */
|
|
HB_FUNC( STRDUMP )
|
|
{
|
|
const char *szText = hb_parc(1);
|
|
HB_ISIZ i, lLength = hb_parclen(1);
|
|
for( i = 0; i < lLength; i++ )
|
|
printf("%d ", szText[i]);
|
|
printf("\n");
|
|
}
|
|
|
|
HB_FUNC( ROT13 )
|
|
{
|
|
if( HB_ISCHAR(1) )
|
|
{
|
|
const char *szText = hb_parc( 1 );
|
|
HB_SIZE i, lLen = hb_parclen( 1 );
|
|
char *szResult = (char*)hb_xgrab(lLen + 1);
|
|
|
|
for( i = 0; i < lLen; i++ )
|
|
{
|
|
char c = szText[i];
|
|
if( (c >= 'A' && c <= 'M') || (c >= 'a' && c <= 'm') )
|
|
c += 13;
|
|
else if( (c >= 'N' && c <= 'Z') || (c >= 'n' && c <= 'z') )
|
|
c -= 13;
|
|
|
|
szResult[i] = c;
|
|
}
|
|
hb_retclen(szResult, lLen);
|
|
hb_xfree(szResult);
|
|
}
|
|
else
|
|
hb_retc_null();
|
|
}
|