MacRuby : blocks as property

blocks.h

#import <Foundation/Foundation.h>

@interface TestBlocks : NSObject {
    void (^func)(id);
}
@property (nonatomic, copy) void (^func)(id);

- (void)dealloc;
- (void)exec;

@end

blocks.m

#include "blocks.h"

@implementation TestBlocks
@synthesize func;

- (void)dealloc
{
    [func release];
    [super dealloc];
}

- (void)exec {
    if (self.func) {
	self.func(@"test");
    }
}
@end

// For MacRuby
void Init_Blocks(void) {}


// gcc blocks.m -framework Foundation
// ./a.out
int main(void)
{
    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];

    TestBlocks *block = [[TestBlocks alloc] init];

    void (^func)(id) = ^(id v){
	NSLog(@"%@", v);
	NSLog(@"hello.....");
    };
    block.func = func;
    [block exec];

    [pool release];
    return 0;
}

extconf.rb

require "mkmf"
$CFLAGS << ' -fobjc-gc '
create_makefile("Blocks")

test_blocks.rb

require 'Blocks'
load_bridge_support_file 'Blocks.bridgesupport'

b = TestBlocks.new
b.func = Proc.new do |v|
  p v
  p "hello....."
end

b.exec

$ gen_bridge_metadata -c '-I.' blocks.h > Blocks.bridgesupport
$ macruby extconf.rb
$ make
$ macruby test_blocks.rb 
"test"
"hello....."