eigenmath/main.cpp

#include "defs.h"

extern void run(char *);

int esc_flag;

#define BUFLEN 100000
static char buf[BUFLEN];

int
main(int argc, char *argv[])
{
	int i;
	FILE *f;

	init();
	defn();

	for (i = 1; i < argc; i++) {
		f = fopen(argv[i], "r");
		if (f == NULL) {
			printf("cannot open %s\n", argv[i]);
			exit(1);
		}
		fread(buf, BUFLEN, 1, f);
		fclose(f);
		run(buf);
	}

	for (;;) {
		printf("> ");
		fgets(buf, BUFLEN, stdin);
		buf[strlen(buf) - 1] = 0; // remove newline
		run(buf);
	}
}

void
clear_term()
{
}

extern void eval_print(void);

void
eval_display(void)
{
	eval_print();
}

void
printstr(char *s)
{
	while (*s)
		printchar(*s++);
}

extern int test_flag;

#define OUTBUFLEN 10000
char out_buf[OUTBUFLEN + 1];
int out_count;

void
printchar(int c)
{
	if (test_flag && out_count < OUTBUFLEN)
		out_buf[out_count++] = c;
	fputc(c, stdout);
}

void
printchar_nowrap(int c)
{
	printchar(c);
}

void
eval_draw(void)
{
}

void
eval_sample(void)
{
}