paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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

11
utils/svn2cl.pp
View File

@ -56,12 +56,16 @@ 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
if (currentinfo.firstchild is TDOMText) then
currentmsg:=(currentinfo.firstchild as TDOMText).Data currentmsg:=(currentinfo.firstchild as TDOMText).Data
else else
error('Malformed msg node'); error('Malformed msg node');
end end
else
currentmsg:='<empty log message>';
end
else if currentinfo.NodeName='date' then else if currentinfo.NodeName='date' then
begin begin
if currentinfo.haschildnodes and if currentinfo.haschildnodes and
@ -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;