Item13139: share code with TablesContrib

foswiki · Dec 15, 2014 · 362b694 · 362b694
1 parent c206955
commit 362b694
Showing 1 changed file with 33 additions and 0 deletions.
diff --git a/core/lib/Foswiki/Tables/Reader.pm b/core/lib/Foswiki/Tables/Reader.pm
@@ -28,6 +28,39 @@ BEGIN {
     }
 }
 
+# Foswiki 1.1.9 didn't define findFirstOccurenceAttrs. Monkey-patch it.
+unless ( defined &Foswiki::Attrs::findFirstOccurenceAttrs ) {
+    *Foswiki::Attrs::findFirstOccurenceAttrs = sub {
+        my ( $macro, $text ) = @_;
+        return undef unless $text =~ /\%${macro}[%{]/s;
+        my @queue = split( /(%[A-Za-z0-9_]*{|}%|\%${macro}\%)/, $text );
+        my $eat   = 0;
+        my $eaten = '';
+        while ( scalar(@queue) ) {
+            my $token = shift @queue;
+            if ($eat) {
+                if ( $token =~ /^%[A-Za-z0-9_]*{$/ ) {
+                    $eat++;
+                }
+                elsif ( $eat && $token eq '}%' ) {
+                    $eat--;
+                    return $eaten if ( !$eat );
+                }
+                $eaten .= $token;
+            }
+            else {
+                if ( $token eq "\%${macro}%" ) {
+                    return '';
+                }
+                elsif ( $token eq "\%${macro}\{" ) {
+                    $eat = 1;
+                }
+            }
+        }
+        return '';
+      }
+}
+
 =begin TML
 
 ---++ ClassMethod new($table_class) -> $parser