Texas Instruments TI-89 Developer's Manual page 1131

Appendix A: System Routines — Token Operations
NG_RPNToText
Example:
(continued)
while (KB_ENTER == Dialog( &dGetName,-1,-1, inpBuf, NULL)) {
if (FS_OK == TokenizeName( inpBuf, nameBuf ))
if (hsym = SymFindMain( TokNameRight(nameBuf) )) {
SymPtr = DerefSym( hsym );
if (hVal = SymPtr->hVal) {
switch ((BYTE) *HToESI( hVal ))
/* NG_RPNToText cannot handle these types */
case GEO_FILE_TAG:
case GEO_MACRO_TAG:
case DATA_VAR_TAG:
case GDB_VAR_TAG:
case ASM_PRGM_TAG:
case PIC_VAR_TAG:
case GEN_DATA_TAG:
case TEXT_VAR_TAG:
/* programs/functions are special, would need
case USER_DEF_TAG:
default:
} /* end switch */
} else
DlgNotice( "ERROR", "Symbol has no value" );
} else
DlgNotice( "ERROR", "Symbol not found" );
} /* end while */
} /* end vSym */
TI-89 / TI-92 Plus Developer Guide
(continued)
DlgNotice( "NOTE", "Can not display value" );
break;
to use GetFuncPrgmBodyPtr */
DlgNotice( "NOTE", "Program or function" );
break;
HeapLock( hVal ); /* tokenized */
TRY
hText = NG_RPNToText( hVal, TRUE, TRUE );
ONERR
hText = H_NULL;
ERD_dialog( errCode, FALSE );
ENDTRY
HeapUnlock( hVal );
if (hText) {
HeapLock( hText );
DlgNotice( (char *) inpBuf, (char *) (HeapDeref(hText)) );
HeapFree( hText );
}
Not for Distribution
{
Beta Version January 26, 2001
1089