You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@jena.apache.org by an...@apache.org on 2011/06/11 14:51:24 UTC
svn commit: r1134608 - /incubator/jena/Jena2/ARQ/trunk/apacheize
Author: andy
Date: Sat Jun 11 12:51:24 2011
New Revision: 1134608
URL: http://svn.apache.org/viewvc?rev=1134608&view=rev
Log: (empty)
Modified:
incubator/jena/Jena2/ARQ/trunk/apacheize
Modified: incubator/jena/Jena2/ARQ/trunk/apacheize
URL: http://svn.apache.org/viewvc/incubator/jena/Jena2/ARQ/trunk/apacheize?rev=1134608&r1=1134607&r2=1134608&view=diff
==============================================================================
--- incubator/jena/Jena2/ARQ/trunk/apacheize (original)
+++ incubator/jena/Jena2/ARQ/trunk/apacheize Sat Jun 11 12:51:24 2011
@@ -34,9 +34,22 @@ sub process
sub clean
{
my $text = @_[0] ;
- $text =~ s!^\s*/\*[^{}/]*\*/\s*!!s ;
-## # This removes all trailing comments, not just the last.
+ ## These remove multipl adjacent comments
+ # remove first comment
+
+## $text =~ s!^\s*/\*[^{}/]*\*/\s*!!s ;
## $text =~ s!\s*/\*[^{}]*\*/\s*$!!s ;
+
+ $text =~ s!^ ## Start of file.
+\s* ## Whitespace
+/\* ## Start of comment
+[^*]*\*+ ## Any non-* then 1-or-more *
+([^/][^*]*\*+)* ## Repeats of not-/ then unit as above
+/ ## Close / for the comment
+\s* ## Whitespace
+!!sx ;
+
+ # Blocks *(not/)-starting text
$text =~ s!
\s* ## Whitespace
/\* ## Start of comment