File: ok_generic.xml

package info (click to toggle)
pasdoc 0.16.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 33,536 kB
  • sloc: pascal: 28,894; javascript: 7,665; xml: 2,597; makefile: 519; sh: 417
file content (78 lines) | stat: -rw-r--r-- 4,375 bytes parent folder | download 
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
 
<unit name="ok_generic.pas">
  <description><detailed>Tests of generics, both FPC and Delphi style.</detailed></description>
  <type name="TGeometryAttribsList2 = specialize TMyList&lt;TALBuffersCache&gt;;">
  </type>
  <structure name="TMyList" name_with_generic="generic TMyList&lt;T&gt;" type="class">
    <description><detailed>FPC generics tests -------------------------------------------------------</detailed></description>
    <ancestor name="TFPSList" declaration="TFPSList" />
    <function name="Blah" type="function" declaration="function Blah: PT;">
    </function>
  </structure>
  <structure name="TGeometryAttrib" name_with_generic="TGeometryAttrib" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <variable name="Name: string;">
    </variable>
    <variable name="AType: TGeometryAttribType;">
    </variable>
    <variable name="Offset: Integer;">
    </variable>
  </structure>
  <structure name="TGeometryAttribsList" name_with_generic="TGeometryAttribsList" type="class">
    <description><detailed>You can also specialize and make a descendant at the same time.</detailed></description>
    <ancestor name="TMyList" declaration="specialize TMyList&lt;TGeometryAttrib&gt;" />
    <function name="Find" type="function" declaration="function Find(const Name: string): TGeometryAttrib;">
    </function>
  </structure>
  <structure name="TMyObject" name_with_generic="TMyObject" type="class">
    <description><detailed>A simple Test-Object</detailed></description>
    <ancestor name="TObject" declaration="TObject" />
  </structure>
  <structure name="TMyGenericList" name_with_generic="TMyGenericList" type="class">
    <ancestor name="TObjectList" declaration="TObjectList&lt;TMyObject&gt;" />
  </structure>
  <structure name="TMyNewGeneric" name_with_generic="TMyNewGeneric&lt;T1,T2&gt;" type="class">
    <ancestor name="TObject" declaration="TObject" />
    <function name="Blah" type="function" declaration="function Blah: PT;">
    </function>
  </structure>
  <structure name="TAnotherGenericType" name_with_generic="TAnotherGenericType" type="class">
    <description><detailed>Sample for a generic with more than one type. TPair is a Key-Value-Relation</detailed></description>
    <ancestor name="TDictionary" declaration="TDictionary&lt;TObject,TObject&gt;" />
  </structure>
  <structure name="TArray" name_with_generic="TArray" type="class">
    <description><detailed>All standard Generics:</detailed></description>
    <ancestor name="TObject" declaration="TObject" />
  </structure>
  <structure name="TEnumerator" name_with_generic="TEnumerator&lt;T&gt;" type="class">
    <ancestor name="TObject" declaration="TObject" />
  </structure>
  <structure name="TEnumerable" name_with_generic="TEnumerable&lt;T&gt;" type="class">
    <ancestor name="TObject" declaration="TObject" />
  </structure>
  <structure name="TList" name_with_generic="TList&lt;T&gt;" type="class">
    <ancestor name="TEnumerable" declaration="TEnumerable&lt;T&gt;" />
  </structure>
  <structure name="TQueue" name_with_generic="TQueue&lt;T&gt;" type="class">
    <ancestor name="TEnumerable" declaration="TEnumerable&lt;T&gt;" />
  </structure>
  <structure name="TStack" name_with_generic="TStack&lt;T&gt;" type="class">
    <ancestor name="TEnumerable" declaration="TEnumerable&lt;T&gt;" />
  </structure>
  <structure name="TPair" name_with_generic="TPair&lt;TKey,TValue&gt;" type="record">
  </structure>
  <structure name="TDictionary" name_with_generic="TDictionary&lt;TKey,TValue&gt;" type="class">
    <ancestor name="TEnumerable" declaration="TEnumerable&lt;TPair&lt;TKey,TValue&gt;&gt;" />
  </structure>
  <structure name="TObjectList" name_with_generic="TObjectList&lt;T:class&gt;" type="class">
    <ancestor name="TList" declaration="TList&lt;T&gt;" />
  </structure>
  <structure name="TObjectQueue" name_with_generic="TObjectQueue&lt;T:class&gt;" type="class">
    <ancestor name="TQueue" declaration="TQueue&lt;T&gt;" />
  </structure>
  <structure name="TObjectStack" name_with_generic="TObjectStack&lt;T:class&gt;" type="class">
    <ancestor name="TStack" declaration="TStack&lt;T&gt;" />
  </structure>
  <structure name="TObjectDictionary" name_with_generic="TObjectDictionary&lt;TKey,TValue&gt;" type="class">
    <ancestor name="TDictionary" declaration="TDictionary&lt;TKey,TValue&gt;" />
  </structure>
</unit>