Implement simple globbing

Author: timholy

base/exports.jl

@@ -1146,6 +1146,7 @@ export
     splitdir,
     splitdrive,
     splitext,
+    glob,
 
 # filesystem operations
     cd,

base/path.jl

@@ -122,3 +122,25 @@ end
     if c == '/' return ENV["HOME"]*path[i:end] end
     error("~user tilde expansion not yet implemented")
 end
+
+# This globs * and ?. [] seems problematic because of line 511 of pkg.jl,
+# so square brackets are protected.
+# Limited to globbing in the basename
+function glob(path::String)
+    dir, pattern = splitdir(path)
+    dir = isempty(dir) ? "." : dir
+    names = readdir(dir)
+    patterndot = replace(pattern, ['.', '[', ']'], s->string("\\",s))
+    re = Regex(string('^', replace(replace(patterndot, "?", "."), "*", ".*"), '$'))
+    paths = Array(ASCIIString, 0)
+    for name in names
+        m = match(re, name)
+        if !is(m, nothing)
+            push!(paths, joinpath(dir, name))
+        end
+    end
+    if isempty(paths)
+        error("Cannot access ", path, ": no such file or directory")
+    end
+    paths
+end

base/string.jl

@@ -830,19 +830,33 @@ function shell_parse(raw::String, interp::Bool)
     j = i
 
     function update_arg(x)
-        if !isa(x,String)
+        if !isa(x,String) || !isempty(x)
             push!(arg, x)
-        elseif !isempty(x)
-            if x[1] == '~'
-                push!(arg, string(ENV["HOME"], x[2:end]))
-            else
-                push!(arg, x)
-            end
         end
     end
     function append_arg()
-        if isempty(arg); arg = {"",}; end
-        push!(args, arg)
+        if isempty(arg)
+            push!(args, {"",})
+        elseif length(arg) == 1
+            x = arg[1]
+            if isa(x, String) && !isempty(x)
+                if x[1] == '~'
+                    x = string(ENV["HOME"], x[2:end])
+                end
+                if search(x, ['*', '?']) != 0
+                    paths = glob(x)
+                    for p in paths
+                        push!(args, {p,})
+                    end
+                else
+                    push!(args, {x,})
+                end
+            else
+                push!(args, arg)
+            end
+        else
+            push!(args, arg)
+        end
         arg = {}
     end