erbse 0.0.1

data/lib/erbse/preprocessing.rb

@@ -0,0 +1,58 @@
+###
+### $Release: 2.7.0 $
+### copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+###
+
+require 'cgi'
+
+
+module Erubis
+
+
+  ##
+  ## for preprocessing
+  ##
+  class PreprocessingEruby < Erubis::Eruby
+
+    def initialize(input, params={})
+      params = params.dup
+      params[:pattern] ||= '\[% %\]'    # use '[%= %]' instead of '<%= %>'
+      #params[:escape] = true            # transport '[%= %]' and '[%== %]'
+      super
+    end
+
+    def add_expr_escaped(src, code)
+      add_expr_literal(src, "_decode((#{code}))")
+    end
+
+  end
+
+
+  ##
+  ## helper methods for preprocessing
+  ##
+  module PreprocessingHelper
+
+    module_function
+
+    def _p(arg)
+      return "<%=#{arg}%>"
+    end
+
+    def _P(arg)
+      return "<%=h(#{arg})%>"
+    end
+
+    alias _? _p
+
+    def _decode(arg)
+      arg = arg.to_s
+      arg.gsub!(/%3C%25(?:=|%3D)(.*?)%25%3E/) { "<%=#{CGI.unescape($1)}%>" }
+      arg.gsub!(/&lt;%=(.*?)%&gt;/) { "<%=#{CGI.unescapeHTML($1)}%>" }
+      return arg
+    end
+
+  end
+
+
+end

data/lib/erbse/tiny.rb

@@ -0,0 +1,144 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+module Erubis
+
+  ##
+  ## tiny and the simplest implementation of eRuby
+  ##
+  ## ex.
+  ##   eruby = TinyEruby.new(File.read('example.rhtml'))
+  ##   print eruby.src                 # print ruby code
+  ##   print eruby.result(binding())   # eval ruby code with Binding object
+  ##   print eruby.evalute(context)    # eval ruby code with context object
+  ##
+  class TinyEruby
+
+    def initialize(input=nil)
+      @src = convert(input) if input
+    end
+    attr_reader :src
+
+    EMBEDDED_PATTERN = /<%(=+|\#)?(.*?)-?%>/m
+
+    def convert(input)
+      src = "_buf = '';"           # preamble
+      pos = 0
+      input.scan(EMBEDDED_PATTERN) do |indicator, code|
+        m = Regexp.last_match
+        text = input[pos...m.begin(0)]
+        pos  = m.end(0)
+        #src << " _buf << '" << escape_text(text) << "';"
+        text.gsub!(/['\\]/, '\\\\\&')
+        src << " _buf << '" << text << "';" unless text.empty?
+        if !indicator              # <% %>
+          src << code << ";"
+        elsif indicator == '#'     # <%# %>
+          src << ("\n" * code.count("\n"))
+        else                       # <%= %>
+          src << " _buf << (" << code << ").to_s;"
+        end
+      end
+      #rest = $' || input                        # ruby1.8
+      rest = pos == 0 ? input : input[pos..-1]   # ruby1.9
+      #src << " _buf << '" << escape_text(rest) << "';"
+      rest.gsub!(/['\\]/, '\\\\\&')
+      src << " _buf << '" << rest << "';" unless rest.empty?
+      src << "\n_buf.to_s\n"       # postamble
+      return src
+    end
+
+    #def escape_text(text)
+    #  return text.gsub!(/['\\]/, '\\\\\&') || text
+    #end
+
+    def result(_binding=TOPLEVEL_BINDING)
+      eval @src, _binding
+    end
+
+    def evaluate(_context=Object.new)
+      if _context.is_a?(Hash)
+        _obj = Object.new
+        _context.each do |k, v| _obj.instance_variable_set("@#{k}", v) end
+        _context = _obj
+      end
+      _context.instance_eval @src
+    end
+
+  end
+
+
+
+  module PI
+  end
+
+  class PI::TinyEruby
+
+    def initialize(input=nil, options={})
+      @escape  = options[:escape] || 'Erubis::XmlHelper.escape_xml'
+      @src = convert(input) if input
+    end
+
+    attr_reader :src
+
+    EMBEDDED_PATTERN = /(^[ \t]*)?<\?rb(\s.*?)\?>([ \t]*\r?\n)?|@(!+)?\{(.*?)\}@/m
+
+    def convert(input)
+      src = "_buf = '';"           # preamble
+      pos = 0
+      input.scan(EMBEDDED_PATTERN) do |lspace, stmt, rspace, indicator, expr|
+        match = Regexp.last_match
+        len   = match.begin(0) - pos
+        text  = input[pos, len]
+        pos   = match.end(0)
+        #src << " _buf << '" << escape_text(text) << "';"
+        text.gsub!(/['\\]/, '\\\\\&')
+        src << " _buf << '" << text << "';" unless text.empty?
+        if stmt                # <?rb ... ?>
+          if lspace && rspace
+            src << "#{lspace}#{stmt}#{rspace}"
+          else
+            src << " _buf << '" << lspace << "';" if lspace
+            src << stmt << ";"
+            src << " _buf << '" << rspace << "';" if rspace
+          end
+        else                       # ${...}, $!{...}
+          if !indicator
+            src << " _buf << " << @escape << "(" << expr << ");"
+          elsif indicator == '!'
+            src << " _buf << (" << expr << ").to_s;"
+          end
+        end
+      end
+      #rest = $' || input                        # ruby1.8
+      rest = pos == 0 ? input : input[pos..-1]   # ruby1.9
+      #src << " _buf << '" << escape_text(rest) << "';"
+      rest.gsub!(/['\\]/, '\\\\\&')
+      src << " _buf << '" << rest << "';" unless rest.empty?
+      src << "\n_buf.to_s\n"       # postamble
+      return src
+    end
+
+    #def escape_text(text)
+    #  return text.gsub!(/['\\]/, '\\\\\&') || text
+    #end
+
+    def result(_binding=TOPLEVEL_BINDING)
+      eval @src, _binding
+    end
+
+    def evaluate(_context=Object.new)
+      if _context.is_a?(Hash)
+        _obj = Object.new
+        _context.each do |k, v| _obj.instance_variable_set("@#{k}", v) end
+        _context = _obj
+      end
+      _context.instance_eval @src
+    end
+
+  end
+
+
+end

data/lib/erbse/util.rb

@@ -0,0 +1,22 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+module Kernel
+
+  ##
+  ## raise NotImplementedError
+  ##
+  def not_implemented     #:doc:
+    backtrace = caller()
+    method_name = (backtrace.shift =~ /`(\w+)'$/) && $1
+    mesg = "class #{self.class.name} must implement abstract method '#{method_name}()'."
+    #mesg = "#{self.class.name}##{method_name}() is not implemented."
+    err = NotImplementedError.new mesg
+    err.set_backtrace backtrace
+    raise err
+  end
+  private :not_implemented
+
+end

data/lib/erbse/version.rb

@@ -0,0 +1,3 @@
+module Erbse
+  VERSION = "0.0.1"
+end

data/test/assert-text-equal.rb

@@ -0,0 +1,44 @@
+###
+### $Release: 2.7.0 $
+### copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+###
+
+require 'test/unit'
+require 'tempfile'
+
+
+module Test
+  module Unit
+    class TestCase
+
+      def assert_text_equal(expected, actual, message=nil, diffopt='-u', flag_cut=true)
+        if expected == actual
+          assert(true)
+          return
+        end
+        if expected[-1] != ?\n || actual[-1] != ?\n
+          expected += "\n"
+          actual   += "\n"
+        end
+        begin
+          expfile = Tempfile.new(".expected.")
+          expfile.write(expected); expfile.flush()
+          actfile = Tempfile.new(".actual.")
+          actfile.write(actual);   actfile.flush()
+          diff = `diff #{diffopt} #{expfile.path} #{actfile.path}`
+        ensure
+          expfile.close(true) if expfile
+          actfile.close(true) if actfile
+        end
+        # cut 1st & 2nd lines
+        message = (flag_cut ? diff.gsub(/\A.*\n.*\n/, '') : diff) unless message
+        #raise Test::Unit::AssertionFailedError.new(message)
+        assert_block(message) { false }  # or assert(false, message)
+      end
+
+      alias assert_equal_with_diff assert_text_equal    # for compatibility
+      alias assert_text_equals     assert_text_equal    # for typo
+
+    end
+  end
+end

data/test/data/users-guide/Example.ejava

@@ -0,0 +1,55 @@
+<%
+import java.util.*;
+
+public class Example {
+  private String user;
+  private String[] list;
+  public example(String user, String[] list) {
+    this.user = user;
+    this.list = list;
+  }
+
+  public String view() {
+    StringBuffer _buf = new StringBuffer();
+%>
+<html>
+ <body>
+  <p>Hello <%= user %>!</p>
+  <table>
+   <tbody>
+    <% for (int i = 0; i < list.length; i++) { %>
+    <tr bgcolor="<%= i % 2 == 0 ? "#FFCCCC" : "#CCCCFF" %>">
+     <td><%= i + 1 %></td>
+     <td><%== list[i] %></td>
+    </tr>
+    <% } %>
+   </tbody>
+  </table>
+ <body>
+</html>
+<%
+    return _buf.toString();
+  }
+
+  public static void main(String[] args) {
+    String[] list = { "<aaa>", "b&b", "\"ccc\"" };
+    Example ex = Example.new("Erubis", list);
+    System.out.print(ex.view());
+  }
+
+  public static String escape(String s) {
+    StringBuffer sb = new StringBuffer();
+    for (int i = 0; i < s.length(); i++) {
+      char ch = s.charAt(i);
+      switch (ch) {
+      case '<':   sb.append("&lt;"); break;
+      case '>':   sb.append("&gt;"); break;
+      case '&':   sb.append("&amp;"); break;
+      case '"':   sb.append("&quot;"); break;
+      default:    sb.append(ch);
+      }
+    }
+    return sb.toString();
+  }
+}
+%>

data/test/data/users-guide/array_example.result

@@ -0,0 +1,9 @@
+$ erubis -xE Array example.eruby
+_buf = []; _buf << '<div>
+'; for item in list 
+ _buf << '  <p>'; _buf << ( item ).to_s; _buf << '</p>
+  <p>'; _buf << Erubis::XmlHelper.escape_xml( item ); _buf << '</p>
+'; end 
+ _buf << '</div>
+';
+_buf

data/test/data/users-guide/arraybuffer_example.result

@@ -0,0 +1,9 @@
+$ erubis -xE ArrayBuffer example.eruby
+_buf = []; _buf << '<div>
+'; for item in list 
+ _buf << '  <p>'; _buf << ( item ).to_s; _buf << '</p>
+  <p>'; _buf << Erubis::XmlHelper.escape_xml( item ); _buf << '</p>
+'; end 
+ _buf << '</div>
+';
+_buf.join

data/test/data/users-guide/bipattern-example.rhtml

@@ -0,0 +1,4 @@
+<% for item in list %>
+  <b>[= item =]</b>
+  <b>[== item =]</b>
+<% end %>

data/test/data/users-guide/bipattern_example.result

@@ -0,0 +1,6 @@
+$ erubis -xE BiPattern bipattern-example.rhtml
+_buf = ''; for item in list 
+ _buf << '  <b>'; _buf << ( item ).to_s; _buf << '</b>
+  <b>'; _buf << Erubis::XmlHelper.escape_xml( item ); _buf << '</b>
+'; end 
+_buf.to_s

data/test/data/users-guide/bufvar-example.rb

@@ -0,0 +1,10 @@
+require 'erubis'
+input = File.read('example.eruby')
+
+puts "----- default -----"
+eruby = Erubis::FastEruby.new(input)
+puts eruby.src
+
+puts "----- with :bufvar option -----"
+eruby = Erubis::FastEruby.new(input, :bufvar=>'@_out_buf')
+print eruby.src

data/test/data/users-guide/bufvar-example.result

@@ -0,0 +1,17 @@
+$ ruby bufvar-example.rb
+----- default -----
+_buf = ''; _buf << %Q`<div>\n`
+ for item in list 
+ _buf << %Q`  <p>#{ item }</p>
+  <p>#{Erubis::XmlHelper.escape_xml( item )}</p>\n`
+ end 
+ _buf << %Q`</div>\n`
+_buf.to_s
+----- with :bufvar option -----
+@_out_buf = ''; @_out_buf << %Q`<div>\n`
+ for item in list 
+ @_out_buf << %Q`  <p>#{ item }</p>
+  <p>#{Erubis::XmlHelper.escape_xml( item )}</p>\n`
+ end 
+ @_out_buf << %Q`</div>\n`
+@_out_buf.to_s

data/test/data/users-guide/context.rb

@@ -0,0 +1,6 @@
+@title = 'Users List'
+@users = [
+   { 'name'=>'foo', 'mail'=>'foo@mail.com' },
+   { 'name'=>'bar', 'mail'=>'bar@mail.net' },
+   { 'name'=>'baz', 'mail'=>'baz@mail.org' },
+]

data/test/data/users-guide/context.yaml

@@ -0,0 +1,8 @@
+title: Users List
+users:
+  - name:  foo
+    mail:  foo@mail.com
+  - name:  bar
+    mail:  bar@mail.net
+  - name:  baz
+    mail:  baz@mail.org

data/test/data/users-guide/def_method.rb

@@ -0,0 +1,14 @@
+require 'erubis'
+s = "hello <%= name %>"
+eruby = Erubis::Eruby.new(s)
+filename = 'hello.rhtml'
+
+## define instance method to Dummy class (or module)
+class Dummy; end
+eruby.def_method(Dummy, 'render(name)', filename)  # filename is optional
+p Dummy.new.render('world')    #=> "hello world"
+
+## define singleton method to dummy object
+obj = Object.new
+eruby.def_method(obj, 'render(name)', filename)    # filename is optional
+p obj.render('world')          #=> "hello world"

data/test/data/users-guide/def_method.result

@@ -0,0 +1,3 @@
+$ ruby def_method.rb
+"hello world"
+"hello world"

data/test/data/users-guide/escape_example.result

@@ -0,0 +1,9 @@
+$ erubis -xE Escape example.eruby
+_buf = ''; _buf << '<div>
+'; for item in list 
+ _buf << '  <p>'; _buf << Erubis::XmlHelper.escape_xml( item ); _buf << '</p>
+  <p>'; _buf << ( item ).to_s; _buf << '</p>
+'; end 
+ _buf << '</div>
+';
+_buf.to_s