From 7cd67dd7f3ebf38a2a65c6756090936f9a1b3b03 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Tue, 29 Oct 2024 14:36:49 -0400
Subject: Add file globbing

---
 stdlib/paths.c | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'stdlib/paths.c')

diff --git a/stdlib/paths.c b/stdlib/paths.c
index e8a1e1f6..8f6e1359 100644
--- a/stdlib/paths.c
+++ b/stdlib/paths.c
@@ -3,6 +3,7 @@
 #include <errno.h>
 #include <fcntl.h>
 #include <gc.h>
+#include <glob.h>
 #include <stdbool.h>
 #include <stdint.h>
 #include <string.h>
@@ -535,6 +536,24 @@ public OptionalClosure_t Path$by_line(Path_t path)
     return (Closure_t){.fn=(void*)_next_line, .userdata=wrapper};
 }
 
+public Array_t Path$glob(Path_t path)
+{
+    glob_t glob_result;
+    int status = glob(Text$as_c_string(path), GLOB_BRACE | GLOB_TILDE | GLOB_TILDE_CHECK, NULL, &glob_result);
+    if (status != 0 && status != GLOB_NOMATCH)
+        fail("Failed to perform globbing");
+
+    Array_t glob_files = {};
+    for (size_t i = 0; i < glob_result.gl_pathc; i++) {
+        size_t len = strlen(glob_result.gl_pathv[i]);
+        if ((len >= 2 && glob_result.gl_pathv[i][len-1] == '.' && glob_result.gl_pathv[i][len-2] == '/')
+            || (len >= 2 && glob_result.gl_pathv[i][len-1] == '.' && glob_result.gl_pathv[i][len-2] == '.' && glob_result.gl_pathv[i][len-3] == '/'))
+            continue;
+        Array$insert(&glob_files, (Text_t[1]){Text$from_str(glob_result.gl_pathv[i])}, I(0), sizeof(Text_t));
+    }
+    return glob_files;
+}
+
 public const TypeInfo_t Path$info = {
     .size=sizeof(Path_t),
     .align=__alignof__(Path_t),
@@ -542,5 +561,4 @@ public const TypeInfo_t Path$info = {
     .TextInfo={.lang="Path"},
 };
 
-
 // vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0
-- 
cgit v1.2.3