Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit f2471ab1e0bd21d66049e38cde1c99e4ec01736a 1 parent 5f45799
@FROGGS FROGGS authored
Showing with 12 additions and 0 deletions.
  1. +12 −0 src/core/Str.pm
View
12 src/core/Str.pm
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.