diff options
author | A404M <ahmadmahmoudiprogrammer@gmail.com> | 2025-04-04 13:17:48 +0330 |
---|---|---|
committer | A404M <ahmadmahmoudiprogrammer@gmail.com> | 2025-04-04 13:17:48 +0330 |
commit | 2a03e1e42906605be5ea093bcaca212c41acb62f (patch) | |
tree | b00b4b792ed7e76c5d3526e8152d568a90f0fdc7 | |
parent | f570c63542bc644d829aff8c470db2385a3c5180 (diff) |
returning functions now work
-rw-r--r-- | Makefile | 4 | ||||
-rw-r--r-- | code/main.felan | 17 | ||||
-rw-r--r-- | src/compiler/ast-tree.c | 6 | ||||
-rw-r--r-- | src/compiler/parser.c | 10 |
4 files changed, 20 insertions, 17 deletions
@@ -18,9 +18,9 @@ NC := \033[0m INC_DIRS := $(SRC_DIR) INC_FLAGS := $(addprefix -I,$(INC_DIRS)) -CFLAGS := $(INC_FLAGS) -Wall -Wextra -std=gnu23 -O3 +# CFLAGS := $(INC_FLAGS) -Wall -Wextra -std=gnu23 -O3 # CFLAGS := $(INC_FLAGS) -Wall -Wextra -std=gnu23 -Oz -# CFLAGS := $(INC_FLAGS) -Wall -Wextra -std=gnu23 -g +CFLAGS := $(INC_FLAGS) -Wall -Wextra -std=gnu23 -g EXEC_FILE := $(BUILD_DIR)/$(PROJECT_NAME) diff --git a/code/main.felan b/code/main.felan index e8e3254..532afaa 100644 --- a/code/main.felan +++ b/code/main.felan @@ -6,16 +6,13 @@ float :: f32; double :: f64; main :: () -> void { - a :u64= 2; - f := (c:u64,b:u64)->void{ - print_u64 c-b+a; - }; - f = (c:u64,b:u64)->void{ - print_u64 c*b; - }; - foo(fun = f); + f := foo(); + f(3); }; -foo :: (fun:(b:u64,u64)->void)->void{ - fun(b = 3,4); +foo :: ()->((u64)->void){ + f :: (a:u64)->void{ + print_u64 a; + }; + return f; }; diff --git a/src/compiler/ast-tree.c b/src/compiler/ast-tree.c index 77b93d6..4c6d36d 100644 --- a/src/compiler/ast-tree.c +++ b/src/compiler/ast-tree.c @@ -2897,7 +2897,11 @@ bool setTypesReturn(AstTree *tree, AstTreeSetTypesHelper _helper, }; if (!setAllTypes(metadata->value, helper, NULL)) { return false; - } else if (!typeIsEqual(metadata->value->type, function->returnType)) { + } + if (helper.lookingType != function->returnType) { + astTreeDelete(helper.lookingType); // TODO: change plan + } + if (!typeIsEqual(metadata->value->type, function->returnType)) { printError(tree->str_begin, tree->str_end, "Type mismatch"); return false; } diff --git a/src/compiler/parser.c b/src/compiler/parser.c index 12985e1..69a9c8a 100644 --- a/src/compiler/parser.c +++ b/src/compiler/parser.c @@ -1156,7 +1156,6 @@ ParserNode *parserFunction(LexerNode *node, LexerNode *begin, LexerNode *end, ParserNode *parent) { LexerNode *paramsNode = node - 1; LexerNode *retTypeNode = node + 1; - LexerNode *bodyNode = node + 2; if (paramsNode < begin || paramsNode->parserNode == NULL) { printError(node->str_begin, node->str_end, "No params"); return NULL; @@ -1166,12 +1165,15 @@ ParserNode *parserFunction(LexerNode *node, LexerNode *begin, LexerNode *end, } ParserNode *params = getUntilCommonParent(paramsNode->parserNode, parent); ParserNode *retType = getUntilCommonParent(retTypeNode->parserNode, parent); - ParserNode *body; - if (bodyNode >= end || bodyNode->parserNode == NULL) { + LexerNode *bodyNode = + getNextLexerNodeUsingCommonParent(retTypeNode, end, parent); + + ParserNode *body; + if (bodyNode == NULL || bodyNode >= end || bodyNode->parserNode == NULL) { body = NULL; } else { - body = getUntilCommonParent(bodyNode->parserNode, parent); + body = bodyNode->parserNode; if (body == NULL || body->token != PARSER_TOKEN_SYMBOL_CURLY_BRACKET) { printError(node->str_begin, node->str_end, "Bad body"); return NULL; |