Texas Instruments TI-89 - Page 1058

1016
Appendix A: System Routines — Symbol Table Utilities
TI
-
89 / TI
-
92 Plus Developer Guide
Not for Distribution
Beta Version January 26, 2001
FolderCur
(continued)
Example:
(continued)
if ((dH = DialogNew(0, 0, NoCallBack)) != H_NULL) {
if (DialogAdd(dH,0,8,16,D_EDIT_FIELD,"Folder:",0,SYM_LEN,SYM_LEN) &&
DialogAdd(dH,0,0,0,D_HEADER,"CHANGE CUR FOLDER",PDB_OK,PDB_CANCEL)) {
memset( szBuf, 0, SYM_LEN );
redo:
if (KB_ENTER == DialogDo( dH,-1,-1, (char *) szBuf, NULL)) {
StrPtr = FirstNonblank((BYTE *) szBuf);
if (*StrPtr == '\0') {
redo2:
FolderGetCur( szBuf );
goto redo;
}
if (FS_OK == TokenizeFoldName((char *) szBuf, TokFName))
if (FolderCur(TokNameRight(TokFName),TRUE)) {
ST_folder( (char *) StrPtr );
DlgNotice( "FOLDER CHANGED TO", (char *) szBuf );
DialogFree( dH );
return( TRUE );
}
DlgNotice( "BAD NAME OR FOLDER NOT FOUND", (char *) szBuf );
goto redo2;
}
}
}
if (dH)
DialogFree( dH );
return(FALSE);
}
/* This routine is the same as TokenizeName in the file system except it does not
fully-qualify names (add folder name if not there) so it can be used to tokenize
folder names. */
WORD TokenizeFoldName( const char *strFileName, BYTE *TokFName )
{ EStackIndex oldTop;
if (oldTop = TokenizeSymName( (BYTE *) strFileName,0)) {
/* copy name from estack to buffer (may include trash at front) */
memcpy( TokFName, TokNameLeft(top_estack), MAX_SYM_LEN );
top_estack = oldTop; /* restore estack top */
return FS_OK;
} else
return FS_BAD_NAME;
}