.=title:	プログラマーのための eRuby 入門 (車輪の再発明編)
.?lastupdate:	$Date$

.# (setq ed::*ruby-indent-column* 2)


●最初の実装

.? eruby1.rb
.-------------------- eruby1.rb
##
## eRuby の実装
##
class Eruby

  ## eRuby 形式の文字列を受け取る
  def initialize(input)
    @input = input
    @src = compile(@input)
  end
  attr_reader :src

  ## 実行した結果 (文字列) を返す
  def result(binding=TOPLEVEL_BINDING)
    filename = '(eruby)'
    eval @src, binding, filename
  end

  private

  ## eRuby 形式の文字列を Ruby コードに変換する
  def compile(input=@input)
    src = "_out = ''; "
    regexp = /(.*?)<%(=?)(.*?)%>/m
    input.scan(regexp) do |text, indicator, code|
      ## テキストを処理
      text.each_line do |line|
        src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")
      end

      ## 埋め込み Ruby コードを処理
      if indicator == '='  # <%= %> の場合
        src << "_out << (#{code}).to_s; "
      else                 # <%  %> の場合
        code.each_line { |line| src << line }
        src << "; " unless code[-1] == ?\n
      end
    end

    ## 残りのテキストを処理
    rest = $' || input
    rest.each_line do |line|
      src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")
    end

    src << "_out\n"
    return src
  end

end
.--------------------


.? example1.rb
.-------------------- example1.rb
list = ['aaa', 'bbb', 'ccc']

input = <<END
<ul>
 <% for item in list %>
  <li><%= item %></li>
 <% end %>
</ul>
.#<table>
.# <% for item in list %>
.#  <tr>
.#    <td><%= item %></td>
.#  </tr>
.# <% end %>
.#</table>
END

require 'eruby1'
eruby = Eruby.new(input)
puts "--- source ---"
puts eruby.src
puts "--- result ---"
puts eruby.result
.--------------------


.? output
.____________________
.<<<:! ruby example1.rb
.____________________




●子クラスでの拡張をしやすくする

.? eruby2.rb
.-------------------- eruby2.rb
##
## eRuby の実装
##
class Eruby

  ## eRuby 形式の文字列を受け取る
  def initialize(input)
    @input = input
    @src = compile(@input)
  end
  attr_reader :src

  ## 実行した結果 (文字列) を返す
  def result(binding=TOPLEVEL_BINDING)
    filename = '(eruby)'
    eval @src, binding, filename
  end

  private

  ## eRuby 形式の文字列を Ruby コードに変換する
  def compile(input=@input)
    {{*src = ""*}}
    {{*initialize_src(src)*}}
    regexp = /(.*?)<%(=?)(.*?)%>/m
    input.scan(regexp) do |text, indicator, code|
      ## テキストを処理
      {{*add_src_text(src, text)*}}

      ## 埋め込み Ruby コードを処理
      if indicator == '='  # <%= %> の場合
        {{*add_src_expr(src, code)*}}
      else                 # <%  %> の場合
        {{*add_src_code(src, code)*}}
      end
    end

    ## 残りのテキストを処理
    rest = $' || input
    {{*add_src_text(src, rest)*}}

    {{*finalize_src(src)*}}
    return src
  end

  {{*protected*}}

  {{*def initialize_src(src)*}}
    {{*src << "_out = ''; "*}}
  {{*end*}}

  {{*def add_src_text(src, text)*}}
    {{*return if text.empty?*}}
    {{*text.each_line do |line|*}}
      {{*src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")*}}
    {{*end*}}
  {{*end*}}

  {{*def add_src_expr(src, code)*}}
    {{*src << "_out << (#{code}).to_s; "*}}
  {{*end*}}

  {{*def add_src_code(src, code)*}}
    {{*code.each_line { |line| src << line }*}}
    {{*src << "; " unless code[-1] == ?\n*}}
  {{*end*}}

  {{*def finalize_src(src)*}}
    {{*src << "_out\n"*}}
  {{*end*}}

end
.--------------------


.? stdout-eruby.rb : 標準出力を使う Eruby
.-------------------- stdout-eruby.rb
##
## 文字列ではなく標準出力を使う Eruby
## (「<% print expr %>」が使えるようになる)
##
class StdoutEruby < Eruby

  def initialize_src(src)
    src << "_out = $stdout; "   ## 文字列のかわりに標準出力を使う
  end

  def finalize_src(src)
    src << "nil\n"
  end

end
.--------------------


.? fast-eruby.rb : 高速化した Eruby
.-------------------- fast-eruby.rb
##
## 実行速度を高速化した Eruby
##
class FastEruby < Eruby

  def add_src_text(src, text)
    return if text.empty?
    src << "_out << #{text.dump}" << "; "
    src << ("\n" * text.count("\n"))
  end

end
.--------------------


.? example2.rb
.-------------------- example2.rb
list = ['aaa', 'bbb', 'ccc']

input = <<END
.#<ul>
.# <% for item in list %>
.#  <li><%= item %></li>
.# <% end %>
.#</ul>
<table>
 <% for item in list %>
  <tr>
    <td><%= item %></td>
  </tr>
 <% end %>
</table>
END

require 'eruby2'
eruby = Eruby.new(input)
puts "--- source (Eruby) ---"
puts eruby.src

require 'fast-eruby'
fasteruby = FastEruby.new(input)
puts "--- source (FastEruby) ---"
puts fasteruby.src
.--------------------

.? output
.____________________
.<<<:! ruby example2.rb
.____________________




●余分な空白を出力しない

.? eruby3.rb
.-------------------- eruby3.rb
##
## eRuby の実装
##
class Eruby

  ## eRuby 形式の文字列を受け取る
  def initialize(input)
    @input = input
    @src = compile(@input)
  end
  attr_reader :src

  ## 実行した結果 (文字列) を返す
  def result(binding=TOPLEVEL_BINDING)
    filename = '(eruby)'
    eval @src, binding, filename
  end

  private

  ## eRuby 形式の文字列を Ruby コードに変換する
  def compile(input=@input)
    src = ""
    initialize_src(src)
    regexp = /(.*?){{*(^[ \t]*)?*}}<%(=?)(.*?)%>{{*([ \t]*\r?\n)?*}}/m
    input.scan(regexp) do |text, {{*head_space,*}} indicator, code{{*, tail_space*}}|
      {{*## * <%= %> のときは、何もしない*}}
      {{*## * <% %> のときは、*}}
      {{*##    * 前後が空白だけのときは、その空白を削除*}}
      {{*##    * そうでないときは、何もしない（空白を残す）*}}
      {{*flag_trim = indicator != '=' && head_space && tail_space*}}

      ## テキストを処理
      add_src_text(src, text)

      {{*## 前の空白を処理*}}
      {{*unless flag_trim*}}
        {{*add_src_text(src, head_space) if head_space*}}
      {{*end*}}

      ## 埋め込み Ruby コードを処理
      if indicator == '='  # <%= %> の場合
        add_src_expr(src, code)
      else                 # <%  %> の場合
        {{*## 改行を含めた前後の空白をコードに足す*}}
        {{*code = "#{head_space}#{code}#{tail_space}" if flag_trim*}}
        add_src_code(src, code)
      end

      {{*## 後ろの空白を処理*}}
      {{*unless flag_trim*}}
        {{*add_src_text(src, tail_space) if tail_space*}}
      {{*end*}}
    end

    ## 残りのテキストを処理
    rest = $' || input
    add_src_text(src, rest)

    finalize_src(src)
    return src
  end

  protected

  def initialize_src(src)
    src << "_out = ''; "
  end

  def add_src_text(src, text)
    return if text.empty?
    text.each_line do |line|
      src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")
    end
  end

  def add_src_expr(src, code)
    src << "_out << (#{code}).to_s; "
  end

  def add_src_code(src, code)
    code.each_line { |line| src << line }
    src << "; " unless code[-1] == ?\n
  end

  def finalize_src(src)
    src << "_out\n"
  end

end
.--------------------


.? example3.rb
.-------------------- example3.rb
list = ['aaa', 'bbb', 'ccc']

input = <<END
<ul>
 <% for item in list %>
  <li>
    <%= item %>
  </li>
 <% end %>
</ul>
.#<table>
.# <% for item in list %>
.#  <tr>
.#    <td>
.#      <%= item %>
.#    </td>
.#  </tr>
.# <% end %>
.#</table>
END

require 'eruby3'
eruby = Eruby.new(input)
puts "--- source ---"
puts eruby.src
puts "--- result ---"
puts eruby.result
.--------------------

.? output
.____________________
.<<<:! ruby example3.rb
.____________________




●文字列をエスケープする

.? eruby4.rb
.-------------------- eruby4.rb
##
## eRuby の実装
##
class Eruby

  ## eRuby 形式の文字列を受け取る
  def initialize(input)
    @input = input
    @src = compile(@input)
  end
  attr_reader :src

  ## 実行した結果 (文字列) を返す
  def result(binding=TOPLEVEL_BINDING)
    filename = '(eruby)'
    eval @src, binding, filename
  end

  private

  ## eRuby 形式の文字列を Ruby コードに変換する
  def compile(input=@input)
    src = ""
    initialize_src(src)
    regexp = /(.*?)(^[ \t]*)?<%({{*=**}})(.*?)%>([ \t]*\r?\n)?/m
    input.scan(regexp) do |text, head_space, indicator, code, tail_space|
      ## * <%= %> のときは、何もしない
      ## * <% %> のときは、
      ##    * 前後が空白だけのときは、その空白を削除
      ##    * そうでないときは、何もしない（空白を残す）
      flag_trim = {{*indicator.empty?*}} && head_space && tail_space

      ## テキストを処理
      add_src_text(src, text)

      ## 前の空白を処理
      unless flag_trim
        add_src_text(src, head_space) if head_space
      end

      ## 埋め込み Ruby コードを処理
      if {{*!indicator.empty?*}}  # <%= %> の場合
        add_src_expr(src, code{{*, indicator*}})
      else                  # <%  %> の場合
        ## 改行を含めた前後の空白をコードに足す
        code = "#{head_space}#{code}#{tail_space}" if flag_trim
        add_src_code(src, code)
      end

      ## 後ろの空白を処理
      unless flag_trim
        add_src_text(src, tail_space) if tail_space
      end
    end

    ## 残りのテキストを処理
    rest = $' || input
    add_src_text(src, rest)

    finalize_src(src)
    return src
  end

  protected

  def initialize_src(src)
    src << "_out = ''; "
  end

  def add_src_text(src, text)
    return if text.empty?
    text.each_line do |line|
      src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")
    end
  end

  def add_src_expr(src, code, indicator)
    src << "_out << (#{code}).to_s; "
  end

  def add_src_code(src, code)
    code.each_line { |line| src << line }
    src << "; " unless code[-1] == ?\n
  end

  def finalize_src(src)
    src << "_out\n"
  end

end
.--------------------


.? xml-eruby.rb
.-------------------- xml-eruby.rb
##
## サニタイズを行う Eruby
## * <%= %>  はサニタイズして出力
## * <%== %> はサニタイズせずそのまま出力
##
class XmlEruby < Eruby

  def self.escape(obj)
    str = obj.to_s.dup
    #str = obj.to_s
    #str = str.dup if obj.__id__ == str.__id__
    str.gsub!(/&/, '&amp;')
    str.gsub!(/</, '&lt;')
    str.gsub!(/>/, '&gt;')
    str.gsub!(/"/, '&quot;')
    return str
  end

  {{*def add_src_expr(src, code, indicator)*}}
    {{*if indicator == '='*}}
      {{*src << "_out << XmlEruby.escape(#{code}); "*}}
    {{*else*}}
      {{*super*}}
    {{*end*}}
  {{*end*}}

end
.--------------------


.? example4.rb
.-------------------- example4.rb
list = ['<aaa>', 'b&b', '"ccc"']

input = <<END
<ul>
 <% for item in list %>
  <li><%= item %></li>
  <li><%== item %></li>
 <% end %>
</ul>
.#<table>
.# <% for item in list %>
.#  <tr>
.#    <td><%= item %></td>
.#    <td><%== item %></td>
.#  </tr>
.# <% end %>
.#</table>
END

require 'eruby4'
require 'xml-eruby'
eruby = XmlEruby.new(input)
puts "--- source ---"
puts eruby.src
puts "--- result ---"
puts eruby.result
.--------------------


.? output
.____________________
.<<<:! ruby example4.rb
.____________________




●埋め込み用パターンを変更可能にする


.? eruby5.rb
.-------------------- eruby5.rb
##
## eRuby の実装
##
class Eruby

  ## eRuby 形式の文字列を受け取る
  def initialize(input{{*, options={}*}})
    @input = input
    {{*@options = options*}}
    {{*@pattern = options[:pattern] || '<% %>'*}}
    @src = compile(@input)
  end
  attr_reader :src

  ## 実行した結果 (文字列) を返す
  def result(binding=TOPLEVEL_BINDING)
    filename = '(eruby)'
    eval @src, binding, filename
  end

  private

  ## eRuby 形式の文字列を Ruby コードに変換する
  def compile(input=@input)
    src = ""
    initialize_src(src)
    {{*prefix, postfix = @pattern.split()   # 埋め込みパターン*}}
    regexp = /(.*?)(^[ \t]*)?{{*#{prefix}*}}(=*)(.*?){{*#{postfix}*}}([ \t]*\r?\n)?/m
    input.scan(regexp) do |text, head_space, indicator, code, tail_space|
      ## * <%= %> のときは、何もしない
      ## * <% %> のときは、
      ##    * 前後が空白だけのときは、その空白を削除
      ##    * そうでないときは、何もしない（空白を残す）
      flag_trim = indicator.empty? && head_space && tail_space

      ## テキストを処理
      add_src_text(src, text)

      ## 前の空白を処理
      unless flag_trim
        add_src_text(src, head_space) if head_space
      end

      ## 埋め込み Ruby コードを処理
      if !indicator.empty?  # <%= %> の場合
        add_src_expr(src, code, indicator)
      else                  # <%  %> の場合
        ## 改行を含めた前後の空白をコードに足す
        code = "#{head_space}#{code}#{tail_space}" if flag_trim
        add_src_code(src, code)
      end

      ## 後ろの空白を処理
      unless flag_trim
        add_src_text(src, tail_space) if tail_space
      end
    end

    ## 残りのテキストを処理
    rest = $' || input
    add_src_text(src, rest)

    finalize_src(src)
    return src
  end

  protected

  def initialize_src(src)
    src << "_out = ''; "
  end

  def add_src_text(src, text)
    return if text.empty?
    text.each_line do |line|
      src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")
    end
  end

  def add_src_expr(src, code, indicator)
    src << "_out << (#{code}).to_s; "
  end

  def add_src_code(src, code)
    code.each_line { |line| src << line }
    src << "; " unless code[-1] == ?\n
  end

  def finalize_src(src)
    src << "_out\n"
  end

end
.--------------------


.? example5.rb
.-------------------- example5.rb
list = ['aaa', 'bbb', 'ccc']

input = <<END
<ul>
 <!--% for item in list %-->
  <li><!--%= item %--></li>
 <!--% end %-->
</ul>
.#<table>
.# <!--% for item in list %-->
.#  <tr>
.#    <td><!--%= item %--></td>
.#  </tr>
.# <!--% end %-->
.#</table>
END

require 'eruby5'
eruby = Eruby.new(input, :pattern=>'<!--% %-->')
                              # or '<(?:!--)% %(?:--)>'
puts "--- source ---"
print eruby.src
puts "--- result ---"
print eruby.result()
.--------------------


.? output
.____________________
.<<<:! ruby example5.rb
.____________________




●コンテキストを指定できるようにする

.? eruby6.rb
.-------------------- eruby6.rb
##
## eRuby の実装
##
class Eruby

  ## eRuby 形式の文字列を受け取る
  def initialize(input, options={})
    @input = input
    @options = options
    @pattern = options[:pattern] || '<% %>'
    @src = compile(@input)
  end
  attr_reader :src

  ## 実行した結果 (文字列) を返す
  def result(binding=TOPLEVEL_BINDING)
    filename = '(eruby)'
    eval @src, binding, filename
  end
  
  {{*## コンテキストを指定して result() を呼び出す*}}
  {{*def evaluate(_context={})*}}
    {{*_evalstr = ''*}}
    {{*_context.keys.each do |key|*}}
      {{*_evalstr << "#{key.to_s} = _context[#{key.inspect}]\n"*}}
    {{*end*}}
    {{*eval _evalstr*}}
    {{*return result(binding())*}}
  {{*end*}}

  private

  ## eRuby 形式の文字列を Ruby コードに変換する
  def compile(input=@input)
    src = ""
    initialize_src(src)
    prefix, postfix = @pattern.split()   # 埋め込みパターン
    regexp = /(.*?)(^[ \t]*)?#{prefix}(=*)(.*?)#{postfix}([ \t]*\r?\n)?/m
    input.scan(regexp) do |text, head_space, indicator, code, tail_space|
      ## * <%= %> のときは、何もしない
      ## * <% %> のときは、
      ##    * 前後が空白だけのときは、その空白を削除
      ##    * そうでないときは、何もしない（空白を残す）
      flag_trim = indicator.empty? && head_space && tail_space

      ## テキストを処理
      add_src_text(src, text)

      ## 前の空白を処理
      unless flag_trim
        add_src_text(src, head_space) if head_space
      end

      ## 埋め込み Ruby コードを処理
      if !indicator.empty?  # <%= %> の場合
        add_src_expr(src, code, indicator)
      else                  # <%  %> の場合
        ## 改行を含めた前後の空白をコードに足す
        code = "#{head_space}#{code}#{tail_space}" if flag_trim
        add_src_code(src, code)
      end

      ## 後ろの空白を処理
      unless flag_trim
        add_src_text(src, tail_space) if tail_space
      end
    end

    ## 残りのテキストを処理
    rest = $' || input
    add_src_text(src, rest)

    finalize_src(src)
    return src
  end

  protected

  def initialize_src(src)
    src << "_out = ''; "
  end

  def add_src_text(src, text)
    return if text.empty?
    text.each_line do |line|
      src << "_out << #{line.dump}" << (line[-1] == ?\n ? "\n" : "; ")
    end
  end

  def add_src_expr(src, code, indicator)
    src << "_out << (#{code}).to_s; "
  end

  def add_src_code(src, code)
    code.each_line { |line| src << line }
    src << "; " unless code[-1] == ?\n
  end

  def finalize_src(src)
    src << "_out\n"
  end

end
.--------------------


.? example6.rb
.-------------------- example6.rb
## eRuby スクリプト
input = <<END
<h2><%= title %></h2>
<ul>
 <% for item in list %>
  <li><%= item %></li>
 <% end %>
</ul>
END

## コンテキストオブジェクトを作成する。
## 変数名は文字列または Symbol で指定する。
## また YAML ファイルを読み込んでそれをコンテキストとして使ってもよい。
context = {}
context['title'] = "Context Example"
context[:list]   = ['aaa', 'bbb', 'ccc']

## eRuby を実行する
require 'eruby6'
eruby = Eruby.new(input)
print eruby.evaluate(context)
.--------------------


.? output
.____________________
.<<<:! ruby example6.rb
.____________________