93 lines
1.7 KiB
C
93 lines
1.7 KiB
C
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <stdbool.h>
|
|
|
|
#include "hydroforth/hydroforth.h"
|
|
|
|
struct ReadSrcResult
|
|
{
|
|
bool success;
|
|
char *const src;
|
|
};
|
|
|
|
struct ReadSrcResult read_src(FILE *fp)
|
|
{
|
|
if (fseek(fp, 0L, SEEK_END) != 0)
|
|
{
|
|
fputs("Error seeking to file end!", stderr);
|
|
return (struct ReadSrcResult){
|
|
.success = false,
|
|
};
|
|
}
|
|
const long bufsize = ftell(fp);
|
|
if (bufsize == -1)
|
|
{
|
|
fputs("Error getting file size!", stderr);
|
|
return (struct ReadSrcResult){
|
|
.success = false,
|
|
};
|
|
}
|
|
char *const src = malloc(sizeof(char) * (bufsize + 1));
|
|
if (fseek(fp, 0L, SEEK_SET) != 0)
|
|
{
|
|
fputs("Error rewinding file to start!", stderr);
|
|
return (struct ReadSrcResult){
|
|
.success = false,
|
|
};
|
|
}
|
|
const unsigned long new_len = fread(src, sizeof(char), bufsize, fp);
|
|
if (ferror(fp) != 0)
|
|
{
|
|
fputs("Error reading file!", stderr);
|
|
return (struct ReadSrcResult){
|
|
.success = false,
|
|
};
|
|
}
|
|
src[new_len + 1] = '\0';
|
|
|
|
return (struct ReadSrcResult){
|
|
.success = true,
|
|
.src = src,
|
|
};
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
if (argc < 2)
|
|
{
|
|
fputs("No source file specified!", stderr);
|
|
return 1;
|
|
}
|
|
FILE *fp = fopen(argv[1], "rb");
|
|
if (fp == NULL)
|
|
{
|
|
fputs("Error opening file!", stderr);
|
|
return 1;
|
|
}
|
|
const struct ReadSrcResult res = read_src(fp);
|
|
fclose(fp);
|
|
if (res.success)
|
|
{
|
|
HYDROFORTH__INTERPRETER interpreter = {
|
|
.src = res.src,
|
|
.pos = 0,
|
|
.single_char_word_keys_len = 0,
|
|
.word_keys_len = 0,
|
|
.word_keys_max_len = 0,
|
|
};
|
|
const bool run_res = hydroforth.run(&interpreter);
|
|
free(res.src);
|
|
if (!run_res)
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
free(res.src);
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|