129 lines
3.2 KiB
C
129 lines
3.2 KiB
C
/* $Doc$
|
|
* $Description$ Debug functions.
|
|
* $Requirement$ source\rtl\itemapi.c (1999/05/04)
|
|
* $Date$ 1999/05/06
|
|
* $End$ */
|
|
|
|
#include <extend.h>
|
|
#include <ctoharb.h>
|
|
#include <ctype.h>
|
|
|
|
extern STACK stack; /* External data used */
|
|
extern ITEM aStatics;
|
|
PITEM _itemReturn( PITEM ); /* External functions used */
|
|
PITEM _itemArrayNew( ULONG );
|
|
PITEM _itemArrayPut( PITEM, ULONG, PITEM );
|
|
PITEM _itemNew( PITEM );
|
|
PITEM ArrayClone( PITEM );
|
|
|
|
/* $Doc$
|
|
* $FuncName$ <aStat> __aStatic()
|
|
* $Description$ Return the statics array
|
|
* $End$ */
|
|
HARBOUR __ASTATIC()
|
|
{
|
|
_itemReturn( &aStatics );
|
|
}
|
|
|
|
|
|
/* $Doc$
|
|
* $FuncName$ <xStat> __Static(<nStatic>)
|
|
* $Description$ Return a specified statics
|
|
* $End$ */
|
|
HARBOUR __STATIC()
|
|
{
|
|
PITEM pStatic;
|
|
WORD wStatic;
|
|
|
|
wStatic = _parni(1);
|
|
pStatic = ( ( PBASEARRAY ) aStatics.value.pBaseArray )->pItems + stack.iStatics +
|
|
wStatic - 1;
|
|
_itemReturn( pStatic );
|
|
}
|
|
|
|
|
|
/* $Doc$
|
|
* $FuncName$ <nVars> __StackLen()
|
|
* $Description$ Returns the length of the stack
|
|
* $End$ */
|
|
WORD StackLen()
|
|
{
|
|
WORD nCount = 0;
|
|
PITEM p;
|
|
|
|
for( p = stack.pItems; p <= stack.pPos; p++, nCount++ );
|
|
return( nCount );
|
|
}
|
|
HARBOUR __STACKLEN()
|
|
{
|
|
_retni( StackLen() );
|
|
}
|
|
|
|
|
|
/* $Doc$
|
|
* $FuncName$ <aStack> __aStack()
|
|
* $Description$ Returns the stack
|
|
* $End$ */
|
|
HARBOUR __STACK()
|
|
{
|
|
PITEM pReturn;
|
|
PITEM p;
|
|
PITEM pTemp;
|
|
|
|
WORD wLen;
|
|
WORD wPos = 1;
|
|
|
|
pReturn = _itemArrayNew( wLen=StackLen() ); /* Create a transfer array */
|
|
for( p = stack.pItems; p <= stack.pPos ; wPos++, p++ )
|
|
{
|
|
switch( p->wType )
|
|
{
|
|
case IT_SYMBOL: /* Symbol is pushed as text */
|
|
{
|
|
pTemp = _itemNew(NULL); /* Create temporary string */
|
|
pTemp->wType = IT_STRING;
|
|
pTemp->wLength = strlen( p->value.pSymbol->szName )+2;
|
|
pTemp->value.szText = (char *) _xgrab( pTemp->wLength+1 );
|
|
|
|
sprintf( pTemp->value.szText,
|
|
"[%s]", p->value.pSymbol->szName );
|
|
|
|
_itemArrayPut( pReturn, wPos, pTemp );
|
|
ItemRelease( pTemp ); /* Get rid of temporary str.*/
|
|
_xfree( pTemp );
|
|
break;
|
|
}
|
|
|
|
case IT_NIL: /* Normal types */
|
|
case IT_ARRAY:
|
|
case IT_BLOCK:
|
|
case IT_DATE:
|
|
case IT_DOUBLE:
|
|
case IT_LOGICAL:
|
|
case IT_LONG:
|
|
case IT_INTEGER:
|
|
case IT_STRING:
|
|
{
|
|
_itemArrayPut( pReturn, wPos, p );
|
|
break;
|
|
}
|
|
default:
|
|
{
|
|
pTemp = _itemNew(NULL); /* Create temporary string */
|
|
pTemp->wType = IT_STRING;
|
|
pTemp->wLength = strlen( p->value.pSymbol->szName )+2;
|
|
pTemp->value.szText = (char *) _xgrab( pTemp->wLength+1 );
|
|
|
|
sprintf( pTemp->value.szText, "?type=%i?", p->wType );
|
|
|
|
_itemArrayPut( pReturn, wPos, pTemp );
|
|
ItemRelease( pTemp ); /* Get rid of temporary str.*/
|
|
_xfree( pTemp );
|
|
}
|
|
}
|
|
}
|
|
_itemReturn( pReturn );
|
|
ItemRelease( pReturn );
|
|
_xfree( pReturn );
|
|
}
|