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

2002-02-04 17:15 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>

Browse Source
This commit is contained in:
Ignacio Ortiz de Zuniga
2002-02-04 16:14:09 +00:00
parent 40fdd1505d
commit b75cf4d5f9
1 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
harbour/source/rtl/at.c
View File

@@ -56,6 +56,24 @@
/* locates a substring in a string */
#if defined( HB_C52_STRICT )
HB_FUNC( AT )
{
PHB_ITEM pSub = hb_param( 1, HB_IT_STRING );
PHB_ITEM pText = hb_param( 2, HB_IT_STRING );
if( pText && pSub )
{
hb_retnl( hb_strAt( hb_itemGetCPtr( pSub ), hb_itemGetCLen( pSub ),
hb_itemGetCPtr( pText ), hb_itemGetCLen( pText ) ) );
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1108, NULL, "AT", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
}
#else
HB_FUNC( AT )
{
PHB_ITEM pSub = hb_param( 1, HB_IT_STRING );
@@ -83,4 +101,6 @@ HB_FUNC( AT )
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1108, NULL, "AT", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
}
}
#endif