RubyGems - kwartz - Versions diffs - 3.0.0 - Mend

kwartz 3.0.0

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

@@ -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