39 lines
612 B
C
39 lines
612 B
C
#include "forth.h"
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <stdarg.h>
|
|
|
|
void forth_putchar(char c) {
|
|
putchar((unsigned char)c);
|
|
}
|
|
|
|
int forth_getchar(void) {
|
|
return getchar();
|
|
}
|
|
|
|
void forth_fflush(void) {
|
|
fflush(stdout);
|
|
}
|
|
|
|
void forth_panic(void) {
|
|
for (;;);
|
|
}
|
|
|
|
int64_t forth_strtoll(const char* str, char** endptr, int base) {
|
|
return (int64_t)strtoll(str, endptr, base);
|
|
}
|
|
|
|
void forth_printf(const char* fmt, ...) {
|
|
va_list ap;
|
|
va_start(ap, fmt);
|
|
vprintf(fmt, ap);
|
|
va_end(ap);
|
|
}
|
|
|
|
int main(void) {
|
|
forth_run();
|
|
return 0;
|
|
}
|