mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 17:53:43 +02:00
52 lines
1.7 KiB
ObjectPascal
52 lines
1.7 KiB
ObjectPascal
(**
|
|
Copyright (c) 2000-2006 by Stefan Heymann
|
|
|
|
See the file COPYING.DESTRUCTOR, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
===============================================================================================
|
|
Name : TarMakerCons
|
|
===============================================================================================
|
|
Project : "TarMakerCons" Demo Application for LibTar.pas
|
|
===============================================================================================
|
|
Subject : Main Window
|
|
===============================================================================================
|
|
Date Author Changes
|
|
-----------------------------------------------------------------------------------------------
|
|
2001-06-19 HeySt Start
|
|
2006-10-20 MvdV Fork from GUI version to Console app for
|
|
easier testing with FPC on various platforms
|
|
*)
|
|
|
|
Program TarMakerCons;
|
|
{$ifdef FPC}
|
|
{$mode Delphi}
|
|
{$endif}
|
|
{$apptype Console}
|
|
Uses SysUtils,LibTar;
|
|
|
|
var p : string;
|
|
d : TSearchRec;
|
|
TarWriter : TTarWriter;
|
|
begin
|
|
if paramcount<1 then
|
|
begin
|
|
Writeln('TarMakerCons, compresses *.pas files into a .tar');
|
|
writeln('Usage : TarMakerCons <filename to create>');
|
|
exit;
|
|
end;
|
|
TarWriter := TTarWriter.Create (paramstr(1));
|
|
if FindFirst('*.pas',faAnyFile-faDirectory,d)=0 Then
|
|
begin
|
|
repeat
|
|
TarWriter.AddFile (d.name);
|
|
until findnext(d)<>0;
|
|
Findclose(d);
|
|
end;
|
|
TarWriter.free;
|
|
end.
|