wip: working on analyzer

- Feat: now symbols table store node on PUT
- Feat: call analyzer with callee resolving and arguments validate
- Feat: identifier analyzer
- Feat: analyzer utils (types compat, tok-to-type, type-to-string)

src/compiler/analyzer/utility.c

@@ -0,0 +1,121 @@
+#include <common/fzl_types.h>
+#include <compiler/fzl_token.h>
+#include <stdbool.h>
+#include <string.h>
+
+// Check compatibility between A and B types (and classnames)
+bool an_is_compatible(fzl_type_t a, fzl_type_t b, char *ac, char *bc)
+{
+  if (a == b)
+    return true;
+
+  if (a == FZL_TYPE_OBJECT && b == FZL_TYPE_OBJECT)
+  {
+    if (strcmp(ac, "null") == 0 || strcmp(bc, "null") == 0)
+      return true;
+
+    return strcmp(ac, bc) == 0;
+  }
+
+  if (a >= FZL_TYPE_INT8 && b >= FZL_TYPE_INT8)
+    return true;
+
+  return false;
+}
+
+// Convert type to string
+char *an_typetostr(fzl_type_t type, char *classname)
+{
+  if (classname)
+    return classname;
+
+  switch (type)
+  {
+    case FZL_TYPE_NULL:
+      return "null";
+
+    case FZL_TYPE_BOOL:
+      return "boolean";
+
+    case FZL_TYPE_STRING:
+      return "string";
+
+    case FZL_TYPE_CHAR:
+      return "char";
+
+    case FZL_TYPE_INT8:
+      return "i8";
+
+    case FZL_TYPE_INT16:
+      return "i16";
+
+    case FZL_TYPE_INT32:
+      return "i32";
+
+    case FZL_TYPE_INT64:
+      return "i64";
+
+    case FZL_TYPE_UINT8:
+      return "u8";
+
+    case FZL_TYPE_UINT16:
+      return "u16";
+
+    case FZL_TYPE_UINT32:
+      return "u32";
+
+    case FZL_TYPE_UINT64:
+      return "u64";
+
+    case FZL_TYPE_INT:
+      return "int";
+
+    case FZL_TYPE_UINT:
+      return "uint";
+
+    default:
+      return "<unknown>";
+  }
+}
+
+// Convert type token to type
+fzl_type_t an_toktotype(fzl_token_t *tok)
+{
+  if (!tok)
+    return FZL_TYPE_NULL;
+
+  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)
+    return FZL_TYPE_INT16;
+  if (strcmp((char *)tok->value, "i32") == 0)
+    return FZL_TYPE_INT32;
+  if (strcmp((char *)tok->value, "i64") == 0)
+    return FZL_TYPE_INT64;
+
+  if (strcmp((char *)tok->value, "u8") == 0)
+    return FZL_TYPE_UINT8;
+  if (strcmp((char *)tok->value, "u16") == 0)
+    return FZL_TYPE_UINT16;
+  if (strcmp((char *)tok->value, "u32") == 0)
+    return FZL_TYPE_UINT32;
+  if (strcmp((char *)tok->value, "u64") == 0)
+    return FZL_TYPE_UINT64;
+
+  if (strcmp((char *)tok->value, "int") == 0)
+    return FZL_TYPE_INT;
+  if (strcmp((char *)tok->value, "uint") == 0)
+    return FZL_TYPE_UINT;
+
+  if (strcmp((char *)tok->value, "bool") == 0)
+    return FZL_TYPE_BOOL;
+  if (strcmp((char *)tok->value, "str") == 0)
+    return FZL_TYPE_STRING;
+  if (strcmp((char *)tok->value, "char") == 0)
+    return FZL_TYPE_CHAR;
+
+  return FZL_TYPE_NULL;
+}