sketch new setup

1 files changed, 88 insertions, 4 deletions

diff --git a/lexparse.c b/lexparse.c
index 19ce08b..0ea86df 100644
--- a/lexparse.c
+++ b/lexparse.c
@@ -31,6 +31,21 @@ static void consolidate_buffer(LexingBuffer* buf, PseudoAst ps_ast) {
 }
 
 
+static Chunk collect_un_q_literal(char* line, size_t* pos) {
+    String buf = make_String(256);
+    size_t i;
+    for (i = *pos; line[*pos] != '$' && line[*pos] != '\0' && line[*pos] == ' '; i++) {
+        push_to_String(&buf, line[*pos]);
+    }
+    *pos = i;
+    return (Chunk){
+        .qmode = UN_Q,
+        .kind = CHUNK_LIT,
+        .as.lit_str = inner(&buf),
+    };
+}
+
+
 static Chunk collect_single_q_section(char* line, size_t* pos) {
     (*pos)++;
     String buf = make_String(256);
@@ -40,11 +55,29 @@ static Chunk collect_single_q_section(char* line, size_t* pos) {
     }
     if (line[i] == '\0') exit(44);
 
-    *pos = i;
+    *pos = ++i;
     return (Chunk){
         .qmode = SINGLE_Q,
-        .kind = LITERAL,
-        .as.literal_str = inner(&buf)
+        .kind = CHUNK_LIT,
+        .as.lit_str = inner(&buf)
+    };
+}
+
+static Chunk collect_double_q_section(char* line, size_t* pos) {
+    // TODO: add the extra double-q expansions
+    (*pos)++;
+    String buf = make_String(256);
+    size_t i;
+    for (i = *pos; line[*pos] != '\'' && line[*pos] != '\0'; i++) {
+        push_to_String(&buf, line[*pos]);
+    }
+    if (line[i] == '\0') exit(44);
+
+    *pos = ++i;
+    return (Chunk){
+        .qmode = DOUBLE_Q,
+        .kind = CHUNK_LIT,
+        .as.lit_str = inner(&buf)
     };
 }
 
@@ -91,11 +124,62 @@ static void lex_level(char* line, size_t* pos, char until, PseudoAst ps_ast) {
             consolidate_buffer(&buf, ps_ast);
             while (line[*pos] == ' ') (*pos)++;
             continue;
-        } 
+        }
         MaybeSpecialToken m_spec = recognize_spec_token(line, pos);
+        if (m_spec.some) {
+            Token* tok_ptr = push_to_TokenVec(ps_ast.token_pool, (Token){
+                .kind = TOK_SPEC, 
+                .as.spec = m_spec.value
+            });
+            push_to_TokenPtrVec(ps_ast.top_tokens, tok_ptr);
+            continue;
+        }
+
+        if (line[*pos] == '\'') {
+            Chunk chunk = collect_single_q_section(line, pos);
+            push_to_Word(&buf.word_germ, chunk);
+        } else if (line[*pos] == '\"') {
+            Chunk chunk = collect_double_q_section(line, pos);
+            push_to_Word(&buf.word_germ, chunk);
+        } else if (line[*pos] == '<' && line[(*pos)+1] == '(') {
+            *pos += 2;
+            consolidate_buffer(&buf, ps_ast);
+            TokenPtrVec procsub_toks = make_TokenPtrVec(256);
+            lex_level(line, pos, ')', (PseudoAst){
+                .token_pool = ps_ast.token_pool,
+                .top_tokens = &procsub_toks
+            });
+            (*pos)++;   // consume ')'
+            Token* tok_ptr = push_to_TokenVec(ps_ast.token_pool, (Token){
+                .kind = TOK_SUB_IN,
+                .as.procsub_toks = procsub_toks,
+            });
+            push_to_TokenPtrVec(ps_ast.top_tokens, tok_ptr);
+        } else if (line[*pos] == '>' && line[(*pos)+1] == '(') {
+            *pos += 2;
+            consolidate_buffer(&buf, ps_ast);
+            TokenPtrVec procsub_toks = make_TokenPtrVec(256);
+            lex_level(line, pos, ')', (PseudoAst){
+                .token_pool = ps_ast.token_pool,
+                .top_tokens = &procsub_toks
+            });
+            (*pos)++;   // consume ')'
+            Token* tok_ptr = push_to_TokenVec(ps_ast.token_pool, (Token){
+                .kind = TOK_SUB_OUT,
+                .as.procsub_toks = procsub_toks,
+            });
+            push_to_TokenPtrVec(ps_ast.top_tokens, tok_ptr);
+        }
     }
 }
 
 Ast lex(char* input) {
     size_t line_pos = 0;
+    TokenVec token_pool = make_TokenVec(256);
+    TokenPtrVec top_tokens = make_TokenPtrVec(256);
+    lex_level(input, &line_pos, '\0', (PseudoAst){
+        .token_pool = &token_pool, 
+        .top_tokens = &top_tokens
+    });
+    return (Ast){.token_pool = token_pool, .top_tokens = top_tokens};
 }