paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small fix from Andrew Haines to fix dos paths in CHM files

Browse Source 
git-svn-id: trunk@12234 -
This commit is contained in:
michael 2008-11-26 19:04:20 +00:00
parent 109dddc439
commit 790a6a01b7
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
utils/fpdoc/dw_htmlchm.inc
View File

@ -179,12 +179,12 @@ begin
// by unit // by unit
TmpItem := ObjUnitItem.Children.NewItem; TmpItem := ObjUnitItem.Children.NewItem;
TmpItem.Text := Element.Name; TmpItem.Text := Element.Name;
TmpItem.Local := Allocator.GetFilename(Element, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(Element, 0));
//alpha //alpha
TmpItem := GetAlphaItem(AlphaObjItem.Children, UpperCase(Copy(Element.Name, 1, 2))).Children.NewItem; TmpItem := GetAlphaItem(AlphaObjItem.Children, UpperCase(Copy(Element.Name, 1, 2))).Children.NewItem;
TmpItem.Text := Element.Name; TmpItem.Text := Element.Name;
TmpItem.Local := Allocator.GetFilename(Element, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(Element, 0));
end; end;
@ -195,12 +195,12 @@ begin
// by unit // by unit
TmpItem := RoutinesUnitItem.Children.NewItem; TmpItem := RoutinesUnitItem.Children.NewItem;
TmpItem.Text := Element.Name; TmpItem.Text := Element.Name;
TmpItem.Local := Allocator.GetFilename(Element, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(Element, 0));
// alpha // alpha
TmpItem := GetAlphaItem(AlphaRoutinesItem.Children, UpperCase(Element.Name[1])).Children.NewItem; TmpItem := GetAlphaItem(AlphaRoutinesItem.Children, UpperCase(Element.Name[1])).Children.NewItem;
TmpItem.Text := Element.Name; TmpItem.Text := Element.Name;
TmpItem.Local := Allocator.GetFilename(Element, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(Element, 0));
end; end;
end; end;
end; end;
@ -287,7 +287,7 @@ begin
AModule := TPasModule(Package.Modules[i]); AModule := TPasModule(Package.Modules[i]);
ParentItem := Index.Items.NewItem; ParentItem := Index.Items.NewItem;
ParentItem.Text := AModule.Name; ParentItem.Text := AModule.Name;
ParentItem.Local := Allocator.GetFilename(AModule, 0); ParentItem.Local := FixHTMLpath(Allocator.GetFilename(AModule, 0));
// classes // classes
for j := 0 to AModule.InterfaceSection.Classes.Count-1 do for j := 0 to AModule.InterfaceSection.Classes.Count-1 do
@ -295,7 +295,7 @@ begin
ParentElement := TPasClassType(AModule.InterfaceSection.Classes[j]); ParentElement := TPasClassType(AModule.InterfaceSection.Classes[j]);
ParentItem := Index.Items.NewItem; ParentItem := Index.Items.NewItem;
ParentItem.Text := ParentELement.Name; ParentItem.Text := ParentELement.Name;
ParentItem.Local := Allocator.GetFilename(ParentElement, 0); ParentItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
for k := 0 to TPasClassType(ParentElement).Members.Count-1 do for k := 0 to TPasClassType(ParentElement).Members.Count-1 do
begin begin
TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]); TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]);
@ -314,7 +314,7 @@ begin
cmtInterface : TmpItem.Text := TmpElement.Name + ' interface'; cmtInterface : TmpItem.Text := TmpElement.Name + ' interface';
cmtUnknown : TmpItem.Text := TmpElement.Name; cmtUnknown : TmpItem.Text := TmpElement.Name;
end; end;
TmpItem.Local := Allocator.GetFilename(TmpElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(TmpElement, 0));
{ {
ParentElement = Class ParentElement = Class
TmpElement = Member TmpElement = Member
@ -322,11 +322,11 @@ begin
MemberItem := nil; MemberItem := nil;
MemberItem := GetAlphaItem(Index.Items, TmpElement.Name); MemberItem := GetAlphaItem(Index.Items, TmpElement.Name);
// ahh! if MemberItem.Local is empty MemberType is not shown! // ahh! if MemberItem.Local is empty MemberType is not shown!
MemberItem.Local := Allocator.GetFilename(TmpElement, 0); MemberItem.Local := FixHTMLpath(Allocator.GetFilename(TmpElement, 0));
TmpItem := MemberItem.Children.NewItem; TmpItem := MemberItem.Children.NewItem;
TmpItem.Text := ParentElement.Name; TmpItem.Text := ParentElement.Name;
TmpITem.Local := Allocator.GetFilename(TmpElement, 0); TmpITem.Local := FixHTMLpath(Allocator.GetFilename(TmpElement, 0));
end; end;
end; end;
// routines // routines
@ -335,7 +335,7 @@ begin
ParentElement := TPasProcedureType(AModule.InterfaceSection.Functions[j]); ParentElement := TPasProcedureType(AModule.InterfaceSection.Functions[j]);
TmpItem := Index.Items.NewItem; TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name + ' ' + TPasFunction(ParentElement).ElementTypeName; TmpItem.Text := ParentElement.Name + ' ' + TPasFunction(ParentElement).ElementTypeName;
TmpItem.Local := Allocator.GetFilename(ParentElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
end; end;
// consts // consts
for j := 0 to AModule.InterfaceSection.Consts.Count-1 do for j := 0 to AModule.InterfaceSection.Consts.Count-1 do
@ -343,7 +343,7 @@ begin
ParentElement := TPasElement(AModule.InterfaceSection.Consts[j]); ParentElement := TPasElement(AModule.InterfaceSection.Consts[j]);
TmpItem := Index.Items.NewItem; TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name; TmpItem.Text := ParentElement.Name;
TmpItem.Local := Allocator.GetFilename(ParentElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
end; end;
// types // types
for j := 0 to AModule.InterfaceSection.Types.Count-1 do for j := 0 to AModule.InterfaceSection.Types.Count-1 do
@ -351,7 +351,7 @@ begin
ParentElement := TPasType(AModule.InterfaceSection.Types[j]); ParentElement := TPasType(AModule.InterfaceSection.Types[j]);
TmpItem := Index.Items.NewItem; TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name; TmpItem.Text := ParentElement.Name;
TmpItem.Local := Allocator.GetFilename(ParentElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
// enums // enums
if ParentELement is TPasEnumType then if ParentELement is TPasEnumType then
begin begin
@ -376,7 +376,7 @@ begin
ParentElement := TPasElement(AModule.InterfaceSection.Variables[j]); ParentElement := TPasElement(AModule.InterfaceSection.Variables[j]);
TmpItem := Index.Items.NewItem; TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name + ' var'; TmpItem.Text := ParentElement.Name + ' var';
TmpItem.Local := Allocator.GetFilename(ParentElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
end; end;
// declarations // declarations
{ {
@ -385,7 +385,7 @@ begin
ParentElement := TPasElement(AModule.InterfaceSection.Declarations[j]); ParentElement := TPasElement(AModule.InterfaceSection.Declarations[j]);
TmpItem := Index.Items.NewItem; TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name; TmpItem.Text := ParentElement.Name;
TmpItem.Local := Allocator.GetFilename(ParentElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
end; end;
// resource strings // resource strings
for j := 0 to AModule.InterfaceSection.ResStrings.Count-1 do for j := 0 to AModule.InterfaceSection.ResStrings.Count-1 do
@ -393,7 +393,7 @@ begin
ParentElement := TPasElement(AModule.InterfaceSection.ResStrings[j]); ParentElement := TPasElement(AModule.InterfaceSection.ResStrings[j]);
TmpItem := Index.Items.NewItem; TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name; TmpItem.Text := ParentElement.Name;
TmpItem.Local := Allocator.GetFilename(ParentElement, 0); TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
end; end;
} }
end; end;