import: Import paths and ability to add to them

flamingo/flamingo.c

@@ -74,6 +74,9 @@ int flamingo_create(flamingo_t* flamingo, char const* progname, char* src, size_
 	flamingo->imported_srcs = NULL;
 	flamingo->imported_flamingos = NULL;
 
+	flamingo->import_path_count = 0;
+	flamingo->import_paths = NULL;
+
 	flamingo->cur_fn_body = NULL;
 	flamingo->cur_fn_rv = NULL;
 
@@ -182,6 +185,16 @@ void flamingo_destroy(flamingo_t* flamingo) {
 		free(flamingo->imported_srcs);
 	}
 
+	// Free the import paths.
+
+	for (size_t i = 0; i < flamingo->import_path_count; i++) {
+		free(flamingo->import_paths[i]);
+	}
+
+	if (flamingo->import_paths != NULL) {
+		free(flamingo->import_paths);
+	}
+
 	// Finally, free the primitive type members.
 
 	primitive_type_member_free(flamingo);
@@ -203,6 +216,16 @@ void flamingo_register_external_fn_cb(flamingo_t* flamingo, flamingo_external_fn
 	flamingo->external_fn_cb_data = data;
 }
 
+void flamingo_add_import_path(flamingo_t* flamingo, char* path) {
+	char* const duped = strdup(path);
+	assert(duped != NULL);
+
+	flamingo->import_paths = realloc(flamingo->import_paths, (flamingo->import_path_count + 1) * sizeof *flamingo->import_paths);
+	assert(flamingo->import_paths != NULL);
+
+	flamingo->import_paths[flamingo->import_path_count++] = duped;
+}
+
 static int parse(flamingo_t* flamingo, TSNode node) {
 	size_t const n = ts_node_child_count(node);
 

flamingo/flamingo.h

@@ -167,6 +167,12 @@ struct flamingo_t {
 	flamingo_t* imported_flamingos;
 	char** imported_srcs;
 
+	// Import paths for global imports.
+	// These shouldn't be inherited by imported instances for now.
+
+	size_t import_path_count;
+	char** import_paths;
+
 	// Current function stuff.
 
 	flamingo_ts_node_t cur_fn_body;
@@ -188,6 +194,7 @@ void flamingo_destroy(flamingo_t* flamingo);
 
 char* flamingo_err(flamingo_t* flamingo);
 void flamingo_register_external_fn_cb(flamingo_t* flamingo, flamingo_external_fn_cb_t cb, void* data);
+void flamingo_add_import_path(flamingo_t* flamingo, char* path);
 int flamingo_inherit_env(flamingo_t* flamingo, flamingo_env_t* env);
 int flamingo_run(flamingo_t* flamingo);