clyne/calculator
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

libinterp changes

Browse Source
This commit is contained in:
Clyne 2018-04-02 12:29:22 -04:00
parent 769b3dbcea
commit 275677dd44
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
libinterp.a
View File

Binary file not shown.

26
src/main.c
View File

@ -90,12 +90,14 @@ void task_interpreter(void)
instance *it = inewinstance();
script_loadlib(it);
// load '/init' file
char *s = initrd_readfile("init");
if (s == 0) {
dsp_puts("can't find init");
goto end;
}
// read in, parse into script code
char *linebuf = (char *)malloc(120);
uint32_t i = 0, prev = 0, lc;
uint32_t size = initrd_filesize("init");
@ -109,21 +111,27 @@ void task_interpreter(void)
}
strncpy(linebuf, s + prev, lc + 1);
linebuf[lc] = '\0';
ret = idoline(it, linebuf);
if (ret < 0)
break;
ret = iaddline(it, linebuf);
if (ret != 0)
goto fail;
prev = ++i;
}
if (ret < 0) {
dsp_puts("\nError: ");
dsp_puts(itoa(ret, linebuf, 10));
}
free(linebuf);
//iend(&it); // nah
// run the script
ret = irun(it);
if (ret != 0)
goto fail;
idelinstance(it);
end:
while (1)
delay(10);
fail:
if (ret < 0) {
dsp_puts("\nError: ");
dsp_puts(itoa(ret, linebuf, 10));
}
goto end;
}