From 13e7d04a74f7ad0b9b9dc96f681d091b65dce5ec Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sat, 17 May 2025 16:13:55 -0400
Subject: Add `modules.ini` file for import aliases, as well as default aliases
 for the built-in modules.

---
 src/stdlib/paths.c | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'src/stdlib/paths.c')

diff --git a/src/stdlib/paths.c b/src/stdlib/paths.c
index 6b16916c..5047d615 100644
--- a/src/stdlib/paths.c
+++ b/src/stdlib/paths.c
@@ -609,20 +609,25 @@ public Text_t Path$extension(Path_t path, bool full)
     return Text$from_str(extension);
 }
 
-public Path_t Path$with_component(Path_t path, Text_t component)
+public Path_t Path$child(Path_t path, Text_t name)
 {
-    if (Text$has(component, Text("/")) || Text$has(component, Text(";")))
-        fail("Path component has invalid characters: ", component);
+    if (Text$has(name, Text("/")) || Text$has(name, Text(";")))
+        fail("Path name has invalid characters: ", name);
     Path_t result = {
         .type.$tag=path.type.$tag,
         .components=path.components,
     };
     LIST_INCREF(result.components);
-    List$insert(&result.components, &component, I(0), sizeof(Text_t));
+    List$insert(&result.components, &name, I(0), sizeof(Text_t));
     clean_components(&result.components);
     return result;
 }
 
+public Path_t Path$sibling(Path_t path, Text_t name)
+{
+    return Path$child(Path$parent(path), name);
+}
+
 public Path_t Path$with_extension(Path_t path, Text_t extension, bool replace)
 {
     if (path.components.length == 0)
-- 
cgit v1.2.3