FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-02 19:15:31 +00:00
Code Issues Releases Wiki Activity

00_RPII2C.pm: modification for I2C_SUSV

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12566 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klauswitt 2016-11-13 17:06:19 +00:00
parent 2e010bf290
commit 574308d328
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/00_RPII2C.pm
View File

@ -4,7 +4,7 @@ package main;
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);
use Time::HiRes qw(gettimeofday usleep);
#use Device::SMBus;
#my $clientsI2C = ":I2C_PC.*:I2C_SHT21:I2C_MCP23017:I2C_BMP180:";
@ -18,6 +18,7 @@ I2C_BME280
I2C_BMP180
I2C_SHT21
I2C_TSL2561
I2C_SUSV
);
my $gpioprg = "/usr/local/bin/gpio"; #WiringPi GPIO utility
@ -486,7 +487,10 @@ sub RPII2C_HWACCESS_ioctl($$) {
last;
}
}
my $buf = undef;
if (defined($clientmsg->{usleep})) {
usleep($clientmsg->{usleep});
}
my $buf = undef;
my $retval = sysread($fh, $buf, 1);
unless (defined($retval) && $retval == 1) {
Log3 $hash, 3, "$hash->{NAME}: HWaccess byteweise von 0x".unpack( "H2",pack "C", $clientmsg->{i2caddress})." lesen,". (defined($clientmsg->{reg}) ? " Reg: 0x". unpack( "H2",pack "C", ($clientmsg->{reg} + $n)) : "") . " -> sysread failure: $!" if $!;
@ -510,6 +514,9 @@ sub RPII2C_HWACCESS_ioctl($$) {
last;
}
}
if (defined($clientmsg->{usleep})) {
usleep($clientmsg->{usleep});
}
my $buf = undef;
my $retval = sysread($fh, $buf, $nbyte);
#Log3 $hash, 1, "test Blockweise lesen menge: |$nbyte|, return: |$retval|, inh: |$buf|";