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

+ revision is now written as well

Browse Source 
git-svn-id: trunk@64 -
This commit is contained in:
florian 2005-05-22 11:34:38 +00:00
parent 61cbb32225
commit 8bb7b7ea08
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/svn2cl.pp
View File

@ -40,7 +40,9 @@ begin
currentmsg:='';
currentauthor:='';
currentdate:='';
currentrevision:='';
{ get revision }
with entry as tdomelement do
currentrevision:=AttribStrings['revision'];
if entry.haschildnodes then
begin
currentinfo:=entry.firstchild;
@ -98,7 +100,11 @@ begin
currentdate:=copy(currentdate,1,16);
{ replaced T }
currentdate[11]:=' ';
writeln(currentdate,' ',currentauthor);
write(currentdate,' ',currentauthor);
if currentrevision<>'' then
writeln(' r',currentrevision)
else
writeln;
writeln;
{ search for common prefix }
maxequal:=65535;