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

feat: implement objects moving and borrowing

Browse Source
This commit is contained in:
samsonium
2026-10-17 19:24:03 +03:00
parent 2d307d9d42
commit 645120eda6
10 changed files with 432 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/fzl_walker.c
+126 -36
View File
@@ -65,6 +65,9 @@ fzl_walker_t *fzl_mkwalker(fzl_node_t *root)
// Convert type token to `fzl_type_t`
const fzl_type_t tok_to_type(fzl_token_t *tok)
{
if (tok->type == FZL_TOKTYPE_NAME)
return FZL_TYPE_OBJECT;
if (strcmp((char *)tok->value, "i8") == 0)
return FZL_TYPE_INT8;
if (strcmp((char *)tok->value, "i16") == 0)
@@ -98,8 +101,14 @@ const fzl_type_t tok_to_type(fzl_token_t *tok)
return FZL_TYPE_NULL;
}
static bool is_compatible(fzl_type_t t1, fzl_type_t t2)
static bool is_compatible(fzl_type_t t1, fzl_type_t t2, char *c1, char *c2)
{
if (t1 == FZL_TYPE_OBJECT || t2 == FZL_TYPE_OBJECT)
{
return t1 == FZL_TYPE_OBJECT && t2 == FZL_TYPE_OBJECT &&
(strcmp(c1, c2) == 0);
}
if (t1 == t2)
return true;
@@ -369,6 +378,7 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
fzl_symtable_res_t putres =
fzl_symt_put(walker->syms[walker->sym_top - 1],
node->fn.name->value, fntype, walker->op_count);
if (putres != FZL_SYMTABLE_RESULT_OK)
{
if (putres == FZL_SYMTABLE_RESULT_EXISTS)
@@ -382,7 +392,23 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
"'%s': failed to store name '%s'", node->fn.name->filename,
(char *)node->fn.name->value);
return (fzl_walk_res_t){.error = true};
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
if (fntype == FZL_TYPE_OBJECT)
{
fzl_symtable_res_t updres =
fzl_symt_setobjclass(walker->syms[walker->sym_top - 1],
node->fn.name->value, node->fn.type->value);
if (updres != FZL_SYMTABLE_RESULT_OK)
{
snprintf(wlast_err, sizeof(wlast_err),
"'%s': failed to assign object type to function return "
"type at %ld:%ld",
node->fn.type->filename, node->fn.type->ln,
node->fn.type->cn);
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
}
// NOTE: add sym_top limit check
@@ -430,7 +456,12 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
for (ssize_t i = walker->sym_top - 1; i >= lvl; i--)
fzl_freesymt(walker->syms[--walker->sym_top]);
current_res = (fzl_walk_res_t){.type = fntype, .error = false};
char *retclass = NULL;
if (fntype == FZL_TYPE_OBJECT && node->fn.type)
retclass = node->fn.type->value;
current_res = (fzl_walk_res_t){
.type = fntype, .error = false, .classname = retclass};
break;
}
@@ -445,14 +476,15 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
bool returning_object = false;
if (node->ret.value)
{
fzl_walk_res_t retres = walk(walker, node->ret.value);
if (retres.error)
return retres;
if (!is_compatible(retres.type,
tok_to_type(walker->ctx->fn->fn.type)))
if (!is_compatible(retres.type, tok_to_type(walker->ctx->fn->fn.type),
retres.classname, walker->ctx->fn->fn.type->value))
{
snprintf(
wlast_err, sizeof(wlast_err),
@@ -462,14 +494,23 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
current_res = (fzl_walk_res_t){.type = retres.type, .error = false};
if (retres.type == FZL_TYPE_OBJECT)
returning_object = true;
current_res = (fzl_walk_res_t){.type = retres.type,
.error = false,
.classname = retres.classname};
}
else
current_res = (fzl_walk_res_t){.type = FZL_TYPE_NULL, .error = false};
for (size_t i = 0; i < (walker->sym_top - walker->ctx->initial_env_lvl);
i++)
{
if (returning_object)
push_op(walker, FZL_OPCODE_ESCAPE_OBJECT);
push_op(walker, FZL_OPCODE_RM_ENVTABLE);
}
push_op(walker, FZL_OPCODE_RET);
break;
}
@@ -500,7 +541,8 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
if (right.error)
return right;
if (!is_compatible(left.type, right.type))
if (!is_compatible(left.type, right.type, left.classname,
right.classname))
{
snprintf(wlast_err, sizeof(wlast_err),
"'%s': incompatible types at %ld:%ld", node->token->filename,
@@ -508,31 +550,72 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
switch (node->type)
if (left.type == FZL_TYPE_STRING && right.type == FZL_TYPE_STRING)
{
case FZL_NODETYPE_EQUAL:
push_op(walker, FZL_OPCODE_CMP_EQ);
break;
case FZL_NODETYPE_NEQUAL:
push_op(walker, FZL_OPCODE_CMP_NEQ);
break;
case FZL_NODETYPE_LESS:
push_op(walker, FZL_OPCODE_CMP_LT);
break;
case FZL_NODETYPE_LESS_EQUAL:
push_op(walker, FZL_OPCODE_CMP_LTEQ);
break;
case FZL_NODETYPE_GREATER:
push_op(walker, FZL_OPCODE_CMP_GT);
break;
case FZL_NODETYPE_GREATER_EQUAL:
push_op(walker, FZL_OPCODE_CMP_GTEQ);
break;
default:
break;
switch (node->type)
{
case FZL_NODETYPE_EQUAL:
push_op(walker, FZL_OPCODE_CMP_EQ_STR);
break;
case FZL_NODETYPE_NEQUAL:
push_op(walker, FZL_OPCODE_CMP_NEQ_STR);
break;
default:
snprintf(wlast_err, sizeof(wlast_err),
"'%s': unsupported strings operation at %ld:%ld",
node->token->filename, node->token->ln, node->token->cn);
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
}
else if (left.type == FZL_TYPE_OBJECT && right.type == FZL_TYPE_OBJECT)
{
switch (node->type)
{
case FZL_NODETYPE_EQUAL:
push_op(walker, FZL_OPCODE_CMP_EQ_OBJ);
break;
case FZL_NODETYPE_NEQUAL:
push_op(walker, FZL_OPCODE_CMP_NEQ_OBJ);
break;
default:
snprintf(wlast_err, sizeof(wlast_err),
"'%s': unsupported object operation at %ld:%ld",
node->token->filename, node->token->ln, node->token->cn);
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
}
else
{
switch (node->type)
{
case FZL_NODETYPE_EQUAL:
push_op(walker, FZL_OPCODE_CMP_EQ);
break;
case FZL_NODETYPE_NEQUAL:
push_op(walker, FZL_OPCODE_CMP_NEQ);
break;
case FZL_NODETYPE_LESS:
push_op(walker, FZL_OPCODE_CMP_LT);
break;
case FZL_NODETYPE_LESS_EQUAL:
push_op(walker, FZL_OPCODE_CMP_LTEQ);
break;
case FZL_NODETYPE_GREATER:
push_op(walker, FZL_OPCODE_CMP_GT);
break;
case FZL_NODETYPE_GREATER_EQUAL:
push_op(walker, FZL_OPCODE_CMP_GTEQ);
break;
default:
break;
}
}
current_res = (fzl_walk_res_t){.type = left.type, .error = false};
current_res = (fzl_walk_res_t){.type = FZL_TYPE_BOOL, .error = false};
break;
}
@@ -547,7 +630,8 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
if (right.error)
return right;
if (!is_compatible(left.type, right.type))
if (!is_compatible(left.type, right.type, left.classname,
right.classname))
{
snprintf(wlast_err, sizeof(wlast_err),
"'%s': incompatible types at %ld:%ld", node->token->filename,
@@ -560,7 +644,7 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
else
push_op(walker, FZL_OPCODE_OR);
current_res = (fzl_walk_res_t){.type = left.type, .error = false};
current_res = (fzl_walk_res_t){.type = FZL_TYPE_BOOL, .error = false};
break;
}
@@ -717,7 +801,8 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
push_op(walker, FZL_OPCODE_CALL);
push_word(walker, res.ip);
current_res = (fzl_walk_res_t){.type = res.type, .error = false};
current_res = (fzl_walk_res_t){
.type = res.type, .error = false, .classname = res.classname};
}
else if (node->call.callee->type == FZL_NODETYPE_FIELD)
{
@@ -810,7 +895,8 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
push_op(walker, FZL_OPCODE_CALL);
push_word(walker, res.ip);
current_res = (fzl_walk_res_t){.type = res.type, .error = false};
current_res = (fzl_walk_res_t){
.type = res.type, .error = false, .classname = res.classname};
}
}
break;
@@ -972,7 +1058,9 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
push_op(walker, FZL_OPCODE_LOADCONST);
push_word(walker, const_n);
current_res = (fzl_walk_res_t){.type = FZL_TYPE_NULL, .error = false};
current_res = (fzl_walk_res_t){.type = FZL_TYPE_NULL,
.error = false,
.classname = node->var.type->value};
break;
}
@@ -1016,7 +1104,8 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
if (!is_compatible(sym.type, rres.type))
if (!is_compatible(sym.type, rres.type, sym.classname,
rres.classname))
{
fzl_token_t *tok = node->binary_op.right->token;
snprintf(wlast_err, sizeof(wlast_err),
@@ -1091,7 +1180,8 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
}
current_res = (fzl_walk_res_t){.type = rres.type, .error = false};
current_res = (fzl_walk_res_t){
.type = rres.type, .error = false, .classname = rres.classname};
break;
}
}