Trying to build a forth runtime in C
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
forth/main.c

90 lines
2.0 KiB

#include <stdio.h>
#include <stdint.h>
#include <stdbool.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <unistd.h>
#include <ctype.h>
#include "forth.h"
#include "fh_runtime.h"
int main(int argc, char *argv[])
{
enum fh_error rv;
struct fh_thread_s fh;
rv = fh_init_thread(&fh);
if (rv != FH_OK) {
LOGE("Error in forth init: %s", fherr_name(rv));
return 1;
}
fh_globals.verbose = false;
fh_globals.interactive = isatty(STDIN_FILENO);
FILE *infile = stdin;
// TODO use getopt
for (int a = 1; a < argc; a++) {
if (argv[a][0] == '-' && argv[a][1] != '-') {
// opt
char *cc = argv[a] + 1;
char c;
while (0 != (c = *cc++)) {
switch (c) {
case 'v':
fh_globals.verbose = 1;
break;
default:
LOGE("Unknown flag: %c", c);
return 1;
}
}
} else {
infile = fopen(argv[a], "r");
fh_globals.interactive = false;
if (!infile) {
LOGE("Error opening infile: %s", argv[a]);
return 1;
}
}
}
/* process input line by line */
int linecnt = 0;
char linebuf[MAXLINE];
while (fh.state != FH_STATE_SHUTDOWN && fgets(linebuf, MAXLINE, infile)) {
linecnt++;
// trim
size_t end = strlen(linebuf) - 1;
while (isspace(linebuf[end])) {
linebuf[end] = 0;
}
if (!linebuf[0]) {
continue;
}
rv = fh_process_line(&fh, linebuf);
if (rv == FH_OK) {
FHPRINT_SVC(" ok\n");
} else {
LOGE("ERROR %s on line %d", fherr_name(rv), linecnt);
if (!fh_globals.interactive) {
return 1;
}
/* reset state */
fh_setstate(&fh, FH_STATE_INTERPRET, FH_SUBSTATE_NONE);
}
}
// Show resource usage
LOG("\nResources used: DS %dW, RS %dW, CS %dW, heap %dB, program %dB, dict %dx\n",
(int) fh.data_stack_hwm, (int) fh.return_stack_hwm, (int) fh.control_stack_hwm,
(int) fh.heap_top, (int) fh.compile_top, (int) fh.dict_top);
FHPRINT_SVC("Bye.\n");
return 0;
}