Subversion Repositories openrisc

/* { dg-do run } */

/* See if -forward:: is able to work. */

/* { dg-skip-if "Needs OBJC2 Implementation" { *-*-darwin8* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */

#include <stdio.h>

#include <stdlib.h>

#include "../../objc-obj-c++-shared/TestsuiteObject.m"

#define VALUETOUSE 1234567890

id forwarder, receiver;

@interface Forwarder: TestsuiteObject

{

    id receiver;

}

-initWithReceiver:theReceiver;

@end

@interface Receiver:TestsuiteObject

{

    int foo;

}

-display;

-initWithFoo:(int)theFoo;

@end

@implementation Receiver

-initWithFoo: (int)theFoo

{

    foo = theFoo;

    return self;

}

-display

{

  printf ("Executing display\n");

    /* Check to see if we are really the reciever. */

    if (self != receiver)

        abort ();

    /* And the value of foo is set correctly. */

    if (foo != VALUETOUSE)

      abort ();

    return self;

}

@end

@implementation Forwarder

-initWithReceiver: theReceiver

{

    [super init];

    receiver = theReceiver;

    return self;

}

-(void *) forward: (SEL)theSel: (void *)theArgFrame

{

  /* If we have a reciever try to perform on that object */

    if (receiver)

      {

        /* Simple forward that works for methods with no

           arguments.  */

        typedef id (*method_with_no_args) (id receiver, SEL _cmd);

        Method method = class_getInstanceMethod (object_getClass (receiver),

                                                 theSel);

        method_with_no_args imp = (method_with_no_args)(method_getImplementation

                                                        (method));

        return (*imp)(receiver, theSel);

      }

    /* Normally you'd emit an error here.  */

    printf ("Unrecognized selector\n");

    return NULL;

}

@end

int main()

{

    /* Init the reciever. */

    receiver = [[Receiver alloc] initWithFoo: VALUETOUSE];

    /* Init the fowarder. */

    forwarder = [[Forwarder alloc] initWithReceiver: receiver];

    /* Call display on the forwarder which in turns calls display on

       the reciever. */

    [forwarder display];

    exit(0);

}