[ruby-list:25463] Re: What is universal %Q escape

わたなべです.

GOTO Kentaro <[e-mail]> writes:

:そこで現在は、"\0" という文字はプログラムに
:は出て来ないだろうということで eval "%Q\0...\0" というような
:ことをしてます。すると、Aleksiから僕宛てに以下のようなコメン
:トが来ました。なにか御意見はございませんか? 

決め打ちがまずけりゃ 0 .. 255 順に調べて使ってないのを使うとか.

何度も eval するから難しくなるわけで, 根本的に eval は一回で
済むのではないでしょうか? そうすれば "\0" に悩む必要もないですし.

自分の趣味に赴くまま書き直すとこんな感じです.
＃sep の意味がよくわかりませんでした. 要らない気もするけど,
＃残してあります.

-- 
わたなべひろふみ

module Kernel
  XMP_VERSION = "2000-10-15"
  XMP_FORMAT = "%l\n    #=> %r\n"
  XMP_SEPARATOR = "\n    #   "

  def xmp(arg, fmt = XMP_FORMAT, sep = XMP_SEPARATOR, bind = TOPLEVEL_BINDING)
    fmt ||= XMP_FORMAT
    sep ||= XMP_SEPARATOR
    bind ||= TOPLEVEL_BINDING
    res = []
    for line in arg
      res <<
	begin
	  eval(line, bind).inspect.gsub(/\\n/, sep)
	rescue Exception => error
	  "!! " + error.to_s.sub(/^\(eval\):1: /, '')
	end
    end
    arg.split(/\n/).each_with_index do |l,i|
      (puts "\n" ; next) if l =~ /^$/
      (puts l ; next) if l =~ /^\s*#/
      puts fmt.gsub(/%l/, l).gsub(/%r/, res[i])
    end
  end
  alias __xmp__ xmp
end