April 2010 - macruby-changes - lists.macosforge.org

[3957] MacRubyWebsite/trunk/lib/screencasts.rb
by source_changes＠macosforge.org 22 Apr '10

22 Apr '10

Revision: 3957 http://trac.macosforge.org/projects/ruby/changeset/3957 Author: mattaimonetti(a)gmail.com Date: 2010-04-22 00:50:59 -0700 (Thu, 22 Apr 2010) Log Message: ----------- added ThinkCode.TV screencast Modified Paths: -------------- MacRubyWebsite/trunk/lib/screencasts.rb Modified: MacRubyWebsite/trunk/lib/screencasts.rb =================================================================== --- MacRubyWebsite/trunk/lib/screencasts.rb 2010-04-22 04:23:45 UTC (rev 3956) +++ MacRubyWebsite/trunk/lib/screencasts.rb 2010-04-22 07:50:59 UTC (rev 3957) @@ -4,6 +4,7 @@ def macruby_screencasts [ + Screencast.new("2010-04-10", "Introduction to MacRuby and HotCocoa", "http://thinkcode.tv/catalog/introduction-macruby/", "Renzo Borgatti", "ThinkCode.TV"), Screencast.new("2009-11-10", "Introduzione a MacRuby e HotCocoa (Italian)", "http://it.thinkcode.tv/catalogo/introduzione-a-macruby-e-hotcocoa/", "Renzo Borgatti", "ThinkCode.TV"), Screencast.new("2009-05-19", "Meet MacRuby", "http://peepcode.com/products/meet-macruby", "Geoffrey Grosenbach", "Peepcode"), Screencast.new("2009-05-19", "MacRuby Presentation (Free)", "http://nubyonrails.com/articles/macruby-presentation-from-rubyfest", "Geoffrey Grosenbach", "Peepcode"),

1 0

[3956] MacRuby/trunk/objc.h
by source_changes＠macosforge.org 22 Apr '10

22 Apr '10

Revision: 3956 http://trac.macosforge.org/projects/ruby/changeset/3956 Author: lsansonetti(a)apple.com Date: 2010-04-21 21:23:45 -0700 (Wed, 21 Apr 2010) Log Message: ----------- fix a bug in TypeArity() where stack size annotations were not ignored Modified Paths: -------------- MacRuby/trunk/objc.h Modified: MacRuby/trunk/objc.h =================================================================== --- MacRuby/trunk/objc.h 2010-04-22 04:22:47 UTC (rev 3955) +++ MacRuby/trunk/objc.h 2010-04-22 04:23:45 UTC (rev 3956) @@ -157,6 +157,7 @@ unsigned int arity = 0; while (*type != '\0') { type = SkipFirstType(type); + type = SkipStackSize(type); arity++; } return arity;

1 0

[3955] MacRuby/trunk
by source_changes＠macosforge.org 22 Apr '10

22 Apr '10

Revision: 3955 http://trac.macosforge.org/projects/ruby/changeset/3955 Author: lsansonetti(a)apple.com Date: 2010-04-21 21:22:47 -0700 (Wed, 21 Apr 2010) Log Message: ----------- when re-typing methods, do not re-type the same method twice and make sure the new signature matches the ruby arity Modified Paths: -------------- MacRuby/trunk/dispatcher.cpp MacRuby/trunk/vm.cpp MacRuby/trunk/vm.h Modified: MacRuby/trunk/dispatcher.cpp =================================================================== --- MacRuby/trunk/dispatcher.cpp 2010-04-22 01:54:06 UTC (rev 3954) +++ MacRuby/trunk/dispatcher.cpp 2010-04-22 04:22:47 UTC (rev 3955) @@ -522,7 +522,7 @@ return false; } - GET_CORE()->retype_method(klass, node, types); + GET_CORE()->retype_method(klass, node, method_getTypeEncoding(m), types); return true; } Modified: MacRuby/trunk/vm.cpp =================================================================== --- MacRuby/trunk/vm.cpp 2010-04-22 01:54:06 UTC (rev 3954) +++ MacRuby/trunk/vm.cpp 2010-04-22 04:22:47 UTC (rev 3955) @@ -1942,22 +1942,39 @@ rb_vm_method_node_t * RoxorCore::retype_method(Class klass, rb_vm_method_node_t *node, - const char *types) + const char *old_types, const char *new_types) { + if (strcmp(old_types, new_types) == 0) { + // No need to retype. + // XXX might be better to compare every type after filtering stack + // size and other crappy modifiers. + return node; + } + + const int new_types_arity = TypeArity(new_types); + char buf[100]; + if (node->arity.real + 3 >= new_types_arity) { + // The method arity is bigger than the number of types of the new + // signature, so we need to pad. + strlcpy(buf, new_types, sizeof buf); + for (int i = 0; i < node->arity.real + 3 - new_types_arity; i++) { + strlcat(buf, "@", sizeof buf); + } + new_types = &buf[0]; + } + RoxorCoreLock lock; - // TODO: 1) don't reinstall method in case the types didn't change - // 2) free LLVM machine code from old objc IMP - // Re-generate ObjC stub. Function *objc_func = RoxorCompiler::shared->compile_objc_stub(NULL, - node->ruby_imp, node->arity, types); + node->ruby_imp, node->arity, new_types); node->objc_imp = compile(objc_func); + // TODO: free LLVM machine code from old objc IMP objc_to_ruby_stubs[node->ruby_imp] = node->objc_imp; // Re-add the method. node = add_method(klass, node->sel, node->objc_imp, node->ruby_imp, - node->arity, node->flags, types); + node->arity, node->flags, new_types); return node; } Modified: MacRuby/trunk/vm.h =================================================================== --- MacRuby/trunk/vm.h 2010-04-22 01:54:06 UTC (rev 3954) +++ MacRuby/trunk/vm.h 2010-04-22 04:22:47 UTC (rev 3955) @@ -796,7 +796,8 @@ Function *func, const rb_vm_arity_t &arity, int flags, IMP imp, Method m); rb_vm_method_node_t *retype_method(Class klass, - rb_vm_method_node_t *node, const char *types); + rb_vm_method_node_t *node, const char *old_types, + const char *new_types); void undef_method(Class klass, SEL sel); void remove_method(Class klass, SEL sel); bool resolve_methods(std::map<Class, rb_vm_method_source_t *> *map,

1 0

[3954] MacRuby/trunk
by source_changes＠macosforge.org 22 Apr '10

22 Apr '10

Revision: 3954 http://trac.macosforge.org/projects/ruby/changeset/3954 Author: lsansonetti(a)apple.com Date: 2010-04-21 18:54:06 -0700 (Wed, 21 Apr 2010) Log Message: ----------- remove the ugly & evil code that was automatically inserting special objective-c primitive methods when subclassing NSArray/String/Dictionary from ruby, with the new architecture it's unlikely to happen anymore Modified Paths: -------------- MacRuby/trunk/NSArray.m MacRuby/trunk/NSDictionary.m MacRuby/trunk/array.c MacRuby/trunk/class.c MacRuby/trunk/hash.c MacRuby/trunk/include/ruby/intern.h MacRuby/trunk/object.c MacRuby/trunk/spec/macruby/core/array_spec.rb MacRuby/trunk/spec/macruby/core/hash_spec.rb MacRuby/trunk/spec/macruby/core/string_spec.rb MacRuby/trunk/spec/macruby/tags/macruby/core/hash_tags.txt MacRuby/trunk/spec/macruby/tags/macruby/core/string_tags.txt MacRuby/trunk/string.c Modified: MacRuby/trunk/NSArray.m =================================================================== --- MacRuby/trunk/NSArray.m 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/NSArray.m 2010-04-22 01:54:06 UTC (rev 3954) @@ -17,7 +17,6 @@ VALUE rb_cArray; VALUE rb_cNSArray; VALUE rb_cNSMutableArray; -static VALUE rb_cCFArray; static id nsary_dup(id rcv, SEL sel) @@ -939,12 +938,6 @@ void Init_NSArray(void) { -#if MAC_OS_X_VERSION_MAX_ALLOWED < 1070 - rb_cCFArray = (VALUE)objc_getClass("NSCFArray"); -#else - rb_cCFArray = (VALUE)objc_getClass("__NSCFArray"); -#endif - assert(rb_cCFArray != 0); rb_cNSArray = (VALUE)objc_getClass("NSArray"); assert(rb_cNSArray != 0); rb_cArray = rb_cNSArray; @@ -1036,113 +1029,6 @@ rb_objc_define_method(rb_cArray, "sample", rary_sample, -1); } -#define PREPARE_RCV(x) \ - Class old = *(Class *)x; \ - *(Class *)x = (Class)rb_cCFArray; - -#define RESTORE_RCV(x) \ - *(Class *)x = old; - -static long -imp_rb_array_count(id rcv, SEL sel) -{ - PREPARE_RCV(rcv); - const long count = [rcv count]; - RESTORE_RCV(rcv); - return count; -} - -static id -imp_rb_array_objectAtIndex(id rcv, SEL sel, long idx) -{ - PREPARE_RCV(rcv); - id obj = [rcv objectAtIndex:idx]; - RESTORE_RCV(rcv); - return obj; -} - -static void -imp_rb_array_insertObjectAtIndex(id rcv, SEL sel, id obj, long idx) -{ - PREPARE_RCV(rcv); - [rcv insertObject:obj atIndex:idx]; - RESTORE_RCV(rcv); -} - -static void -imp_rb_array_removeObjectAtIndex(id rcv, SEL sel, long idx) -{ - PREPARE_RCV(rcv); - [rcv removeObjectAtIndex:idx]; - RESTORE_RCV(rcv); -} - -static void -imp_rb_array_replaceObjectAtIndexWithObject(id rcv, SEL sel, long idx, id obj) -{ - PREPARE_RCV(rcv); - [rcv replaceObjectAtIndex:idx withObject:obj]; - RESTORE_RCV(rcv); -} - -static void -imp_rb_array_addObject(id rcv, SEL sel, id obj) -{ - PREPARE_RCV(rcv); - [rcv addObject:obj]; - RESTORE_RCV(rcv); -} - -#if MAC_OS_X_VERSION_MAX_ALLOWED < 1060 -// This is to work around a bug where CF will try to call an non-existing -// method. -static CFIndex -imp_rb_array_cfindexOfObjectInRange(void *rcv, SEL sel, void *obj, - CFRange range) -{ - CFIndex i; - PREPARE_RCV(rcv); - i = CFArrayGetFirstIndexOfValue((CFArrayRef)rcv, range, obj); - RESTORE_RCV(rcv); - return i; -} -#endif - -void -rb_objc_install_array_primitives(Class klass) -{ - rb_objc_install_method2(klass, "count", (IMP)imp_rb_array_count); - rb_objc_install_method2(klass, "objectAtIndex:", - (IMP)imp_rb_array_objectAtIndex); - - const bool is_mutable = class_getSuperclass(klass) - == (Class)rb_cNSMutableArray; - - if (is_mutable) { - rb_objc_install_method2(klass, "insertObject:atIndex:", - (IMP)imp_rb_array_insertObjectAtIndex); - rb_objc_install_method2(klass, "removeObjectAtIndex:", - (IMP)imp_rb_array_removeObjectAtIndex); - rb_objc_install_method2(klass, "replaceObjectAtIndex:withObject:", - (IMP)imp_rb_array_replaceObjectAtIndexWithObject); - rb_objc_install_method2(klass, "addObject:", - (IMP)imp_rb_array_addObject); - } - -#if MAC_OS_X_VERSION_MAX_ALLOWED < 1060 - // This is to work around a bug where CF will try to call an non-existing - // method. - rb_objc_install_method2(klass, "_cfindexOfObject:range:", - (IMP)imp_rb_array_cfindexOfObjectInRange); - Method m = class_getInstanceMethod(klass, - sel_registerName("_cfindexOfObject:range:")); - class_addMethod(klass, sel_registerName("_cfindexOfObject:inRange:"), - method_getImplementation(m), method_getTypeEncoding(m)); -#endif - - //rb_objc_define_method(*(VALUE *)klass, "alloc", ary_alloc, 0); -} - // MRI compatibility API. VALUE Modified: MacRuby/trunk/NSDictionary.m =================================================================== --- MacRuby/trunk/NSDictionary.m 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/NSDictionary.m 2010-04-22 01:54:06 UTC (rev 3954) @@ -17,7 +17,6 @@ VALUE rb_cHash; VALUE rb_cNSHash; VALUE rb_cNSMutableHash; -static VALUE rb_cCFHash; static id to_hash(id hash) @@ -436,12 +435,6 @@ void Init_NSDictionary(void) { -#if MAC_OS_X_VERSION_MAX_ALLOWED < 1070 - rb_cCFHash = (VALUE)objc_getClass("NSCFDictionary"); -#else - rb_cCFHash = (VALUE)objc_getClass("__NSCFDictionary"); -#endif - assert(rb_cCFHash != 0); rb_cNSHash = (VALUE)objc_getClass("NSDictionary"); assert(rb_cNSHash != 0); rb_cHash = rb_cNSHash; @@ -506,121 +499,6 @@ nshash_compare_by_id_p, 0); } -// NSDictionary + NSMutableDictionary primitives. These are added automatically -// on singleton classes of pure NSDictionaries. Our implementation just calls -// the original methods, by tricking the receiver's class. - -#define PREPARE_RCV(x) \ - Class __old = *(Class *)x; \ - *(Class *)x = (Class)rb_cCFHash; - -#define RESTORE_RCV(x) \ - *(Class *)x = __old; - -static unsigned -nshash_count(id rcv, SEL sel) -{ - PREPARE_RCV(rcv); - const unsigned count = [rcv count]; - RESTORE_RCV(rcv); - return count; -} - -static id -nshash_keyEnumerator(id rcv, SEL sel) -{ - PREPARE_RCV(rcv); - id keys = [rcv allKeys]; - RESTORE_RCV(rcv); - return [keys objectEnumerator]; -} - -static id -nshash_objectForKey(id rcv, SEL sel, id key) -{ - PREPARE_RCV(rcv); - id value = [rcv objectForKey:key]; - RESTORE_RCV(rcv); - return value; -} - -static void -nshash_setObjectForKey(id rcv, SEL sel, id value, id key) -{ - PREPARE_RCV(rcv); - [rcv setObject:value forKey:key]; - RESTORE_RCV(rcv); -} - -static void -nshash_getObjectsAndKeys(id rcv, SEL sel, id *objs, id *keys) -{ - PREPARE_RCV(rcv); - [rcv getObjects:objs andKeys:keys]; - RESTORE_RCV(rcv); -} - -static void -nshash_removeObjectForKey(id rcv, SEL sel, id key) -{ - PREPARE_RCV(rcv); - [rcv removeObjectForKey:key]; - RESTORE_RCV(rcv); -} - -static void -nshash_removeAllObjects(id rcv, SEL sel) -{ - PREPARE_RCV(rcv); - [rcv removeAllObjects]; - RESTORE_RCV(rcv); -} - -static bool -nshash_isEqual(id rcv, SEL sel, id other) -{ - PREPARE_RCV(rcv); - const bool res = [rcv isEqualToDictionary:other]; - RESTORE_RCV(rcv); - return res; -} - -static bool -nshash_containsObject(id rcv, SEL sel, id value) -{ - PREPARE_RCV(rcv); - const bool res = [[rcv allKeysForObject:value] count] > 0; - RESTORE_RCV(rcv); - return res; -} - -void -rb_objc_install_hash_primitives(Class klass) -{ - rb_objc_install_method2(klass, "count", (IMP)nshash_count); - rb_objc_install_method2(klass, "keyEnumerator", (IMP)nshash_keyEnumerator); - rb_objc_install_method2(klass, "objectForKey:", (IMP)nshash_objectForKey); - rb_objc_install_method2(klass, "getObjects:andKeys:", - (IMP)nshash_getObjectsAndKeys); - rb_objc_install_method2(klass, "isEqual:", (IMP)nshash_isEqual); - rb_objc_install_method2(klass, "containsObject:", - (IMP)nshash_containsObject); - - const bool mutable = - class_getSuperclass(klass) == (Class)rb_cNSMutableHash; - - if (mutable) { - rb_objc_install_method2(klass, "setObject:forKey:", - (IMP)nshash_setObjectForKey); - rb_objc_install_method2(klass, "removeObjectForKey:", - (IMP)nshash_removeObjectForKey); - rb_objc_install_method2(klass, "removeAllObjects", - (IMP)nshash_removeAllObjects); - } - - //rb_objc_define_method(*(VALUE *)klass, "alloc", hash_alloc, 0); -} - // MRI compatibility API. VALUE Modified: MacRuby/trunk/array.c =================================================================== --- MacRuby/trunk/array.c 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/array.c 2010-04-22 01:54:06 UTC (rev 3954) @@ -3484,6 +3484,8 @@ Init_NSArray(); rb_cRubyArray = rb_define_class("Array", rb_cNSMutableArray); + RCLASS_SET_VERSION_FLAG(rb_cRubyArray, RCLASS_IS_ARRAY_SUBCLASS); + rb_objc_define_method(*(VALUE *)rb_cRubyArray, "new", rb_class_new_instance_imp, -1); rb_objc_define_method(*(VALUE *)rb_cRubyArray, "alloc", rary_alloc, 0); Modified: MacRuby/trunk/class.c =================================================================== --- MacRuby/trunk/class.c 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/class.c 2010-04-22 01:54:06 UTC (rev 3954) @@ -20,44 +20,35 @@ extern st_table *rb_class_tbl; -void rb_objc_install_array_primitives(Class); -void rb_objc_install_hash_primitives(Class); -void rb_objc_install_string_primitives(Class); -void rb_objc_install_set_primitives(Class); - -bool -rb_objc_install_primitives(Class ocklass, Class ocsuper) +void +rb_objc_class_sync_version(Class ocklass, Class ocsuper) { - if (rb_cRubyArray != 0 && rb_cRubyHash != 0 && rb_cString != 0) { - do { - if (ocsuper == (Class)rb_cRubyArray) { - RCLASS_SET_VERSION_FLAG(ocklass, RCLASS_IS_ARRAY_SUBCLASS); - return false; - } - if (ocsuper == (Class)rb_cArray) { - rb_objc_install_array_primitives(ocklass); - RCLASS_SET_VERSION_FLAG(ocklass, RCLASS_IS_ARRAY_SUBCLASS); - return true; - } - if (ocsuper == (Class)rb_cRubyHash) { - RCLASS_SET_VERSION_FLAG(ocklass, RCLASS_IS_HASH_SUBCLASS); - return false; - } - if (ocsuper == (Class)rb_cHash) { - rb_objc_install_hash_primitives(ocklass); - RCLASS_SET_VERSION_FLAG(ocklass, RCLASS_IS_HASH_SUBCLASS); - return true; - } - if (ocsuper == (Class)rb_cString) { - rb_objc_install_string_primitives(ocklass); - RCLASS_SET_VERSION_FLAG(ocklass, RCLASS_IS_STRING_SUBCLASS); - return true; - } - ocsuper = class_getSuperclass(ocsuper); - } - while (ocsuper != NULL); + const long super_version = RCLASS_VERSION(ocsuper); + long klass_version = RCLASS_VERSION(ocklass); + + if ((super_version & RCLASS_NO_IV_SLOTS) == RCLASS_NO_IV_SLOTS) { + klass_version |= RCLASS_NO_IV_SLOTS; } - return false; + + if (ocsuper == (Class)rb_cObject + || (super_version & RCLASS_IS_OBJECT_SUBCLASS) + == RCLASS_IS_OBJECT_SUBCLASS) { + klass_version |= RCLASS_IS_OBJECT_SUBCLASS; + } + if ((super_version & RCLASS_IS_ARRAY_SUBCLASS) + == RCLASS_IS_ARRAY_SUBCLASS) { + klass_version |= RCLASS_IS_ARRAY_SUBCLASS; + } + if ((super_version & RCLASS_IS_HASH_SUBCLASS) + == RCLASS_IS_HASH_SUBCLASS) { + klass_version |= RCLASS_IS_HASH_SUBCLASS; + } + if ((super_version & RCLASS_IS_STRING_SUBCLASS) + == RCLASS_IS_STRING_SUBCLASS) { + klass_version |= RCLASS_IS_STRING_SUBCLASS; + } + + RCLASS_SET_VERSION(ocklass, klass_version); } static void * @@ -193,22 +184,12 @@ if (flags == T_MODULE) { version_flag |= RCLASS_IS_MODULE; } - const long super_version = RCLASS_VERSION(super); - if (super == rb_cObject - || (super_version & RCLASS_IS_OBJECT_SUBCLASS) - == RCLASS_IS_OBJECT_SUBCLASS) { - version_flag |= RCLASS_IS_OBJECT_SUBCLASS; - } - if ((super_version & RCLASS_NO_IV_SLOTS) == RCLASS_NO_IV_SLOTS) { - version_flag |= RCLASS_NO_IV_SLOTS; - } - RCLASS_SET_VERSION(ocklass, version_flag); objc_registerClassPair(ocklass); if (klass != 0) { - rb_objc_install_primitives(ocklass, (Class)super); + rb_objc_class_sync_version(ocklass, (Class)super); } return (VALUE)ocklass; @@ -348,7 +329,7 @@ rb_raise(rb_eTypeError, "can't copy singleton class"); } clone = rb_mod_init_copy(clone, 0, orig); - rb_objc_install_primitives((Class)clone, (Class)orig); + rb_objc_class_sync_version((Class)clone, (Class)orig); return clone; } Modified: MacRuby/trunk/hash.c =================================================================== --- MacRuby/trunk/hash.c 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/hash.c 2010-04-22 01:54:06 UTC (rev 3954) @@ -1774,6 +1774,8 @@ id_yield = rb_intern("yield"); rb_cRubyHash = rb_define_class("Hash", rb_cNSMutableHash); + RCLASS_SET_VERSION_FLAG(rb_cRubyHash, RCLASS_IS_HASH_SUBCLASS); + rb_objc_define_method(*(VALUE *)rb_cRubyHash, "new", rb_class_new_instance_imp, -1); rb_objc_define_method(*(VALUE *)rb_cRubyHash, "alloc", rhash_alloc, 0); Modified: MacRuby/trunk/include/ruby/intern.h =================================================================== --- MacRuby/trunk/include/ruby/intern.h 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/include/ruby/intern.h 2010-04-22 01:54:06 UTC (rev 3954) @@ -150,7 +150,7 @@ /* class.c */ #if WITH_OBJC VALUE rb_objc_create_class(const char *name, VALUE super); -bool rb_objc_install_primitives(Class ocklass, Class ocsuper); +void rb_objc_class_sync_version(Class klass, Class super_class); void rb_define_object_special_methods(VALUE klass); VALUE rb_class_new_instance_imp(VALUE, SEL, int, VALUE *); VALUE rb_make_singleton_class(VALUE super); Modified: MacRuby/trunk/object.c =================================================================== --- MacRuby/trunk/object.c 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/object.c 2010-04-22 01:54:06 UTC (rev 3954) @@ -1898,12 +1898,7 @@ super = rb_cRubyObject; } RCLASS_SET_SUPER(klass, super); - if ((RCLASS_VERSION(super) & RCLASS_IS_OBJECT_SUBCLASS) - != RCLASS_IS_OBJECT_SUBCLASS) { - long v = RCLASS_VERSION(klass) ^ RCLASS_IS_OBJECT_SUBCLASS; - RCLASS_SET_VERSION(klass, v); - } - rb_objc_install_primitives((Class)klass, (Class)super); + rb_objc_class_sync_version((Class)klass, (Class)super); rb_class_inherited(super, klass); rb_mod_initialize(klass, 0); Modified: MacRuby/trunk/spec/macruby/core/array_spec.rb =================================================================== --- MacRuby/trunk/spec/macruby/core/array_spec.rb 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/spec/macruby/core/array_spec.rb 2010-04-22 01:54:06 UTC (rev 3954) @@ -15,17 +15,6 @@ end end -describe "The NSArray class" do - it "can be subclassed and later instantiated" do - k = Class.new(NSArray) - a = k.new - a.class.should == k - a.size.should == 0 - # TODO - #lambda { a << 42 }.should raise_error(RuntimeError) - end -end - describe "An Array object" do it "is an instance of the Array/NSMutableArray class" do [].class.should == Array @@ -72,13 +61,4 @@ a.size.should == 0 lambda { a << 123 }.should raise_error(RuntimeError) end - -=begin - it "can have a singleton class" do - a = NSArray.array - def a.foo; 42; end - a.foo.should == 42 - lambda { a << 123 }.should raise_error(RuntimeError) - end -=end end Modified: MacRuby/trunk/spec/macruby/core/hash_spec.rb =================================================================== --- MacRuby/trunk/spec/macruby/core/hash_spec.rb 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/spec/macruby/core/hash_spec.rb 2010-04-22 01:54:06 UTC (rev 3954) @@ -15,17 +15,6 @@ end end -describe "The NSDictionary class" do - it "can be subclassed and later instantiated" do - k = Class.new(NSDictionary) - a = k.new - a.class.should == k - a.size.should == 0 - # TODO - #lambda { a[42] = 123 }.should raise_error(RuntimeError) - end -end - describe "An Hash object" do it "is an instance of the Hash class" do {}.class.should == Hash @@ -72,11 +61,4 @@ a.size.should == 0 lambda { a[42] = 123 }.should raise_error(RuntimeError) end - - it "can have a singleton class" do - a = NSDictionary.dictionary - def a.foo; 42; end - a.foo.should == 42 - lambda { a[42] = 123 }.should raise_error(RuntimeError) - end end Modified: MacRuby/trunk/spec/macruby/core/string_spec.rb =================================================================== --- MacRuby/trunk/spec/macruby/core/string_spec.rb 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/spec/macruby/core/string_spec.rb 2010-04-22 01:54:06 UTC (rev 3954) @@ -15,17 +15,6 @@ end end -describe "The NSString class" do - it "can be subclassed and later instantiated" do - k = Class.new(NSString) - a = k.new - a.class.should == k - a.size.should == 0 - # TODO - #lambda { a << 'foo' }.should raise_error(RuntimeError) - end -end - describe "A String object" do it "is an instance of the String/NSMutableString class" do ''.class.should == String @@ -55,17 +44,14 @@ a.foo = 42 a.foo.should == 42 end - - it "can match() a Regex" do - a = 'aaba' - a.should match(/a+b./) - end end describe "An NSString object" do - it "is an instance of the NSString class" do + it "is an instance of the String class" do a = NSString.string - a.class.should == NSString + a.class.should == String + a = NSString.stringWithString('OMG') + a.class.should == String end it "is immutable" do @@ -74,14 +60,6 @@ lambda { a << 'foo' }.should raise_error(RuntimeError) end - it "can have a singleton class" do - a = NSString.string - def a.foo; 42; end - a.foo.should == 42 - # TODO - #lambda { a << 'foo' }.should raise_error(RuntimeError) - end - it "forwards the block when calling a ruby method" do NSString.stringWithString("ybuRcaM").sub(/.+/) { |s| s.reverse }.should == "MacRuby" end Modified: MacRuby/trunk/spec/macruby/tags/macruby/core/hash_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/core/hash_tags.txt 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/spec/macruby/tags/macruby/core/hash_tags.txt 2010-04-22 01:54:06 UTC (rev 3954) @@ -1,3 +1 @@ -critical:The NSDictionary class can be subclassed and later instantiated -critical:An NSDictionary object can have a singleton class critical:An NSDictionary object is immutable Modified: MacRuby/trunk/spec/macruby/tags/macruby/core/string_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/core/string_tags.txt 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/spec/macruby/tags/macruby/core/string_tags.txt 2010-04-22 01:54:06 UTC (rev 3954) @@ -1,5 +1 @@ -critical:The NSString class can be subclassed and later instantiated -critical:An NSString object can have a singleton class critical:An NSString object is immutable -fails:An NSString object is an instance of the NSString class -fails:A String object can match() a Regex Modified: MacRuby/trunk/string.c =================================================================== --- MacRuby/trunk/string.c 2010-04-21 21:34:24 UTC (rev 3953) +++ MacRuby/trunk/string.c 2010-04-22 01:54:06 UTC (rev 3954) @@ -5422,6 +5422,7 @@ Init_NSString(); // rb_cRubyString is defined earlier in Init_PreVM(). + RCLASS_SET_VERSION_FLAG(rb_cRubyString, RCLASS_IS_STRING_SUBCLASS); rb_set_class_path(rb_cRubyString, rb_cObject, "String"); rb_const_set(rb_cObject, rb_intern("String"), rb_cRubyString); @@ -5583,12 +5584,6 @@ return true; } -void -rb_objc_install_string_primitives(Class klass) -{ - // TODO -} - // ByteString emulation. #define IS_BSTR(obj) (IS_RSTR(obj) && !str_is_stored_in_uchars(RSTR(obj)))

1 0

[3953] MacRuby/trunk
by source_changes＠macosforge.org 21 Apr '10

21 Apr '10

Revision: 3953 http://trac.macosforge.org/projects/ruby/changeset/3953 Author: lsansonetti(a)apple.com Date: 2010-04-21 14:34:24 -0700 (Wed, 21 Apr 2010) Log Message: ----------- fixed the NSNumber conversion (which broke NSProxy), moved the support forwarding check from the dispatcher into objc.m Modified Paths: -------------- MacRuby/trunk/dispatcher.cpp MacRuby/trunk/objc.h MacRuby/trunk/objc.m Modified: MacRuby/trunk/dispatcher.cpp =================================================================== --- MacRuby/trunk/dispatcher.cpp 2010-04-21 17:37:17 UTC (rev 3952) +++ MacRuby/trunk/dispatcher.cpp 2010-04-21 21:34:24 UTC (rev 3953) @@ -471,21 +471,6 @@ rcache.node = node; } -static bool -can_forwardInvocation(VALUE recv, SEL sel) -{ - if (!SPECIAL_CONST_P(recv)) { - static SEL methodSignatureForSelector = 0; - if (methodSignatureForSelector == 0) { - methodSignatureForSelector = - sel_registerName("methodSignatureForSelector:"); - } - return objc_msgSend((id)recv, methodSignatureForSelector, (id)sel) - != nil; - } - return false; -} - static void fill_ocache(struct mcache *cache, VALUE self, Class klass, IMP imp, SEL sel, Method method, int argc) @@ -635,7 +620,8 @@ } // Does the receiver implements -forwardInvocation:? - if (opt != DISPATCH_SUPER && can_forwardInvocation(self, sel)) { + if (opt != DISPATCH_SUPER + && rb_objc_supports_forwarding(self, sel)) { fill_ocache(cache, self, klass, (IMP)objc_msgSend, sel, NULL, argc); goto dispatch; Modified: MacRuby/trunk/objc.h =================================================================== --- MacRuby/trunk/objc.h 2010-04-21 17:37:17 UTC (rev 3952) +++ MacRuby/trunk/objc.h 2010-04-21 21:34:24 UTC (rev 3953) @@ -18,6 +18,8 @@ bool rb_objc_get_types(VALUE recv, Class klass, SEL sel, Method m, bs_element_method_t *bs_method, char *buf, size_t buflen); +bool rb_objc_supports_forwarding(VALUE recv, SEL sel); + void rb_objc_define_kvo_setter(VALUE klass, ID mid); VALUE rb_vm_set_kvo_ivar(VALUE obj, ID name, VALUE val); @@ -192,7 +194,19 @@ return (id)obj; } -extern CFTypeID __CFNumberTypeID; +static inline bool +rb_objc_obj_is_nsnumber(id obj) +{ + Class k = object_getClass(obj); // might be an immediate + do { + if (k == (Class)rb_cNSNumber) { + return true; + } + k = class_getSuperclass(k); + } + while (k != NULL); + return false; +} static inline VALUE rb_ocid_to_rval(id obj) @@ -207,7 +221,7 @@ return Qnil; } - if (CFGetTypeID(obj) == __CFNumberTypeID) { + if (rb_objc_obj_is_nsnumber(obj)) { // TODO: this could be optimized in case the object is an immediate. if (CFNumberIsFloatType((CFNumberRef)obj)) { double v = 0; Modified: MacRuby/trunk/objc.m =================================================================== --- MacRuby/trunk/objc.m 2010-04-21 17:37:17 UTC (rev 3952) +++ MacRuby/trunk/objc.m 2010-04-21 21:34:24 UTC (rev 3953) @@ -25,8 +25,6 @@ # include "bs.h" #endif -CFTypeID __CFNumberTypeID = 0; - static inline const char * rb_get_bs_method_type(bs_element_method_t *bs_method, int arg) { @@ -122,6 +120,15 @@ return false; } +bool +rb_objc_supports_forwarding(VALUE recv, SEL sel) +{ + if (!SPECIAL_CONST_P(recv)) { + return [(id)recv methodSignatureForSelector:sel] != nil; + } + return false; +} + static id _symbolicator = nil; #define SYMBOLICATION_FRAMEWORK @"/System/Library/PrivateFrameworks/Symbolication.framework" @@ -685,9 +692,6 @@ void Init_ObjC(void) { - __CFNumberTypeID = CFNumberGetTypeID(); - assert(__CFNumberTypeID > 0); - rb_objc_define_method(rb_mKernel, "load_bridge_support_file", rb_objc_load_bs, 1);

1 0

[3952] MacRuby/trunk/tool/macruby_get_nightly.command
by source_changes＠macosforge.org 21 Apr '10

21 Apr '10

Revision: 3952 http://trac.macosforge.org/projects/ruby/changeset/3952 Author: ernest.prabhakar(a)gmail.com Date: 2010-04-21 10:37:17 -0700 (Wed, 21 Apr 2010) Log Message: ----------- Updated get_nightly script for new location Modified Paths: -------------- MacRuby/trunk/tool/macruby_get_nightly.command Modified: MacRuby/trunk/tool/macruby_get_nightly.command =================================================================== --- MacRuby/trunk/tool/macruby_get_nightly.command 2010-04-21 04:34:41 UTC (rev 3951) +++ MacRuby/trunk/tool/macruby_get_nightly.command 2010-04-21 17:37:17 UTC (rev 3952) @@ -1,6 +1,6 @@ #!/bin/sh # Download and install the latest version of MacRuby -URL=http://macruby.icoretech.org/latest +URL=http://www.macruby.org/files/nightlies/ PKG=macruby_nightly-latest.pkg DOWNLOAD_DIR=~/Downloads DESTROOT=/

1 0

[3951] MacRuby/trunk/spec/macruby/tags/macruby
by source_changes＠macosforge.org 21 Apr '10

21 Apr '10

Revision: 3951 http://trac.macosforge.org/projects/ruby/changeset/3951 Author: lsansonetti(a)apple.com Date: 2010-04-20 21:34:41 -0700 (Tue, 20 Apr 2010) Log Message: ----------- remove tag files for macruby specs - please do not tag any macruby spec as easily in the future Removed Paths: ------------- MacRuby/trunk/spec/macruby/tags/macruby/core/kvc_tags.txt MacRuby/trunk/spec/macruby/tags/macruby/core/objc_tags.txt MacRuby/trunk/spec/macruby/tags/macruby/core/pointer_tags.txt MacRuby/trunk/spec/macruby/tags/macruby/language/method_tags.txt MacRuby/trunk/spec/macruby/tags/macruby/language/objc_method_tags.txt Deleted: MacRuby/trunk/spec/macruby/tags/macruby/core/kvc_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/core/kvc_tags.txt 2010-04-21 04:06:20 UTC (rev 3950) +++ MacRuby/trunk/spec/macruby/tags/macruby/core/kvc_tags.txt 2010-04-21 04:34:41 UTC (rev 3951) @@ -1,6 +0,0 @@ -fails:A scalar being accessed through NSKeyValueCoding can be manipulated -fails:An ordered collection being accessed through NSKeyValueCoding can be manipulated through whole-array accessors -fails:An ordered collection being accessed through NSKeyValueCoding can be manipulated through index accessors -fails:An ordered collection being accessed through NSKeyValueCoding can be manipulated through index accessors (w/ replace) -fails:An ordered collection being accessed through NSKeyValueCoding can be manipulated through index set accessors -fails:An ordered collection being accessed through NSKeyValueCoding can be manipulated through index set accessors (w/ replace) Deleted: MacRuby/trunk/spec/macruby/tags/macruby/core/objc_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/core/objc_tags.txt 2010-04-21 04:06:20 UTC (rev 3950) +++ MacRuby/trunk/spec/macruby/tags/macruby/core/objc_tags.txt 2010-04-21 04:34:41 UTC (rev 3951) @@ -1,2 +0,0 @@ -fails:-[MacRuby sharedRuntime] can evaluate a given Ruby expression -fails:-[MacRuby sharedRuntime] can evaluate a given Ruby file using a path or an URL Deleted: MacRuby/trunk/spec/macruby/tags/macruby/core/pointer_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/core/pointer_tags.txt 2010-04-21 04:06:20 UTC (rev 3950) +++ MacRuby/trunk/spec/macruby/tags/macruby/core/pointer_tags.txt 2010-04-21 04:34:41 UTC (rev 3951) @@ -1 +0,0 @@ -fails:Pointer, through #[] and #[]= can assign and retrieve any object with type `object' Deleted: MacRuby/trunk/spec/macruby/tags/macruby/language/method_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/language/method_tags.txt 2010-04-21 04:06:20 UTC (rev 3950) +++ MacRuby/trunk/spec/macruby/tags/macruby/language/method_tags.txt 2010-04-21 04:34:41 UTC (rev 3951) @@ -1,3 +0,0 @@ -fails:A pure MacRuby method can be called using -[NSObject performSelector:] -fails:A pure MacRuby method can be called using -[NSObject performSelector:withObject:] -fails:A pure MacRuby method can be called using -[NSObject performSelector:withObject:withObject:] Deleted: MacRuby/trunk/spec/macruby/tags/macruby/language/objc_method_tags.txt =================================================================== --- MacRuby/trunk/spec/macruby/tags/macruby/language/objc_method_tags.txt 2010-04-21 04:06:20 UTC (rev 3950) +++ MacRuby/trunk/spec/macruby/tags/macruby/language/objc_method_tags.txt 2010-04-21 04:34:41 UTC (rev 3951) @@ -1,3 +0,0 @@ -fails:A pure Objective-C method can be called with #foo= if it matches the #setFoo pattern -fails:A pure Objective-C method can be called on an immediate object -fails:A pure MacRuby method can be forwarded by NSUndoManager

1 0

[3950] MacRuby/trunk/NSString.m
by source_changes＠macosforge.org 21 Apr '10

21 Apr '10

Revision: 3950 http://trac.macosforge.org/projects/ruby/changeset/3950 Author: lsansonetti(a)apple.com Date: 2010-04-20 21:06:20 -0700 (Tue, 20 Apr 2010) Log Message: ----------- pass 0 as the class Modified Paths: -------------- MacRuby/trunk/NSString.m Modified: MacRuby/trunk/NSString.m =================================================================== --- MacRuby/trunk/NSString.m 2010-04-21 03:51:32 UTC (rev 3949) +++ MacRuby/trunk/NSString.m 2010-04-21 04:06:20 UTC (rev 3950) @@ -174,8 +174,7 @@ nsstr_forward(id rcv, SEL sel, int argc, VALUE *argv) { return rb_vm_call_with_cache2(rb_vm_get_call_cache(sel), - rb_vm_current_block(), nsstr_to_rstr(rcv), rb_cRubyString, sel, argc, - argv); + rb_vm_current_block(), nsstr_to_rstr(rcv), 0, sel, argc, argv); } static VALUE @@ -183,7 +182,7 @@ { VALUE rcv_rstr = nsstr_to_rstr(rcv); VALUE ret = rb_vm_call_with_cache2(rb_vm_get_call_cache(sel), - rb_vm_current_block(), rcv_rstr, rb_cRubyString, sel, argc, argv); + rb_vm_current_block(), rcv_rstr, 0, sel, argc, argv); [rcv setString:(id)rcv_rstr]; return ret; }

1 0

[3949] MacRuby/trunk
by source_changes＠macosforge.org 21 Apr '10

21 Apr '10

Revision: 3949 http://trac.macosforge.org/projects/ruby/changeset/3949 Author: martinlagardette(a)apple.com Date: 2010-04-20 20:51:32 -0700 (Tue, 20 Apr 2010) Log Message: ----------- Forward the block when forwarding a ruby method call from NSString to RubyString Modified Paths: -------------- MacRuby/trunk/NSString.m MacRuby/trunk/spec/macruby/core/string_spec.rb Modified: MacRuby/trunk/NSString.m =================================================================== --- MacRuby/trunk/NSString.m 2010-04-21 02:29:46 UTC (rev 3948) +++ MacRuby/trunk/NSString.m 2010-04-21 03:51:32 UTC (rev 3949) @@ -173,14 +173,17 @@ static VALUE nsstr_forward(id rcv, SEL sel, int argc, VALUE *argv) { - return rb_vm_call(nsstr_to_rstr(rcv), sel, argc, argv, false); + return rb_vm_call_with_cache2(rb_vm_get_call_cache(sel), + rb_vm_current_block(), nsstr_to_rstr(rcv), rb_cRubyString, sel, argc, + argv); } static VALUE nsstr_forward_bang(id rcv, SEL sel, int argc, VALUE *argv) { VALUE rcv_rstr = nsstr_to_rstr(rcv); - VALUE ret = rb_vm_call(rcv_rstr, sel, argc, argv, false); + VALUE ret = rb_vm_call_with_cache2(rb_vm_get_call_cache(sel), + rb_vm_current_block(), rcv_rstr, rb_cRubyString, sel, argc, argv); [rcv setString:(id)rcv_rstr]; return ret; } Modified: MacRuby/trunk/spec/macruby/core/string_spec.rb =================================================================== --- MacRuby/trunk/spec/macruby/core/string_spec.rb 2010-04-21 02:29:46 UTC (rev 3948) +++ MacRuby/trunk/spec/macruby/core/string_spec.rb 2010-04-21 03:51:32 UTC (rev 3949) @@ -81,4 +81,8 @@ # TODO #lambda { a << 'foo' }.should raise_error(RuntimeError) end + + it "forwards the block when calling a ruby method" do + NSString.stringWithString("ybuRcaM").sub(/.+/) { |s| s.reverse }.should == "MacRuby" + end end

1 0

[3948] MacRuby/trunk/spec/macruby/core/kvc_spec.rb
by source_changes＠macosforge.org 21 Apr '10

21 Apr '10

Revision: 3948 http://trac.macosforge.org/projects/ruby/changeset/3948 Author: lsansonetti(a)apple.com Date: 2010-04-20 19:29:46 -0700 (Tue, 20 Apr 2010) Log Message: ----------- added a spec for subclass KVC attribute overload Modified Paths: -------------- MacRuby/trunk/spec/macruby/core/kvc_spec.rb Modified: MacRuby/trunk/spec/macruby/core/kvc_spec.rb =================================================================== --- MacRuby/trunk/spec/macruby/core/kvc_spec.rb 2010-04-21 02:22:39 UTC (rev 3947) +++ MacRuby/trunk/spec/macruby/core/kvc_spec.rb 2010-04-21 02:29:46 UTC (rev 3948) @@ -232,4 +232,18 @@ w.setWhatever(42) w.whatever.should == 42 end -end \ No newline at end of file +end + +class SubWrapper < Wrapper + def whatever; 'whatever_value'; end +end + +describe "A class inheriting from a class that defines a KVC attribute" do + it "can also re-define it" do + o = SubWrapper.new + o.valueForKey('whatever').should == 'whatever_value' + o.whatever = 'OMG' + o.valueForKey('whatever').should == 'whatever_value' + o.whatever.should == 'whatever_value' + end +end

1 0