Implement standard library glob function

src/std/fs.ab

@@ -1,3 +1,5 @@
+import * from "std/text"
+
 /// Checks if a directory exists.
 pub fun dir_exist(path) {
  $[ -d "{path}" ]$ failed {
@@ -76,3 +78,9 @@ pub fun change_owner(user: Text, path: Text): Bool {
 
  return false
 }
+
+/// Finds all files or directories matching a file glob.
+pub fun glob(path: Text): [Text]? {
+ let files = $eval "for file in {path}; do [ -e \\\"\\\$file\\\" ] && echo \\\"\\\$file\\\"; done"$?
+ return split(files, "\n")
+}

src/tests/stdlib/glob_missing_file.ab

@@ -0,0 +1,22 @@
+import * from "std/fs"
+import * from "std/text"
+
+// Output
+// glob failed
+
+main {
+ let tmpdir = unsafe $ mktemp -d $
+ unsafe {
+ $ touch {tmpdir}/file1 $
+ $ touch {tmpdir}/file2 $
+ $ touch {tmpdir}/first\ file\ with\ spaces $
+ $ touch {tmpdir}/second\ file\ with\ spaces $
+ }
+
+ let files = glob("{tmpdir}/missing*") failed { echo "glob failed" }
+ loop file in files {
+ echo replace_regex(file, "^.+\/", "[tmpdir]\/", true)
+ }
+
+ unsafe $ rm -rf {tmpdir} $
+}

src/tests/stdlib/glob_no_spaces.ab

@@ -0,0 +1,23 @@
+import * from "std/fs"
+import * from "std/text"
+
+// Output
+// [tmpdir]/file1
+// [tmpdir]/file2
+
+main {
+ let tmpdir = unsafe $ mktemp -d $
+ unsafe {
+ $ touch {tmpdir}/file1 $
+ $ touch {tmpdir}/file2 $
+ $ touch {tmpdir}/first\ file\ with\ spaces $
+ $ touch {tmpdir}/second\ file\ with\ spaces $
+ }
+
+ let files = glob("{tmpdir}/file*") failed { echo "glob failed" }
+ loop file in files {
+ echo replace_regex(file, "^.+\/", "[tmpdir]\/", true)
+ }
+
+ unsafe $ rm -rf {tmpdir} $
+}

src/tests/stdlib/glob_with_spaces.ab

@@ -0,0 +1,23 @@
+import * from "std/fs"
+import * from "std/text"
+
+// Output
+// [tmpdir]/first file with spaces
+// [tmpdir]/second file with spaces
+
+main {
+ let tmpdir = unsafe $ mktemp -d $
+ unsafe {
+ $ touch {tmpdir}/file1 $
+ $ touch {tmpdir}/file2 $
+ $ touch {tmpdir}/first\ file\ with\ spaces $
+ $ touch {tmpdir}/second\ file\ with\ spaces $
+ }
+
+ let files = glob("{tmpdir}/*with\ spaces*") failed { echo "glob failed" }
+ loop file in files {
+ echo replace_regex(file, "^.+\/", "[tmpdir]\/", true)
+ }
+
+ unsafe $ rm -rf {tmpdir} $
+}