izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 23:28:05 +11:00
Code Issues Releases Wiki Activity

emul/forth: allow running commands from file

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-11 19:03:47 -04:00
parent 3996f0c825
commit abdf2c8adc
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
emul/forth/forth.c
View File

@ -10,10 +10,11 @@
#define STDIO_PORT 0x00 #define STDIO_PORT 0x00
static int running; static int running;
static FILE *fp;
static uint8_t iord_stdio() static uint8_t iord_stdio()
{ {
int c = getchar(); int c = getc(fp);
if (c == EOF) { if (c == EOF) {
running = 0; running = 0;
} }
@ -31,8 +32,17 @@ static void iowr_stdio(uint8_t val)
int main(int argc, char *argv[]) int main(int argc, char *argv[])
{ {
bool tty = isatty(fileno(stdin)); bool tty = false;
struct termios termInfo; struct termios termInfo;
if (argc == 2) {
fp = fopen(argv[1], "r");
if (fp == NULL) {
fprintf(stderr, "Can't open %s\n", argv[1]);
return 1;
}
} else if (argc == 1) {
fp = stdin;
tty = isatty(fileno(stdin));
if (tty) { if (tty) {
// Turn echo off: the shell takes care of its own echoing. // Turn echo off: the shell takes care of its own echoing.
if (tcgetattr(0, &termInfo) == -1) { if (tcgetattr(0, &termInfo) == -1) {
@ -43,7 +53,10 @@ int main(int argc, char *argv[])
termInfo.c_lflag &= ~ICANON; termInfo.c_lflag &= ~ICANON;
tcsetattr(0, TCSAFLUSH, &termInfo); tcsetattr(0, TCSAFLUSH, &termInfo);
} }
} else {
fprintf(stderr, "Usage: ./forth [filename]\n");
return 1;
}
Machine *m = emul_init(); Machine *m = emul_init();
m->ramstart = RAMSTART; m->ramstart = RAMSTART;
m->iord[STDIO_PORT] = iord_stdio; m->iord[STDIO_PORT] = iord_stdio;
@ -58,11 +71,12 @@ int main(int argc, char *argv[])
while (running && emul_step()); while (running && emul_step());
if (tty) { if (tty) {
printf("Done!\n"); printf("\nDone!\n");
termInfo.c_lflag |= ECHO; termInfo.c_lflag |= ECHO;
termInfo.c_lflag |= ICANON; termInfo.c_lflag |= ICANON;
tcsetattr(0, TCSAFLUSH, &termInfo); tcsetattr(0, TCSAFLUSH, &termInfo);
emul_printdebug(); emul_printdebug();
} }
fclose(fp);
return 0; return 0;
} }