pry 0.8.3-i386-mingw32 → 0.8.4pre1-i386-mingw32

data/lib/pry/core_extensions.rb

@@ -1,55 +1,47 @@
-class Pry
-  module ObjectExtensions
+class Object
+  # Start a Pry REPL.
+  # This method differs from `Pry.start` in that it does not
+  # support an options hash. Also, when no parameter is provided, the Pry
+  # session will start on the implied receiver rather than on
+  # top-level (as in the case of `Pry.start`).
+  # It has two forms of invocation. In the first form no parameter
+  # should be provided and it will start a pry session on the
+  # receiver. In the second form it should be invoked without an
+  # explicit receiver and one parameter; this will start a Pry
+  # session on the parameter.
+  # @param [Object, Binding] target The receiver of the Pry session.
+  # @example First form
+  #   "dummy".pry
+  # @example Second form
+  #    pry "dummy"
+  # @example Start a Pry session on current self (whatever that is)
+  #   pry
+  def pry(target=self)
+    Pry.start(target)
+  end
 
-    # Start a Pry REPL.
-    # This method differs from `Pry.start` in that it does not
-    # support an options hash. Also, when no parameter is provided, the Pry
-    # session will start on the implied receiver rather than on
-    # top-level (as in the case of `Pry.start`).
-    # It has two forms of invocation. In the first form no parameter
-    # should be provided and it will start a pry session on the
-    # receiver. In the second form it should be invoked without an
-    # explicit receiver and one parameter; this will start a Pry
-    # session on the parameter.
-    # @param [Object, Binding] target The receiver of the Pry session.
-    # @example First form
-    #   "dummy".pry
-    # @example Second form
-    #    pry "dummy"
-    # @example Start a Pry session on current self (whatever that is)
-    #   pry
-    def pry(target=self)
-      Pry.start(target)
+  # Return a binding object for the receiver.
+  def __binding__
+    if is_a?(Module)
+      return class_eval "binding"
     end
 
-    # Return a binding object for the receiver.
-    def __binding__
-      if is_a?(Module)
-        return class_eval "binding"
+    unless respond_to? :__binding_impl__
+      begin
+        instance_eval %{
+          def __binding_impl__
+            binding
+          end
+        }
+      rescue TypeError
+        self.class.class_eval %{
+          def __binding_impl__
+            binding
+          end
+        }
       end
-
-      unless respond_to? :__binding_impl__
-        begin
-          instance_eval %{
-            def __binding_impl__
-              binding
-            end
-          }
-        rescue TypeError
-          self.class.class_eval %{
-            def __binding_impl__
-              binding
-            end
-          }
-        end
-      end
-
-      __binding_impl__
     end
-  end
-end
 
-# bring the extensions into Object
-class Object
-  include Pry::ObjectExtensions
+    __binding_impl__
+  end
 end

data/lib/pry/default_commands/context.rb

@@ -0,0 +1,127 @@
+require "pry/default_commands/ls"
+
+class Pry
+  module DefaultCommands
+
+    Context = Pry::CommandSet.new :context do
+      import Ls
+
+      command "cd", "Start a Pry session on VAR (use `cd ..` to go back and `cd /` to return to Pry top-level)",  :keep_retval => true do |obj|
+        if !obj
+          output.puts "Must provide an object."
+          next
+        end
+
+        throw(:breakout, opts[:nesting].level) if obj == ".."
+
+        if obj == "/"
+          throw(:breakout, 1) if opts[:nesting].level > 0
+          next
+        end
+
+        Pry.start target.eval("#{obj}")
+      end
+
+      command "nesting", "Show nesting information." do
+        nesting = opts[:nesting]
+
+        output.puts "Nesting status:"
+        output.puts "--"
+        nesting.each do |level, obj|
+          if level == 0
+            output.puts "#{level}. #{Pry.view_clip(obj)} (Pry top level)"
+          else
+            output.puts "#{level}. #{Pry.view_clip(obj)}"
+          end
+        end
+      end
+
+      command "jump-to", "Jump to a Pry session further up the stack, exiting all sessions below." do |break_level|
+        break_level = break_level.to_i
+        nesting = opts[:nesting]
+
+        case break_level
+        when nesting.level
+          output.puts "Already at nesting level #{nesting.level}"
+        when (0...nesting.level)
+          throw(:breakout, break_level + 1)
+        else
+          max_nest_level = nesting.level - 1
+          output.puts "Invalid nest level. Must be between 0 and #{max_nest_level}. Got #{break_level}."
+        end
+      end
+
+      command "exit", "End the current Pry session. Accepts optional return value. Aliases: quit, back" do
+        str = remove_first_word(opts[:val])
+        throw(:breakout, [opts[:nesting].level, target.eval(str)])
+      end
+
+      alias_command "quit", "exit", ""
+      alias_command "back", "exit", ""
+
+      command "exit-all", "End all nested Pry sessions. Accepts optional return value. Aliases: !!@" do
+        str = remove_first_word(opts[:val])
+        throw(:breakout, [0, target.eval(str)])
+      end
+
+      alias_command "!!@", "exit-all", ""
+
+      command "exit-program", "End the current program. Aliases: quit-program, !!!" do
+        exit
+      end
+
+      alias_command "quit-program", "exit-program", ""
+      alias_command "!!!", "exit-program", ""
+
+      command "!pry", "Start a Pry session on current self; this even works mid-expression." do
+        Pry.start(target)
+      end
+
+      command "whereami", "Show the code context for the session. (whereami <n> shows <n> extra lines of code around the invocation line. Default: 5)" do |num|
+        file = target.eval('__FILE__')
+        line_num = target.eval('__LINE__')
+        klass = target.eval('self.class')
+
+        if num
+          i_num = num.to_i
+        else
+          i_num = 5
+        end
+
+        meth_name = meth_name_from_binding(target)
+        meth_name = "N/A" if !meth_name
+
+        if file =~ /(\(.*\))|<.*>/ || file == "" || file == "-e"
+          output.puts "Cannot find local context. Did you use `binding.pry` ?"
+          next
+        end
+
+        set_file_and_dir_locals(file)
+        output.puts "\n#{bold('From:')} #{file} @ line #{line_num} in #{klass}##{meth_name}:\n\n"
+
+        # This method inspired by http://rubygems.org/gems/ir_b
+        File.open(file).each_with_index do |line, index|
+          line_n = index + 1
+          next unless line_n > (line_num - i_num - 1)
+          break if line_n > (line_num + i_num)
+          if line_n == line_num
+            code =" =>#{line_n.to_s.rjust(3)}: #{line.chomp}"
+            if Pry.color
+              code = CodeRay.scan(code, :ruby).term
+            end
+            output.puts code
+            code
+          else
+            code = "#{line_n.to_s.rjust(6)}: #{line.chomp}"
+            if Pry.color
+              code = CodeRay.scan(code, :ruby).term
+            end
+            output.puts code
+            code
+          end
+        end
+      end
+
+    end
+  end
+end

data/lib/pry/default_commands/documentation.rb

@@ -0,0 +1,145 @@
+class Pry
+  module DefaultCommands
+
+    Documentation = Pry::CommandSet.new :gems do
+
+      command "ri", "View ri documentation. e.g `ri Array#each`" do |*args|
+        run ".ri", *args
+      end
+
+      command "show-doc", "Show the comments above METH. Type `show-doc --help` for more info. Aliases: \?" do |*args|
+        target = target()
+
+        opts = Slop.parse!(args) do |opts|
+          opts.banner %{Usage: show-doc [OPTIONS] [METH]
+Show the comments above method METH. Tries instance methods first and then methods by default.
+e.g show-doc hello_method
+--
+}
+          opts.on :M, "instance-methods", "Operate on instance methods."
+          opts.on :m, :methods, "Operate on methods."
+          opts.on :c, :context, "Select object context to run under.", true do |context|
+            target = Pry.binding_for(target.eval(context))
+          end
+          opts.on :f, :flood, "Do not use a pager to view text longer than one screen."
+          opts.on :h, :help, "This message." do
+            output.puts opts
+          end
+        end
+
+        next if opts.help?
+
+        meth_name = args.shift
+        if (meth = get_method_object(meth_name, target, opts.to_hash(true))).nil?
+          output.puts "Invalid method name: #{meth_name}. Type `show-doc --help` for help"
+          next
+        end
+
+        doc, code_type = doc_and_code_type_for(meth)
+        next if !doc
+
+        next output.puts("No documentation found.") if doc.empty?
+        doc = process_comment_markup(doc, code_type)
+        output.puts make_header(meth, code_type, doc)
+        render_output(opts.flood?, false, doc)
+        doc
+      end
+
+      alias_command "?", "show-doc", ""
+
+
+      command "stat", "View method information and set _file_ and _dir_ locals. Type `stat --help` for more info." do |*args|
+        target = target()
+
+        opts = Slop.parse!(args) do |opts|
+          opts.banner %{Usage: stat [OPTIONS] [METH]
+Show method information for method METH and set _file_ and _dir_ locals.
+e.g: stat hello_method
+--
+}
+          opts.on :M, "instance-methods", "Operate on instance methods."
+          opts.on :m, :methods, "Operate on methods."
+          opts.on :c, :context, "Select object context to run under.", true do |context|
+            target = Pry.binding_for(target.eval(context))
+          end
+          opts.on :h, :help, "This message" do
+            output.puts opts
+          end
+        end
+
+        next if opts.help?
+
+        meth_name = args.shift
+        if (meth = get_method_object(meth_name, target, opts.to_hash(true))).nil?
+          output.puts "Invalid method name: #{meth_name}. Type `stat --help` for help"
+          next
+        end
+
+        code, code_type = code_and_code_type_for(meth)
+        next if !code
+        doc, code_type = doc_and_code_type_for(meth)
+
+        output.puts make_header(meth, code_type, code)
+        output.puts bold("Method Name: ") + meth_name
+        output.puts bold("Method Owner: ") + (meth.owner.to_s ? meth.owner.to_s : "Unknown")
+        output.puts bold("Method Language: ") + code_type.to_s.capitalize
+        output.puts bold("Method Type: ") + (meth.is_a?(Method) ? "Bound" : "Unbound")
+        output.puts bold("Method Arity: ") + meth.arity.to_s
+
+        name_map = { :req => "Required:", :opt => "Optional:", :rest => "Rest:" }
+        if meth.respond_to?(:parameters)
+          output.puts bold("Method Parameters: ") + meth.parameters.group_by(&:first).
+            map { |k, v| "#{name_map[k]} #{v.map { |kk, vv| vv ? vv.to_s : "noname" }.join(", ")}" }.join(". ")
+        end
+        output.puts bold("Comment length: ") + (doc.empty? ? 'No comment.' : (doc.lines.count.to_s + ' lines.'))
+      end
+
+      command "gist-method", "Gist a method to github. Type `gist-method --help` for more info.", :requires_gem => "gist" do |*args|
+        target = target()
+
+        opts = Slop.parse!(args) do |opts|
+          opts.banner = %{Usage: gist-method [OPTIONS] [METH]
+Gist the method (doc or source) to github.
+Ensure the `gist` gem is properly working before use. http://github.com/defunkt/gist for instructions.
+e.g: gist -m my_method
+e.g: gist -d my_method
+--
+}
+          opts.on :m, :method, "Gist a method's source."
+          opts.on :d, :doc, "Gist a method's documentation."
+          opts.on :p, :private, "Create a private gist (default: true)", :default => true
+          opts.on :h, :help, "This message" do
+            output.puts opts
+          end
+        end
+
+        next if opts.help?
+
+        # This needs to be extracted into its own method as it's shared
+        # by show-method and show-doc and stat commands
+        meth_name = args.shift
+        if (meth = get_method_object(meth_name, target, opts.to_hash(true))).nil?
+          output.puts "Invalid method name: #{meth_name}. Type `gist-method --help` for help"
+          next
+        end
+
+        type_map = { :ruby => "rb", :c => "c", :plain => "plain" }
+        if !opts.doc?
+          content, code_type = code_and_code_type_for(meth)
+        else
+          content, code_type = doc_and_code_type_for(meth)
+          no_color do
+            content = process_comment_markup(content, code_type)
+          end
+          code_type = :plain
+        end
+
+        IO.popen("gist#{' -p' if opts.p?} -t #{type_map[code_type]} -", "w") do |gist|
+          gist.puts content
+        end
+      end
+
+    end
+
+  end
+end

data/lib/pry/default_commands/easter_eggs.rb

@@ -0,0 +1,71 @@
+class Pry
+  module DefaultCommands
+
+    EasterEggs = Pry::CommandSet.new :easter_eggs do
+
+      command "game", "" do |highest|
+        highest = highest ? highest.to_i : 100
+        num = rand(highest)
+        output.puts "Guess the number between 0-#{highest}: ('.' to quit)"
+        count = 0
+        while(true)
+          count += 1
+          str = Readline.readline("game > ", true)
+          break if str == "." || !str
+          val = str.to_i
+          output.puts "Too large!" if val > num
+          output.puts "Too small!" if val < num
+          if val == num
+            output.puts "Well done! You guessed right! It took you #{count} guesses."
+            break
+          end
+        end
+      end
+
+      command "east-coker", "" do
+        text = %{
+--
+Now the light falls
+Across the open field, leaving the deep lane
+Shuttered with branches, dark in the afternoon,
+Where you lean against a bank while a van passes,
+And the deep lane insists on the direction
+Into the village, in the electric heat
+Hypnotised. In a warm haze the sultry light
+Is absorbed, not refracted, by grey stone.
+The dahlias sleep in the empty silence.
+Wait for the early owl.
+-- T.S Eliot
+            }
+        output.puts text
+        text
+      end
+
+      command "cohen-poem", "" do
+        text = %{
+--
+When this American woman,
+whose thighs are bound in casual red cloth,
+comes thundering past my sitting place
+like a forest-burning Mongol tribe,
+the city is ravished
+and brittle buildings of a hundred years
+splash into the street;
+and my eyes are burnt
+for the embroidered Chinese girls,
+already old,
+and so small between the thin pines
+on these enormous landscapes,
+that if you turn your head
+they are lost for hours.
+                  -- Leonard Cohen
+                }
+  output.puts text
+  text
+end
+
+
+    end
+
+  end
+end

data/lib/pry/default_commands/gems.rb

@@ -0,0 +1,59 @@
+class Pry
+  module DefaultCommands
+
+    Gems = Pry::CommandSet.new :gems do
+
+      command "gem-install", "Install a gem and refresh the gem cache." do |gem_name|
+        gem_home = Gem.instance_variable_get(:@gem_home)
+        output.puts "Attempting to install gem: #{bold(gem_name)}"
+
+        begin
+          if File.writable?(gem_home)
+            Gem::DependencyInstaller.new.install(gem_name)
+            output.puts "Gem #{bold(gem_name)} successfully installed."
+          else
+            if system("sudo gem install #{gem_name}")
+              output.puts "Gem #{bold(gem_name)} successfully installed."
+            else
+              output.puts "Gem #{bold(gem_name)} could not be installed."
+              next
+            end
+          end
+        rescue Gem::GemNotFoundException
+          output.puts "Required Gem: #{bold(gem_name)} not found."
+          next
+        end
+
+        Gem.refresh
+        output.puts "Refreshed gem cache."
+      end
+
+      command "gem-cd", "Change working directory to specified gem's directory." do |gem_name|
+        require 'rubygems'
+        gem_spec = Gem.source_index.find_name(gem_name).first
+        next output.puts("Gem `#{gem_name}` not found.") if !gem_spec
+        Dir.chdir(File.expand_path(gem_spec.full_gem_path))
+      end
+
+
+      command "gem-list", "List/search installed gems. (Optional parameter: a regexp to limit the search)" do |arg|
+        gems = Gem.source_index.gems.values.group_by(&:name)
+        if arg
+          query = Regexp.new(arg, Regexp::IGNORECASE)
+          gems = gems.select { |gemname, specs| gemname =~ query }
+        end
+
+        gems.each do |gemname, specs|
+          versions = specs.map(&:version).sort.reverse.map(&:to_s)
+          versions = ["<bright_green>#{versions.first}</bright_green>"] +
+            versions[1..-1].map{|v| "<green>#{v}</green>" }
+
+          gemname = highlight(gemname, query) if query
+          result = "<white>#{gemname} <grey>(#{versions.join ', '})</grey>"
+          output.puts colorize(result)
+        end
+      end
+
+    end
+  end
+end