blob: b45f1b444ede7f8c2710d0d82e4c447610dcfe97 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
/* { 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);
}
|
