samsonium/fz-lang
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

wip: working on variables

Browse Source
This commit is contained in:
samsonium
2026-10-11 19:11:49 +03:00
parent 01afe2e972
commit 2c76277a68
8 changed files with 215 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/fzl_debug.c
+59 -45
View File
@@ -32,56 +32,70 @@ void print_node(fzl_node_t *node, int level)
switch (node->type)
{
case FZL_NODETYPE_CALL:
if (node->call.args_count > 0)
{
printf("%s Call fn '%s' with args:\n", levelbuf,
(char *)node->token->value);
for (size_t i = 0; i < node->call.args_count; i++)
print_node(node->call.args[i], level + 1);
}
else
printf("%s Call fn '%s' w/o args\n", levelbuf,
(char *)node->token->value);
break;
case FZL_NODETYPE_LITERAL:
printf("%s Literal '%s'\n", levelbuf, (char *)node->token->value);
break;
case FZL_NODETYPE_BLOCK:
printf("%s Block: ", levelbuf);
if (node->list.entry_count < 1)
{
printf("<empty>\n");
case FZL_NODETYPE_DECLARATION:
printf("%s Declare variable with type %d:\n", levelbuf,
node->var.type->type);
print_node(node->var.identifier, level + 1);
break;
}
printf("\n");
for (size_t i = 0; i < node->list.entry_count; i++)
print_node(node->list.entries[i], level + 1);
case FZL_NODETYPE_ASSIGN:
printf("%s Assign:\n", levelbuf);
printf("-%s Target:\n", levelbuf);
print_node(node->binary_op.left, level + 2);
printf("-%s Source:\n", levelbuf);
print_node(node->binary_op.right, level + 2);
break;
break;
case FZL_NODETYPE_ADD:
case FZL_NODETYPE_SUB:
case FZL_NODETYPE_MUL:
case FZL_NODETYPE_DIV:
case FZL_NODETYPE_POW:
case FZL_NODETYPE_MOD:
printf("%s Binary op (%d)\n", levelbuf, node->type);
printf("-%s LEFT:\n", levelbuf);
print_node(node->binary_op.left, level + 2);
printf("-%s RIGHT:\n", levelbuf);
print_node(node->binary_op.right, level + 2);
break;
case FZL_NODETYPE_CALL:
if (node->call.args_count > 0)
{
printf("%s Call fn '%s' with args:\n", levelbuf,
(char *)node->token->value);
for (size_t i = 0; i < node->call.args_count; i++)
print_node(node->call.args[i], level + 1);
}
else
printf("%s Call fn '%s' w/o args\n", levelbuf,
(char *)node->token->value);
break;
case FZL_NODETYPE_IDENTIFIER:
printf("%s Identifier ('%s')\n", levelbuf, (char *)node->token->value);
break;
case FZL_NODETYPE_LITERAL:
printf("%s Literal '%s'\n", levelbuf, (char *)node->token->value);
break;
default:
printf("%s Secure node\n", levelbuf);
case FZL_NODETYPE_BLOCK:
printf("%s Block: ", levelbuf);
if (node->list.entry_count < 1)
{
printf("<empty>\n");
break;
}
printf("\n");
for (size_t i = 0; i < node->list.entry_count; i++)
print_node(node->list.entries[i], level + 1);
break;
case FZL_NODETYPE_ADD:
case FZL_NODETYPE_SUB:
case FZL_NODETYPE_MUL:
case FZL_NODETYPE_DIV:
case FZL_NODETYPE_POW:
case FZL_NODETYPE_MOD:
printf("%s Binary op (%d)\n", levelbuf, node->type);
printf("-%s LEFT:\n", levelbuf);
print_node(node->binary_op.left, level + 2);
printf("-%s RIGHT:\n", levelbuf);
print_node(node->binary_op.right, level + 2);
break;
case FZL_NODETYPE_IDENTIFIER:
printf("%s Identifier ('%s')\n", levelbuf, (char *)node->token->value);
break;
default:
printf("%s Secure node\n", levelbuf);
}
}