ref: split parser into separate files

src/compiler/parser/pa_assignment.c

@@ -0,0 +1,42 @@
+#include <compiler/fzl_parser.h>
+#include <compiler/internals/parser.h>
+#include <stdio.h>
+
+// Assignments parsing
+fzl_node_t *pa_assignment(fzl_parser_t *parser)
+{
+  fzl_node_t *left = pa_new(parser);
+  if (!left)
+    return NULL;
+
+  if (is(parser, FZL_TOKTYPE_EQ))
+  {
+    fzl_token_t *asn = consume(parser);
+    if (!left || (left->type != FZL_NODETYPE_IDENTIFIER &&
+                  left->type != FZL_NODETYPE_DECLARATION &&
+                  left->type != FZL_NODETYPE_FIELD))
+    {
+      fzl_freeast(left);
+      snprintf(plast_err, sizeof(plast_err),
+               "'%s': cannot assign to '%s' at %ld:%ld",
+               last_known_tok->filename, (char *)left->token->value,
+               last_known_tok->ln, last_known_tok->cn);
+      return NULL;
+    }
+
+    fzl_node_t *right = pa_assignment(parser);
+    if (!right)
+    {
+      fzl_freeast(left);
+      return NULL;
+    }
+
+    fzl_node_t *node      = fzl_mknode(FZL_NODETYPE_ASSIGN, asn);
+    node->binary_op.left  = left;
+    node->binary_op.right = right;
+
+    left = node;
+  }
+
+  return left;
+}