paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* list interfaces in html declaration

Browse Source 
git-svn-id: trunk@15794 -
This commit is contained in:
marco 2010-08-13 10:19:54 +00:00
parent 89593064f7
commit 17b15e762d
3 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/src/pastree.pp
View File

@ -452,6 +452,7 @@ type
ClassVars: TList; // class vars
Modifiers: TStringList;
Interfaces : TList;
end;
TArgumentAccess = (argDefault, argConst, argVar, argOut);
@ -1303,6 +1304,7 @@ begin
Members := TList.Create;
Modifiers := TStringList.Create;
ClassVars := TList.Create;
Interfaces:= TList.Create;
end;
destructor TPasClassType.Destroy;
@ -1316,6 +1318,7 @@ begin
AncestorType.Release;
Modifiers.Free;
ClassVars.Free;
Interfaces.Free;
inherited Destroy;
end;

5
packages/fcl-passrc/src/pparser.pp
View File

@ -3204,7 +3204,10 @@ begin
break;
UngetToken;
ExpectToken(tkComma);
ExpectIdentifier;
//ExpectIdentifier;
Element:=ParseType(Nil); // search interface.
if assigned(element) then
TPasClassType(Result).Interfaces.add(element);
// !!!: Store interface name
end;
NextToken;

8
utils/fpdoc/dw_html.pp
View File

@ -2847,6 +2847,14 @@ var
begin
AppendSym(CodeEl, '(');
AppendHyperlink(CodeEl, AClass.AncestorType);
if AClass.Interfaces.count>0 Then
begin
for i:=0 to AClass.interfaces.count-1 do
begin
AppendSym(CodeEl, ',');
AppendText(CodeEl,TPasClassType(AClass.Interfaces[i]).Name);
end;
end;
AppendSym(CodeEl, ')');
end;