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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
//
// NativeMethods.m
// CamelBones
//
// Copyright (c) 2004 Sherm Pendley. All rights reserved.
//
#import "Conversions.h"
#import "NativeMethods.h"
#import "Structs.h"
// Call a native class or object method
SV * CBCallNativeMethod(id target, SEL sel, SV *args) {
// Define a Perl context
dTHX;
int i = 0;
SV *ret = newSViv(0);
NSMethodSignature *ms = [target methodSignatureForSelector: sel];
NSInvocation *inv = [NSInvocation invocationWithMethodSignature: ms];
NSString *returnType = [NSString stringWithUTF8String: [ms methodReturnType]];
NSString *selName = NSStringFromSelector(sel);
[inv setTarget: target];
[inv setSelector: sel];
for(i=2; i < [ms numberOfArguments]; i++) {
NSString *argType = [NSString stringWithUTF8String: [ms getArgumentTypeAtIndex: i]];
AV *av = (AV *)SvRV(args);
SV **sv = av_fetch(av, i-2, 0);
SV *argSV = sv ? *sv : NULL;
if (!argSV) {
break;
}
if ([argType hasPrefix: @"@"]) {
id arg = CBDerefSVtoID(argSV);
[inv setArgument: &arg atIndex: i];
} else if ([argType hasPrefix: @"i"]) {
int intArg = SvIV(argSV);
[inv setArgument: &intArg atIndex: i];
} else if ([argType hasPrefix: @"I"]) {
unsigned int unsignedArg = SvUV(argSV);
[inv setArgument: &unsignedArg atIndex: i];
} else if ([argType hasPrefix: @"c"]) {
char charArg = SvIV(argSV);
[inv setArgument: &charArg atIndex: i];
} else if ([argType hasPrefix: @"C"]) {
unsigned char unsignedCharArg = SvUV(argSV);
[inv setArgument: &unsignedCharArg atIndex: i];
} else if ([argType hasPrefix: @"f"]) {
float floatArg = SvNV(argSV);
[inv setArgument: &floatArg atIndex: i];
} else if ([argType hasPrefix: @"d"]) {
double doubleArg = SvNV(argSV);
[inv setArgument: &doubleArg atIndex: i];
} else if ([argType hasPrefix: @"*"] || [argType hasPrefix: @"r*"]) {
if (SvPOK(argSV)) {
char *arg = SvPV(argSV, PL_na);
[inv setArgument: &arg atIndex: i];
} else {
NSLog(@"Invalid argument type found in position %d of call to %@ - string expected", i-2, selName);
}
} else if ([argType hasPrefix: @"{"]) {
if ([argType rangeOfString: @"NSPoint"].location < 3) {
NSPoint pointArg = CBPointFromSV(argSV);
[inv setArgument: &pointArg atIndex: i];
} else if ([argType rangeOfString: @"NSRange"].location < 3) {
NSRange rangeArg = CBRangeFromSV(argSV);
[inv setArgument: &rangeArg atIndex: i];
} else if ([argType rangeOfString: @"NSRect"].location < 3) {
NSRect rectArg = CBRectFromSV(argSV);
[inv setArgument: &rectArg atIndex: i];
} else if ([argType rangeOfString: @"NSSize"].location < 3) {
NSSize sizeArg = CBSizeFromSV(argSV);
[inv setArgument: &sizeArg atIndex: i];
} else {
NSLog(@"Unhandled struct type %@ found in position %d of call to %@", argType, i-2, selName);
}
} else if ([argType hasPrefix: @":"]) {
NSString *stringArg = [NSString stringWithUTF8String: SvPV(argSV, PL_na)];
SEL selArg = NSSelectorFromString(stringArg);
[inv setArgument: &selArg atIndex: i];
} else if ([argType hasPrefix: @"^v"]) {
// TODO: Think about this...
void *ptrArg = (void*)SvIV(argSV);
[inv setArgument: &ptrArg atIndex: i];
} else {
NSLog(@"Unhandled argument type %@ in position %d of call to %@", argType, i-2, selName);
}
}
// Magic happens here. :-)
[inv invoke];
if ([returnType hasPrefix: @"v"]) {
// Nothing to do for void return type
ret = &PL_sv_undef;
} else if ([returnType hasPrefix: @"@"]) {
id retID;
[inv getReturnValue: &retID];
ret = CBDerefIDtoSV(retID);
} else if ([returnType hasPrefix: @"c"]) {
char retChar;
[inv getReturnValue: &retChar];
ret = newSViv(retChar);
} else if ([returnType hasPrefix: @"C"]) {
unsigned char retChar;
[inv getReturnValue: &retChar];
ret = newSVuv(retChar);
} else if ([returnType hasPrefix: @"i"]) {
int retInt;
[inv getReturnValue: &retInt];
ret = newSViv(retInt);
} else if ([returnType hasPrefix: @"I"]) {
unsigned int retUnsigned;
[inv getReturnValue: &retUnsigned];
ret = newSVuv(retUnsigned);
} else if ([returnType hasPrefix: @"f"]) {
float retFloat;
[inv getReturnValue: &retFloat];
ret = newSVnv(retFloat);
} else if ([returnType hasPrefix: @"d"]) {
double retDouble;
[inv getReturnValue: &retDouble];
ret = newSVnv(retDouble);
} else if ([returnType hasPrefix: @"^v"] || [returnType hasPrefix: @"r^v"]) {
void *retPtr;
[inv getReturnValue: &retPtr];
ret = newSViv((int)(retPtr));
} else if ([returnType hasPrefix: @"r*"] || [returnType hasPrefix: @"*"]) {
char *retString;
[inv getReturnValue: &retString];
sv_setpv_mg(ret, retString);
} else if ([returnType hasPrefix: @"{"]) {
if ([returnType rangeOfString: @"NSPoint"].location < 3) {
NSPoint retPoint;
[inv getReturnValue: &retPoint];
ret = CBPointToSV(retPoint);
} else if ([returnType rangeOfString: @"NSRange"].location < 3) {
NSRange retRange;
[inv getReturnValue: &retRange];
ret = CBRangeToSV(retRange);
} else if ([returnType rangeOfString: @"NSRect"].location < 3) {
NSRect retRect;
[inv getReturnValue: &retRect];
ret = CBRectToSV(retRect);
} else if ([returnType rangeOfString: @"NSSize"].location < 3) {
NSSize retSize;
[inv getReturnValue: &retSize];
ret = CBSizeToSV(retSize);
} else {
NSLog(@"Unhandled struct type %@ returned from call to %@", returnType, selName);
}
} else {
NSLog(@"Unhandled return type %@ from call to %@", returnType, selName);
}
return ret;
}
|
