lircd.conf

/etc/lirc/

/etc/

ubuntu 9.10

program bhir;
{$mode objfpc}{$H+}
uses
  Classes, SysUtils, crt;
type
  TReCode=record
    ScanCode:array[1..4] of char;
    Outp:String[20];
  end;
  PReCode=^TReCode;
const bh_device='/dev/input/event4';
      Escape=27;
      bh_pwr:TReCode=(ScanCode:#01#00#$74#00;Outp:'q');
      bh_fun:TReCode=(ScanCode:#01#00#$81#01;Outp:'f');
      bh_0:TReCode=(ScanCode:#01#00#$0B#00;Outp:'');//TODO!
      bh_1:TReCode=(ScanCode:#01#00#$02#00;Outp:'');
      bh_2:TReCode=(ScanCode:#01#00#$03#00;Outp:'');
      bh_3:TReCode=(ScanCode:#01#00#$04#00;Outp:'');
      bh_4:TReCode=(ScanCode:#01#00#$05#00;Outp:'');
      bh_5:TReCode=(ScanCode:#01#00#$06#00;Outp:'');
      bh_6:TReCode=(ScanCode:#01#00#$07#00;Outp:'');
      bh_7:TReCode=(ScanCode:#01#00#$08#00;Outp:'');
      bh_8:TReCode=(ScanCode:#01#00#$09#00;Outp:'');
      bh_9:TReCode=(ScanCode:#01#00#$0A#00;Outp:'');
      bh_left:TReCode=(ScanCode:#01#00#$69#00;Outp:'9');
      bh_right:TReCode=(ScanCode:#01#00#$6A#00;Outp:'0');
      bh_up:TReCode=(ScanCode:#01#00#$67#00;Outp:'h'{'tv_step_channel 1'#10#13});
      bh_down:TReCode=(ScanCode:#01#00#$6C#00;Outp:'k'{'tv_step_channel -1'#10#13});
      bh_mute:TReCode=(ScanCode:#01#00#$71#00;Outp:'m');
var
  ScanBuf:string;
  c:char;
  i: Integer;
  k: Integer;
  Dup:string;
  RecCodes:TList;
procedure InitRecCodes;
begin
  RecCodes:=TList.Create;
  RecCodes.Add(@bh_pwr);
  RecCodes.Add(@bh_fun);
  RecCodes.Add(@bh_left);
  RecCodes.Add(@bh_right);
  RecCodes.Add(@bh_up);
  RecCodes.Add(@bh_down);
  RecCodes.Add(@bh_mute);
end;

begin
  InitRecCodes;
  ScanBuf:='';Dup:='';
  while true do
  begin
    c:=ReadKey;
    if c<>#01 then continue;
    ScanBuf:=c;
    for i:=1 to 3 do
      begin
        c:=ReadKey;
        ScanBuf:=ScanBuf+c;
      end;
    k:=-1;
    for i:=0 to RecCodes.Count-1 do
      if ScanBuf=PReCode(RecCodes[i])^.ScanCode then begin k:=i;break;end;
    if k=-1 then continue;
    ScanBuf:=PReCode(RecCodes[k])^.Outp;
    if Dup<>ScanBuf then
      begin Write(ScanBuf);     Dup:=ScanBuf;
      end
        else Dup:='';

    if ScanBuf='q' then break;
  end;
  RecCodes.Free;

end.

program bhird;
{$mode objfpc}{$H+}
uses
  crt,unix,sysutils;
const PWR:String[5]=#01#00#$74#00;
var
  c: Char;
  Buf:string;
  k: Integer;
  Found,Found2:boolean;
begin
  Found:=false;Found2:=false;
  While true do begin
    k:=0;Buf:='';
    repeat
      c:=ReadKey;
      Buf:=Buf+c;inc(k);
    until (k=length(Pwr))or(c<>PWR[k]);
    if Buf=Pwr then
    begin
      //Writeln('Found!!! ',Found);
      if found2 then Found2:=false else
      if not Found then Found:=true else
        begin
     fpSystem(ExtractFilePath(ParamStr(0))+DirectorySeparator+'bhir |mplayer tv://');
          Found:=false;Found2:=true;
        end;
    end;
  end;
end.

#!/bin/sh
killall bhir
killall bhird
killall cat
cat /dev/input/event4|/usr/local/bin/bhird