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.
48 lines
1.3 KiB
48 lines
1.3 KiB
/**
|
|
* TODO file description
|
|
*
|
|
* Created on 2021/11/13.
|
|
*/
|
|
|
|
#ifndef FORTH_H
|
|
#define FORTH_H
|
|
|
|
#include <stdint.h>
|
|
#include <stdbool.h>
|
|
|
|
/* for printing */
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
|
|
#include "fh_config.h"
|
|
#include "fh_error.h"
|
|
|
|
struct fh_thread_s;
|
|
struct fh_word_s;
|
|
struct fh_instruction_s;
|
|
|
|
/** Word handler typedef */
|
|
typedef enum fh_error (*word_exec_t)(struct fh_thread_s *fh);
|
|
|
|
/** Forth runtime global state */
|
|
struct fh_global_s {
|
|
/** Verbose logging enabled */
|
|
bool verbose;
|
|
/** Interactive mode (i.e. not started with a file argument) */
|
|
bool interactive;
|
|
};
|
|
|
|
extern struct fh_global_s fh_globals;
|
|
|
|
/* logging */
|
|
#define LOG(format, ...) do { if(fh_globals.verbose) { fprintf(stderr, format "\n", ##__VA_ARGS__); } } while (0)
|
|
#define LOGI(format, ...) fprintf(stderr, "\x1b[32m" format "\x1b[m\n", ##__VA_ARGS__)
|
|
#define LOGE(format, ...) fprintf(stderr, "\x1b[31;1m" format "\x1b[m\n", ##__VA_ARGS__)
|
|
/* Forth standard output. XXX should be stdout, but then colors get mangled if logging is used */
|
|
#define FHPRINT(format, ...) fprintf(stderr, "\x1b[33;1m" format "\x1b[m", ##__VA_ARGS__)
|
|
#define FHPRINT_SVC(format, ...) fprintf(stderr, "" format "", ##__VA_ARGS__)
|
|
|
|
enum fh_error fh_init_thread(struct fh_thread_s *fh);
|
|
enum fh_error fh_process_line(struct fh_thread_s *fh, char *linebuf);
|
|
|
|
#endif //FORTH_H
|
|
|