[Cpan-forum-commit] rev 47 - trunk

[svn at pti.co.il]

Author: gabor
Date: 2005-01-26 00:23:38 +0200 (Wed, 26 Jan 2005)
New Revision: 47

Modified:
   trunk/parse.pl
Log:
enable <i></i> markup as well

Modified: trunk/parse.pl
===================================================================
--- trunk/parse.pl	2005-01-25 22:17:06 UTC (rev 46)
+++ trunk/parse.pl	2005-01-25 22:23:38 UTC (rev 47)
@@ -15,12 +15,15 @@
 	marked_html: html(s)                          { '<div class="text">' . join("", @{$item[1]}) . '</div>'; }
 	html       : text                             { $item[1] } 
 	           | open_b text close_b              { join "", @item[1..$#item] }
+	           | open_i text close_i              { join "", @item[1..$#item] }
 	open_b     : m{<b>}
 	close_b    : m{</b>}
+	open_i     : m{<i>}
+	close_i    : m{</i>}
 	text       : m{[\t\n -;=?-~]+}                {$item[1] }
 	code       : code_open code_text code_close   {$item[2] }
 	code_open  : m{<code>}
-	code_text  : m{[\t\n -~]+?(?=</code>)}         { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
+	code_text  : m{[\t\n -~]+?(?=</code>)}        { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
 	code_close : m{</code>}
 	eodata     : m{^\Z}
 };
@@ -54,10 +57,13 @@
 	'<b>bold</b> more text'    => q(<div class="text"><b>bold</b> more text</div>),
 	'a<b>c</b><code>x</code>d' => q(<div class="text">a<b>c</b></div><div class="code">x</div><div class="text">d</div>),
 	'a<b>c</b><code>x</code>d<code>y</code>' => q(<div class="text">a<b>c</b></div><div class="code">x</div><div class="text">d</div><div class="code">y</div>),
+	'a<i>c</i><code>x</code>d<code>y</code>' => q(<div class="text">a<i>c</i></div><div class="code">x</div><div class="text">d</div><div class="code">y</div>),
+	'a<b>c</b>d<i>x</i>f'      => q(<div class="text">a<b>c</b>d<i>x</i>f</div>),
 
 	'<code>'                   => undef,
 	'Hello<code>'              => undef,
 	'<code extra><STD></code>' => undef,
+	'a<b>c</i>'                => undef,
 );
 use Data::Dumper;