gistfile1.m

@import <Foundation/CPObject.j>

// bad class name. need something better.

@implementation CPFunctionForwarder : CPObject
{
    CPDictionary _implementations;
}

- (id)init
{
    if (self = [super init])
        _implementations = [CPDictionary dictionary];

    return self;
}

// used like this:
// [CPFunctionForwarder objectWithFunctionsForSelectors: 
//     function(self, cmd, foo, bar, baz) {},
//     @"methodWithParameter:andAnother:lastOne:"];
//
// obviously, you can respond to as many selectors as you like
// debatable whether or not to strip self and cmd from the params

+ (id)objectWithFunctionsForSelectors:(id)anObject,...
{
    var object = [[self alloc] init];

    for(var i = 2; i < arguments.length; i+=2)
    {
        var selector = arguments[i],
            implementation = arguments[i+1];

        if (!selector || !implementation)
            break;

        [_implementations setValue:implementation forKey:selector];
    }

    return object;
}

- (void)forwardInvocation:(CPInvocation)anInvocation
{
    var implementation = [_implementations objectForKey:[anInvocation selector]];
    
    if (implementation)
    {
        var returnValue = implementation.apply(self, [anInvocation arguments]);
        [anInvocation setReturnValue:returnValue];
    }
    else
        [super forwardInvocation:anInvocation];
}

@end