prak 1.1

data/History.txt

@@ -0,0 +1,27 @@
+
+== 1.0 / 2009-09-27
+
+* MinGW is a valid Windows platform type.
+* Can use ~bang and ~ques in a regex and they will be turned into ! and ?
+  This is to get around bash.
+* Added -k negative file match option (Contributed by Juozas Gaigalas')
+* Added .cc and .hpp to the C++ file types
+* Added Vala file types
+* 20% faster on average
+* Moved to Github
+
+== 0.9 / 2008-02-03
+
+* Added .rake to ruby files
+* Colouring works on Win32 if win32console gem is installed.
+* Checks that file is readable by the current user.
+* Ignores socket files.
+* Added .erb and .haml to Ruby filetypes.
+* Added search at end-of/start-of line options
+* Fixed searching up the directory tree when passed '.'
+
+== 0.8.0 / 2007-10-30
+
+* Initial release.
+
+

data/Manifest.txt

@@ -0,0 +1,12 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/prak
+lib/prak.rb
+lib/prak/bootstrap.rb
+lib/prak/command_line.rb
+lib/prak/compile_match_file.rb
+lib/prak/file.rb
+lib/prak/search.rb
+prak.gemspec

data/README.txt

@@ -0,0 +1,70 @@
+prak
+
+Original by: 
+  http://rubyforge.org/projects/rak
+  Daniel Lucraft (http://danlucraft.com/blog/)
+
+Modifications by Sven Winkler
+
+== DESCRIPTION:
+
+Replacement for grep. Recursively scans directories to match a given
+Ruby regular expression. Prints highlighted results.
+
+Based on the Perl tool 'ack' by Andy Lester.
+
+Examples with similar grep:
+ 
+  $ prak pattern
+  $ grep pattern $(find . | grep -v .svn)
+
+  $ prak --ruby pattern
+  $ grep pattern $(find . -name '*.rb' | grep -v .svn)
+
+== FEATURES/PROBLEMS:
+  
+* Ruby regular expression syntax (uses oniguruma gem if installed).
+* Highlighted output.
+* Automatically recurses down the current directory or any given
+  directories.
+* Skips version control directories, backups like '~' and '#' and your
+* ruby project's pkg directory.
+* Allows inclusion and exclusion of files based on types.
+* Many options similar to grep.
+
+== SYNOPSIS:
+
+See 'prak --help' for usage information.
+
+== REQUIREMENTS:
+
+* Ruby
+
+== INSTALL:
+
+* gem install prak
+
+== LICENSE:
+
+(The MIT License)
+
+Original copyright (c) 2007 Daniel Lucraft
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,17 @@
+
+require 'rubygems'
+require 'hoe'
+
+$:.unshift 'lib'
+
+require 'prak'
+
+Hoe.spec('prak') do |p|
+  p.author = 'Sven Winkler'
+  p.email = 'sven@q-logix.de'
+  p.version = Prak::VERSION
+  p.summary = 'A grep replacement in Ruby, type "$prak pattern".'
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+end

data/bin/prak

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+#
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require "prak"
+
+Prak.search

data/lib/prak.rb

@@ -0,0 +1,9 @@
+class Prak
+  VERSION = "1.1"
+end
+
+require "prak/bootstrap"
+require "prak/command_line"
+require "prak/compile_match_file"
+require "prak/file"
+require "prak/search"

data/lib/prak/bootstrap.rb

@@ -0,0 +1,22 @@
+require 'getoptlong'
+
+begin
+  require 'oniguruma'
+  require 'inline'
+  $use_onig = true
+rescue LoadError
+  $use_onig = false
+end
+
+class String
+  def expand_tabs(shift=0)
+    expanded = dup
+    1 while expanded.sub!(/\t+/){ " "*($&.size*8 - ($`.size+shift)%8) }
+    expanded
+  end
+end
+
+
+
+
+

data/lib/prak/command_line.rb

@@ -0,0 +1,292 @@
+class Prak
+
+  FILE_COLOUR = "\033[1;31m"
+  MATCH_COLOUR = "\033[1;37m\033[41m"
+  CLEAR_COLOURS = "\033[0m"
+
+  FILE_TYPES = {
+    :asm         => %w( .s .S ),
+    :cc          => %w( .c .h .xs ),
+    :coffee      => %w( .coffee.js .coffee ),
+    :cpp         => %w( .cpp .cc .m .h .hpp .C .H ),
+    :csharp      => %w( .cs ),
+    :css         => %w( .css .sass .scss .less ),
+    :elisp       => %w( .el ),
+    :haskell     => %w( .hs .lhs ),
+    :hh          => %w( .h ),
+    :html        => %w( .htm .html .shtml ),
+    :image       => %w( .bmp .gif .jpg .jpeg .png .psd ),
+    :lisp        => %w( .lisp ),
+    :java        => %w( .java properties ),
+    :js          => %w( .js ),
+    :jsp         => %w( .jsp .jspx .jhtm .jhtml ),
+    :make        => %w( Makefile ),
+    :mason       => %w( .mas .mhtml .mpl .mtxt ),
+    :ocaml       => %w( .ml .mli ),
+    :parrot      => %w( .pir .pasm .pmc .ops .pod .pg .tg ),
+    :perl        => %w( .pl .pm .pod .t ),
+    :php         => %w( .php .phpt .php3 .php4 .php5 ),
+    :prolog      => %w( .pl .ecl ),
+    :python      => %w( .py ),
+    :ruby        => %w( .rb .rhtml .rjs .rxml Rakefile .rake .erb .haml .slim),
+    :scheme      => %w( .scm ),
+    :shell       => %w( .sh .bash .csh .ksh .zsh ),
+    :sql         => %w( .sql .ctl ),
+    :tcl         => %w( .tcl ),
+    :tex         => %w( .tex .cls .sty ),
+    :text        => %w( .txt .text ),
+    :tt          => %w( .tt .tt2 .ttml ),
+    :vala        => %w( .vala .vapi ),
+    :vb          => %w( .bas .cls .frm .ctl .vb .resx ),
+    :vim         => %w( .vim ),
+    :yaml        => %w( .yaml .yml ),
+    :xml         => %w( .xml .dtd .xslt )
+  }
+
+  VC_DIRS = %w(blib CVS _darcs .git .pc RCS SCCS .svn pkg)
+
+  class << self
+    attr_reader :opt
+  end
+
+  def self.unknown_type(type)
+    puts "rak: Unknown --type \"#{type}\""
+    puts "rak: See rak --help types"
+    exit
+  end
+
+  def self.parse_command_line_options options = {}
+
+    @opt = options
+
+    # file types
+    opt[:includes] = []
+    opt[:excludes] = []
+
+    FILE_TYPES.each do |type, exts|
+      if ARGV.delete('--'+type.to_s)
+        exts.each do |ext|
+          opt[:includes] << ext
+        end
+      end
+      if ARGV.delete('--no'+type.to_s)
+        exts.each do |ext|
+          opt[:excludes] << ext
+        end
+      end
+    end
+
+    opts = GetoptLong.new(
+      [ '--help', GetoptLong::OPTIONAL_ARGUMENT ],
+      [ '--max-count', '-m', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '--files', '-f', GetoptLong::NO_ARGUMENT ],
+      [ '--output', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '--version', GetoptLong::NO_ARGUMENT ],
+      [ '-c', '--count', GetoptLong::NO_ARGUMENT ],
+      [ '-h', '--no-filename', GetoptLong::NO_ARGUMENT ],
+      [ '-i', '--ignore-case', GetoptLong::NO_ARGUMENT ],
+      [ '-v', '--invert-match', GetoptLong::NO_ARGUMENT ],
+      [ '-n', GetoptLong::NO_ARGUMENT ],
+      [ '-Q', '--literal', GetoptLong::NO_ARGUMENT ],
+      [ '-o', GetoptLong::NO_ARGUMENT ],
+      [ '-w', '--word-regexp', GetoptLong::NO_ARGUMENT ],
+      [ '--group', GetoptLong::NO_ARGUMENT ],
+      [ '--nogroup', GetoptLong::NO_ARGUMENT ],
+      [ '-l', '--files-with-matches', GetoptLong::NO_ARGUMENT ],
+      [ '-L', '--files-without-matches', GetoptLong::NO_ARGUMENT ],
+      [ '--passthru', GetoptLong::NO_ARGUMENT ],
+      [ '-H', '--with-filename', GetoptLong::NO_ARGUMENT ],
+      [ '--colour', GetoptLong::NO_ARGUMENT ],
+      [ '--nocolour', GetoptLong::NO_ARGUMENT ],
+      [ '--color', GetoptLong::NO_ARGUMENT ],
+      [ '--nocolor', GetoptLong::NO_ARGUMENT ],
+      [ '-a', '--all', GetoptLong::NO_ARGUMENT ],
+      [ '--type', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '--sort-files', GetoptLong::NO_ARGUMENT ],
+      [ '--follow', GetoptLong::NO_ARGUMENT ],
+      [ '--nofollow', GetoptLong::NO_ARGUMENT ],
+      [ '--after-context', '-A', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '--before-context', '-B', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '--context', '-C', GetoptLong::OPTIONAL_ARGUMENT ],
+      [ '-g', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '-k', GetoptLong::REQUIRED_ARGUMENT ],
+      [ '-x', '--line-regexp', GetoptLong::NO_ARGUMENT ],
+      [ '-s', '--line-start', GetoptLong::NO_ARGUMENT ],
+      [ '-e', '--line-end', GetoptLong::NO_ARGUMENT ],
+      [ '-E', '--encoding', GetoptLong::REQUIRED_ARGUMENT ],
+    )
+
+    self.standard_options
+
+    # if redirected (RAK_TEST allows us to redirect in testing and still
+    # get the non-redirected defaults).
+    unless STDOUT.isatty or ENV['RAK_TEST'] == "true"
+      opt[:colour] = false
+      opt[:print_file_each_line] = true
+      opt[:print_filename] = false
+      opt[:print_line_number] = false
+    end
+
+    begin
+      opts.each do |option, arg|
+        case option
+        when '--help'
+          if arg == ""
+            # TODO: USAGE_HELP
+            puts USAGE_HELP
+          elsif arg == "types" or arg == "type"
+            puts TYPES_HELP
+          end
+          exit
+        when '--max-count'
+          opt[:max_count] = arg.to_i
+        when '--files'
+          opt[:only_print_filelist] = true
+        when '--output'
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+          opt[:print_output] = arg
+          opt[:print_highlighted] = false
+        when '--version'
+          puts VERSION_INFO
+          exit
+        when '-c'
+          opt[:print_num_matches] = true
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+          opt[:print_highlighted] = false
+        when '-h'
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+          opt[:print_file_each_line] = false
+        when '-i'
+          opt[:ignore_case] = true
+        when '-v'
+          opt[:invert_match] = true
+        when '-n'
+          opt[:descend] = false
+        when '-Q'
+          opt[:literal] = true
+        when '-o'
+          opt[:print_match] = true
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+          opt[:print_highlighted] = false
+        when '-w'
+          opt[:match_whole_words] = true
+        when '--group'
+          opt[:print_filename] = true
+          opt[:print_file_each_line] = false
+        when '--nogroup'
+          opt[:print_file_each_line] = true
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+        when '-l'
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+          opt[:print_highlighted] = false
+          opt[:print_file_if_match] = true
+        when '-L'
+          opt[:print_filename] = false
+          opt[:print_line_number] = false
+          opt[:print_highlighted] = false
+          opt[:print_file_if_no_match] = true
+        when '--passthru'
+          opt[:print_entire_line_if_no_match] = true
+        when '-H'
+          opt[:print_filename] = true
+          opt[:print_line_number] = true
+        when '--nocolour', '--nocolor'
+          opt[:colour] = false
+        when '--colour', '--color'
+          opt[:colour] = true
+        when '-a'
+          opt[:all_files] = true
+        when '--type'
+          if arg[0..1] == "no"
+            type = arg[2..-1]
+            arr = opt[:excludes]
+          else
+            type = arg
+            arr = opt[:includes]
+          end
+          exts = FILE_TYPES[type.intern]
+          unknown_type(type) unless exts
+          exts.each do |ext|
+            arr << ext
+          end
+        when '--sort-files'
+          opt[:sort_files] = true
+        when '--follow'
+          opt[:follow_symlinks] = true
+        when '--nofollow'
+          opt[:follow_symlinks] = false
+        when '--after-context'
+          opt[:use_context] = true
+          opt[:after_context] = arg.to_i
+        when '--before-context'
+          opt[:use_context] = true
+          opt[:before_context] = arg.to_i
+        when '--context'
+          opt[:use_context] = true
+          if arg == ""
+            val = 2
+          else
+            val = arg.to_i
+          end
+          opt[:before_context] = val
+          opt[:after_context] = val
+        when '-g'
+          opt[:filename_regex] = compile_regexp(arg)
+        when '-k'
+          opt[:neg_filename_regex] = compile_regexp(arg)
+        when '-x'
+          opt[:match_whole_lines] = true
+        when '-s'
+          opt[:match_line_starts] = true
+        when '-e'
+          opt[:match_line_ends] = true
+        end
+      end
+    rescue GetoptLong::InvalidOption => ex
+      puts "rak: see rak --help for usage."
+      exit
+    rescue SystemExit
+      exit
+    end
+  end
+
+  def self.standard_options
+    opt[:max_count] = nil
+    opt[:only_print_filelist] = false
+    opt[:print_filename] = true
+    opt[:print_line_number] = true
+    opt[:print_output] = nil
+    opt[:print_highlighted] = true
+    opt[:print_num_matches] = false
+    opt[:ignore_case] = false
+    opt[:invert_match] = false
+    opt[:descend] = true
+    opt[:literal] = false
+    opt[:print_match] = false
+    opt[:match_whole_words] = false
+    opt[:match_whole_lines] = false
+    opt[:match_line_starts] = false
+    opt[:match_line_ends] = false
+    opt[:print_file_each_line] = false
+    opt[:print_file_if_match] = false
+    opt[:print_file_if_no_match] = false
+    opt[:print_entire_line_if_no_match] = false
+    opt[:colour] = true
+    opt[:all_files] = false
+    opt[:sort_files] = false
+    opt[:follow_symlinks] = false
+    opt[:after_context] = 0
+    opt[:before_context] = 0
+    opt[:collect_context] = false
+    opt[:filename_regex] = nil
+    opt[:neg_filename_regex] = nil
+    opt[:standard_encoding] = "UTF-8"
+  end
+
+end

data/lib/prak/compile_match_file.rb

@@ -0,0 +1,145 @@
+class Prak
+  def self.compile_match_file
+    c = []
+    c << %{def match_file(re, fn, file_separator) }
+    c << %{  displayed_filename = false }
+    c << %{  count = 0 }
+    c << %{  i = 0 }
+    c << %{  matches = [] }
+    c << %{  print_num = 0 }
+
+                if opt[:before_context] > 0
+    c << %{    before_context = [] }
+    c << %{    before_context_size = opt[:before_context] }
+                end
+    c << %{  if fn.is_a? String }
+    c << %{    f = File.open(fn, "r", :encoding => opt[:standard_encoding]) }
+    c << %{  elsif fn.is_a? IO }
+    c << %{    f = fn }
+    c << %{  end }
+
+    c << %{  f.each_line do |line| }
+    c << %{    line = line.force_encoding("BINARY") unless line.valid_encoding? }
+    c << %{    i += 1 }
+                  if opt[:print_output]
+    c << %{      line.scan(re){ matches << eval(opt[:print_output]) } }
+                  else
+    c << %{      line.scan(re){ matches << $~ } }
+                  end
+                  if opt[:print_match]
+    c << %{      matches.each{|md| puts md.to_s } }
+                  end
+    c << %{    count += matches.size }
+                  if opt[:invert_match]
+                    if opt[:print_filename]
+    c << %{        unless displayed_filename }
+    c << %{          print file_separator }
+    c << %{          file_separator.replace("\\n") }
+    c << %{          puts FILE_COLOUR + fn + CLEAR_COLOURS }
+    c << %{          displayed_filename = true }
+    c << %{        end }
+                    end
+    c << %{      if matches.empty? }
+                      if opt[:print_highlighted]
+                        if opt[:print_line_number]
+    c << %{            print "\#{i.to_s.rjust(4) }|" }
+                        end
+    c << %{          puts "\#{line.expand_tabs }" }
+                      end
+    c << %{      end }
+    c << %{      matches.clear }
+                  else
+    c << %{      if matches.empty? }
+                      if opt[:print_entire_line_if_no_match]
+    c << %{          puts line }
+                      end
+                      if opt[:use_context]
+                        if opt[:before_context] > 0
+    c << %{            if print_num == 0 }
+    c << %{              before_context << [i, line] }
+    c << %{              if before_context.length > before_context_size }
+    c << %{                before_context.shift }
+    c << %{              end }
+    c << %{            end }
+                        end
+    c << %{          if print_num > 0 }
+    c << %{            print_num -= 1 }
+                          if opt[:print_highlighted]
+                            if opt[:print_line_number]
+    c << %{                print "\#{i.to_s.rjust(4) }|" }
+                            end
+    c << %{              puts "\#{line.expand_tabs }" }
+    c << %{            end }
+                        end
+                      end
+    c << %{      else }
+    c << %{        print_num = opt[:after_context] }
+                      if opt[:print_filename]
+    c << %{          unless displayed_filename }
+    c << %{            print file_separator }
+    c << %{            file_separator.replace("\\n") }
+    c << %{            puts FILE_COLOUR + fn + CLEAR_COLOURS }
+    c << %{            displayed_filename = true }
+    c << %{          end }
+                      end
+                      if opt[:before_context] > 0
+    c << %{          before_context.each do |before_i, before_line| }
+                          if opt[:print_line_number]
+    c << %{              print "\#{before_i.to_s.rjust(4) }|" }
+                          end
+    c << %{            puts before_line.expand_tabs }
+    c << %{          end }
+    c << %{          before_context = [] }
+                      end
+                      if opt[:print_output]
+    c << %{          matches.each {|m| puts m } }
+                      end
+                      if opt[:print_highlighted]
+                        if opt[:print_line_number]
+    c << %{            prefix = "\#{i.to_s.rjust(4) }|" }
+                        else
+                          if opt[:print_file_each_line]
+    c << %{              fn_str = (fn.is_a?(String) ? FILE_COLOUR + fn + CLEAR_COLOURS + ":" : "") }
+    c << %{              prefix = fn_str + "\#{i.to_s }:" }
+                          else
+    c << %{              prefix = "" }
+                          end
+                        end
+    c << %{          print_highlighted(prefix, line, matches) }
+                      end
+    c << %{      end }
+                    if opt[:max_count]
+    c << %{        if count >= opt[:max_count] }
+    c << %{          break }
+    c << %{        end }
+                    end
+    c << %{      matches.clear }
+                  end
+    c << %{  end }
+    c << %{  f.close if f === File }
+                if opt[:print_num_matches]
+                  if opt[:invert_match]
+    c << %{      puts "\#{fn }:\#{i-count }" }
+                  else
+    c << %{      if count > 0 }
+    c << %{        puts "\#{fn }:\#{count }" }
+    c << %{      end }
+                  end
+                end
+                if opt[:print_file_if_match]
+    c << %{    if count > 0 }
+    c << %{      puts fn }
+    c << %{    end }
+                end
+
+                if opt[:print_file_if_no_match]
+    c << %{    if count == 0 }
+    c << %{      puts fn }
+    c << %{    end }
+                end
+    c << %{end }
+
+    Prak.instance_eval c.join("\n")
+
+  end
+end

data/lib/prak/file.rb

@@ -0,0 +1,142 @@
+class Prak
+
+  def self.file_relevant?(fn)
+    # These don't change at this point
+    @types_rx    ||= extension_regexp(FILE_TYPES.values.flatten)
+    @includes_rx ||= extension_regexp(opt[:includes])
+    @excludes_rx ||= extension_regexp(opt[:excludes])
+
+    ext = File.basename(fn)
+    ext = shebang_matches(fn) unless ext =~ @types_rx
+
+    return false if !opt[:all_files]         and !ext or fn =~ /[~#]\z/
+    return false if @includes_rx             and (ext||"") !~ @includes_rx
+    return false if @excludes_rx             and (ext||"") =~ @excludes_rx
+    return false if opt[:filename_regex]     and fn  !~ opt[:filename_regex]
+    return false if opt[:neg_filename_regex] and fn  =~ opt[:neg_filename_regex]
+    return true
+  end
+
+  def self.find_all_files(path, &blk)
+    return if File.socket?(path)
+    return unless File.readable?(path)
+
+    if File.file?(path)
+      return unless file_relevant?(path)
+      yield(path.sub(/\A\.\/+/, "").gsub(/\/+/, "/"))
+    elsif File.directory?(path)
+      Dir["#{path}/*"].each do |fn|
+        next if VC_DIRS.any?{|vc| vc == File.basename(fn)}
+        next if File.directory?(fn) and not opt[:descend]
+        next if File.symlink?(fn) and not opt[:follow_symlinks]
+        find_all_files(fn, &blk)
+      end
+    end
+  end
+
+  # It's really asking for Pathname...
+  def self.each_file(todo, &blk)
+    if todo.empty?
+      if STDIN.isatty
+        todo = ["."]
+      else
+        opt[:print_filename] = false
+        yield(STDIN)
+        return
+      end
+    elsif todo.size == 1 and File.file?(todo[0])
+      opt[:print_filename] = false
+    end
+
+    if opt[:sort_files]
+      sortme = []
+      todo.each do |item|
+        find_all_files(item) do |fn|
+          sortme << fn
+        end
+      end
+      sortme.sort_by{|fn|fn.downcase}.each(&blk)
+    else
+      todo.each do |item|
+        find_all_files(item, &blk)
+      end
+    end
+  end
+
+  def self.print_highlighted(prefix, line, matches)
+    print prefix
+    matches = matches.map{|md| md.offset(0)}
+    cuts = [0, matches, line.size].flatten
+    column = 0
+    0.upto(cuts.size-2) do |i|
+      part = line[cuts[i]...cuts[i+1]]
+      part = part.expand_tabs(column)
+      column += part.size
+      print MATCH_COLOUR if i%2 == 1
+      print part
+      print CLEAR_COLOURS if i%2 == 1
+    end
+    print "\n" unless line[-1,1] == "\n"
+  end
+
+  def self.compile_regexp(str)
+    if $use_onig
+      Oniguruma::ORegexp.new(str)
+    else
+      Regexp.new(str)
+    end
+  end
+
+  def self.extension_regexp(extensions)
+    return nil if extensions.empty?
+    Regexp.compile('(?:' + extensions.map{|x| Regexp.escape(x)}.join("|") + ')\z')
+  end
+
+  def self.shebang_matches(fn)
+    begin
+      line = File.open(fn, :encoding => opt[:standard_encoding]).readline
+      if line =~ /^#!/
+        if line =~ /\b(ruby|perl|php|python|make)[0-9.]*\b/i
+          FILE_TYPES[$1.downcase.intern].first
+        elsif line =~ /\b(sh|bash|csh|ksh|zsh)\b/
+          ".sh"
+        else
+          ".other"
+        end
+      elsif line =~ /^<\?xml\b/
+        ".xml"
+      else
+        false
+      end
+    rescue
+      nil
+    end
+  end
+
+  def self.compile_pattern(str)
+    if opt[:literal]
+      str = Regexp.quote(str)
+    end
+    if opt[:match_whole_words]
+      str = "\\b(?:" + str + ")\\b"
+    end
+    if opt[:match_whole_lines]
+      str = "^(?:" + str + ")$"
+    end
+    if opt[:match_line_starts]
+      str = "^(?:" + str + ")"
+    end
+    if opt[:match_line_ends]
+      str = "(?:" + str + ")$"
+    end
+    str = str.gsub("~bang", "!").gsub("~ques", "?")
+    if $use_onig
+      flags = opt[:ignore_case] ? Oniguruma::OPTION_IGNORECASE : nil
+      Oniguruma::ORegexp.new(str, :options => flags)
+    else
+      flags = opt[:ignore_case] ? Regexp::IGNORECASE : nil
+      Regexp.new(str, flags)
+    end
+  end
+
+end

data/lib/prak/search.rb

@@ -0,0 +1,36 @@
+class Prak
+
+  def self.search
+
+    parse_command_line_options
+
+    unless opt[:colour]
+      FILE_COLOUR.replace ""
+      CLEAR_COLOURS.replace ""
+      MATCH_COLOUR.replace ""
+    end
+
+    if opt[:only_print_filelist]
+      each_file(ARGV) do |fn|
+        puts fn
+      end
+    elsif ARGV.empty?
+      # TODO USAGE_HELP
+      puts USAGE_HELP
+      exit
+    else
+      re = compile_pattern(ARGV.shift)
+      compiled = false
+      file_separator = ""
+      each_file(ARGV) do |fn|
+        # each_file might turn off printing file name, but only before first yield
+        unless compiled
+          compile_match_file
+          compiled = true
+        end
+        match_file(re, fn, file_separator)
+      end
+    end
+
+  end
+end

data/prak.gemspec

@@ -0,0 +1,19 @@
+
+Gem::Specification.spec do |s|
+  s.name = %q{prak}
+  s.version = "2.0"
+
+  s.authors = ["Daniel Lucraft"]
+  s.date = %q{2008-02-03}
+  s.default_executable = %q{prak}
+  s.description = %q{Based on the Perl tool 'ack' by Andy Lester.  Examples with similar grep:  $ prak pattern $ grep pattern $(find . | grep -v .svn)  $ prak --ruby pattern $ grep pattern $(find . -name '*.rb' | grep -v .svn)  == FEATURES/PROBLEMS:  * Ruby regular expression syntax (uses oniguruma gem if installed). * Highlighted output. * Automatically recurses down the current directory or any given directories. * Skips version control directories, backups like '~' and '#' and your * ruby project's pkg directory. * Allows inclusion and exclusion of files based on types. * Many options similar to grep.}
+  s.email = %q{dan@fluentradical.com}
+  s.executables = ["prak"]
+  s.files = FileList["{lib,spec,bin,doc}/**/*"]
+  s.homepage = %q{http://github.com/sven-q/prak.git}
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.0}
+  s.summary = %q{A grep replacement in Ruby, type "prak pattern".}
+  s.required_ruby_version = '>= 1.9.2'
+
+end

metadata

@@ -0,0 +1,85 @@
+--- !ruby/object:Gem::Specification
+name: prak
+version: !ruby/object:Gem::Version
+  version: '1.1'
+  prerelease: 
+platform: ruby
+authors:
+- Sven Winkler
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-08-23 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: &2153032040 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.12'
+  type: :development
+  prerelease: false
+  version_requirements: *2153032040
+description: ! 'Modifications by Sven Winkler
+
+
+  == DESCRIPTION:
+
+
+  Replacement for grep. Recursively scans directories to match a given
+
+  Ruby regular expression. Prints highlighted results.
+
+
+  Based on the Perl tool ''ack'' by Andy Lester.'
+email: sven@q-logix.de
+executables:
+- prak
+extensions: []
+extra_rdoc_files:
+- History.txt
+- Manifest.txt
+- README.txt
+files:
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/prak
+- lib/prak.rb
+- lib/prak/bootstrap.rb
+- lib/prak/command_line.rb
+- lib/prak/compile_match_file.rb
+- lib/prak/file.rb
+- lib/prak/search.rb
+- prak.gemspec
+- .gemtest
+homepage: 
+licenses: []
+post_install_message: 
+rdoc_options:
+- --main
+- README.txt
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: prak
+rubygems_version: 1.8.6
+signing_key: 
+specification_version: 3
+summary: A grep replacement in Ruby, type "$prak pattern".
+test_files: []