From 4d3a4078329e57621a01cefb5d37adda54079ca1 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Thu, 1 Mar 2001 09:51:37 +0000 Subject: [PATCH] New ISOBJECT() function added --- harbour/include/hbapi.h | 1 + 1 file changed, 1 insertion(+) diff --git a/harbour/include/hbapi.h b/harbour/include/hbapi.h index 54371ad8ce..fc21ba71cf 100644 --- a/harbour/include/hbapi.h +++ b/harbour/include/hbapi.h @@ -94,6 +94,7 @@ extern "C" { #define ISMEMO( n ) ( hb_param( n, HB_IT_MEMO ) != NULL ) #define ISBYREF( n ) ( hb_parinfo( n ) & HB_IT_BYREF ) /* NOTE: Intentionally using a different method */ #define ISARRAY( n ) ( hb_param( n, HB_IT_ARRAY ) != NULL ) +#define ISOBJECT( n ) ( ISARRAY( n ) && hb_param( n, HB_IT_ARRAY )->asArray.value->uiClass != 0 ) #define ISBLOCK( n ) ( hb_param( n, HB_IT_BLOCK ) != NULL ) /* Not available in CA-Cl*pper. */ #define ISPOINTER( n ) ( hb_param( n, HB_IT_POINTER ) != NULL ) /* Not available in CA-Cl*pper. */