static Retcode
do_string(Environ *e, Byte *str)
{
Retcode ret = NO_ERROR;
if (e->istokenizing)
{
compile_fcode(e, 0x12); /* b(") */
ret = compile_str(e, str + 1, *(uByte*)str);
}
else if (e->iscompiling)
{
compile_fcode(e, 0x712);
ret = compile_str(e, str + 1, *(uByte*)str);
if (ret == NO_ERROR)
ret = compile_byte(e, '\0'); /* null-terminate */
}
else
{
IFCKSP(e, 0, 2);
PUSHP(e, str + 1);
PUSH(e, *(uByte*)str);
}
return ret;
}
int main(int argc,char** argv) {
//testvas();
gArgc = argc;
gArgv = argv;
if(argc > 1)
f = (frameKernel_t)compile_file(argv[1]);
else
f = (frameKernel_t)compile_str();
ProcessVideo();
release_function((void*&)f);
if(gVideoIn) free(gVideoIn);
if(gVideoOut) free(gVideoOut);
}
