Add lib/path.claro from Claro v1.17.26 zip

2026-06-01 00:55:43 +02:00
parent 6dab515b3f
commit 87eb1d200f
1 changed files with 48 additions and 0 deletions
@@ -0,0 +1,48 @@
+# Claro Standard Library: path
+# Use: IMPORT "lib/path.claro" AS path
+EXPORT ALL
+
+TEACH join TAKES a, b
+    IF a = ""
+        RETURN b
+    ENDIF
+    IF b = ""
+        RETURN a
+    ENDIF
+    RETURN a + "\\" + b
+LEARNED
+
+TEACH ext TAKES p
+    SET last TO 0
+    LENGTH p AS L
+    FOR i FROM 1 TO L
+        SUBSTR p FROM i LEN 1 AS ch
+        IF ch = "."
+            SET last TO i
+        ENDIF
+    DONE
+    IF last = 0
+        RETURN ""
+    ENDIF
+    SUBSTR p FROM (last + 1) AS e
+    RETURN e
+LEARNED
+
+TEACH basename TAKES p
+    SET last TO 0
+    LENGTH p AS L
+    FOR i FROM 1 TO L
+        SUBSTR p FROM i LEN 1 AS ch
+        IF ch = "/"
+            SET last TO i
+        ENDIF
+        IF ch = "\\"
+            SET last TO i
+        ENDIF
+    DONE
+    IF last = 0
+        RETURN p
+    ENDIF
+    SUBSTR p FROM (last + 1) AS b
+    RETURN b
+LEARNED