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

New function hb_itemPutCConst() added

Browse Source
This commit is contained in:
Antonio Linares
2002-01-29 09:00:41 +00:00
parent bcdf083e9f
commit 4ac6e84d37
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
harbour/source/vm/itemapi.c
View File

@@ -206,6 +206,26 @@ PHB_ITEM hb_itemPutC( PHB_ITEM pItem, char * szText )
return pItem;
}
PHB_ITEM hb_itemPutCConst( PHB_ITEM pItem, char * szText )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutCConst(%p, %s)", pItem, szText));
if( pItem )
hb_itemClear( pItem );
else
pItem = hb_itemNew( NULL );
if( szText == NULL )
szText = "";
pItem->type = HB_IT_STRING;
pItem->item.asString.length = strlen( szText );
pItem->item.asString.value = szText;
pItem->item.asString.bPcode = TRUE;
return pItem;
}
PHB_ITEM hb_itemPutCL( PHB_ITEM pItem, char * szText, ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutCL(%p, %s, %lu)", pItem, szText, ulLen));