erubis-bmp 2.7.0.bmp

data/test/Rookbook.yaml

@@ -0,0 +1,42 @@
+preparation*: |
+
+    def untabify(str, width=8)
+      list = str.split(/\t/)
+      last = list.pop
+      sb = ''
+      list.each do |s|
+        column = (n = s.rindex(?\n)) ? s.length - n - 1 : s.length
+        n = width - (column % width)
+        sb << s << (' ' * n)
+      end
+      sb << last
+      return sb
+    end
+
+
+recipes:
+
+  - product:	notext.txt
+    ingreds:	[ test-notext.yaml, Rookbook.yaml ]
+    desc:       create 'notext.txt' from 'test-notext.yaml'
+    method*: |
+	require 'yaml'
+	s = untabify(File.read(@ingred))
+	list = []
+	YAML.load_documents(s) { |ydoc| list << ydoc }
+	list.flatten!
+	entry = list.first
+	ydoc = {}
+	list.each do |hash|
+	  %w[input output].each do |key|
+	    hash[key].gsub!(/^\./, '') if hash.key?(key)
+	  end
+	  ydoc[hash['name']] = hash
+	end
+	text = entry['document']
+	require 'erubis'
+	eruby = Erubis::Eruby.new(text, :pattern=>'\[% %\]')
+	#p ydoc.keys
+	#puts eruby.src
+	result = eruby.result(binding())
+	File.open(@product, 'w') { |f| f.write(result) }

data/test/assert-text-equal.rb

@@ -0,0 +1,44 @@
+###
+### $Release:$
+### $Copyright$
+###
+
+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/test-engines.rb

@@ -0,0 +1,425 @@
+##
+## $Release:$
+## $Copyright$
+##
+
+require "#{File.dirname(__FILE__)}/test.rb"
+
+require 'erubis'
+require 'erubis/engine/eruby'
+require 'erubis/engine/ephp'
+require 'erubis/engine/ec'
+require 'erubis/engine/ecpp'
+require 'erubis/engine/ejava'
+require 'erubis/engine/escheme'
+require 'erubis/engine/eperl'
+require 'erubis/engine/ejavascript'
+
+
+class EnginesTest < Test::Unit::TestCase
+
+  #load_yaml_documents(__FILE__)
+  testdata_list = load_yaml_datafile(__FILE__)
+  define_testmethods(testdata_list)
+
+  def _test()
+    klass = Erubis.const_get(@class)
+    engine = klass.new(@input, @options || {})
+    actual = engine.src
+    assert_text_equal(@expected, actual)
+  end
+
+
+  self.post_definition()
+
+end
+
+__END__
+- name:  ruby1
+  lang:  ruby
+  class: Eruby
+  options:
+  input: |
+      <table>
+       <tbody>
+        <% i = 0
+           list.each_with_index do |item, i| %>
+        <tr>
+         <td><%= i+1 %></td>
+         <td><%== list %></td>
+        </tr>
+       <% end %>
+       </tbody>
+      </table>
+      <%=== i+1 %>
+  expected: |
+      _buf = ''; _buf << '<table>
+       <tbody>
+      ';   i = 0
+           list.each_with_index do |item, i| 
+       _buf << '  <tr>
+         <td>'; _buf << ( i+1 ).to_s; _buf << '</td>
+         <td>'; _buf << Erubis::XmlHelper.escape_xml( list ); _buf << '</td>
+        </tr>
+      ';  end 
+       _buf << ' </tbody>
+      </table>
+      '; $stderr.puts("*** debug: i+1=#{(i+1).inspect}"); _buf << '
+      ';
+      _buf.to_s
+##
+- name:  ruby2_options
+  lang:  ruby
+  class: Eruby
+  options: { :bufvar: '@_out_buf' }
+  input: |
+      <table>
+        <% for item in @items %>
+        <tr>
+          <td><%= i+1 %></td>
+          <td><%== list %></td>
+        </tr>
+        <% end %>
+      </table>
+  expected: |
+      @_out_buf = ''; @_out_buf << '<table>
+      ';   for item in @items 
+       @_out_buf << '  <tr>
+          <td>'; @_out_buf << ( i+1 ).to_s; @_out_buf << '</td>
+          <td>'; @_out_buf << Erubis::XmlHelper.escape_xml( list ); @_out_buf << '</td>
+        </tr>
+      ';   end 
+       @_out_buf << '</table>
+      ';
+      @_out_buf.to_s
+##
+- name:  php1
+  lang:  php
+  class: Ephp
+  options:
+  input: |
+      <table>
+       <tbody>
+      <%
+          $i = 0;
+          foreach ($list as $item) {
+            $i++;
+       %>
+        <tr>
+         <td><%= $i %></td>
+         <td><%== $item %></td>
+        </tr>
+      <%
+          }
+       %>
+       </tbody>
+      </table>
+      <%=== $i %>
+  expected: |
+      <table>
+       <tbody>
+      <?php 
+          $i = 0;
+          foreach ($list as $item) {
+            $i++;
+       ?>
+        <tr>
+         <td><?php echo $i; ?></td>
+         <td><?php echo htmlspecialchars($item); ?></td>
+        </tr>
+      <?php 
+          }
+       ?>
+       </tbody>
+      </table>
+      <?php error_log('*** debug: $i='.($i), 0); ?>
+##
+- name:  c1
+  lang:  c
+  class: Ec
+  options: { :filename: foo.html, :indent: '  ' }
+  input: |4
+      <table>
+       <tbody>
+      <%  for (i = 0; i < list; i++) { %>
+        <tr>
+         <td><%= "%d", i %></td>
+         <td><%== list[i] %></td>
+        </tr>
+      <%  } %>
+       </tbody>
+      </table>
+      <%=== "%d", i %>
+  expected: |
+      #line 1 "foo.html"
+        fputs("<table>\n"
+              " <tbody>\n", stdout);
+        for (i = 0; i < list; i++) { 
+        fputs("  <tr>\n"
+              "   <td>", stdout); fprintf(stdout, "%d", i); fputs("</td>\n"
+              "   <td>", stdout); escape(list[i], stdout); fputs("</td>\n"
+              "  </tr>\n", stdout);
+        } 
+        fputs(" </tbody>\n"
+              "</table>\n", stdout);
+         fprintf(stderr, "*** debug: i=" "%d", i); fputs("\n", stdout);
+##
+- name:  cpp1
+  lang:  cpp
+  class: Ecpp
+  options: { :filename: foo.html, :indent: '  ' }
+  input: |4
+      <table>
+       <tbody>
+      <%  for (i = 0; i < n; i++) { %>
+        <tr>
+         <td><%= i %></td>
+         <td><%== list[i] %></td>
+        </tr>
+      <%  } %>
+       </tbody>
+      </table>
+      <%=== i %>
+  expected: |
+      #line 1 "foo.html"
+        _buf << "<table>\n"
+                " <tbody>\n";
+        for (i = 0; i < n; i++) { 
+        _buf << "  <tr>\n"
+                "   <td>"; _buf << (i); _buf << "</td>\n"
+                "   <td>"; escape(list[i]); _buf << "</td>\n"
+                "  </tr>\n";
+        } 
+        _buf << " </tbody>\n"
+                "</table>\n";
+         std::cerr << "*** debug: i=" << (i); _buf << "\n";
+##
+- name:  java1
+  lang:  java
+  class: Ejava
+  options: { :buf: _buf, :bufclass: StringBuilder, :indent: '    ' }
+  input: |
+      <table>
+       <tbody>
+      <%
+          int i = 0;
+          for (Iterator it = list.iterator(); it.hasNext(); ) {
+              String s = (String)it.next();
+              i++;
+      %>
+        <tr class="<%= i%2==0 ? "even" : "odd" %>">
+         <td><%= i %></td>
+         <td><%== s %></td>
+        </tr>
+      <%
+          }
+      %>
+       <tbody>
+      </table>
+      <%=== i %>
+  expected: |4
+          StringBuilder _buf = new StringBuilder(); _buf.append("<table>\n"
+                    + " <tbody>\n");
+           
+          int i = 0;
+          for (Iterator it = list.iterator(); it.hasNext(); ) {
+              String s = (String)it.next();
+              i++;
+             
+          _buf.append("  <tr class=\""); _buf.append(i%2==0 ? "even" : "odd"); _buf.append("\">\n"
+                    + "   <td>"); _buf.append(i); _buf.append("</td>\n"
+                    + "   <td>"); _buf.append(escape(s)); _buf.append("</td>\n"
+                    + "  </tr>\n");
+           
+          }
+          
+          _buf.append(" <tbody>\n"
+                    + "</table>\n");
+           System.err.println("*** debug: i="+(i)); _buf.append("\n");
+          return _buf.toString();
+##
+- name:  scheme1
+  lang:  scheme
+  class: Escheme
+  options:
+  input: &scheme1_input|
+      <% (let ((i 0)) %>
+      <table>
+       <tbody>
+      <%
+        (for-each
+         (lambda (item)
+           (set! i (+ i 1))
+      %>
+        <tr>
+         <td><%= i %></td>
+         <td><%== item %></td>
+        </tr>
+      <%
+          ); lambda end
+         list); for-each end
+      %>
+       </tbody>
+      </table>
+      <%=== i %>
+      <% ); let end %>
+  expected: |4
+      (let ((_buf '())) (define (_add x) (set! _buf (cons x _buf)))  (let ((i 0)) 
+      (_add "<table>
+       <tbody>\n")
+      
+        (for-each
+         (lambda (item)
+           (set! i (+ i 1))
+      
+      (_add "  <tr>
+         <td>")(_add i)(_add "</td>
+         <td>")(_add (escape item))(_add "</td>
+        </tr>\n")
+      
+          ); lambda end
+         list); for-each end
+      
+      (_add " </tbody>
+      </table>\n")
+      (display "*** debug: i=")(display i)(display "\n")(_add "\n")
+       ); let end 
+        (reverse _buf))
+  
+##
+- name:  scheme2
+  lang:  scheme
+  class: Escheme
+  options: { :func: 'display' }
+  input: *scheme1_input
+  expected: |4
+       (let ((i 0)) 
+      (display "<table>
+       <tbody>\n")
+      
+        (for-each
+         (lambda (item)
+           (set! i (+ i 1))
+      
+      (display "  <tr>
+         <td>")(display i)(display "</td>
+         <td>")(display (escape item))(display "</td>
+        </tr>\n")
+      
+          ); lambda end
+         list); for-each end
+      
+      (display " </tbody>
+      </table>\n")
+      (display "*** debug: i=")(display i)(display "\n")(display "\n")
+       ); let end 
+##
+- name:  perl1
+  lang:  perl
+  class: Eperl
+  options:
+  input: |
+      <%
+         my $user = 'Erubis';
+         my @list = ('<aaa>', 'b&b', '"ccc"');
+      %>
+      <p>Hello <%= $user %>!</p>
+      <table>
+        <tbody>
+          <% $i = 0; %>
+          <% for $item (@list) { %>
+          <tr bgcolor=<%= ++$i % 2 == 0 ? '#FFCCCC' : '#CCCCFF' %>">
+            <td><%= $i %></td>
+            <td><%== $item %></td>
+          </tr>
+          <% } %>
+        </tbody>
+      </table>
+      <%=== $i %>
+  expected: |4
+      use HTML::Entities; 
+         my $user = 'Erubis';
+         my @list = ('<aaa>', 'b&b', '"ccc"');
+      
+      print('<p>Hello '); print($user); print('!</p>
+      <table>
+        <tbody>
+      ');      $i = 0; 
+           for $item (@list) { 
+      print('    <tr bgcolor='); print(++$i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'); print('">
+            <td>'); print($i); print('</td>
+            <td>'); print(encode_entities($item)); print('</td>
+          </tr>
+      ');      } 
+      print('  </tbody>
+      </table>
+      '); print('*** debug: $i=', $i, "\n");print('
+      '); 
+##
+- name:  javascript1
+  lang:  javascript
+  class: Ejavascript
+  options:
+  input: &javascript_input |
+      <%
+         var user = 'Erubis';
+         var list = ['<aaa>', 'b&b', '"ccc"'];
+      %>
+      <p>Hello <%= user %>!</p>
+      <table>
+        <tbody>
+          <% var i; %>
+          <% for (i = 0; i < list.length; i++) { %>
+          <tr bgcolor=<%= ++i % 2 == 0 ? '#FFCCCC' : '#CCCCFF' %>">
+            <td><%= i %></td>
+            <td><%= list[i] %></td>
+          </tr>
+          <% } %>
+        </tbody>
+      </table>
+      <%=== i %>
+  expected: |4
+      var _buf = [];
+         var user = 'Erubis';
+         var list = ['<aaa>', 'b&b', '"ccc"'];
+      
+      _buf.push("<p>Hello "); _buf.push(user); _buf.push("!</p>\n\
+      <table>\n\
+        <tbody>\n");
+           var i; 
+           for (i = 0; i < list.length; i++) { 
+      _buf.push("    <tr bgcolor="); _buf.push(++i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'); _buf.push("\">\n\
+            <td>"); _buf.push(i); _buf.push("</td>\n\
+            <td>"); _buf.push(list[i]); _buf.push("</td>\n\
+          </tr>\n");
+           } 
+      _buf.push("  </tbody>\n\
+      </table>\n");
+      alert("*** debug: i="+(i)); _buf.push("\n");
+      document.write(_buf.join(""));
+ ##
+- name:  javascript2
+  lang:  javascript
+  class: Ejavascript
+  options: { :docwrite: false }
+  input: *javascript_input
+  expected: |4
+      var _buf = [];
+         var user = 'Erubis';
+         var list = ['<aaa>', 'b&b', '"ccc"'];
+      
+      _buf.push("<p>Hello "); _buf.push(user); _buf.push("!</p>\n\
+      <table>\n\
+        <tbody>\n");
+           var i; 
+           for (i = 0; i < list.length; i++) { 
+      _buf.push("    <tr bgcolor="); _buf.push(++i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'); _buf.push("\">\n\
+            <td>"); _buf.push(i); _buf.push("</td>\n\
+            <td>"); _buf.push(list[i]); _buf.push("</td>\n\
+          </tr>\n");
+           } 
+      _buf.push("  </tbody>\n\
+      </table>\n");
+      alert("*** debug: i="+(i)); _buf.push("\n");
+      _buf.join("");
+ ##