Permalink
Browse files

fudge uniname/-prop/val which is implemented on moar only

  • Loading branch information...
1 parent 5f45799 commit f2471ab1e0bd21d66049e38cde1c99e4ec01736a @FROGGS FROGGS committed Mar 4, 2014
Showing with 12 additions and 0 deletions.
  1. +12 −0 src/core/Str.pm
View
@@ -1193,6 +1193,17 @@ sub substr-rw($s is rw, $from = 0, $chars = $s.chars - $from) {
# These probably belong in a separate unicodey file
+#?if parrot
+multi uniname(|) { die 'uniname NYI on parrot backend' }
+multi uniprop(|) { die 'uniname NYI on parrot backend' }
+multi unival(|) { die 'unival NYI on parrot backend' }
+#?endif
+#?if jvm
+multi uniname(|) { die 'uniname NYI on jvm backend' }
+multi uniprop(|) { die 'uniname NYI on jvm backend' }
+multi unival(|) { die 'unival NYI on jvm backend' }
+#?endif
+#?if moar
multi uniname(|) {*}
multi uniname(Str $char) { uniname($char.ord) }
multi uniname(Int $codepoint) { nqp::getuniname($codepoint) }
@@ -1214,5 +1225,6 @@ multi unival(Int $codepoint) {
my $de = uniprop $codepoint, "NumericValueDenominator";
$de eq '1' ?? $nu.Int !! $nu / $de;
}
+#?endif
# vim: ft=perl6 expandtab sw=4

0 comments on commit f2471ab

Please sign in to comment.