[Cpan-forum-commit] rev 42 - trunk

[svn at pti.co.il]

Author: gabor
Date: 2005-01-25 23:15:47 +0200 (Tue, 25 Jan 2005)
New Revision: 42

Modified:
   trunk/parse.pl
Log:
enable nearly all the ASCII table, create a test case with some code

Modified: trunk/parse.pl
===================================================================
--- trunk/parse.pl	2005-01-25 20:56:02 UTC (rev 41)
+++ trunk/parse.pl	2005-01-25 21:15:47 UTC (rev 42)
@@ -15,15 +15,28 @@
 	text: m{[\w ]+} { qq(<div class="text">$item[1]</div>); }
 	code: opencode codetext closecode {$item[2] }
 	opencode:  m{<code>}
+	codetext: m{[\t\n -~]+(?=</code>)} { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
 	closecode: m{</code>}
-	codetext: m{[\w <>\$]+(?=</code>)} { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
 	eodata:   m{^\Z}
 };
-	#codetext: m{[ -.0-~\s]+} { qq(<div class="code">$item[1]</div>); }
 
 $Parse::RecDescent::skip = '';
 my $parser = new Parse::RecDescent ($grammar) or die "Bad Grammar\n";
 
+my $code = q(
+#!/usr/bin/perl
+
+open my $fh, ">>", "filename";
+while (<$fh>) {
+   print $x . 'sss';
+	xxl
+}
+
+);
+$code = "<code>$code</code>";
+
+
+
 my %data = (
 	'Hello world'              => q(<div class="text">Hello world</div>),
 	' World'                   => q(<div class="text"> World</div>),
@@ -54,5 +67,9 @@
 	}
 }
 	
+my $out = $parser->entry($code);
+ok(defined $out);
+#ok(length(join "", @$out) > length ($code));
 
 
+