paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 06:34:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added writing of array ranges

Browse Source
This commit is contained in:
sg 2003-04-17 14:15:24 +00:00
parent ba9d0abb67
commit 9ee89e71d7
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/fpdoc/dw_html.pp
View File

@ -513,7 +513,7 @@ var
PageDoc: TXMLDocument;
Filename: String;
begin
Engine.output:=IncludeTrailingBackSlash(Engine.output);
Engine.Output := IncludeTrailingBackSlash(Engine.Output);
for i := 0 to PageInfos.Count - 1 do
with TPageInfo(PageInfos[i]) do
begin
@ -1276,10 +1276,9 @@ begin
// Array
if Element.ClassType = TPasArrayType then
begin
AppendKw(CodeEl, 'array ');
AppendText(CreateWarning(CodeEl), '...');
AppendKw(CodeEl, ' of ');
Result := AppendType(CodeEl, TableEl, TPasArrayType(Element).ElType, False);
AppendPasSHFragment(CodeEl,
'array [' + TPasArrayType(Element).IndexRange + '] of ', 0);
Result := AppendType(CodeEl, TableEl, TPasArrayType(Element).ElType, False);
end else
// Procedure or funtion type
if Element.InheritsFrom(TPasProcedureType) then
@ -1702,6 +1701,7 @@ var
begin
AppendMenuBar(0);
AppendTitle(Format(SDocPackageTitle, [Copy(Package.Name, 2, 256)]));
WriteLn('Package Pathname: ', Package.PathName); // ###
AppendShortDescr(CreatePara(BodyElement), Package);
AppendText(CreateH2(BodyElement), SDocUnits);
@ -2578,7 +2578,10 @@ end.
{
$Log$
Revision 1.2 2003-03-18 19:28:44 michael
Revision 1.3 2003-04-17 14:15:24 sg
* Added writing of array ranges
Revision 1.2 2003/03/18 19:28:44 michael
+ Some changes to output handling, more suitable for tex output
Revision 1.1 2003/03/17 23:03:20 michael