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
|
{
Test with:
./finddeclarationtest --format=plain --suite=TestFindDeclaration_ObjCCategory
}
unit fdt_objccategory;
{$mode objfpc}{$H+}
{$ModeSwitch objectivec1}
interface
uses
Classes, SysUtils;
type
{ TMyObjCClassB1 }
TMyObjCClassB1 = objcclass(NSObject)
end;
{ TCategoryA }
TCategoryA = objccategory(NSObject)
procedure categoryAmethod; message 'categoryAmethod';
end;
{ TCategoryB }
TCategoryB = objccategory(TMyObjCClassB1)
procedure categoryBmethod; message 'categoryBmethod';
end;
{ TCategoryC }
TCategoryC = objccategory(TMyObjCClassB1)
// contrary to helpers there can be multiple ObjCCategory active for a class
procedure categoryCmethod; message 'categoryCmethod';
end;
procedure DoIt;
implementation
procedure DoIt;
var
a: TMyObjCClassB1;
begin
a:=TMyObjCClassB1.alloc.init{declaration:objcbase.NSObject.init};
a.categoryAmethod{declaration:fdt_objccategory.TCategoryA.categoryAmethod};
a.categoryBmethod{declaration:fdt_objccategory.TCategoryB.categoryBmethod};
a.categoryCmethod{declaration:fdt_objccategory.TCategoryC.categoryCmethod};
a.dealloc;
end;
{ TCategoryA }
procedure TCategoryA.categoryAmethod;
begin
end;
{ TCategoryB }
procedure TCategoryB.categoryBmethod;
begin
end;
{ TCategoryC }
procedure TCategoryC.categoryCmethod;
begin
end;
end.
|
