Gecko [ www.corporacionhdm.com.pe ]

Name	Size	Permission	Date
cmd	[ DIR ]	drwxr-xr-x	2024-03-03 22:43
ext	[ DIR ]	drwxr-xr-x	2024-03-03 22:43
lc	[ DIR ]	drwxr-xr-x	2024-03-03 22:43
completion.rb	5.93 KB	-rw-r--r--	2013-06-04 14:17
context.rb	11.91 KB	-rw-r--r--	2013-02-04 22:36
extend-command.rb	9.54 KB	-rw-r--r--	2012-12-21 05:45
frame.rb	1.87 KB	-rw-r--r--	2012-12-21 05:45
help.rb	613 B	-rw-r--r--	2012-12-21 05:45
init.rb	7.07 KB	-rw-r--r--	2012-12-26 03:55
input-method.rb	4.58 KB	-rw-r--r--	2012-12-21 17:29
inspector.rb	3.9 KB	-rw-r--r--	2013-11-30 09:50
locale.rb	4.43 KB	-rw-r--r--	2012-12-13 05:22
magic-file.rb	893 B	-rw-r--r--	2012-12-10 02:06
notifier.rb	6.87 KB	-rw-r--r--	2013-11-27 12:56
output-method.rb	2.39 KB	-rw-r--r--	2012-12-25 13:34
ruby-lex.rb	22.59 KB	-rw-r--r--	2012-12-27 14:48
ruby-token.rb	7.3 KB	-rw-r--r--	2012-12-13 05:22
slex.rb	5.95 KB	-rw-r--r--	2012-12-21 17:36
src_encoding.rb	90 B	-rw-r--r--	2009-10-02 10:45
version.rb	251 B	-rw-r--r--	2012-12-13 05:22
workspace.rb	2.78 KB	-rw-r--r--	2013-11-30 09:50
ws-for-case-2.rb	195 B	-rw-r--r--	2010-11-08 20:59
xmp.rb	4.03 KB	-rw-r--r--	2012-12-21 05:45

Rename

#
#   xmp.rb - irb version of gotoken xmp
#   	$Release Version: 0.9$
#   	$Revision: 38515 $
#   	by Keiju ISHITSUKA(Nippon Rational Inc.)
#
# --
#
#
#

require "irb"
require "irb/frame"

# An example printer for irb.
#
# It's much like the standard library PrettyPrint, that shows the value of each
# expression as it runs.
#
# In order to use this library, you must first require it:
#
#     require 'irb/xmp'
#
# Now, you can take advantage of the Object#xmp convenience method.
#
#     xmp <<END
#       foo = "bar"
#       baz = 42
#     END
#     #=> foo = "bar"
#       #==>"bar"
#     #=> baz = 42
#       #==>42
#
# You can also create an XMP object, with an optional binding to print
# expressions in the given binding:
#
#     ctx = binding
#     x = XMP.new ctx
#     x.puts
#     #=> today = "a good day"
#       #==>"a good day"
#     ctx.eval 'today # is what?'
#     #=> "a good day"
class XMP
  @RCS_ID='-$Id: xmp.rb 38515 2012-12-21 05:45:50Z zzak $-'

# Creates a new XMP object.
  #
  # The top-level binding or, optional +bind+ parameter will be used when
  # creating the workspace. See WorkSpace.new for more information.
  #
  # This uses the +:XMP+ prompt mode, see IRB@Customizing+the+IRB+Prompt for
  # full detail.
  def initialize(bind = nil)
    IRB.init_config(nil)
    #IRB.parse_opts
    #IRB.load_modules

IRB.conf[:PROMPT_MODE] = :XMP

bind = IRB::Frame.top(1) unless bind
    ws = IRB::WorkSpace.new(bind)
    @io = StringInputMethod.new
    @irb = IRB::Irb.new(ws, @io)
    @irb.context.ignore_sigint = false

#    IRB.conf[:IRB_RC].call(@irb.context) if IRB.conf[:IRB_RC]
    IRB.conf[:MAIN_CONTEXT] = @irb.context
  end

# Evaluates the given +exps+, for example:
  #
  #   require 'irb/xmp'
  #   x = XMP.new
  #
  #   x.puts '{:a => 1, :b => 2, :c => 3}'
  #   #=> {:a => 1, :b => 2, :c => 3}
  #     # ==>{:a=>1, :b=>2, :c=>3}
  #   x.puts 'foo = "bar"'
  #   # => foo = "bar"
  #     # ==>"bar"
  def puts(exps)
    @io.puts exps

if @irb.context.ignore_sigint
      begin
	trap_proc_b = trap("SIGINT"){@irb.signal_handle}
	catch(:IRB_EXIT) do
	  @irb.eval_input
	end
      ensure
	trap("SIGINT", trap_proc_b)
      end
    else
      catch(:IRB_EXIT) do
	@irb.eval_input
      end
    end
  end

# A custom InputMethod class used by XMP for evaluating string io.
  class StringInputMethod < IRB::InputMethod
    # Creates a new StringInputMethod object
    def initialize
      super
      @exps = []
    end

# Whether there are any expressions left in this printer.
    def eof?
      @exps.empty?
    end

# Reads the next expression from this printer.
    #
    # See IO#gets for more information.
    def gets
      while l = @exps.shift
	next if /^\s+$/ =~ l
	l.concat "\n"
	print @prompt, l
	break
      end
      l
    end

# Concatenates all expressions in this printer, separated by newlines.
    #
    # An Encoding::CompatibilityError is raised of the given +exps+'s encoding
    # doesn't match the previous expression evaluated.
    def puts(exps)
      if @encoding and exps.encoding != @encoding
	enc = Encoding.compatible?(@exps.join("\n"), exps)
	if enc.nil?
	  raise Encoding::CompatibilityError, "Encoding in which the passed expression is encoded is not compatible to the preceding's one"
	else
	  @encoding = enc
	end
      else
	@encoding = exps.encoding
      end
      @exps.concat exps.split(/\n/)
    end

# Returns the encoding of last expression printed by #puts.
    attr_reader :encoding
  end
end

# A convenience method that's only available when the you require the IRB::XMP standard library.
#
# Creates a new XMP object, using the given expressions as the +exps+
# parameter, and optional binding as +bind+ or uses the top-level binding. Then
# evaluates the given expressions using the +:XMP+ prompt mode.
#
# For example:
#
#   require 'irb/xmp'
#   ctx = binding
#   xmp 'foo = "bar"', ctx
#   #=> foo = "bar"
#     #==>"bar"
#   ctx.eval 'foo'
#   #=> "bar"
#
# See XMP.new for more information.
def xmp(exps, bind = nil)
  bind = IRB::Frame.top(1) unless bind
  xmp = XMP.new(bind)
  xmp.puts exps
  xmp
end