make native function support and start working on support for error catching

src/runtime/objects/functions/functions.c

@@ -23,6 +23,7 @@ void load_argon_function(Translated *translated, RuntimeState *state,
   uint64_t length = pop_bytecode(translated, state);
   add_field(object, "__name__", new_string_object(arena_get(&translated->constants, offset), length));
   object->value.argon_fn.path = translated->path;
+  object->value.argon_fn.source_locations = translated->source_locations;
   object->value.argon_fn.number_of_parameters = pop_bytecode(translated, state);
   object->value.argon_fn.parameters =
       ar_alloc(object->value.argon_fn.number_of_parameters * sizeof(struct string_struct));

src/runtime/objects/object.c

@@ -26,7 +26,29 @@ void add_field(ArgonObject *target, char *name, ArgonObject *object) {
                     object, 0);
 }
 
-ArgonObject *get_field(ArgonObject *target, char *name) {
-  uint64_t hash = siphash64_bytes(name, strlen(name), siphash_key);
-  return hashmap_lookup_GC(target->dict, hash);
+ArgonObject *get_field_for_class(ArgonObject *target, char *name) {
+  char *field = "__base__";
+  while (target) {
+    uint64_t hash = siphash64_bytes(name, strlen(name), siphash_key);
+    ArgonObject *object = hashmap_lookup_GC(target->dict, hash);
+    if (object)
+      return object;
+    hash = siphash64_bytes(field, strlen(field), siphash_key);
+    target = hashmap_lookup_GC(target->dict, hash);
+  }
+  return NULL;
+}
+
+ArgonObject *get_field(ArgonObject *target, char *name, bool recursive) {
+  char *field = "__class__";
+  while (target) {
+    uint64_t hash = siphash64_bytes(name, strlen(name), siphash_key);
+    ArgonObject *object = hashmap_lookup_GC(target->dict, hash);
+    if (!recursive || object)
+      return object;
+    hash = siphash64_bytes(field, strlen(field), siphash_key);
+    target = hashmap_lookup_GC(target->dict, hash);
+    field = "__base__";
+  }
+  return NULL;
 }

src/runtime/objects/object.h

@@ -17,6 +17,8 @@ ArgonObject *new_object();
 
 void add_field(ArgonObject *target, char *name, ArgonObject *object);
 
-ArgonObject *get_field(ArgonObject *target, char *name);
+ArgonObject *get_field_for_class(ArgonObject *target, char *name);
+
+ArgonObject *get_field(ArgonObject *target, char *name, bool recursive);
 
 #endif // OBJECT_H