[macruby-changes] [3908] MacRuby/trunk/encoding.c

[source_changes at macosforge.org]

Revision: 3908
          http://trac.macosforge.org/projects/ruby/changeset/3908
Author:   lsansonetti at apple.com
Date:     2010-04-04 19:47:17 -0700 (Sun, 04 Apr 2010)
Log Message:
-----------
added #default_external=, #default_internal=

Modified Paths:
--------------
    MacRuby/trunk/encoding.c

Modified: MacRuby/trunk/encoding.c
===================================================================
--- MacRuby/trunk/encoding.c	2010-04-05 01:00:33 UTC (rev 3907)
+++ MacRuby/trunk/encoding.c	2010-04-05 02:47:17 UTC (rev 3908)
@@ -87,12 +87,26 @@
 }
 
 static VALUE
+mr_enc_set_default_internal(VALUE klass, SEL sel, VALUE enc)
+{
+    default_internal = rb_to_encoding(enc);
+    return (VALUE)default_internal;
+}
+
+static VALUE
 mr_enc_s_default_external(VALUE klass, SEL sel)
 {
     return (VALUE)default_external;
 }
 
 static VALUE
+mr_enc_set_default_external(VALUE klass, SEL sel, VALUE enc)
+{
+    default_external = rb_to_encoding(enc);
+    return (VALUE)default_external;
+}
+
+static VALUE
 mr_enc_name(VALUE self, SEL sel)
 {
     return rb_usascii_str_new2(RENC(self)->public_name);
@@ -286,10 +300,12 @@
 
     rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_external",
 	    mr_enc_s_default_external, 0);
-    //rb_define_singleton_method(rb_cEncoding, "default_external=", set_default_external, 1);
+    rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_external=",
+	    mr_enc_set_default_external, 1);
     rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_internal",
 	    mr_enc_s_default_internal, 0);
-    //rb_define_singleton_method(rb_cEncoding, "default_internal=", set_default_internal, 1);
+    rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_internal=",
+	    mr_enc_set_default_internal, 1);
     //rb_define_singleton_method(rb_cEncoding, "locale_charmap", rb_locale_charmap, 0);
 
     // Create constants.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20100404/57e4b77c/attachment.html>