Revision: 480 http://trac.macosforge.org/projects/ruby/changeset/480 Author: lsansonetti@apple.com Date: 2008-08-25 18:29:51 -0700 (Mon, 25 Aug 2008) Log Message: ----------- forgot to add this file Added Paths: ----------- MacRuby/trunk/objc.h Added: MacRuby/trunk/objc.h =================================================================== --- MacRuby/trunk/objc.h (rev 0) +++ MacRuby/trunk/objc.h 2008-08-26 01:29:51 UTC (rev 480) @@ -0,0 +1,27 @@ +#ifndef __OBJC_H_ +#define __OBJC_H_ + +static inline void +rb_objc_install_method(Class klass, SEL sel, IMP imp) +{ + Method method, method2; + + method = class_getInstanceMethod(klass, sel); + assert(method != NULL); + + method2 = class_getInstanceMethod((Class)RCLASS_SUPER(klass), sel); + if (method == method2) { + assert(class_addMethod(klass, sel, imp, method_getTypeEncoding(method))); + } + else { + method_setImplementation(method, imp); + } +} + +static inline void +rb_objc_install_method2(Class klass, const char *selname, IMP imp) +{ + rb_objc_install_method(klass, sel_registerName(selname), imp); +} + +#endif /* __OBJC_H_ */ Property changes on: MacRuby/trunk/objc.h ___________________________________________________________________ Name: svn:eol-style + native