paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +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;
If (ASubPageIndex=0) then
CreatePackagePageBody
else
else if ASubPageIndex=IndexSubIndex then
CreatePackageIndex
end
else
@ -2164,6 +2164,8 @@ procedure THTMLWriter.CreateIndexPage(L : TStringList);
Var
Lists : Array['A'..'Z'] of TStringList;
LOther : TStringList;
CL : TStringList;
TableEl, TREl, EL: TDOMElement;
E : TPasElement;
@ -2186,7 +2188,9 @@ begin
If (S<>'') then
begin
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
CL:=TStringList.Create;
Lists[C]:=CL;
@ -2280,7 +2284,6 @@ end;
procedure THTMLWriter.CreatePackageIndex;
Var
L : TStringList;
I : Integer;