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

Add -ll option to use longlog file

Browse Source 
git-svn-id: trunk@26216 -
This commit is contained in:
pierre 2013-12-11 12:21:10 +00:00
parent ffba5aee60
commit 360f53b742
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/utils/prepup.pp
View File

@ -20,6 +20,9 @@ program prepup;
uses
sysutils,libtar,zstream;
const
use_longlog : boolean = false;
var
tarwriter : ttarwriter;
c : tgzfilestream;
@ -64,18 +67,32 @@ Begin
domask('*.log');
End;
var
index : longint;
begin
index:=1;
if paramcount<>1 then
begin
writeln('Usage: prepup <name of .tar.gz>');
halt(1);
if paramstr(1)='-ll' then
begin
use_longlog:=true;
index:=2;
end
else
begin
writeln('Usage: prepup [-ll] <name of .tar.gz>');
Writeln('Optional -ll parameter is used to specify use of longlog');
halt(1);
end
end;
C:=TGZFileStream.Create(paramstr(1),gzOpenWrite);
C:=TGZFileStream.Create(paramstr(index),gzOpenWrite);
TarWriter := TTarWriter.Create (C);
dosearch('.');
if not use_longlog then
dosearch('.');
TarWriter.AddFile('dbdigest.cfg');
TarWriter.AddFile('log');
if use_longlog then
TarWriter.AddFile('longlog');
TarWriter.free;
c.free;
end.