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,md,pd: string;
  lOpts,nonOpts:  tStringList;
begin
  lOpts:=tStringList.create;
  lOpts.add('Ausgabe:');
  lOpts.add('Datei:');
  lOpts.add('Prüfsummen:');
  lOpts.add('leise');
  lOpts.add('unsicher');
  lOpts.add('warten');
  nonOpts:=tStringList.create;
  errorMsg:=checkOptions('A:D:P:luw',lOpts,nil,nonOpts,true);
  lOpts.free;
  while nonOpts.count>0 do begin
    if errorMsg<>'' then
      errorMsg:=errorMsg+#10;
    errorMsg:=errorMsg+'Überzähliges Argument '''+nonOpts[0]+'''!';
    nonOpts.delete(0);
  end;
  nonOpts.free;
  if errorMsg<>'' then
    fehler(errorMsg+#10'Hilfe: man Make');

  if hasOption('l','leise') then
    __ausgabenMaske:=3;

  if hasOption('D','Datei') then
    md:=getOptionValue('D','Datei')
  else
    md:='';

  if hasOption('P','Prüfsummen') then
    pd:=getOptionValue('P','Prüfsummen')
  else
    pd:='';

  mach:=tMach.create(md,pd,hasOption('w','warten'));

  gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3);
  mach.erzeugeRegeln;
  gibAus('Regeln: '+inttostr(mach.anzMglAbh)+', Dateien: '+inttostr(mach.anzDats),3);
  mach.findeWasZuTunIst;
  gibAus('anzuwendende Regeln: '+inttostr(mach.anzMglAbh),3);
  mach.tueWasZuTunIst(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.