awalk.cr

alias Entry = Hash(Symbol, File::Stat | String)

def awalkDir(dir, block : Entry -> Nil)

  Dir.entries(dir).each do |fname|
    next if fname == "."  || fname == ".."

    current = File.join(dir, fname)

    begin
      s = File.lstat(current)
    rescue error
      next
    end
    if s.directory?
      block.call({:dir => dir, :fname =>  fname, :stat => s })
      begin # sometimes directories disappear...
        awalkDir(current, block)  # <-- this causes compile failure
      rescue error
        next
      end
    else
      block.call({:dir => dir, :fname =>  fname, :stat => s })
    end
  end

end

callback = ->(e : Entry) { puts e }
awalkDir("/", callback)