mirror of https://github.com/dirtbags/tanks.git
133 lines
3.1 KiB
C
133 lines
3.1 KiB
C
#pragma once
|
|
|
|
#include <inttypes.h>
|
|
#include <stdio.h>
|
|
|
|
#define MAX_TOKEN_LEN 20
|
|
#define MAX_CMDSTACK 200
|
|
|
|
struct forf_env;
|
|
|
|
enum forf_value_type {
|
|
forf_type_number,
|
|
forf_type_proc,
|
|
forf_type_stack_begin,
|
|
forf_type_stack_end,
|
|
};
|
|
|
|
enum forf_error_type {
|
|
forf_error_none,
|
|
forf_error_runtime,
|
|
forf_error_parse,
|
|
forf_error_underflow,
|
|
forf_error_overflow,
|
|
forf_error_type,
|
|
forf_error_noproc,
|
|
forf_error_divzero,
|
|
};
|
|
|
|
extern char *forf_error_str[];
|
|
|
|
typedef void(forf_proc)(struct forf_env *);
|
|
|
|
struct forf_value {
|
|
enum forf_value_type type;
|
|
union {
|
|
forf_proc *p;
|
|
long i;
|
|
} v;
|
|
};
|
|
|
|
struct forf_stack {
|
|
size_t size;
|
|
size_t top;
|
|
struct forf_value *stack;
|
|
};
|
|
|
|
struct forf_memory {
|
|
size_t size;
|
|
long *mem;
|
|
};
|
|
|
|
struct forf_lexical_env {
|
|
char *name;
|
|
forf_proc *proc;
|
|
};
|
|
|
|
struct forf_env {
|
|
enum forf_error_type error;
|
|
struct forf_lexical_env *lenv;
|
|
struct forf_stack *data;
|
|
struct forf_stack *command;
|
|
struct forf_memory *memory;
|
|
void *udata;
|
|
};
|
|
|
|
/*
|
|
*
|
|
* Main entry points
|
|
*
|
|
*/
|
|
|
|
/** Initialize a memory structure, given an array of longs */
|
|
void forf_memory_init(struct forf_memory *m, long *values, size_t size);
|
|
|
|
/** Initialize a stack, given an array of values */
|
|
void forf_stack_init(struct forf_stack *s, struct forf_value *values,
|
|
size_t size);
|
|
|
|
void forf_stack_reset(struct forf_stack *s);
|
|
void forf_stack_copy(struct forf_stack *dst, struct forf_stack *src);
|
|
int forf_stack_push(struct forf_stack *s, struct forf_value *v);
|
|
int forf_stack_pop(struct forf_stack *s, struct forf_value *v);
|
|
|
|
/** Pop a number off the data stack */
|
|
long forf_pop_num(struct forf_env *env);
|
|
|
|
/** Push a number onto the data stack */
|
|
void forf_push_num(struct forf_env *env, long i);
|
|
|
|
/** Pop a whole stack */
|
|
struct forf_stack forf_pop_stack(struct forf_env *env);
|
|
|
|
/** The base lexical environment */
|
|
extern struct forf_lexical_env forf_base_lexical_env[];
|
|
|
|
/** Extend a lexical environment */
|
|
int forf_extend_lexical_env(struct forf_lexical_env *dest,
|
|
struct forf_lexical_env *src, size_t size);
|
|
|
|
/** Initialize a forf runtime environment.
|
|
*
|
|
* data, cmd, and mem should have already been initialized
|
|
*/
|
|
void forf_env_init(struct forf_env *env, struct forf_lexical_env *lenv,
|
|
struct forf_stack *data, struct forf_stack *cmd,
|
|
struct forf_memory *mem, void *udata);
|
|
|
|
/** The type of a getch function (used for parsing) */
|
|
typedef int(forf_getch_func)(void *);
|
|
|
|
/** Parse something by calling getch(datum)
|
|
*
|
|
* Returns the character at which an error was encountered, or
|
|
* 0 for successful parse.
|
|
*/
|
|
int forf_parse_stream(struct forf_env *env, forf_getch_func *getch,
|
|
void *datum);
|
|
|
|
/** Parse a buffer */
|
|
int forf_parse_buffer(struct forf_env *env, char *buf, size_t len);
|
|
|
|
/** Parse a string */
|
|
int forf_parse_string(struct forf_env *env, char *str);
|
|
|
|
/** Parse a FILE * */
|
|
int forf_parse_file(struct forf_env *env, FILE *f);
|
|
|
|
/** Evaluate the topmost value on the command stack */
|
|
int forf_eval_once(struct forf_env *env);
|
|
|
|
/** Evaluate the entire command stack */
|
|
int forf_eval(struct forf_env *env);
|