int
main()
{
Bdisp_AllClr_VRAM();
Bdisp_EnableColor(1);
DefineStatusAreaFlags(3, SAF_BATTERY | SAF_TEXT | SAF_GLYPH | SAF_ALPHA_SHIFT, 0, 0);
// disable Catalog function throughout the add-in, as we don't know how to make use of it:
Bkey_SetAllFlags(0x80);
printf("Welcome to Eigenmath\n");
printf("To see version information,\npress Shift then Menu.\n");
run_startup_script();
aborttimer = Timer_Install(0, check_execution_abort, 100);
if (aborttimer > 0) { Timer_Start(aborttimer); }
//in case we're running in a strip, check if this strip has a script to run.
if(is_running_in_strip()) {
int MCSsize;
MCSGetDlen2(DIRNAME, SCRIPTFILE, &MCSsize);
if (MCSsize > 0) {
// there is a script to run...
unsigned char* asrc = (unsigned char*)alloca(MCSsize*sizeof(unsigned char)+5); // 5 more bytes to make sure it fits...
MCSGetData1(0, MCSsize, asrc); // read script from MCS
execution_in_progress = 1;
run((char*)asrc);
execution_in_progress = 0;
}
}
input_eval_loop(0);
}
static void tccgui_init()
{
script_key_mq = (struct msg_queue *) msg_queue_create("script_key", 10);
find_scripts();
run_startup_script();
menu_add("Scripts", tccgui_menu, MIN(script_cnt, COUNT(tccgui_menu)));
}
void input_eval_loop(int isRecording) {
char** recHistory = NULL; int curRecHistEntry = 0;
if(isRecording) recHistory = (char**)alloca(200); // space for 200 pointers to history entries
while (1) {
DefineStatusMessage((char*)"", 1, 0, 0);
strcpy(expr, (char*)"");
printf("\x1e");
dConsoleRedraw();
int res = gets(expr,INPUTBUFLEN);
if(res == 2) {
dConsolePut("\n");
select_script_and_run();
continue;
}
if(res == 4) {
dConsolePut("\n");
select_strip_script();
continue;
}
if(res == 3) {
dConsolePut("\n");
char buf[100] = "";
sprintf(buf, "prizmUIkeyHandler(%d,%d)", custom_key_to_handle, custom_key_to_handle_modifier);
strcpy(expr, (char*)buf);
execution_in_progress = 1;
run(buf);
execution_in_progress = 0;
check_do_graph();
if(run_startup_script_again) { run_startup_script_again = 0; run_startup_script(); }
continue;
}
puts(expr);
update_cmd_history(expr);
dConsoleRedraw();
if(strcmp(expr, "testmode") == 0) {
TestMode(1);
} else if(strcmp(expr, "meminfo") == 0) {
print_mem_info();
} else if(strcmp(expr, "memgc") == 0) {
gc();
} else if(strcmp(expr, "record") == 0) {
if(!isRecording) script_recorder();
else {
// create and save a script. this must be done here, because we used alloca
// the "clean" way would be using malloc&free, but on the Prizm the heap is already being heavily used by the Eigenmath core.
if(curRecHistEntry == 0) {
printf("Nothing to record.\n");
return;
}
printf("Recording stopped.\n");
printf("Type a name for the script, or\n");
printf("leave empty to discard.\n:");
char inputname[MAX_FILENAME_SIZE+1] = "";
gets(inputname,MAX_FILENAME_SIZE-50);
puts(inputname);
if(!strlen(inputname)) {
// user aborted
printf("Recording discarded.\n");
return;
}
if (aborttimer > 0) {
Timer_Stop(aborttimer);
Timer_Deinstall(aborttimer);
}
char filename[MAX_FILENAME_SIZE+1] = "";
sprintf(filename, "\\\\fls0\\%s.txt", inputname);
unsigned short pFile[MAX_FILENAME_SIZE+1];
Bfile_StrToName_ncpy(pFile, (unsigned char*)filename, strlen(filename)+1);
// calculate size
int size = 0;
int maxHistory = curRecHistEntry - 1; //because we ++'ed at the end of last addition
for(int i=0; i <= maxHistory; i++) {
size = size + strlen(recHistory[i]) + 1; // 1 byte for \n. we will use unix line termination
}
int BCEres = Bfile_CreateEntry_OS(pFile, CREATEMODE_FILE, &size);
if(BCEres >= 0) // Did it create?
{
BCEres = Bfile_OpenFile_OS(pFile, READWRITE, 0); // Get handle
for(int i=0; i <= maxHistory; i++) {
char* buf = (char*)alloca(strlen(recHistory[i])+5);
strcpy(buf, recHistory[i]);
strcat(buf, (char*)"\n");
Bfile_WriteFile_OS(BCEres, buf, strlen(recHistory[i])+1);
}
Bfile_CloseFile_OS(BCEres);
printf("Script created.\n");
} else {
printf("An error occurred when creating the script for recording.\n");
}
aborttimer = Timer_Install(0, check_execution_abort, 100);
if (aborttimer > 0) Timer_Start(aborttimer);
return;
}
} else {
execution_in_progress = 1;
has_drawn_graph = 0;
run(expr);
// run_startup_script cannot run from inside eval_clear because then it would be a run() inside a run()
if(run_startup_script_again) { run_startup_script_again = 0; run_startup_script(); }
execution_in_progress = 0;
// if recording, add input to record
if(isRecording && curRecHistEntry <= 200) {
recHistory[curRecHistEntry] = (char*)alloca(strlen(expr)+2); // 2 bytes for security
strcpy(recHistory[curRecHistEntry], expr);
curRecHistEntry++;
}
check_do_graph();
}
}
}
