fpc/packages/fcl-base/examples/tarmakercons.pas

(**
 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.