paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Identifiers can start with _

Browse Source 
git-svn-id: trunk@11174 -
This commit is contained in:
michael 2008-06-02 18:38:09 +00:00
parent 150c9b352c
commit e062a99270
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/fpdoc/dw_html.pp
View File

@ -2131,7 +2131,7 @@ begin
Module:=Nil; Module:=Nil;
If (ASubPageIndex=0) then If (ASubPageIndex=0) then
CreatePackagePageBody CreatePackagePageBody
else else if ASubPageIndex=IndexSubIndex then
CreatePackageIndex CreatePackageIndex
end end
else else
@ -2164,6 +2164,8 @@ procedure THTMLWriter.CreateIndexPage(L : TStringList);
Var Var
Lists : Array['A'..'Z'] of TStringList; Lists : Array['A'..'Z'] of TStringList;
LOther : TStringList;
CL : TStringList; CL : TStringList;
TableEl, TREl, EL: TDOMElement; TableEl, TREl, EL: TDOMElement;
E : TPasElement; E : TPasElement;
@ -2186,7 +2188,9 @@ begin
If (S<>'') then If (S<>'') then
begin begin
C:=Upcase(S[1]); C:=Upcase(S[1]);
If Lists[C]=Nil then If C='_' then
C:='A';
If (C in ['A'..'Z']) and (Lists[C]=Nil) then
begin begin
CL:=TStringList.Create; CL:=TStringList.Create;
Lists[C]:=CL; Lists[C]:=CL;
@ -2280,7 +2284,6 @@ end;
procedure THTMLWriter.CreatePackageIndex; procedure THTMLWriter.CreatePackageIndex;
Var Var
L : TStringList; L : TStringList;
I : Integer; I : Integer;