paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +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 end
else if currentinfo.NodeName='msg' then else if currentinfo.NodeName='msg' then
begin begin
if currentinfo.haschildnodes and if currentinfo.haschildnodes then
(currentinfo.firstchild is TDOMText) then begin
currentmsg:=(currentinfo.firstchild as TDOMText).Data if (currentinfo.firstchild is TDOMText) then
currentmsg:=(currentinfo.firstchild as TDOMText).Data
else
error('Malformed msg node');
end
else else
error('Malformed msg node'); currentmsg:='<empty log message>';
end end
else if currentinfo.NodeName='date' then else if currentinfo.NodeName='date' then
begin begin
@ -126,6 +130,9 @@ begin
end; end;
if pathtemp<>' ' then if pathtemp<>' ' then
writeln(pathtemp); writeln(pathtemp);
{ truncate trailing new line }
while currentmsg[length(currentmsg)] in [#13,#10] do
delete(currentmsg,length(currentmsg),1);
writeln; writeln;
writeln(' ',currentmsg); writeln(' ',currentmsg);
writeln; writeln;