RubyGems - kwartz - Versions diffs - 3.0.0 - Mend

kwartz 3.0.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (169) hide show

data/COPYING +340 -0
data/ChangeLog +103 -0
data/README.txt +37 -0
data/bin/kwartz +12 -0
data/doc-api/classes/Kwartz.html +218 -0
data/doc-api/classes/Kwartz/Assertion.html +140 -0
data/doc-api/classes/Kwartz/AssertionError.html +148 -0
data/doc-api/classes/Kwartz/AttrInfo.html +320 -0
data/doc-api/classes/Kwartz/BaseError.html +206 -0
data/doc-api/classes/Kwartz/BaseTranslator.html +331 -0
data/doc-api/classes/Kwartz/CharacterType.html +212 -0
data/doc-api/classes/Kwartz/CommandOptionError.html +154 -0
data/doc-api/classes/Kwartz/CommandOptions.html +374 -0
data/doc-api/classes/Kwartz/Config.html +150 -0
data/doc-api/classes/Kwartz/ConvertError.html +191 -0
data/doc-api/classes/Kwartz/Converter.html +252 -0
data/doc-api/classes/Kwartz/CssStyleParser.html +483 -0
data/doc-api/classes/Kwartz/DocumentRuleset.html +369 -0
data/doc-api/classes/Kwartz/ElementExpander.html +325 -0
data/doc-api/classes/Kwartz/ElementInfo.html +312 -0
data/doc-api/classes/Kwartz/ElementRuleset.html +582 -0
data/doc-api/classes/Kwartz/EperlHandler.html +338 -0
data/doc-api/classes/Kwartz/EperlTranslator.html +167 -0
data/doc-api/classes/Kwartz/ErubisHandler.html +113 -0
data/doc-api/classes/Kwartz/ErubisTranslator.html +168 -0
data/doc-api/classes/Kwartz/ErubyHandler.html +337 -0
data/doc-api/classes/Kwartz/ErubyTranslator.html +167 -0
data/doc-api/classes/Kwartz/ExpandStatement.html +227 -0
data/doc-api/classes/Kwartz/Expression.html +119 -0
data/doc-api/classes/Kwartz/Handler.html +558 -0
data/doc-api/classes/Kwartz/JstlHandler.html +657 -0
data/doc-api/classes/Kwartz/JstlTranslator.html +226 -0
data/doc-api/classes/Kwartz/KwartzError.html +146 -0
data/doc-api/classes/Kwartz/Main.html +384 -0
data/doc-api/classes/Kwartz/NativeExpression.html +236 -0
data/doc-api/classes/Kwartz/NativeStatement.html +254 -0
data/doc-api/classes/Kwartz/Node.html +156 -0
data/doc-api/classes/Kwartz/ParseError.html +148 -0
data/doc-api/classes/Kwartz/PhpHandler.html +333 -0
data/doc-api/classes/Kwartz/PhpTranslator.html +194 -0
data/doc-api/classes/Kwartz/PresentationLogicParser.html +830 -0
data/doc-api/classes/Kwartz/PrintStatement.html +221 -0
data/doc-api/classes/Kwartz/RailsHandler.html +587 -0
data/doc-api/classes/Kwartz/RailsTranslator.html +167 -0
data/doc-api/classes/Kwartz/RubyStyleParser.html +558 -0
data/doc-api/classes/Kwartz/Ruleset.html +117 -0
data/doc-api/classes/Kwartz/Statement.html +119 -0
data/doc-api/classes/Kwartz/StrutsTranslator.html +190 -0
data/doc-api/classes/Kwartz/TagInfo.html +314 -0
data/doc-api/classes/Kwartz/TextConverter.html +270 -0
data/doc-api/classes/Kwartz/Translator.html +318 -0
data/doc-api/classes/Test.html +107 -0
data/doc-api/classes/Test/Unit.html +101 -0
data/doc-api/created.rid +1 -0
data/doc-api/files/__/README_txt.html +150 -0
data/doc-api/files/kwartz/assert_rb.html +114 -0
data/doc-api/files/kwartz/binding/eperl_rb.html +116 -0
data/doc-api/files/kwartz/binding/erubis_rb.html +116 -0
data/doc-api/files/kwartz/binding/eruby_rb.html +115 -0
data/doc-api/files/kwartz/binding/jstl_rb.html +116 -0
data/doc-api/files/kwartz/binding/php_rb.html +116 -0
data/doc-api/files/kwartz/binding/rails_rb.html +115 -0
data/doc-api/files/kwartz/binding/struts_rb.html +117 -0
data/doc-api/files/kwartz/config_rb.html +107 -0
data/doc-api/files/kwartz/converter_rb.html +119 -0
data/doc-api/files/kwartz/error_rb.html +107 -0
data/doc-api/files/kwartz/main_rb.html +124 -0
data/doc-api/files/kwartz/node_rb.html +114 -0
data/doc-api/files/kwartz/parser_rb.html +117 -0
data/doc-api/files/kwartz/translator_rb.html +115 -0
data/doc-api/files/kwartz/util/assert-text-equal_rb.html +115 -0
data/doc-api/files/kwartz/util/testcase-helper_rb.html +115 -0
data/doc-api/files/kwartz_rb.html +120 -0
data/doc-api/fr_class_index.html +75 -0
data/doc-api/fr_file_index.html +45 -0
data/doc-api/fr_method_index.html +216 -0
data/doc-api/index.html +24 -0
data/doc-api/rdoc-style.css +208 -0
data/doc/docstyle.css +188 -0
data/doc/p-pattern.html +1207 -0
data/doc/reference.html +3396 -0
data/doc/users-guide.html +1670 -0
data/examples/breadcrumbs1/Makefile +15 -0
data/examples/breadcrumbs1/breadcrumbs.eruby.plogic +27 -0
data/examples/breadcrumbs1/breadcrumbs.html +12 -0
data/examples/breadcrumbs1/breadcrumbs.jstl.plogic +28 -0
data/examples/breadcrumbs1/breadcrumbs.php.plogic +26 -0
data/examples/breadcrumbs1/main.php +12 -0
data/examples/breadcrumbs1/main.rb +12 -0
data/examples/breadcrumbs2/Makefile +15 -0
data/examples/breadcrumbs2/breadcrumbs.eruby.plogic +22 -0
data/examples/breadcrumbs2/breadcrumbs.html +14 -0
data/examples/breadcrumbs2/breadcrumbs.jstl.plogic +24 -0
data/examples/breadcrumbs2/breadcrumbs.php.plogic +23 -0
data/examples/breadcrumbs2/main.php +12 -0
data/examples/breadcrumbs2/main.rb +12 -0
data/examples/pagelayout/Makefile +47 -0
data/examples/pagelayout/content.eruby.plogic +44 -0
data/examples/pagelayout/content.jstl.plogic +36 -0
data/examples/pagelayout/content.php.plogic +37 -0
data/examples/pagelayout/content1.html +36 -0
data/examples/pagelayout/content2.html +29 -0
data/examples/pagelayout/design.css +40 -0
data/examples/pagelayout/layout.html +50 -0
data/examples/pagelayout/main.php +55 -0
data/examples/pagelayout/main.rb +77 -0
data/examples/pagelayout/menu.eruby.plogic +14 -0
data/examples/pagelayout/menu.html +13 -0
data/examples/pagelayout/menu.jstl.plogic +14 -0
data/examples/pagelayout/menu.php.plogic +14 -0
data/examples/rails1/Makefile +36 -0
data/examples/rails1/README +19 -0
data/examples/rails1/application_helper.rb +31 -0
data/examples/rails1/edit.html +28 -0
data/examples/rails1/edit.plogic +10 -0
data/examples/rails1/form.html +52 -0
data/examples/rails1/form.plogic +33 -0
data/examples/rails1/layout.plogic +15 -0
data/examples/rails1/link_to.plogic +19 -0
data/examples/rails1/list.html +48 -0
data/examples/rails1/list.plogic +28 -0
data/examples/rails1/new.html +27 -0
data/examples/rails1/new.plogic +10 -0
data/examples/rails1/reader.plogic +29 -0
data/examples/rails1/show.html +40 -0
data/examples/rails1/show.plogic +4 -0
data/examples/rails1/writer.plogic +8 -0
data/examples/table1/Makefile +15 -0
data/examples/table1/main.php +11 -0
data/examples/table1/main.rb +11 -0
data/examples/table1/table1.eruby.plogic +21 -0
data/examples/table1/table1.html +16 -0
data/examples/table1/table1.jstl.plogic +21 -0
data/examples/table1/table1.php.plogic +22 -0
data/kwartz.gemspec +55 -0
data/lib/kwartz.rb +13 -0
data/lib/kwartz/assert.rb +31 -0
data/lib/kwartz/binding/eperl.rb +166 -0
data/lib/kwartz/binding/erubis.rb +61 -0
data/lib/kwartz/binding/eruby.rb +164 -0
data/lib/kwartz/binding/jstl.rb +334 -0
data/lib/kwartz/binding/php.rb +167 -0
data/lib/kwartz/binding/rails.rb +295 -0
data/lib/kwartz/binding/struts.rb +109 -0
data/lib/kwartz/config.rb +28 -0
data/lib/kwartz/converter.rb +920 -0
data/lib/kwartz/error.rb +41 -0
data/lib/kwartz/main.rb +464 -0
data/lib/kwartz/node.rb +454 -0
data/lib/kwartz/parser.rb +903 -0
data/lib/kwartz/translator.rb +153 -0
data/lib/kwartz/util/assert-text-equal.rb +44 -0
data/lib/kwartz/util/testcase-helper.rb +112 -0
data/setup.rb +1331 -0
data/test/test-compile.rb +36 -0
data/test/test-compile.yaml +178 -0
data/test/test-converter.rb +34 -0
data/test/test-converter.yaml +127 -0
data/test/test-directives.rb +32 -0
data/test/test-directives.yaml +1411 -0
data/test/test-main.rb +464 -0
data/test/test-parser.rb +54 -0
data/test/test-parser.yaml +394 -0
data/test/test-rails.rb +28 -0
data/test/test-rails.yaml +301 -0
data/test/test-ruleset.rb +36 -0
data/test/test-ruleset.yaml +804 -0
data/test/test.rb +44 -0
metadata +236 -0

data/test/test-compile.rb ADDED

@@ -0,0 +1,36 @@
+###
+### $Rev: 117 $
+### $Release: 3.0.0 $
+### copyright(c) 2004-2006 kuwata-lab.com all rights reserved
+###
+require "#{File.dirname(__FILE__)}/test.rb"
+class CompileTest < Test::Unit::TestCase
+  ## define test methods
+  filename = __FILE__.sub(/\.rb$/, '.yaml')
+  load_yaml_testdata_with_each_lang(filename, :langs=>%w[eruby php jstl eperl])
+  def _test
+    regexp = /(\{\{\*|\*\}\})/
+    @pdata.gsub!(regexp, '')     if @pdata
+    @plogic.gsub!(regexp, '')    if @plogic
+    @expected.gsub!(regexp, '')  if @expected
+    #
+    parser = Kwartz::PresentationLogicParser.get_class('css').new
+    ruleset_list = parser.parse(@plogic)
+    handler = Kwartz::Handler.get_class(@lang).new(ruleset_list)
+    converter = Kwartz::TextConverter.new(handler)
+    stmt_list = converter.convert(@pdata)
+    translator = Kwartz::Translator.get_class(@lang).new
+    actual = translator.translate(stmt_list)
+    assert_text_equal(@expected, actual)
+  end
+end

data/test/test-compile.yaml ADDED

@@ -0,0 +1,178 @@
+- name:   compile1
+  desc:   bordered table
+  pdata: |
+	<?xml version="1.0" encoding="UTF-8"?>
+	<html>
+	  <body>
+	    <table>
+	      <tr bgcolor="#FFCCCC" {{*id="mark:list"*}}>
+	        <td {{*id="mark:name"*}}>foo</td>
+	        <td {{*id="mark:mail"*}}>foo@mail.com</td>
+	      </tr>
+	      <tr {{*id="dummy:d1"*}} bgcolor="#CCCCFF">
+	        <td>bar</td>
+	        <td>bar@mail.org</td>
+	      </tr>
+	    </table>
+	  </body>
+	</html>
+  plogic*:
+    eruby: |
+	#list {
+	  attrs: 'bgcolor' color,
+	         'title'   user.name;
+	  logic: {
+	    @list.each_with_index { |user, i|
+	      color = i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'
+	      _stag
+	      _cont
+	      _etag
+	    }
+	  }
+	}
+	#name {
+	  Value: user.name;
+	}
+	#mail {
+	  cont: user[:mail];
+	}
+    php: |
+	#list {
+	  attrs: 'bgcolor' $color,
+	         'title'   $user->name;
+	  logic: {
+	    $i = 0;
+	    foreach ($list as $user) {
+	      $i++;
+	      $color = $i % 2 == 0 ? '#FFCCCC' : '#CCCCFF';
+	      _stag();
+	      _cont();
+	      _etag();
+	    }
+	  }
+	}
+	#name {
+	  Value: $user->name;
+	}
+	#mail {
+	  cont: $user['mail'];
+	}
+    jstl: |
+	#list {
+	  attrs: 'bgcolor' color,
+	         'title'   user.name;
+	  logic: {
+	    <c:forEach var="user" items="${list}" varStatus="loop">
+	      <c:set var="color" value="${loop.count % 2 == 0 ? '#FFCCCC' : '#CCCCFF'}"/>
+	      _stag();
+	      _cont();
+	      _etag();
+	    </c:forEach>
+	  }
+	}
+	#name {
+	  Value: user.name;
+	}
+	#mail {
+	  cont: user.mail;
+	}
+    eperl: |
+	#list {
+	  attrs: 'bgcolor' $color,
+	         'title'   $user->name();
+	  logic: {
+	    my $i = 0;
+	    foreach my $user (@list) {
+	      $i++;
+	      my $color = $i % 2 == 0 ? '#FFCCCC' : '#CCCCFF';
+	      _stag();
+	      _cont();
+	      _etag();
+	    }
+	  }
+	}
+	#name {
+	  Value: $user->name();
+	}
+	#mail {
+	  cont: $user{'mail'};
+	}
+  expected*:
+    eruby: |
+	<?xml version="1.0" encoding="UTF-8"?>
+	<html>
+	  <body>
+	    <table>
+	{{*<%     @list.each_with_index { |user, i| %>*}}
+	{{*<%       color = i % 2 == 0 ? '#FFCCCC' : '#CCCCFF' %>*}}
+	      <tr bgcolor="{{*<%= color %>*}}" title="{{*<%= user.name %>*}}">
+	        <td>{{*<%=h user.name %>*}}</td>
+	        <td>{{*<%= user[:mail] %>*}}</td>
+	      </tr>
+	<%     } %>
+	    </table>
+	  </body>
+	</html>
+    php: |
+	<{{*<?php ?>*}}?xml version="1.0" encoding="UTF-8"?>
+	<html>
+	  <body>
+	    <table>
+	{{*<?php     $i = 0; ?>*}}
+	{{*<?php     foreach ($list as $user) { ?>*}}
+	{{*<?php       $i++; ?>*}}
+	{{*<?php       $color = $i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'; ?>*}}
+	      <tr bgcolor="{{*<?php echo $color; ?>*}}" title="{{*<?php echo $user->name; ?>*}}">
+	        <td>{{*<?php echo htmlspecialchars($user->name); ?>*}}</td>
+	        <td>{{*<?php echo $user['mail']; ?>*}}</td>
+	      </tr>
+	{{*<?php     } ?>*}}
+	    </table>
+	  </body>
+	</html>
+    jstl: |
+	{{*<%@ taglib prefix="c"  uri="http://java.sun.com/jsp/jstl/core" %>*}}
+	{{*<%@ taglib prefix="fn" uri="http://java.sun.com/jsp/jstl/functions" %>*}}
+	<?xml version="1.0" encoding="UTF-8"?>
+	<html>
+	  <body>
+	    <table>
+	    {{*<c:forEach var="user" items="${list}" varStatus="loop">*}}
+	      {{*<c:set var="color" value="${loop.count % 2 == 0 ? '#FFCCCC' : '#CCCCFF'}"/>*}}
+	      <tr bgcolor="{{*${color}*}}" title="{{*${user.name}*}}">
+	        <td>{{*${user.name}*}}</td>
+	        <td>{{*${user.mail}*}}</td>
+	      </tr>
+	    {{*</c:forEach>*}}
+	    </table>
+	  </body>
+	</html>
+    eperl: |
+	<?xml version="1.0" encoding="UTF-8"?>
+	<html>
+	  <body>
+	    <table>
+	{{*<?     my $i = 0; !>*}}
+	{{*<?     foreach my $user (@list) { !>*}}
+	{{*<?       $i++; !>*}}
+	{{*<?       my $color = $i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'; !>*}}
+	      <tr bgcolor="{{*<?= $color !>*}}" title="{{*<?= $user->name() !>*}}">
+	        <td>{{*<?= encode_entities($user->name()) !>*}}</td>
+	        <td>{{*<?= $user{'mail'} !>*}}</td>
+	      </tr>
+	{{*<?     } !>*}}
+	    </table>
+	  </body>
+	</html>

data/test/test-converter.rb ADDED

@@ -0,0 +1,34 @@
+###
+### $Rev: 114 $
+### $Release: 3.0.0 $
+### copyright(c) 2004-2006 kuwata-lab.com all rights reserved
+###
+require "#{File.dirname(__FILE__)}/test.rb"
+class ConverterTest < Test::Unit::TestCase
+  ## define test methods
+  filename = __FILE__.sub(/\.rb$/, '.yaml')
+  load_yaml_testdata(filename)
+  def _test
+    parser = Kwartz::PresentationLogicParser.get_class('css').new
+    ruleset_list = parser.parse(@plogic)
+    #handler = Kwartz::Handler.new(ruleset_list)
+    handler = Kwartz::ErubyHandler.new(ruleset_list, :delspan=>true)
+    converter = Kwartz::TextConverter.new(handler, :delspan=>true)
+    stmt_list = converter.convert(@pdata)
+    sb = ''
+    stmt_list.each do |stmt|
+      sb << (s = stmt._inspect)
+      sb << "\n" unless s[-1] == ?\n
+    end
+    assert_text_equal(@expected, sb)
+  end
+end

data/test/test-converter.yaml ADDED

@@ -0,0 +1,127 @@
+---
+- name:    span1
+  pdata: |
+	<p>
+	  <span id="foo">FOO</span>
+	  <span id="mark:bar">BAR</span>
+	  <span title="id: baz">BAZ</span>
+	  <span id="mark:poo" class="foo">POO</span>
+	</p>
+	<p>
+	  <span title="attr: 'class' classname">ATTR</span>
+	  <span title="append: ' checked'">APPEND</span>
+	  <span title="append: ' checked'" class="foo">APPEND</span>
+	</p>
+	<p>
+	  <span title="value: expr">EXPR</span>
+	  <span title="value: expr" class="foo">EXPR</span>
+	</p>
+	<p>
+	  <span title="if x > 0">positive</span>
+	  <span title="elsif x < 0">negative</span>
+	  <span title="else">zero</span>
+	</p>
+  plogic: |
+  expected: |
+	[ "<p>\n"]
+	[ "  <span id=\"foo\">"]
+	[ "FOO"]
+	[ "</span>\n"]
+	[ ]
+	[ "BAR"]
+	[ ]
+	[ ]
+	[ "BAZ"]
+	[ ]
+	[ "  <span class=\"foo\">"]
+	[ "POO"]
+	[ "</span>\n"]
+	[ "</p>\n"]
+	[ "<p>\n"]
+	[ "  <span class=\"", <%=classname%>, "\">"]
+	[ "ATTR"]
+	[ "</span>\n"]
+	[ "  <span", <%=' checked'%>, ">"]
+	[ "APPEND"]
+	[ "</span>\n"]
+	[ "  <span class=\"foo\"", <%=' checked'%>, ">"]
+	[ "APPEND"]
+	[ "</span>\n"]
+	[ "</p>\n"]
+	[ "<p>\n"]
+	[ <%=expr%>]
+	[ "  <span class=\"foo\">", <%=expr%>, "</span>\n"]
+	[ "</p>\n"]
+	[ "<p>\n"]
+	"if x > 0 then"
+	[ ]
+	[ "positive"]
+	[ ]
+	"elsif x < 0 then"
+	[ ]
+	[ "negative"]
+	[ ]
+	"else"
+	[ ]
+	[ "zero"]
+	[ ]
+	"end"
+	[ "</p>\n"]
+  output: |
+###
+#- name:    span2
+#  pdata: |
+#        <p>
+#	  <span id="mark:section1">title</span>
+#	  <span id="mark:section2">title</span>
+#	  <span id="mark:section3">title</span>
+#        </p>
+#
+#  plogic: |
+#	#section1 {
+#	  value: title1;
+#	}
+#	#section2 {
+#	  value: title2;
+#	  attrs: "class" name;
+#	}
+#	#section3 {
+#	  value: title3;
+#	  append: ' checked="checked"';
+#	}
+#
+#  expected: |
+#	[ "<p>\n"]
+#	[ ]
+#	[ <%=title1%>]
+#	[ ]
+#	[ "  <span class=\"", <%=name%>, "\">"]
+#	[ <%=title2%>]
+#	[ "</span>\n"]
+#	[ "  <span", <%=' checked="checked"'%>, ">"]
+#	[ <%=title3%>]
+#	[ "</span>\n"]
+#	[ "</p>\n"]
+#
+#
+#  output: |
+#
+##
+- name:    unmatched
+  desc:    unmatched text to fetch pattern
+  bug:     self found
+  pdata: |
+	foo
+	bar
+	baz
+  plogic: |
+  expected: |
+        [ "foo\nbar\nbaz\n"]

data/test/test-directives.rb ADDED

@@ -0,0 +1,32 @@
+###
+### $Rev: 117 $
+### $Release: 3.0.0 $
+### copyright(c) 2004-2006 kuwata-lab.com all rights reserved
+###
+require "#{File.dirname(__FILE__)}/test.rb"
+class DirectivesTest < Test::Unit::TestCase
+  ## define test methods
+  filename = __FILE__.sub(/\.rb$/, '.yaml')
+  load_yaml_testdata_with_each_lang(filename, :langs=>%w[eruby php jstl eperl])
+  def _test
+    #$stderr.puts "*** debug: _test(): @lang=#{@lang.inspect}, @name=#{@name}"  if $DEBUG
+    regexp = /(\{\{\*|\*\}\})/
+    @pdata.gsub!(regexp, '')
+    @expected.gsub!(regexp, '')  if @expected
+    #
+    handler = Kwartz::Handler.get_class(@lang).new()
+    converter = Kwartz::TextConverter.new(handler)
+    stmt_list = converter.convert(@pdata)
+    translator = Kwartz::Translator.get_class(@lang).new(:header=>'')
+    actual = translator.translate(stmt_list)
+    assert_text_equal(@expected, actual)
+  end
+end

data/test/test-directives.yaml ADDED

@@ -0,0 +1,1411 @@
+##
+- name:      elem
+  subject:   elem, Elem, ELEM
+  desc:  |
+      'elem', 'Elem', and 'ELEM' directive replaces element by expression.
+      'Elem' directive escapes expression automatically, while 'ELEM' never escape it.
+      'elem' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+  pdata*:
+    eruby: |
+      <b {{*title="elem: expr"*}}>foo</b>
+      <b {{*title="Elem: expr"*}}>foo</b>
+      <b {{*title="ELEM: expr"*}}>foo</b>
+    php: |
+      <b {{*title="elem($expr)"*}}>foo</b>
+      <b {{*title="Elem($expr)"*}}>foo</b>
+      <b {{*title="ELEM($expr)"*}}>foo</b>
+    eperl: |
+      <b {{*title="elem($expr)"*}}>foo</b>
+      <b {{*title="Elem($expr)"*}}>foo</b>
+      <b {{*title="ELEM($expr)"*}}>foo</b>
+    jstl: |
+      <b {{*title="elem(expr)"*}}>foo</b>
+      <b {{*title="Elem(expr)"*}}>foo</b>
+      <b {{*title="ELEM(expr)"*}}>foo</b>
+  expected*:
+    eruby: |
+      {{*<%= expr %>*}}
+      {{*<%=h expr %>*}}
+      {{*<%= expr %>*}}
+    php: |
+      {{*<?php echo $expr; ?>*}}
+      {{*<?php echo htmlspecialchars($expr); ?>*}}
+      {{*<?php echo $expr; ?>*}}
+    eperl: |
+      {{*<?= $expr !>*}}
+      {{*<?= encode_entities($expr) !>*}}
+      {{*<?= $expr !>*}}
+    jstl: |
+      {{*${expr}*}}
+      {{*${expr}*}}
+      {{*<c:out value="${expr}" escapeXml="false"/>*}}
+- name:      stag
+  subject:   stag, Stag, STAG
+  desc:  |
+      'stag', 'Stag', and 'STAG' directive replaces start-tag by expression.
+      'Stag' directive escapes expression automatically, while 'STAG' never escape it.
+      'stag' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+  pdata*:
+    eruby: |
+      <b {{*title="stag: expr"*}}>foo</b>
+      <b {{*title="Stag: expr"*}}>foo</b>
+      <b {{*title="STAG: expr"*}}>foo</b>
+    php: |
+      <b {{*title="stag($expr)"*}}>foo</b>
+      <b {{*title="Stag($expr)"*}}>foo</b>
+      <b {{*title="STAG($expr)"*}}>foo</b>
+    eperl: |
+      <b {{*title="stag($expr)"*}}>foo</b>
+      <b {{*title="Stag($expr)"*}}>foo</b>
+      <b {{*title="STAG($expr)"*}}>foo</b>
+    jstl: |
+      <b {{*title="stag(expr)"*}}>foo</b>
+      <b {{*title="Stag(expr)"*}}>foo</b>
+      <b {{*title="STAG(expr)"*}}>foo</b>
+  expected*:
+    eruby: |
+      {{*<%= expr %>*}}foo</b>
+      {{*<%=h expr %>*}}foo</b>
+      {{*<%= expr %>*}}foo</b>
+    php: |
+      {{*<?php echo $expr; ?>*}}foo</b>
+      {{*<?php echo htmlspecialchars($expr); ?>*}}foo</b>
+      {{*<?php echo $expr; ?>*}}foo</b>
+    eperl: |
+      {{*<?= $expr !>*}}foo</b>
+      {{*<?= encode_entities($expr) !>*}}foo</b>
+      {{*<?= $expr !>*}}foo</b>
+    jstl: |
+      {{*${expr}*}}foo</b>
+      {{*${expr}*}}foo</b>
+      {{*<c:out value="${expr}" escapeXml="false"/>*}}foo</b>
+- name:      etag
+  subject:   etag, Etag, ETAG
+  desc:  |
+      'etag', 'Etag', and 'ETAG' directive replaces start-tag by expression.
+      'Etag' directive escapes expression automatically, while 'ETAG' never escape it.
+      'etag' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+  pdata*:
+    eruby: |
+      <b {{*title="etag: expr"*}}>foo</b>
+      <b {{*title="Etag: expr"*}}>foo</b>
+      <b {{*title="ETAG: expr"*}}>foo</b>
+    php: |
+      <b {{*title="etag($expr)"*}}>foo</b>
+      <b {{*title="Etag($expr)"*}}>foo</b>
+      <b {{*title="ETAG($expr)"*}}>foo</b>
+    eperl: |
+      <b {{*title="etag($expr)"*}}>foo</b>
+      <b {{*title="Etag($expr)"*}}>foo</b>
+      <b {{*title="ETAG($expr)"*}}>foo</b>
+    jstl: |
+      <b {{*title="etag(expr)"*}}>foo</b>
+      <b {{*title="Etag(expr)"*}}>foo</b>
+      <b {{*title="ETAG(expr)"*}}>foo</b>
+  expected*:
+    eruby: |
+      <b>foo{{*<%= expr %>*}}
+      <b>foo{{*<%=h expr %>*}}
+      <b>foo{{*<%= expr %>*}}
+    php: |
+      <b>foo{{*<?php echo $expr; ?>*}}
+      <b>foo{{*<?php echo htmlspecialchars($expr); ?>*}}
+      <b>foo{{*<?php echo $expr; ?>*}}
+    eperl: |
+      <b>foo{{*<?= $expr !>*}}
+      <b>foo{{*<?= encode_entities($expr) !>*}}
+      <b>foo{{*<?= $expr !>*}}
+    jstl: |
+      <b>foo{{*${expr}*}}
+      <b>foo{{*${expr}*}}
+      <b>foo{{*<c:out value="${expr}" escapeXml="false"/>*}}
+##
+- name:      cont
+  subject:   cont, Cont, CONT
+  desc:  |
+      'cont', 'Cont', and 'CONT' directives replace content by expression.
+      'Cont' directive escapes expression automatically, while 'CONT' never escape it.
+      'cont' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+  pdata*:
+    eruby: |
+      <b {{*title="cont: expr"*}}>foo</b>
+      <b {{*title="Cont: expr"*}}>foo</b>
+      <b {{*title="CONT: expr"*}}>foo</b>
+    php: |
+      <b {{*title="cont($expr)"*}}>foo</b>
+      <b {{*title="Cont($expr)"*}}>foo</b>
+      <b {{*title="CONT($expr)"*}}>foo</b>
+    eperl: |
+      <b {{*title="cont($expr)"*}}>foo</b>
+      <b {{*title="Cont($expr)"*}}>foo</b>
+      <b {{*title="CONT($expr)"*}}>foo</b>
+    jstl: |
+      <b {{*title="cont(expr)"*}}>foo</b>
+      <b {{*title="Cont(expr)"*}}>foo</b>
+      <b {{*title="CONT(expr)"*}}>foo</b>
+  expected*:
+    eruby: |
+      <b>{{*<%= expr %>*}}</b>
+      <b>{{*<%=h expr %>*}}</b>
+      <b>{{*<%= expr %>*}}</b>
+    php: |
+      <b>{{*<?php echo $expr; ?>*}}</b>
+      <b>{{*<?php echo htmlspecialchars($expr); ?>*}}</b>
+      <b>{{*<?php echo $expr; ?>*}}</b>
+    eperl: |
+      <b>{{*<?= $expr !>*}}</b>
+      <b>{{*<?= encode_entities($expr) !>*}}</b>
+      <b>{{*<?= $expr !>*}}</b>
+    jstl: |
+      <b>{{*${expr}*}}</b>
+      <b>{{*${expr}*}}</b>
+      <b>{{*<c:out value="${expr}" escapeXml="false"/>*}}</b>
+##
+- name:      value
+  subject:   value, Value, VALUE
+  desc:  |
+      'value', 'Value', and 'VALUE' directives are equivalent to
+      'cont', 'Cont', and 'CONT' directives respectively.
+  pdata*:
+    eruby: |
+      <b {{*title="value: expr"*}}>foo</b>
+      <b {{*title="Value: expr"*}}>foo</b>
+      <b {{*title="VALUE: expr"*}}>foo</b>
+    php: |
+      <b {{*title="value($expr)"*}}>foo</b>
+      <b {{*title="Value($expr)"*}}>foo</b>
+      <b {{*title="VALUE($expr)"*}}>foo</b>
+    eperl: |
+      <b {{*title="value($expr)"*}}>foo</b>
+      <b {{*title="Value($expr)"*}}>foo</b>
+      <b {{*title="VALUE($expr)"*}}>foo</b>
+    jstl: |
+      <b {{*title="value(expr)"*}}>foo</b>
+      <b {{*title="Value(expr)"*}}>foo</b>
+      <b {{*title="VALUE(expr)"*}}>foo</b>
+  expected*:
+    eruby: |
+      <b>{{*<%= expr %>*}}</b>
+      <b>{{*<%=h expr %>*}}</b>
+      <b>{{*<%= expr %>*}}</b>
+    php: |
+      <b>{{*<?php echo $expr; ?>*}}</b>
+      <b>{{*<?php echo htmlspecialchars($expr); ?>*}}</b>
+      <b>{{*<?php echo $expr; ?>*}}</b>
+    eperl: |
+      <b>{{*<?= $expr !>*}}</b>
+      <b>{{*<?= encode_entities($expr) !>*}}</b>
+      <b>{{*<?= $expr !>*}}</b>
+    jstl: |
+      <b>{{*${expr}*}}</b>
+      <b>{{*${expr}*}}</b>
+      <b>{{*<c:out value="${expr}" escapeXml="false"/>*}}</b>
+##
+- name:      foreach
+  subject:   foreach
+  desc:  |
+      'foreach' directive interates element, while 'loop' directive iterates content.
+  pdata*:
+    eruby: |
+      <tr {{*title="for item in list"*}}>
+        <td title="cont item">foo</td>
+      </tr>
+      <tr {{*title="for key,value in hash"*}}>
+        <td title="cont key">key</td>
+        <td title="cont value">value</td>
+      </tr>
+    php: |
+      <tr {{*title="foreach($list as $item)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="foreach($hash as $key=>$value)"*}}>
+        <td title="cont($key)">key</td>
+        <td title="cont($value)">value</td>
+      </tr>
+    eperl: |
+      <tr {{*title="foreach($item in @list)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="foreach($key,$value in %hash)"*}}>
+        <td title="cont($key)">key</td>
+        <td title="cont($value)">value</td>
+      </tr>
+    jstl: |
+      <tr {{*title="for(item: list)"*}}>
+        <td title="cont(item)">foo</td>
+      </tr>
+      <tr {{*title="forEach(:var=>'v', :items=>:'params.list', :varStatus=>'status')"*}}>
+        <td title="cont(status.index)">1</td>
+        <td title="cont(v)"></td>
+      </tr>
+      <tr {{*title="forEach(:var=>'n', :begin=>1, :end=>10, :step=>2)"*}}>
+        <td title="cont(n)">key</td>
+      </tr>
+  expected*:
+    eruby: |
+      {{*<% for item in list do %>*}}
+      <tr>
+        <td><%= item %></td>
+      </tr>
+      {{*<% end %>*}}
+      {{*<% hash.each do |key, value| %>*}}
+      <tr>
+        <td><%= key %></td>
+        <td><%= value %></td>
+      </tr>
+      {{*<% end %>*}}
+    php: |
+      {{*<?php foreach ($list as $item) { ?>*}}
+      <tr>
+        <td><?php echo $item; ?></td>
+      </tr>
+      {{*<?php } ?>*}}
+      {{*<?php foreach ($hash as $key=>$value) { ?>*}}
+      <tr>
+        <td><?php echo $key; ?></td>
+        <td><?php echo $value; ?></td>
+      </tr>
+      {{*<?php } ?>*}}
+    eperl: |
+      {{*<? foreach my $item (@list) { !>*}}
+      <tr>
+        <td><?= $item !></td>
+      </tr>
+      {{*<? } !>*}}
+      {{*<? foreach my $key (keys %hash) { !>*}}
+      {{*<?   my $value = $hash{$key}; !>*}}
+      <tr>
+        <td><?= $key !></td>
+        <td><?= $value !></td>
+      </tr>
+      {{*<? } !>*}}
+    jstl: |
+      {{*<c:forEach var="item" items="${list}">*}}
+      <tr>
+        <td>${item}</td>
+      </tr>
+      {{*</c:forEach>*}}
+      {{*<c:forEach var="v" items="${params.list}" varStatus="status">*}}
+      <tr>
+        <td>${status.index}</td>
+        <td>${v}</td>
+      </tr>
+      {{*</c:forEach>*}}
+      {{*<c:forEach var="n" begin="1" end="10" step="2">*}}
+      <tr>
+        <td>${n}</td>
+      </tr>
+      {{*</c:forEach>*}}
+- name:      list
+  subject:   list
+  desc:  |
+      'list' directive interates content, while 'foreach' directive iterates element.
+  pdata*:
+    eruby: |
+      <tr {{*title="list item in list"*}}>
+        <td title="cont item">foo</td>
+      </tr>
+      <tr {{*title="list key,value in hash"*}}>
+        <td title="cont key">key</td>
+        <td title="cont value">value</td>
+      </tr>
+    php: |
+      <tr {{*title="list($list as $item)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="list($hash as $key=>$value)"*}}>
+        <td title="cont($key)">key</td>
+        <td title="cont($value)">value</td>
+      </tr>
+    eperl: |
+      <tr {{*title="list($item in @list)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="list($key,$value in %hash)"*}}>
+        <td title="cont($key)">key</td>
+        <td title="cont($value)">value</td>
+      </tr>
+    jstl: |
+      <tr {{*title="list(item: list)"*}}>
+        <td title="cont(item)">foo</td>
+      </tr>
+  expected*:
+    eruby: |
+      <tr>
+      {{*<% for item in list do %>*}}
+        <td><%= item %></td>
+      {{*<% end %>*}}
+      </tr>
+      <tr>
+      {{*<% hash.each do |key, value| %>*}}
+        <td><%= key %></td>
+        <td><%= value %></td>
+      {{*<% end %>*}}
+      </tr>
+    php: |
+      <tr>
+      {{*<?php foreach ($list as $item) { ?>*}}
+        <td><?php echo $item; ?></td>
+      {{*<?php } ?>*}}
+      </tr>
+      <tr>
+      {{*<?php foreach ($hash as $key=>$value) { ?>*}}
+        <td><?php echo $key; ?></td>
+        <td><?php echo $value; ?></td>
+      {{*<?php } ?>*}}
+      </tr>
+    eperl: |
+      <tr>
+      {{*<? foreach my $item (@list) { !>*}}
+        <td><?= $item !></td>
+      {{*<? } !>*}}
+      </tr>
+      <tr>
+      {{*<? foreach my $key (keys %hash) { !>*}}
+      {{*<?   my $value = $hash{$key}; !>*}}
+        <td><?= $key !></td>
+        <td><?= $value !></td>
+      {{*<? } !>*}}
+      </tr>
+    jstl: |
+      <tr>
+      {{*<c:forEach var="item" items="${list}">*}}
+        <td>${item}</td>
+      {{*</c:forEach>*}}
+      </tr>
+- name:      foreach_ctr
+  subject:   Foreach, List
+  desc:  |
+      'Foreach' and 'List' directives iterate element or content with loop counter
+      (starting with 1).
+  pdata*:
+    eruby: |
+      <tr {{*title="For item in list"*}}>
+        <td title="cont item">foo</td>
+      </tr>
+      <tr {{*title="List item in list"*}}>
+        <td title="cont item">foo</td>
+      </tr>
+    php: |
+      <tr {{*title="Foreach($list as $item)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="List($list as $item)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+    eperl: |
+      <tr {{*title="Foreach($item in @list)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="List($item in @list)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+    jstl: |
+      <tr {{*title="For(item: list)"*}}>
+        <td title="cont(item)">foo</td>
+      </tr>
+      <tr {{*title="List(item: list)"*}}>
+        <td title="cont(item)">foo</td>
+      </tr>
+  expected*:
+    eruby: |
+      {{*<% item_ctr = 0 %>*}}
+      {{*<% for item in list do %>*}}
+      {{*<%   item_ctr += 1 %>*}}
+      <tr>
+        <td><%= item %></td>
+      </tr>
+      {{*<% end %>*}}
+      <tr>
+      {{*<% item_ctr = 0 %>*}}
+      {{*<% for item in list do %>*}}
+      {{*<%   item_ctr += 1 %>*}}
+        <td><%= item %></td>
+      {{*<% end %>*}}
+      </tr>
+    php: |
+      {{*<?php $item_ctr = 0; ?>*}}
+      {{*<?php foreach ($list as $item) { ?>*}}
+      {{*<?php   $item_ctr++; ?>*}}
+      <tr>
+        <td><?php echo $item; ?></td>
+      </tr>
+      {{*<?php } ?>*}}
+      <tr>
+      {{*<?php $item_ctr = 0; ?>*}}
+      {{*<?php foreach ($list as $item) { ?>*}}
+      {{*<?php   $item_ctr++; ?>*}}
+        <td><?php echo $item; ?></td>
+      {{*<?php } ?>*}}
+      </tr>
+    eperl: |
+      {{*<? my $item_ctr = 0; !>*}}
+      {{*<? foreach my $item (@list) { !>*}}
+      {{*<?   $item_ctr++; !>*}}
+      <tr>
+        <td><?= $item !></td>
+      </tr>
+      {{*<? } !>*}}
+      <tr>
+      {{*<? my $item_ctr = 0; !>*}}
+      {{*<? foreach my $item (@list) { !>*}}
+      {{*<?   $item_ctr++; !>*}}
+        <td><?= $item !></td>
+      {{*<? } !>*}}
+      </tr>
+    jstl: |
+      {{*<c:forEach var="item" items="${list}" varStatus="item_status">*}}
+      {{*<c:set var="item_ctr" value="${item_status.count}" />*}}
+      <tr>
+        <td>${item}</td>
+      </tr>
+      {{*</c:forEach>*}}
+      <tr>
+      {{*<c:forEach var="item" items="${list}" varStatus="item_status">*}}
+      {{*<c:set var="item_ctr" value="${item_status.count}" />*}}
+        <td>${item}</td>
+      {{*</c:forEach>*}}
+      </tr>
+- name:      foreach_tgl
+  subject:   FOREACH, LIST
+  desc: |
+      'FOREACH' and 'LIST' directives iterate element or content with loop counter
+      and toggle variable.
+      Toggle values are "'odd'" and "'even'" in default.
+      You can change them by command-line option '--odd' and '--even'
+      or by properties(PROPERTY_ODD, PROPERTY_EVEN) in configuration file.
+  pdata*:
+    eruby: |
+      <tr {{*title="FOR item in list"*}}>
+        <td title="cont item">foo</td>
+      </tr>
+      <tr {{*title="LIST item in list"*}}>
+        <td title="cont item">foo</td>
+      </tr>
+    php: |
+      <tr {{*title="FOREACH($list as $item)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="LIST($list as $item)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+    eperl: |
+      <tr {{*title="FOREACH($item in @list)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+      <tr {{*title="LIST($item in @list)"*}}>
+        <td title="cont($item)">foo</td>
+      </tr>
+    jstl: |
+      <tr {{*title="FOR(item: list)"*}}>
+        <td title="cont(item)">foo</td>
+      </tr>
+      <tr {{*title="LIST(item: list)"*}}>
+        <td title="cont(item)">foo</td>
+      </tr>
+  expected*:
+    eruby: |
+      {{*<% item_ctr = 0 %>*}}
+      {{*<% for item in list do %>*}}
+      {{*<%   item_ctr += 1 %>*}}
+      {{*<%   item_tgl = item_ctr%2==0 ? 'even' : 'odd' %>*}}
+      <tr>
+        <td><%= item %></td>
+      </tr>
+      {{*<% end %>*}}
+      <tr>
+      {{*<% item_ctr = 0 %>*}}
+      {{*<% for item in list do %>*}}
+      {{*<%   item_ctr += 1 %>*}}
+      {{*<%   item_tgl = item_ctr%2==0 ? 'even' : 'odd' %>*}}
+        <td><%= item %></td>
+      {{*<% end %>*}}
+      </tr>
+    php: |
+      {{*<?php $item_ctr = 0; ?>*}}
+      {{*<?php foreach ($list as $item) { ?>*}}
+      {{*<?php   $item_ctr++; ?>*}}
+      {{*<?php   $item_tgl = $item_ctr%2==0 ? 'even' : 'odd'; ?>*}}
+      <tr>
+        <td><?php echo $item; ?></td>
+      </tr>
+      {{*<?php } ?>*}}
+      <tr>
+      {{*<?php $item_ctr = 0; ?>*}}
+      {{*<?php foreach ($list as $item) { ?>*}}
+      {{*<?php   $item_ctr++; ?>*}}
+      {{*<?php   $item_tgl = $item_ctr%2==0 ? 'even' : 'odd'; ?>*}}
+        <td><?php echo $item; ?></td>
+      {{*<?php } ?>*}}
+      </tr>
+    eperl: |
+      {{*<? my $item_ctr = 0; !>*}}
+      {{*<? foreach my $item (@list) { !>*}}
+      {{*<?   $item_ctr++; !>*}}
+      {{*<?   my $item_tgl = $item_ctr%2==0 ? 'even' : 'odd'; !>*}}
+      <tr>
+        <td><?= $item !></td>
+      </tr>
+      {{*<? } !>*}}
+      <tr>
+      {{*<? my $item_ctr = 0; !>*}}
+      {{*<? foreach my $item (@list) { !>*}}
+      {{*<?   $item_ctr++; !>*}}
+      {{*<?   my $item_tgl = $item_ctr%2==0 ? 'even' : 'odd'; !>*}}
+        <td><?= $item !></td>
+      {{*<? } !>*}}
+      </tr>
+    jstl: |
+      {{*<c:forEach var="item" items="${list}" varStatus="item_status">*}}
+      {{*<c:set var="item_ctr" value="${item_status.count}" />*}}
+      {{*<c:set var="item_tgl" value="${item_status.count%2==0 ? 'even' : 'odd'}" />*}}
+      <tr>
+        <td>${item}</td>
+      </tr>
+      {{*</c:forEach>*}}
+      <tr>
+      {{*<c:forEach var="item" items="${list}" varStatus="item_status">*}}
+      {{*<c:set var="item_ctr" value="${item_status.count}" />*}}
+      {{*<c:set var="item_tgl" value="${item_status.count%2==0 ? 'even' : 'odd'}" />*}}
+        <td>${item}</td>
+      {{*</c:forEach>*}}
+      </tr>
+##
+- name:      while
+  subject:   while, loop
+  desc: |
+      'while' and 'loop' directive iterates element or content
+      until conditional expression is false.
+      JSTL doesn't support these directives because JSTL doesn't have
+      'while' custom tag.
+  pdata*:
+    eruby: |
+      <tr {{*title="while (item = dbh.fetch) != nil"*}}>
+        <td title="cont item.name">foo</td>
+      </tr>
+      <tr {{*title="loop (item = dbh.fetch) != nil"*}}>
+        <td title="cont item.name">foo</td>
+      </tr>
+    php: |
+      <tr {{*title="while(($item = $dbh->fetch()) != null)"*}}>
+        <td title="cont($item->name)">foo</td>
+      </tr>
+      <tr {{*title="loop(($item = $dbh->fetch()) != null)"*}}>
+        <td title="cont($item->name)">foo</td>
+      </tr>
+    eperl: |
+      <tr {{*title="while(($item = $dbh->fetch()) != null)"*}}>
+        <td title="cont($item->name)">foo</td>
+      </tr>
+      <tr {{*title="loop(($item = $dbh->fetch()) != null)"*}}>
+        <td title="cont($item->name)">foo</td>
+      </tr>
+    jstl: |
+      *** not supported ***
+  expected*:
+    eruby: |
+      {{*<% while (item = dbh.fetch) != nil do %>*}}
+      <tr>
+        <td><%= item.name %></td>
+      </tr>
+      {{*<% end %>*}}
+      <tr>
+      {{*<% while (item = dbh.fetch) != nil do %>*}}
+        <td><%= item.name %></td>
+      {{*<% end %>*}}
+      </tr>
+    php: |
+      {{*<?php while (($item = $dbh->fetch()) != null) { ?>*}}
+      <tr>
+        <td><?php echo $item->name; ?></td>
+      </tr>
+      {{*<?php } ?>*}}
+      <tr>
+      {{*<?php while (($item = $dbh->fetch()) != null) { ?>*}}
+        <td><?php echo $item->name; ?></td>
+      {{*<?php } ?>*}}
+      </tr>
+    eperl: |
+      {{*<? while (($item = $dbh->fetch()) != null) { !>*}}
+      <tr>
+        <td><?= $item->name !></td>
+      </tr>
+      {{*<? } !>*}}
+      <tr>
+      {{*<? while (($item = $dbh->fetch()) != null) { !>*}}
+        <td><?= $item->name !></td>
+      {{*<? } !>*}}
+      </tr>
+    jstl: |
+      *** not supported ***
+- name:      if
+  subject:   if-then-else
+  desc: |
+     'if', 'elsif'(or 'elseif'), and 'else' directives represent conditional branch.
+     Don't separate with empty lines between end-tag of 'if'/'elseif' directive and
+     start-tag of 'elseif'/'else' directive.
+  pdata*:
+    eruby: |
+      <div {{*title="if status=='error'"*}}>
+        <p class="error" title="cont mesg">error</p>
+      </div>
+      <div {{*title="elsif status=='warning'"*}}>
+        <p class="warning" title="cont mesg">waring</p>
+      </div>
+      <div {{*title="else"*}}>
+        <p title="cont mesg">mesg</p>
+      </div>
+    php: |
+      <div {{*title="if($status=='error')"*}}>
+        <p class="error" title="cont($mesg)">error</p>
+      </div>
+      <div {{*title="elseif($status=='warning')"*}}>
+        <p class="warning" title="cont($mesg)">waring</p>
+      </div>
+      <div {{*title="else"*}}>
+        <p title="cont($mesg)">mesg</p>
+      </div>
+    eperl: |
+      <div {{*title="if($status=='error')"*}}>
+        <p class="error" title="cont($mesg)">error</p>
+      </div>
+      <div {{*title="elsif($status=='warning')"*}}>
+        <p class="warning" title="cont($mesg)">waring</p>
+      </div>
+      <div {{*title="else"*}}>
+        <p title="cont($mesg)">mesg</p>
+      </div>
+    jstl: |
+      <div {{*title="if(status=='error')"*}}>
+        <p class="error" title="cont(mesg)">error</p>
+      </div>
+      <div {{*title="elseif(status=='warning')"*}}>
+        <p class="warning" title="cont(mesg)">waring</p>
+      </div>
+      <div {{*title="else"*}}>
+        <p title="cont(mesg)">mesg</p>
+      </div>
+  expected*:
+    eruby: |
+      {{*<% if status=='error' then %>*}}
+      <div>
+        <p class="error"><%= mesg %></p>
+      </div>
+      {{*<% elsif status=='warning' then %>*}}
+      <div>
+        <p class="warning"><%= mesg %></p>
+      </div>
+      {{*<% else %>*}}
+      <div>
+        <p><%= mesg %></p>
+      </div>
+      {{*<% end %>*}}
+    php: |
+      {{*<?php if ($status=='error') { ?>*}}
+      <div>
+        <p class="error"><?php echo $mesg; ?></p>
+      </div>
+      {{*<?php } elseif ($status=='warning') { ?>*}}
+      <div>
+        <p class="warning"><?php echo $mesg; ?></p>
+      </div>
+      {{*<?php } else { ?>*}}
+      <div>
+        <p><?php echo $mesg; ?></p>
+      </div>
+      {{*<?php } ?>*}}
+    eperl: |
+      {{*<? if ($status=='error') { !>*}}
+      <div>
+        <p class="error"><?= $mesg !></p>
+      </div>
+      {{*<? } elsif ($status=='warning') { !>*}}
+      <div>
+        <p class="warning"><?= $mesg !></p>
+      </div>
+      {{*<? } else { !>*}}
+      <div>
+        <p><?= $mesg !></p>
+      </div>
+      {{*<? } !>*}}
+    jstl: |
+      {{*<c:choose><c:when test="${status=='error'}">*}}
+      <div>
+        <p class="error">${mesg}</p>
+      </div>
+      {{*</c:when><c:when test="${status=='warning'}">*}}
+      <div>
+        <p class="warning">${mesg}</p>
+      </div>
+      {{*</c:when><c:otherwise>*}}
+      <div>
+        <p>${mesg}</p>
+      </div>
+      {{*</c:otherwise></c:choose>*}}
+##
+- name:      set
+  subject:   set
+  desc:  |
+      'set' directive executes any expression.
+  pdata*:
+    eruby: |
+      <tr {{*title="set color=i%2==0 ? 'red' : 'blue'"*}}>
+       <td title="cont: color">red</td>
+      </tr>
+    php: |
+      <tr {{*title="set($color=$i%2==0 ? 'red' : 'blue')"*}}>
+       <td title="cont($color)">red</td>
+      </tr>
+    eperl: |
+      <tr {{*title="set($color=i%2==0 ? 'red' : 'blue')"*}}>
+       <td title="cont($color)">red</td>
+      </tr>
+    jstl: |
+      <tr {{*title="set(color=i%2==0 ? 'red' : 'blue')"*}}>
+       <td title="cont(color)">red</td>
+      </tr>
+  expected*:
+    eruby: |
+      {{*<% color=i%2==0 ? 'red' : 'blue' %>*}}
+      <tr>
+       <td><%= color %></td>
+      </tr>
+    php: |
+      {{*<?php $color=$i%2==0 ? 'red' : 'blue'; ?>*}}
+      <tr>
+       <td><?php echo $color; ?></td>
+      </tr>
+    eperl: |
+      {{*<? $color=i%2==0 ? 'red' : 'blue'; !>*}}
+      <tr>
+       <td><?= $color !></td>
+      </tr>
+    jstl: |
+      {{*<c:set var="color=i%2=" value="${0 ? 'red' : 'blue'}" />*}}
+      <tr>
+       <td>${color}</td>
+      </tr>
+##
+- name:      mark
+  subject:   mark
+  desc:  |
+      'mark' directive marks the element by name.
+      Name is used as selector of ruleset in presentation logic file.
+      Id attribute is equivalent to 'mark' directive if other direcitve is not specified.
+      'mark' directive is language-independent when used with id attribute.
+  pdata*:
+    eruby: |
+      <ul {{*id="mark:list"*}}>
+       <li {{*title="id: item"*}}>foo</li>
+      </ul>
+    php: |
+      <ul {{*id="mark:list"*}}>
+       <li {{*title="id(item)"*}}>foo</li>
+      </ul>
+    eperl: |
+      <ul {{*id="mark:list"*}}>
+       <li {{*title="id(item)"*}}>foo</li>
+      </ul>
+    jstl: |
+      <ul {{*id="mark:list"*}}>
+       <li {{*title="id(item)"*}}>foo</li>
+      </ul>
+  expected*:
+    eruby: |
+      <ul>
+       <li>foo</li>
+      </ul>
+    php: |
+      <ul>
+       <li>foo</li>
+      </ul>
+    eperl: |
+      <ul>
+       <li>foo</li>
+      </ul>
+    jstl: |
+      <ul>
+       <li>foo</li>
+      </ul>
+##
+- name:      attr
+  subject:   attr, Attr, ATTR
+  desc:  |
+      'attr', 'Attr', and 'ATTR' directives replace attribute value with expression.
+      'Attr' directive escapes expression automatically, while 'ATTR' never escape it.
+      'attr' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+      More than one directives are available in an element with separating by ';',
+      and available with other directive.
+  pdata*:
+    eruby: |
+      <tr class="odd"
+          title="FOR v in list; {{*attr: 'class' v_tgl; attr: 'style' style*}}">
+       <td title="cont v.name">foo</td>
+      </tr>
+    php: |
+      <tr class="odd"
+          title="FOREACH($list as $v); {{*attr('class',$v_tgl); attr('style',$style)*}}">
+       <td title="cont($v->name)">foo</td>
+      </tr>
+    eperl: |
+      <tr class="odd"
+          title="FOREACH($v in @list); {{*attr('class',$v_tgl); attr('style',$style)*}}">
+       <td title="cont($v->name)">foo</td>
+      </tr>
+    jstl: |
+      <tr class="odd"
+          title="FOR(v: list); {{*attr('class',v_tgl); attr('style',style)*}}">
+       <td title="cont(v.name)">foo</td>
+      </tr>
+  expected*:
+    eruby: |
+      <% v_ctr = 0 %>
+      <% for v in list do %>
+      <%   v_ctr += 1 %>
+      <%   v_tgl = v_ctr%2==0 ? 'even' : 'odd' %>
+      <tr {{*class="<%= v_tgl %>"*}} {{*style="<%= style %>">*}}
+       <td><%= v.name %></td>
+      </tr>
+      <% end %>
+    php: |
+      <?php $v_ctr = 0; ?>
+      <?php foreach ($list as $v) { ?>
+      <?php   $v_ctr++; ?>
+      <?php   $v_tgl = $v_ctr%2==0 ? 'even' : 'odd'; ?>
+      <tr {{*class="<?php echo $v_tgl; ?>"*}} {{*style="<?php echo $style; ?>"*}}>
+       <td><?php echo $v->name; ?></td>
+      </tr>
+      <?php } ?>
+    eperl: |
+      <? my $v_ctr = 0; !>
+      <? foreach my $v (@list) { !>
+      <?   $v_ctr++; !>
+      <?   my $v_tgl = $v_ctr%2==0 ? 'even' : 'odd'; !>
+      <tr {{*class="<?= $v_tgl !>"*}} {{*style="<?= $style !>"*}}>
+       <td><?= $v->name !></td>
+      </tr>
+      <? } !>
+    jstl: |
+      <c:forEach var="v" items="${list}" varStatus="v_status">
+      <c:set var="v_ctr" value="${v_status.count}" />
+      <c:set var="v_tgl" value="${v_status.count%2==0 ? 'even' : 'odd'}" />
+      <tr {{*class="${v_tgl}"*}} {{*style="${style}"*}}>
+       <td>${v.name}</td>
+      </tr>
+      </c:forEach>
+##
+- name:      append
+  subject:   append, Append, APPEND
+  desc:  |
+      'append', 'Append', and 'APPEND' directives append expression at the end of start-tag.
+      'Append' directive escapes expression automatically, while 'APPEND' never escape it.
+      'append' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+      More than one directives are available in an element with separating by ';',
+      and available with other directive.
+  pdata*:
+    eruby: |
+      <input type="checkbox"
+         {{*title="append: flag1 ? ' checked=\'checked\'' : ''"*}}>
+  #    <input type="checkbox" name="flag" value="y"
+  #        title="append: flag1 ? ' checked=\'checked\'' : ''">
+    php: |
+      <input type="checkbox"
+         {{*title="append($flag1 ? ' checked=\'checked\'' : '')"*}}>
+  #    <input type="checkbox" name="flag" value="y"
+  #       title="append($flag1 ? ' checked=\'checked\'' : '')">
+    eperl: |
+      <input type="checkbox"
+         {{*title="append($flag1 ? ' checked=\'checked\'' : '')"*}}>
+  #    <input type="checkbox" name="flag" value="y"
+  #       title="append($flag1 ? ' checked=\'checked\'' : '')">
+    jstl: |
+      <input type="checkbox"
+         {{*title="append(flag1 ? ' checked=\'checked\'' : '')"*}}>
+  #    <input type="checkbox" name="flag" value="y"
+  #       title="append(flag1 ? ' checked=\'checked\'' : '')">
+  expected*:
+    eruby: |
+      <input type="checkbox"{{*<%= flag1 ? ' checked=\'checked\'' : '' %>*}}>
+  #    <input type="checkbox" name="flag" value="y"<%= flag1 ? ' checked=\'checked\'' : '' %>>
+    php: |
+      <input type="checkbox"{{*<?php echo $flag1 ? ' checked=\'checked\'' : ''; ?>*}}>
+  #    <input type="checkbox" name="flag" value="y"<?php echo $flag1 ? ' checked=\'checked\'' : ''; ?>>
+    eperl: |
+      <input type="checkbox"{{*<?= $flag1 ? ' checked=\'checked\'' : '' !>*}}>
+  #    <input type="checkbox" name="flag" value="y"<?= $flag1 ? ' checked=\'checked\'' : '' !>>
+    jstl: |
+      <input type="checkbox"{{*${flag1 ? ' checked=\'checked\'' : ''}*}}>
+  #    <input type="checkbox" name="flag" value="y"${flag1 ? ' checked=\'checked\'' : ''}>
+##
+- name:      dummy
+  subject:   dummy
+  desc:  |
+      'dummy' directive removes the element.
+      It is very useful when preview the HTML design in browser.
+      'dummy' directive is language-independent when used with id attribute.
+  pdata*:
+    eruby: |
+      <ul>
+        <li>foo</li>
+        <li {{*id="dummy:d1"*}}>bar</li>
+        <li {{*title="dummy:"*}}>baz</li>
+      </ul>
+    php: |
+      <ul>
+        <li>foo</li>
+        <li {{*id="dummy:d1"*}}>bar</li>
+        <li {{*title="dummy()"*}}>baz</li>
+      </ul>
+    eperl: |
+      <ul>
+        <li>foo</li>
+        <li {{*id="dummy:d1"*}}>bar</li>
+        <li {{*title="dummy()"*}}>baz</li>
+      </ul>
+    jstl: |
+      <ul>
+        <li>foo</li>
+        <li {{*id="dummy:d1"*}}>bar</li>
+        <li {{*title="dummy()"*}}>baz</li>
+      </ul>
+  expected*:
+    eruby: |
+      <ul>
+        <li>foo</li>
+      </ul>
+    php: |
+      <ul>
+        <li>foo</li>
+      </ul>
+    eperl: |
+      <ul>
+        <li>foo</li>
+      </ul>
+    jstl: |
+      <ul>
+        <li>foo</li>
+      </ul>
+##
+- name:      default
+  subject:   default, Default, DEFAULT
+  desc:  |
+      'default', 'Default', and 'DEFAULT' directive replaces content by expression
+      only if expression is not nil, false, nor empty string.
+      'Default' directive escapes expression automatically, while 'DEFAULT' never escape it.
+      'default' directive escapes expression when command-line option '-e' is specified
+      or PROPERTY_ESCAPE is true in configuration file.
+  pdata*:
+    eruby: |
+      name: <em {{*title="default: user"*}}>Guest</em>
+    php: |
+      name: <em {{*title="default($user)"*}}>Guest</em>
+    eperl: |
+      name: <em {{*title="default($user)"*}}>Guest</em>
+    jstl: |
+      name: <em {{*title="default(user)"*}}>Guest</em>
+  expected*:
+    eruby: |
+      name: <em>{{*<% if (user) && !(user).to_s.empty? then %><%= user %><% else %>Guest<% end %>*}}</em>
+    php: |
+      name: <em>{{*<?php if ($user) { ?><?php echo $user; ?><?php } else { ?>Guest<?php } ?>*}}</em>
+    eperl: |
+      name: <em>{{*<? if ($user) { !><?= $user !><? } else { !>Guest<? } !>*}}</em>
+    jstl: |
+      name: <em>{{*<c:out value="${user}" default="Guest" />*}}</em>
+##
+- name:     replace
+  common:   yes
+  subject:  replace_element/content_with_element/content
+  desc:  |
+      'replace_element_with_element', 'replace_element_with_content',
+      'replace_content_with_element', and 'replace_content_with_content'
+      directives replace element or content with other element or content.
+      These directives are language-independent when used with id attribute.
+  pdata*:
+    eruby: &replace1_pdata|
+      <div {{*id="mark:link"*}}>
+        back to <a href="/">home</a>.
+      </div>
+      <!-- replace element with other element -->
+      <p {{*id="replace_element_with_element:link"*}}>
+        back to home
+      </p>
+      <!-- replace element with other content-->
+      <p {{*id="replace_element_with_content:link"*}}>
+        back to home
+      </p>
+      <!-- replace content with other element -->
+      <p {{*id="replace_content_with_element:link"*}}>
+        back to home
+      </p>
+      <!-- replace content with other content -->
+      <p {{*id="replace_content_with_content:link"*}}>
+        back to home
+      </p>
+    php: *replace1_pdata
+    eperl: *replace1_pdata
+    jstl: *replace1_pdata
+  expected*:
+    eruby: &replace1_expected |
+      <div>
+        back to <a href="/">home</a>.
+      </div>
+      <!-- replace element with other element -->
+      <div>
+        back to <a href="/">home</a>.
+      </div>
+      <!-- replace element with other content-->
+        back to <a href="/">home</a>.
+      <!-- replace content with other element -->
+      <p>
+      <div>
+        back to <a href="/">home</a>.
+      </div>
+      </p>
+      <!-- replace content with other content -->
+      <p>
+        back to <a href="/">home</a>.
+      </p>
+    php: *replace1_expected
+    eperl: *replace1_expected
+    jstl: *replace1_expected
+#- name:     replace2
+#  hide:     yes
+#  subject:  replace_element_with, replace_content_with
+#  desc:  |
+#      'replace_element_with' and 'replace_content_with' directives replace element or content
+#      with other element or content.
+#
+#  pdata*:
+#    eruby: |
+#      <div {{*id="mark:link"*}}>
+#        back to <a href="/">home</a>.
+#      </div>
+#
+#      <!-- replace element with other element -->
+#      <p {{*title="replace_element_with: element(link)"*}}>
+#        back to home
+#      </p>
+#
+#      <!-- replace element with other content-->
+#      <p {{*title="replace_element_with: content(link)"*}}>
+#        back to home
+#      </p>
+#
+#      <!-- replace content with other element -->
+#      <p {{*title="replace_content_with: element(link)"*}}>
+#        back to home
+#      </p>
+#
+#      <!-- replace content with other content -->
+#      <p {{*title="replace_content_with: content(link)"*}}>
+#        back to home
+#      </p>
+#
+#    php: &replace_pdata |
+#      <div title="id(link)">
+#        back to <a href="/">home</a>.
+#      </div>
+#
+#      <!-- replace element with other element -->
+#      <p title="replace_element_with(element(link))">
+#        back to home
+#      </p>
+#
+#      <!-- replace element with other content-->
+#      <p title="replace_element_with(content(link))">
+#        back to home
+#      </p>
+#
+#      <!-- replace content with other element -->
+#      <p title="replace_content_with(element(link))">
+#        back to home
+#      </p>
+#
+#      <!-- replace content with other content -->
+#      <p title="replace_content_with(content(link))">
+#        back to home
+#      </p>
+#
+#    eperl: *replace_pdata
+#
+#    jstl: *replace_pdata
+#
+#  expected*:
+#    eruby: &expected1 |
+#      <div>
+#        back to <a href="/">home</a>.
+#      </div>
+#
+#      <!-- replace element with other element -->
+#      <div>
+#        back to <a href="/">home</a>.
+#      </div>
+#
+#      <!-- replace element with other content-->
+#        back to <a href="/">home</a>.
+#
+#      <!-- replace content with other element -->
+#      <p>
+#      <div>
+#        back to <a href="/">home</a>.
+#      </div>
+#      </p>
+#
+#      <!-- replace content with other content -->
+#      <p>
+#        back to <a href="/">home</a>.
+#      </p>
+#
+#    php: *expected1
+#
+#    eperl: *expected1
+#
+#    jstl: *expected1