From e5c134a59b2ca5c2cd4c3ce7fd7bedd31ca4b08c Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 19 Oct 2002 18:03:35 +0000
Subject: [PATCH] hb_parc() use made clipper compatible

---
 harbour/source/rtl/is.c | 29 ++++++++++++++++++++++++-----
 1 file changed, 24 insertions(+), 5 deletions(-)

diff --git a/harbour/source/rtl/is.c b/harbour/source/rtl/is.c
index 58b99cd75a..354b757a52 100644
--- a/harbour/source/rtl/is.c
+++ b/harbour/source/rtl/is.c
@@ -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 );
+}