implement samecase()

rakudo · Apr 24, 2010 · 73e8d42 · 73e8d42
1 parent ea91882
commit 73e8d42
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -48,6 +48,23 @@ augment class Cool {
         }
     }
 
+    multi method samecase($pattern) is export {
+        my $result = '';
+        my $p = '';
+        my @pattern = $pattern.comb;
+        for self.comb -> $s {
+            $p = @pattern.shift if @pattern;
+            if $p ~~ /<.upper>/ {
+                $result ~= $s.uc;
+            } elsif $p ~~ /<.lower>/ {
+                $result ~= $s.lc;
+            } else {
+                $result ~= $s;
+            }
+        }
+        $result;
+    }
+
     multi method split(Regex $matcher, $limit = *, :$all) {
         my $c = 0;
         my $l = $limit ~~ ::Whatever ?? Inf !! $limit - 1;

diff --git a/t/spectest.data b/t/spectest.data
@@ -513,7 +513,7 @@ S32-str/lc.t                                                 # icu
 S32-str/p5chop.t
 S32-str/pos.t
 # S32-str/rindex.t
-# S32-str/samecase.t                                         # icu
+S32-str/samecase.t                                         # icu
 # S32-str/split-simple.t
 S32-str/split-simple2.t   # CHEAT!  simplified version of split-simple.t
 S32-str/split.t