0
@@ -70,6 +70,9 @@ int SYM_html_escape_entities;
0
   tdef = ( "table" >X A C :> dotspace CRLF ) ;
0
   table = ( tdef? trows >{INLINE(table, table_open);} ) >{ reg = NULL; } ;
0
 
0
+  # info
0
+  redcloth_version = "RedCloth::VERSION" (CRLF* EOF | double_return) ;
0
+
0
   pre_tag := |*
0
     pre_tag_end         { CAT(block); DONE(block); fgoto main; };
0
     default => esc_pre;
0
@@ -280,6 +283,7 @@ int SYM_html_escape_entities;
0
     table           { INLINE(table, table_close); DONE(table); fgoto block; };
0
     link_alias      { rb_hash_aset(refs_found, rb_hash_aref(regs, ID2SYM(rb_intern("text"))), rb_hash_aref(regs, ID2SYM(rb_intern("href")))); DONE(block); };
0
     aligned_image   { rb_hash_aset(regs, ID2SYM(rb_intern("type")), plain_block); fgoto block; };
0
+    redcloth_version { INLINE(html, redcloth_version); };
0
     blank_line => cat;
0
     default
0
     { 

0
@@ -213,4 +213,8 @@ class << RedCloth::HTML
0
   def urlesc(txt)
0
     txt.gsub(/&/, '&amp;')
0
   end
0
+  
0
+  def redcloth_version(opts)
0
+    p(:text => RedCloth::VERSION)
0
+  end
0
 end

0
@@ -29,5 +29,15 @@ class TestParser < Test::Unit::TestCase
0
   def test_table_with_empty_cells_does_not_segfault
0
     assert_match /td/, red("html", %Q{|one || |\nthree | four |})
0
   end
0
+  
0
+  def test_redcloth_version_in_output
0
+    assert_equal "<p>#{RedCloth::VERSION}</p>", red("html", "RedCloth::VERSION")
0
+  end
0
+  
0
+  def test_redcloth_version_only_on_line_by_itself
0
+    input = "RedCloth::VERSION won't output the RedCloth::VERSION unless it's on a line all by itself.\n\nRedCloth::VERSION"
0
+    html = "<p>RedCloth::<span class=\"caps\">VERSION</span> won&#8217;t output the RedCloth::<span class=\"caps\">VERSION</span> unless it&#8217;s on a line all by itself.</p>\n<p>#{RedCloth::VERSION}</p>"
0
+    assert_equal html, red("html", input)
0
+  end
0
 
0
 end