From 8f3bef3b951addf03dc8bacff825343d94a54ac7 Mon Sep 17 00:00:00 2001
From: servostar <sven.vogel123@web.de>
Date: Mon, 3 Jun 2024 15:58:41 +0200
Subject: [PATCH] added reference type definition added reference access
 (array)

---
 src/ast/ast.c     |  3 +++
 src/ast/ast.h     |  3 +++
 src/lex/lexer.l   |  2 +-
 src/yacc/parser.y | 14 ++++++++++++--
 4 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/src/ast/ast.c b/src/ast/ast.c
index 8c65510..4e3ba6f 100644
--- a/src/ast/ast.c
+++ b/src/ast/ast.c
@@ -84,6 +84,9 @@ void AST_init() {
   lookup_table[AST_Negate] = "-";
   lookup_table[AST_Parameter] = "parameter";
   lookup_table[AST_ParamDecl] = "parameter-declaration";
+  lookup_table[AST_AddressOf] = "address of";
+  lookup_table[AST_Dereference] = "deref";
+  lookup_table[AST_Reference] = "ref";
 }
 
 const char* AST_node_to_string(const struct AST_Node_t* node) {
diff --git a/src/ast/ast.h b/src/ast/ast.h
index 7edbe81..519f10a 100644
--- a/src/ast/ast.h
+++ b/src/ast/ast.h
@@ -76,6 +76,9 @@ enum AST_SyntaxElement_t {
   AST_Parameter,
   AST_Qualifyier,
   AST_ParamDecl,
+  AST_AddressOf,
+  AST_Dereference,
+  AST_Reference,
   AST_ELEMENT_COUNT
 };
 
diff --git a/src/lex/lexer.l b/src/lex/lexer.l
index a3a2f32..cb507f6 100644
--- a/src/lex/lexer.l
+++ b/src/lex/lexer.l
@@ -98,7 +98,7 @@
     yytext[yyleng - 2] = 0;
     
     DEBUG("\"%s\" tokenized with \'ValStr\'", yytext); yylval.string = strdup(yytext); return(ValStr);};
-\"\"\"([^\"\n]|\\\n)*\"\"\" {
+\"\"\"[^\"]*\"\"\" {
     yytext = yytext +3;
     yytext[yyleng - 4] = 0;
 
diff --git a/src/yacc/parser.y b/src/yacc/parser.y
index edc1a32..5b4f727 100644
--- a/src/yacc/parser.y
+++ b/src/yacc/parser.y
@@ -132,7 +132,7 @@
 %left '*' '/'
 %left OpNot OpBitnot
 %left KeyAs KeyTo
-%left '(' ')'
+%left '(' ')' '[' ']'
 
 %%
 program: program programbody {AST_push_node(root, $2);}
@@ -158,6 +158,13 @@ expr: ValFloat {$$ = AST_new_node(new_loc(), AST_Float, $1);}
     | typecast{$$ = $1;}
     | reinterpretcast{$$ = $1;}
     | '(' expr ')' {$$=$2;}
+    | KeyRef Ident {AST_NODE_PTR addrof = AST_new_node(new_loc(), AST_AddressOf, NULL);
+                                   AST_push_node(addrof, AST_new_node(new_loc(), AST_Ident, $2));
+                                   $$ = addrof;}
+    | expr '[' expr ']' {AST_NODE_PTR deref = AST_new_node(new_loc(), AST_Dereference, NULL);
+                                   AST_push_node(deref, $1);
+                                   AST_push_node(deref, $3);
+                                   $$ = deref;};
 
 exprlist: expr ',' exprlist {AST_push_node($3, $1);
                              $$ = $3;}
@@ -449,7 +456,10 @@ type: typekind {AST_NODE_PTR type = AST_new_node(new_loc(), AST_Type, NULL);
                 AST_push_node(type, $1);
                 AST_push_node(type, $2);
                 AST_push_node(type, $3);
-                $$ = type;};
+                $$ = type;}
+    | KeyRef type {AST_NODE_PTR reftype = AST_new_node(new_loc(), AST_Reference, NULL);
+               AST_push_node(reftype, $2);
+               $$ = reftype; };
 
 operation: oparith {$$ = $1;}
     | oplogic {$$ = $1;}