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

hb_parc() use made clipper compatible

Browse Source
This commit is contained in:
Antonio Linares
2002-10-19 18:03:35 +00:00
parent 0ce1904ee3
commit e5c134a59b
1 changed files with 24 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
harbour/source/rtl/is.c
View File

@@ -58,27 +58,46 @@
HB_FUNC( ISALPHA )
{
hb_retl( isalpha( ( int ) *hb_parc( 1 ) ) );
char * szString = hb_parc( 1 );
if( szString != NULL )
hb_retl( isalpha( ( int ) * szString ) );
else
hb_retl( FALSE );
}
/* determines if first char of string is digit */
HB_FUNC( ISDIGIT )
{
hb_retl( isdigit( ( int ) *hb_parc( 1 ) ) );
char * szString = hb_parc( 1 );
if( szString != NULL )
hb_retl( isdigit( ( int ) * szString ) );
else
hb_retl( FALSE );
}
/* determines if first char of string is upper-case */
HB_FUNC( ISUPPER )
{
hb_retl( isupper( ( int ) *hb_parc( 1 ) ) );
char * szString = hb_parc( 1 );
if( szString != NULL )
hb_retl( isupper( ( int ) * szString ) );
else
hb_retl( FALSE );
}
/* determines if first char of string is lower-case */
HB_FUNC( ISLOWER )
{
hb_retl( islower( ( int ) *hb_parc( 1 ) ) );
}
char * szString = hb_parc( 1 );
if( szString != NULL )
hb_retl( islower( ( int ) * szString ) );
else
hb_retl( FALSE );
}