Add &dir

lib/Builtins.cs

@@ -2187,4 +2187,15 @@ class CrossSource: ItemSource {
         }
         return ret;
     }
+
+    public static Variable dir(string s) {
+        string[] raw = Directory.GetFileSystemEntries(s);
+        string[] forperl = new string[raw.Length + 2];
+        forperl[0] = "."; forperl[1] = "..";
+        for (int i = 0; i < raw.Length; i++) {
+            int ix = raw[i].LastIndexOf(Path.DirectorySeparatorChar);
+            forperl[i+2] = (ix >= 0) ? raw[i].Substring(ix+1) : raw[i];
+        }
+        return BoxLoS(forperl);
+    }
 }

lib/CORE.setting

@@ -1908,6 +1908,10 @@ sub slurp($path) is unsafe { Q:CgOp { (box Str (slurp (unbox str (@ {$path}))))
 
 sub spew($path,$text) is unsafe { Q:CgOp { (rnull (spew (unbox str (@ {$path.Str})) (unbox str (@ {$text.Str})))) } }
 
+sub dir($directory = '.', Mu :$test = none('.','..')) is unsafe {
+    grep $test, Q:CgOp { (dir (obj_getstr {$directory})) };
+}
+
 my class Instant {
     has $.val;
     method to-posix() { ($!val, False) }