Activate previously existing windows-1252 charset support

This needs some changes to moarvm to be in place first.

Author: skids

docs/ops.markdown

@@ -1059,7 +1059,7 @@ Output the given string to the filehandle, followed by a newline.
 * `setencoding(Handle $fh, str $encoding)`
 
 Set the encoding for the given handle. Valid encodings are: ascii,
-iso-8859-1, utf8, utf16, and binary.
+iso-8859-1, windows-1252, utf8, utf16, and binary.
 
 ## setinputlinesep
 * `setinputlinesep(Handle $fh, str $sep)`

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

@@ -458,6 +458,8 @@ else if (encoding.equals("utf8"))
                 cs = Charset.forName("UTF-8");
             else if (encoding.equals("utf16"))
                 cs = Charset.forName("UTF-16");
+            else if (encoding.equals("windows-1252"))
+                cs = Charset.forName("windows-1252");
             else
                 throw ExceptionHandling.dieInternal(tc,
                     "Unsupported encoding " + encoding);
@@ -3698,6 +3700,9 @@ else if (encoding.equals("ascii")) {
             else if (encoding.equals("iso-8859-1")) {
                 Buffers.stashBytes(tc, res, str.getBytes("ISO-8859-1"));
             }
+            else if (encoding.equals("windows-1252")) {
+                Buffers.stashBytes(tc, res, str.getBytes("windows-1252"));
+            }
             else if (encoding.equals("utf16")) {
                 short[] buffer = new short[str.length()];
                 for (int i = 0; i < str.length(); i++)
@@ -3763,6 +3768,9 @@ else if (encoding.equals("ascii")) {
         else if (encoding.equals("iso-8859-1")) {
             return decode8(buf, "ISO-8859-1", tc);
         }
+        else if (encoding.equals("windows-1252")) {
+            return decode8(buf, "windows-1252", tc);
+        }
         else if (encoding.equals("utf16") || encoding.equals("utf32")) {
             int n = (int)buf.elems(tc);
             StringBuilder sb = new StringBuilder(n);