paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 07:18:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

FPDoc Updater: fixed parsing multiple subnode

Browse Source 
git-svn-id: trunk@12856 -
This commit is contained in:
tombo 2007-11-13 16:03:00 +00:00
parent 8e62d08869
commit 37bad7f489
2 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doceditor/fpdocupdater/fpdocfiles.pas
View File

@ -330,6 +330,7 @@ function TFPDocNode.GetDOMNodeValue(const AName: String): String;
var var
N: TDOMNode; N: TDOMNode;
S: TStringStream; S: TStringStream;
D: TDOMNode;
begin begin
Result := ''; Result := '';
N := FDOMNode.FindNode(AName); N := FDOMNode.FindNode(AName);
@ -338,7 +339,13 @@ begin
S := TStringStream.Create(''); S := TStringStream.Create('');
try try
WriteXML(N.FirstChild, S); D := N.FirstChild;
while D <> nil do
begin
WriteXML(D, S);
D := D.NextSibling;
end;
Result := S.DataString; Result := S.DataString;
finally finally
S.Free; S.Free;

47
doceditor/fpdocupdater/fpdocupdater.lpi
View File

@ -7,7 +7,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="6"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -28,13 +28,13 @@
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="CodeTools"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="CodeTools"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="19"> <Units Count="20">
<Unit0> <Unit0>
<Filename Value="fpdocupdater.lpr"/> <Filename Value="fpdocupdater.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -51,7 +51,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="mainunit.lrs"/> <ResourceFilename Value="mainunit.lrs"/>
<UnitName Value="MainUnit"/> <UnitName Value="MainUnit"/>
<CursorPos X="10" Y="168"/> <CursorPos X="77" Y="168"/>
<TopLine Value="160"/> <TopLine Value="160"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="48"/> <UsageCount Value="48"/>
@ -60,8 +60,8 @@
<Unit2> <Unit2>
<Filename Value="fpdocfiles.pas"/> <Filename Value="fpdocfiles.pas"/>
<UnitName Value="FPDocFiles"/> <UnitName Value="FPDocFiles"/>
<CursorPos X="106" Y="491"/> <CursorPos X="26" Y="346"/>
<TopLine Value="477"/> <TopLine Value="329"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -86,8 +86,8 @@
<Unit5> <Unit5>
<Filename Value="..\..\fpc\2.2.1\source\packages\fcl-xml\src\dom.pp"/> <Filename Value="..\..\fpc\2.2.1\source\packages\fcl-xml\src\dom.pp"/>
<UnitName Value="DOM"/> <UnitName Value="DOM"/>
<CursorPos X="4" Y="1030"/> <CursorPos X="14" Y="223"/>
<TopLine Value="1022"/> <TopLine Value="210"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -189,28 +189,27 @@
<TopLine Value="35"/> <TopLine Value="35"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit18> </Unit18>
<Unit19>
<Filename Value="..\..\fpc\2.2.1\source\packages\fcl-xml\src\xmlwrite.pp"/>
<UnitName Value="XMLWrite"/>
<CursorPos X="11" Y="37"/>
<TopLine Value="24"/>
<UsageCount Value="10"/>
</Unit19>
</Units> </Units>
<JumpHistory Count="5" HistoryIndex="4"> <JumpHistory Count="3" HistoryIndex="2">
<Position1> <Position1>
<Filename Value="mainunit.pas"/> <Filename Value="fpdocfiles.pas"/>
<Caret Line="370" Column="60" TopLine="349"/> <Caret Line="341" Column="9" TopLine="329"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\fpc\2.2.1\source\packages\fcl-xml\src\xmlread.pp"/> <Filename Value="fpdocfiles.pas"/>
<Caret Line="2766" Column="45" TopLine="2750"/> <Caret Line="341" Column="17" TopLine="329"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="mainunit.pas"/> <Filename Value="fpdocfiles.pas"/>
<Caret Line="367" Column="59" TopLine="361"/> <Caret Line="342" Column="10" TopLine="329"/>
</Position3> </Position3>
<Position4>
<Filename Value="mainunit.pas"/>
<Caret Line="167" Column="9" TopLine="153"/>
</Position4>
<Position5>
<Filename Value="mainunit.pas"/>
<Caret Line="334" Column="1" TopLine="319"/>
</Position5>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>