1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#pragma once
#include <stdint.h>
#include <stddef.h>
#include <xxhash.h>
/* Replace '16' by desired byte size on both following lines. */
#define SLOTH_BITS 16
typedef uint16_t SlothByte;
typedef XXH32_hash_t SlothHash;
typedef struct SlothDict SlothDict;
typedef const char* SlothError;
typedef struct Sloth Sloth;
typedef struct SlothInstr SlothInstr;
struct SlothDict {
SlothHash hash;
int c_func;
SlothError (*func)(Sloth *ctx);
SlothInstr *instrs;
SlothDict *next;
};
#define SLOTH_DICT_C(word, func) \
(SlothDict){XXH32(word, strlen(word), 0), 1, func, NULL, NULL}
struct Sloth {
SlothByte *stack;
size_t stack_size;
size_t stack_capacity;
SlothByte mem[1 << SLOTH_BITS];
SlothDict *dict;
int compile;
SlothDict comp;
};
struct SlothInstr {
int litteral;
union {
SlothByte byte;
SlothHash hash;
};
SlothInstr *next;
};
SlothError sloth_init(Sloth *ctx);
void sloth_deinit(Sloth *ctx);
SlothError sloth_dict_append(Sloth *ctx, SlothDict dict);
SlothError sloth_str_to_instr(Sloth *ctx, const char *s, SlothInstr *instr);
SlothError sloth_exec_instr(Sloth *ctx, const SlothInstr *instr);
SlothError sloth_exec(Sloth *ctx, const char *s);
SlothError sloth_exec_line(Sloth *ctx, char *s);
SlothError sloth_pop(Sloth *ctx, SlothByte *v);
SlothError sloth_push(Sloth *ctx, SlothByte v);
SlothError sloth_add(Sloth *ctx);
SlothError sloth_write(Sloth *ctx);
SlothError sloth_store(Sloth *ctx);
SlothError sloth_retrieve(Sloth *ctx);
SlothError sloth_compare(Sloth *ctx);
SlothError sloth_compile_begin(Sloth *ctx);
SlothError sloth_compile_end(Sloth *ctx);
void sloth_inspect_stack(const Sloth *ctx);
|