rt_gccstream/gcc/testsuite/objc/execute/forward-1.m

82 lines
1.5 KiB
Objective-C

/* See if -forward::/-performv:: is able to work. */
#include <stdio.h>
#include <stdlib.h>
#import "../../objc-obj-c++-shared/Object1.h"
#import "../../objc-obj-c++-shared/next-mapping.h"
#include <objc/objc-api.h>
#define VALUETOUSE 1234567890
id forwarder, receiver;
@interface Forwarder: Object
{
id receiver;
}
-initWithReceiver:theReceiver;
@end
@interface Receiver:Object
{
int foo;
}
-display;
-initWithFoo:(int)theFoo;
@end
@implementation Receiver
-initWithFoo: (int)theFoo
{
foo = theFoo;
return self;
}
-display
{
/* 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;
}
#ifdef NEXT_OBJC_USE_NEW_INTERFACE
- forward: (SEL)theSel: (marg_list)theArgFrame
{
#else
-(retval_t) forward: (SEL)theSel: (arglist_t)theArgFrame
{
#endif
/* If we have a reciever try to perform on that object */
if (receiver)
return [receiver performv: theSel: theArgFrame];
return [self doesNotRecognize:theSel];
}
@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);
}