Texas Instruments TI89 Developer Guide - Page 114
return some value then the following example will do that. The function
![]() |
UPC - 033317198566
View all Texas Instruments TI89 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 114 highlights
72 Chapter 8: Integrating a Flash Application if (hCommand = HeapAlloc(80)) { strcpy(pCommand = HeapDeref(hCommand), ProgName ); strcat(pCommand, "()" ); if (hResult = TIBASIC_run(hCommand, &errCode)) HeapFree(hResult); HeapFree(hCommand); if (errCode) { ERD_dialog( errCode, FALSE ); return(FALSE); } } return TRUE; } void DelVar( char *varName ) { BYTE nameBuf[MAX_SYM_LEN]; TRY if (FS_OK == TokenizeName( varName, nameBuf )) cmd_delvar( TokNameRight(nameBuf) ); ONERR ENDTRY } static void AP_app(pFrame self, PEvent e) { HANDLE hVal; switch (e->command) { case CM_ACTIVATE: if (!runningBASIC) { push_quantum( END_TAG ); EV_defaultHandler(e); if (StoProg( "prog1", prog1Data )) RunProg( "prog1" ); DelVar( "prog1" ); EV_quit(); } break; case CM_QUIT: break; default: EV_defaultHandler(e); break; } } The previous example showed how to run a TI-BASIC program from an application. If an application just needs to execute a function or expression to return some value then the following example will do that. The function tCmdLineDriver below inputs a string from the user using a dialog box. It then calls the function CmdLine to execute that string and return a value. The return value is stored to a global variable, E1. If there is an error then an error dialog is displayed. The CmdLine function will evaluate the string and return a value on the estack. It will not evaluate anything that has side effects - that is the TI-89 / TI-92 Plus Developer Guide Not for Distribution Beta Version January 26, 2001
![](/manual_guide/products/texas-instruments-ti89-developer-guide-95b636f/114.png)