program Make;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  classes, sysUtils, custApp
  { you can add units after this },
  lowlevelunit, dateiBeziehungen, systemunit;

type

  { tMake }

  tMake = class(tCustomApplication)
  protected
    procedure doRun; override;
  public
    constructor create(theOwner: tComponent); override;
  end;

{ tMake }

procedure tMake.doRun;
var
  mach:     tMach;
  errorMsg: string;
begin
  errorMsg:=checkOptions('A:D:P:au','Ausgabe: Datei: Prüfsummen: alleSummenErneuern unsicher',true);
  if errorMsg<>'' then
    fehler(errorMsg+#10'Hilfe: man Make');

  mach:=tMach.create;

  if hasOption('D','Datei') then
    mach.machDatei:=getOptionValue('D','Datei')
  else
    mach.machDatei:=myReadLink('Machdatei');

  if hasOption('P','Prüfsummen') then
    mach.pruefsummenDatei:=getOptionValue('P','Prüfsummen')
  else
    mach.setzeGenerischePruefsummenDatei;

  writeln('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats));
  mach.erzeugeRegeln;
  writeln('Regeln: '+inttostr(mach.anzMglAbh)+', Dateien: '+inttostr(mach.anzDats));
  mach.findeWasZuTunIst;
  writeln('anzuwendende Regeln: '+inttostr(mach.anzZtAbh));
  mach.tueWasZuTunIst(hasOption('a','alleSummenErneuern'),hasOption('u','unsicher'),getOptionValue('A','Ausgabe'));

  terminate;
end;

constructor tMake.create(theOwner: tComponent);
begin
  inherited create(theOwner);
  stopOnException:=True;
end;

var
  application: tMake;
begin
  __ausgabenMaske:=1;
  application:=tMake.create(nil);
  application.run;
  application.free;
end.