prenex/slc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed up main engine architecture a bit

Browse Source
This commit is contained in:
Richard Thier 2024-09-26 11:04:39 +02:00
parent b8e631188d
commit 844a9165dd
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
engine/slc.h
View File

@ -5,11 +5,16 @@
#include<string.h> // memcpy, strlen.. #include<string.h> // memcpy, strlen..
#include<stddef.h> // NULL #include<stddef.h> // NULL
// Session offset type - defaults to 64 bit, but you can override /* Session offset type - defaults to 64 bit because of union types enable storage for it often, but you can override */
#ifndef SLOFFS_T #ifndef SLOFFS_T
#define SLOFFS_T uint64_t #define SLOFFS_T uint64_t
#endif #endif
/* Maximum length of words - defaults but you can override */
#ifndef SL_MAX_WORD_NAME
#define SL_MAX_WORD_NAME 255
#endif
union word_body { union word_body {
SLOFFS_T offset; SLOFFS_T offset;
void *ptr; void *ptr;
@ -234,9 +239,9 @@ typedef union iores iores;
typedef iores (*ioconn)(SLC_IO_OP op, const char *param); typedef iores (*ioconn)(SLC_IO_OP op, const char *param);
/** /**
* Function-abstraction for reading the source code byte-by-byte. * Function-abstraction for reading the source code char-by-char.
*/ */
typedef uint8_t (*coderead)(); typedef char (*coderead)();
enum slc_state : uint32_t { enum slc_state : uint32_t {
/** Before things */ /** Before things */
@ -283,7 +288,8 @@ static inline slc_state slc_def_name_statechange(
static inline slc_state slc_word_name_statechange( static inline slc_state slc_word_name_statechange(
slc_state current_state, slc_state current_state,
char c, char c,
const char *prefix) { int *wordname_i,
const char *wordname) {
// FIXME: Implement // FIXME: Implement
return current_state; return current_state;
} }
@ -354,8 +360,10 @@ static inline void slc(
int comment_i = 0; int comment_i = 0;
int multiline_i = 0; int multiline_i = 0;
int prefix_i = 0; int prefix_i = 0;
int wordname_i = 0;
char wordname[SL_MAX_WORD_NAME];
uint8_t c = 0; char c = 0;
while(((c = code_src()) != 0)) { while(((c = code_src()) != 0)) {
process_char: process_char:
switch(state) { switch(state) {
@ -381,12 +389,12 @@ static inline void slc(
} else goto process_char; /* new state might need 'c' too */ } else goto process_char; /* new state might need 'c' too */
/* state -> word_name */ /* state -> word_name */
/* XXX: You can't START words with ':', parts of prefix or comment prefix - that makes my life simpler here */ if(state == SLC_START) {
if((state == SLC_START) && (comment_i == 0) && (multiline_i == 0) && (prefix_i == 0)) {
state = slc_word_name_statechange( state = slc_word_name_statechange(
state, state,
c, c,
prefix); &wordname_i,
wordname);
if(state != SLC_START) goto process_char; /* new state might need 'c' too */ if(state != SLC_START) goto process_char; /* new state might need 'c' too */
} else goto process_char; /* new state might need 'c' too */ } else goto process_char; /* new state might need 'c' too */