From b9c20a33545687819cccdddfb4ef703f1cf54a67 Mon Sep 17 00:00:00 2001
From: hofrichter <hofrichter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 26 Oct 2015 01:36:00 +0000
Subject: [PATCH] 70_PIONEERAVR.pm: addressed an issue with the reading display
 and jsonlist/jsonlist2

git-svn-id: https://svn.fhem.de/fhem/trunk@9683 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/70_PIONEERAVR.pm | 266 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 264 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/70_PIONEERAVR.pm b/fhem/FHEM/70_PIONEERAVR.pm
index f333b20e5..e13f7fc8d 100644
--- a/fhem/FHEM/70_PIONEERAVR.pm
+++ b/fhem/FHEM/70_PIONEERAVR.pm
@@ -39,7 +39,6 @@
 # match for devices/Dispatch() ???
 # random/repeat attributes
 # remote control layout (dynamic depending on available/current input?)
-# handle special chars in display
 # suppress the "on" command if networkStandby = "off"
 # 
 
@@ -913,6 +912,266 @@ PIONEERAVR_Define($$) {
 	"99"=>"(Indeterminate)"
   };
   
+  # translation for chars (for the display)
+  $hash->{helper}{CHARS} = {
+	"00"=>" ",
+	"01"=>" ",
+	"02"=>" ",
+	"03"=>" ",
+	"04"=>" ",
+	"05"=>"[)",
+	"06"=>"(]",
+	"07"=>"I",
+	"08"=>"II",
+	"09"=>"<",
+	"0A"=>">",
+	"0B"=>"_",
+	"0C"=>".",
+	"0D"=>".0",
+	"0E"=>".5",
+	"0F"=>"Ω",
+	"10"=>"0",
+	"11"=>"1",
+	"12"=>"2",
+	"13"=>"3",
+	"14"=>"4",
+	"15"=>"5",
+	"16"=>"6",
+	"17"=>"7",
+	"18"=>"8",
+	"19"=>"9",
+	"1A"=>"A",
+	"1B"=>"B",
+	"1C"=>"C",
+	"1D"=>"F",
+	"1E"=>"M",
+	"1F"=>"¯",
+	"20"=>" ",
+	"21"=>"!",
+	"22"=>" ",
+	"23"=>"#",
+	"24"=>"\$",
+	"25"=>"%",
+	"26"=>"&",
+	"27"=>" ",
+	"28"=>"(",
+	"29"=>")",
+	"2A"=>"*",
+	"2B"=>"+",
+	"2C"=>",",
+	"2D"=>"-",
+	"2E"=>".",
+	"2F"=>"/",
+	"30"=>"0",
+	"31"=>"1",
+	"32"=>"2",
+	"33"=>"3",
+	"34"=>"4",
+	"35"=>"5",
+	"36"=>"6",
+	"37"=>"7",
+	"38"=>"8",
+	"39"=>"9",
+	"3A"=>":",
+	"3B"=>";",
+	"3C"=>"<",
+	"3D"=>"=",
+	"3E"=>">",
+	"3F"=>"?",
+	"40"=>"@",
+	"41"=>"A",
+	"42"=>"B",
+	"43"=>"C",
+	"44"=>"D",
+	"45"=>"E",
+	"46"=>"F",
+	"47"=>"G",
+	"48"=>"H",
+	"49"=>"I",
+	"4A"=>"J",
+	"4B"=>"K",
+	"4C"=>"L",
+	"4D"=>"M",
+	"4E"=>"N",
+	"4F"=>"O",
+	"50"=>"P",
+	"51"=>"Q",
+	"52"=>"R",
+	"53"=>"S",
+	"54"=>"T",
+	"55"=>"U",
+	"56"=>"V",
+	"57"=>"W",
+	"58"=>"X",
+	"59"=>"Y",
+	"5A"=>"Z",
+	"5B"=>"[",
+	"5C"=>" ",
+	"5D"=>"]",
+	"5E"=>"^",
+	"5F"=>"_",
+	"60"=>"||",
+	"61"=>"a",
+	"62"=>"b",
+	"63"=>"c",
+	"64"=>"d",
+	"65"=>"e",
+	"66"=>"f",
+	"67"=>"g",
+	"68"=>"h",
+	"69"=>"i",
+	"6A"=>"j",
+	"6B"=>"k",
+	"6C"=>"l",
+	"6D"=>"m",
+	"6E"=>"n",
+	"6F"=>"o",
+	"70"=>"p",
+	"71"=>"q",
+	"72"=>"r",
+	"73"=>"s",
+	"74"=>"t",
+	"75"=>"u",
+	"76"=>"v",
+	"77"=>"w",
+	"78"=>"x",
+	"79"=>"y",
+	"7A"=>"z",
+	"7B"=>"{",
+	"7C"=>"|",
+	"7D"=>"}",
+	"7E"=>"~",
+	"7F"=>" ",
+	"80"=>"Œ",
+	"81"=>"œ",
+	"82"=>"IJ",
+	"83"=>"ij",
+	"84"=>"π",
+	"85"=>" ",
+	"86"=>" ",
+	"87"=>" ",
+	"88"=>" ",
+	"89"=>" ",
+	"8A"=>" ",
+	"8B"=>" ",
+	"8C"=>"←",
+	"8D"=>"↑",
+	"8E"=>"→",
+	"8F"=>"↓",
+	"90"=>"+",
+	"91"=>"♪",
+	"92"=>" ",
+	"93"=>" ",
+	"94"=>" ",
+	"95"=>" ",
+	"96"=>" ",
+	"97"=>" ",
+	"98"=>" ",
+	"99"=>" ",
+	"9A"=>" ",
+	"9B"=>" ",
+	"9C"=>" ",
+	"9D"=>" ",
+	"9E"=>" ",
+	"9F"=>" ",
+	"A0"=>" ",
+	"A1"=>"¡",
+	"A2"=>"¢",
+	"A3"=>"£",
+	"A4"=>"¤",
+	"A5"=>"¥",
+	"A6"=>"¦",
+	"A7"=>"§",
+	"A8"=>"¨",
+	"A9"=>"©",
+	"AA"=>"ª",
+	"AB"=>"«",
+	"AC"=>"¬",
+	"AD"=>"-",
+	"AE"=>"®",
+	"AF"=>"¯",
+	"B0"=>"°",
+	"B1"=>"±",
+	"B2"=>"²",
+	"B3"=>"³",
+	"B4"=>"´",
+	"B5"=>"µ",
+	"B6"=>"¶",
+	"B7"=>"·",
+	"B8"=>"¸",
+	"B9"=>"¹",
+	"BA"=>"º",
+	"BB"=>"»",
+	"BC"=>"¼",
+	"BD"=>"½",
+	"BE"=>"¾",
+	"BF"=>"¿",
+	"C0"=>"À",
+	"C1"=>"Á",
+	"C2"=>"Â",
+	"C3"=>"Ã",
+	"C4"=>"Ä",
+	"C5"=>"Å",
+	"C6"=>"Æ",
+	"C7"=>"Ç",
+	"C8"=>"È",
+	"C9"=>"É",
+	"CA"=>"Ê",
+	"CB"=>"Ë",
+	"CC"=>"Ì",
+	"CD"=>"Í",
+	"CE"=>"Î",
+	"CF"=>"ï",
+	"D0"=>"Ð",
+	"D1"=>"Ñ",
+	"D2"=>"Ò",
+	"D3"=>"Ó",
+	"D4"=>"Ô",
+	"D5"=>"Õ",
+	"D6"=>"Ö",
+	"D7"=>"×",
+	"D8"=>"Ø",
+	"D9"=>"Ù",
+	"DA"=>"Ú",
+	"DB"=>"Û",
+	"DC"=>"Ü",
+	"DD"=>"Ý",
+	"DE"=>"Þ",
+	"DF"=>"ß",
+	"E0"=>"à",
+	"E1"=>"á",
+	"E2"=>"â",
+	"E3"=>"ã",
+	"E4"=>"ä",
+	"E5"=>"å",
+	"E6"=>"æ",
+	"E7"=>"ç",
+	"E8"=>"è",
+	"E9"=>"é",
+	"EA"=>"ê",
+	"EB"=>"ë",
+	"EC"=>"ì",
+	"ED"=>"í",
+	"EE"=>"î",
+	"EF"=>"ï",
+	"F0"=>"ð",
+	"F1"=>"ñ",
+	"F2"=>"ò",
+	"F3"=>"ó",
+	"F4"=>"ô",
+	"F5"=>"õ",
+	"F6"=>"ö",
+	"F7"=>"÷",
+	"F8"=>"ø",
+	"F9"=>"ù",
+	"FA"=>"ú",
+	"FB"=>"û",
+	"FC"=>"ü",
+	"FD"=>"ý",
+	"FE"=>"þ",
+	"FF"=>"ÿ"
+  };
+  
   $hash->{helper}{CLEARONINPUTCHANGE} = {
   	"00"=>"screenLine01",
 	"01"=>"screenLine02",
@@ -2068,8 +2327,11 @@ sub PIONEERAVR_Read($)
 		Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: MCACC memory: selected memory is: $2";	
 		
 	# Display updates
+	# uses a translation table for each letter (char) to display the letters properly
 	} elsif ( substr($line,0,2) eq "FL" ) {
-		my $display = pack("H*",substr($line,4,28));
+		my $hex = substr($line,4,28);
+		my @a = map $hash->{helper}{CHARS}->{$_}, $hex =~ /(..)/g;
+		my $display = join('',@a);
 		readingsBulkUpdate($hash, "displayPrevious", ReadingsVal($name,"display","") );
 		readingsBulkUpdate($hash, "display", $display );
 		Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: Display update to: $display";