paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 21:48:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* empty log messages are now handled correctly

Browse Source 
* better handling of trailing new lines in messages

git-svn-id: trunk@47 -
This commit is contained in:
florian 2005-05-21 14:38:17 +00:00
parent bbc61266fe
commit 34f32597a2
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/svn2cl.pp
View File

@ -56,11 +56,15 @@ begin
end
else if currentinfo.NodeName='msg' then
begin
if currentinfo.haschildnodes and
(currentinfo.firstchild is TDOMText) then
currentmsg:=(currentinfo.firstchild as TDOMText).Data
if currentinfo.haschildnodes then
begin
if (currentinfo.firstchild is TDOMText) then
currentmsg:=(currentinfo.firstchild as TDOMText).Data
else
error('Malformed msg node');
end
else
error('Malformed msg node');
currentmsg:='<empty log message>';
end
else if currentinfo.NodeName='date' then
begin
@ -126,6 +130,9 @@ begin
end;
if pathtemp<>' ' then
writeln(pathtemp);
{ truncate trailing new line }
while currentmsg[length(currentmsg)] in [#13,#10] do
delete(currentmsg,length(currentmsg),1);
writeln;
writeln(' ',currentmsg);
writeln;