void eVideoWidget::setPosition(int index, int left, int top, int width, int height)
{
char filenamebase[128];
snprintf(filenamebase, sizeof(filenamebase), "/usr/local/e2/etc/stb/vmpeg/%d/dst_", index);
std::string filename = filenamebase;
writeProc(filename + "left", left);
writeProc(filename + "top", top);
writeProc(filename + "width", width);
writeProc(filename + "height", height);
writeProc(filename + "apply", 1);
}
static void writelnProc(void) /* WRITELN procedure */
{
int32_t fileNumber = 0;
TRACE(lstFile, "[writelnProc]");
/* FORM: Just like WRITE */
getToken();
if (token == '(')
{
fileNumber = writeProc();
}
/* Skip to past end-of-line mark in the file (NOTE: No check is made, but
* this is meaningful only for a test file).
*/
pas_GenerateIoOperation(xWRITELN, fileNumber);
} /* end writelnProc */
void builtInProcedure(void)
{
TRACE(lstFile, "[builtInProcedure]");
/* Is the token a procedure? */
if (token == tPROC)
{
/* Yes, process it procedure according to the extended token type */
switch (tknSubType)
{
/* Standard Procedures & Functions */
case txPAGE :
fileProc(xWRITE_PAGE);
break;
case txREAD :
getToken();
(void)readProc();
break;
case txREADLN :
readlnProc();
break;
case txRESET :
fileProc(xRESET);
break;
case txREWRITE :
fileProc(xREWRITE);
break;
case txWRITE :
getToken();
(void)writeProc();
break;
case txWRITELN :
writelnProc();
break;
case txGET :
case txNEW :
case txPACK :
case txPUT :
case txUNPACK :
error(eNOTYET);
getToken();
break;
/* less-than-standard procedures */
case txVAL :
valProc();
break;
/* Its not a recognized procedure */
default :
error(eINVALIDPROC);
break;
} /* end switch */
} /* end if */
} /* end builtInProcedure */