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

some tricky ideas - might revert

Browse Source
This commit is contained in:
Richard Thier 2024-09-26 10:42:36 +02:00
parent ea2745da22
commit 07c2c39143
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
engine/slc.h
View File

@ -274,7 +274,8 @@ static inline slc_state slc_comment_statechange_in(
static inline slc_state slc_def_name_statechange(
slc_state current_state,
char c,
const char *prefix) {
const char *prefix,
int *prefix_i) {
// FIXME: Implement
return current_state;
}
@ -352,6 +353,7 @@ static inline void slc(
int comment_i = 0;
int multiline_i = 0;
int prefix_i = 0;
uint8_t c = 0;
while(((c = code_src()) != 0)) {
@ -368,23 +370,27 @@ static inline void slc(
multiline_comment_opener_len,
&comment_i,
&multiline_i);
/* state -> def_name */
if(state == SLC_START) {
state = slc_def_name_statechange(
state,
c,
prefix);
} else goto process_char; // new state might need 'c' too
prefix,
&prefix_i);
} else goto process_char; /* new state might need 'c' too */
/* state -> word_name */
if(state == SLC_START) {
/* XXX: You can't START words with ':', parts of prefix or comment prefix - that makes my life simpler here */
if((state == SLC_START) && (comment_i == 0) && (multiline_i == 0) && (prefix_i == 0)) {
state = slc_word_name_statechange(
state,
c,
prefix);
if(state != SLC_START) goto process_char; // new state might need 'c' too
} else 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 */
// Step to read next character
/* Step to read next character */
break;
case SLC_COMMENT:
break;