program fernbedienung;

{$mode objfpc}{$H+}

{$DEFINE UseCThreads}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, lesethreadunit
  { you can add units after this },
  sysutils, lowlevelunit, irdecoderunit;

var
  irDecoder:  tIRDecoder;
  inputDatei: string;
  cnt:        longint;
  watte:      boolean;

begin
  inputDatei:='';
  watte:=false;
  for cnt:=1 to paramcount do begin
    if paramstr(cnt)='-W' then begin
      watte:=true;
      continue;
    end;
    if inputDatei<>'' then
      raise exception.create('Mehr als eine inputDatei angegeben!');
    inputDatei:=paramstr(1);
  end;
  irDecoder:=tIRDecoder.create(inputDatei,extractfilepath(paramstr(0))+'befehle.konf',watte);

  repeat
    repeat
      while irDecoder.zeileVerarbeitet do;
    until not irDecoder.befehlVerarbeitet;
    sleep(100);
  until false;

  irDecoder.free;
end.