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

2002-02-01 12:10 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>

Browse Source
This commit is contained in:
Ignacio Ortiz de Zuniga
2002-02-01 11:11:40 +00:00
parent dcdc31e46f
commit cc3eca0a85
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/source/rtl/transfrm.c
View File

@@ -513,11 +513,11 @@ HB_FUNC( TRANSFORM )
{
BOOL bDone = FALSE;
szResult = ( char * ) hb_xgrab( ulPicLen + 1 );
ulResultPos = 1;
if( ulPicLen ) /* Template string */
{
szResult = ( char * ) hb_xgrab( ulPicLen + 1 );
switch( *szPic )
{
case 'y': /* Yes/No */
@@ -549,7 +549,10 @@ HB_FUNC( TRANSFORM )
}
}
else
{
szResult = ( char * ) hb_xgrab( 2 );
*szResult = hb_itemGetL( pValue ) ? 'T' : 'F';
}
/* Any chars left */
if( ( uiPicFlags & PF_REMAIN ) && ulPicLen )
@@ -560,7 +563,7 @@ HB_FUNC( TRANSFORM )
/* Logical written ? */
if( ! bDone )
szResult[ ulResultPos++ ] = hb_itemGetL( pValue ) ? 'T' : 'F';
szResult[ ulResultPos - 1 ] = hb_itemGetL( pValue ) ? 'T' : 'F';
}
}
else
@@ -604,7 +607,10 @@ HB_FUNC( TRANSFORM )
char * szStr = hb_itemStr( pValue, NULL, NULL );
if( szStr )
hb_retc_buffer( szStr );
{
hb_retc( szStr );
hb_xfree( szStr );
}
else
hb_retc( NULL );
}
@@ -630,4 +636,3 @@ HB_FUNC( TRANSFORM )
if( bError )
hb_errRT_BASE_SubstR( EG_ARG, 1122, NULL, "TRANSFORM", 2, pValue, hb_paramError( 2 ) );
}