[jvm] Improve nqp::tc and nqp::tclc a bit.

Still lack support for most codepoints that don't have a 1 to 1 mapping.

Author: pmurias

src/vm/jvm/QAST/Compiler.nqp

@@ -2287,7 +2287,8 @@ QAST::OperationsJAST.map_classlib_core_op('bitand_s', $TYPE_OPS, 'bitand_s', [$R
 QAST::OperationsJAST.map_classlib_core_op('chars', $TYPE_OPS, 'chars', [$RT_STR], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('uc', $TYPE_OPS, 'uc', [$RT_STR], $RT_STR);
 QAST::OperationsJAST.map_classlib_core_op('lc', $TYPE_OPS, 'lc', [$RT_STR], $RT_STR);
-QAST::OperationsJAST.map_classlib_core_op('tc', $TYPE_OPS, 'uc', [$RT_STR], $RT_STR);
+QAST::OperationsJAST.map_classlib_core_op('tc', $TYPE_OPS, 'tc', [$RT_STR], $RT_STR);
+QAST::OperationsJAST.map_classlib_core_op('tclc', $TYPE_OPS, 'tclc', [$RT_STR], $RT_STR);
 QAST::OperationsJAST.map_classlib_core_op('fc', $TYPE_OPS, 'lc', [$RT_STR], $RT_STR);
 QAST::OperationsJAST.map_classlib_core_op('x', $TYPE_OPS, 'x', [$RT_STR, $RT_INT], $RT_STR, :tc);
 QAST::OperationsJAST.map_classlib_core_op('iscclass', $TYPE_OPS, 'iscclass', [$RT_INT, $RT_STR, $RT_INT], $RT_INT);

src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java

@@ -3969,6 +3969,29 @@ public static String uc(String val) {
         return val.toUpperCase();
     }
 
+    static String codepointToTitleCase(int codepoint) {
+        if (codepoint == 223) return "Ss";
+        return new String(Character.toChars(Character.toTitleCase(codepoint)));
+    }
+
+    public static String tc(String val) {
+        String ret = "";
+        for (int offset = 0; offset < val.length(); ) {
+            int codepoint = val.codePointAt(offset);
+            ret += codepointToTitleCase(codepoint);
+            offset += Character.charCount(codepoint);
+        }
+        return ret;
+    }
+
+    public static String tclc(String in) {
+        if (in.length() == 0)
+            return in;
+        int first = in.codePointAt(0);
+        return codepointToTitleCase(first)
+            + in.substring(Character.charCount(first)).toLowerCase();
+    }
+
     public static String x(String val, long count, ThreadContext tc) {
         if (count < 0)
             throw ExceptionHandling.dieInternal(tc, "repeat count (" + count + ") cannot be negative");