File Coverage

blib/lib/Device/I2C/ADV7611.pm

Criterion	Covered	Total	%
statement	44	174	25.2
branch	0	6	0.0
condition	0	9	0.0
subroutine	15	60	25.0
pod	1	45	2.2
total	60	294	20.4

use strict;
use warnings;

package Device::I2C::ADV7611;

# PODNAME: Device::I2C::ADV7611
# ABSTRACT: I2C interface to ADV7611 using Device::I2C
#
# This file is part of Device-I2C-ADV7611
#
# This software is copyright (c) 2016 by Slava Volkov.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
our $VERSION = '0.10'; # VERSION

# Dependencies
use 5.010;
use Device::I2C;
use Fcntl;
use Carp;

use constant CTRL_IO   => 0x4c;
use constant CTRL_HDMI => 0x34;
use constant CTRL_DPLL => 0x3F;
use constant CTRL_CEC  => 0x40;
use constant CTRL_INFO => 0x3E;
use constant CTRL_KSV  => 0x32;
use constant CTRL_EDID => 0x36;
use constant CTRL_CP   => 0x22;

use Exporter qw(import);
our @EXPORT_OK = qw(CTRL_IO CTRL_HDMI CTRL_DPLL CTRL_CEC
  CTRL_INFO CTRL_KSV CTRL_EDID CTRL_CP );
our @ISA = qw(Device::I2C);

sub new {
    my $class = shift;
    @_ == 1
      or croak "usage: $class->new(DEVICENAME)";
    my $io = Device::I2C->new( $_[0], O_RDWR );
    if ( !$io ) {
        croak "Unable to open I2C Device File at $_[0]";
        return undef;
    }
    bless( $io, $class );
    $io;
}

sub resetDevice {
    `echo 0 > /proc/v2r_gpio/98`;
    `echo 1 > /proc/v2r_gpio/98`;
    `echo 0 > /proc/v2r_gpio/99`;
    `echo 1 > /proc/v2r_gpio/99`;
    `echo 0 > /proc/v2r_gpio/pwctr2`;
    sleep(1);
    `echo 1 > /proc/v2r_gpio/pwctr2`;
}

sub writeRegister {
    my ( $io, $addr, $register, $value ) = @_;
    $io->selectDevice($addr);
    $io->writeByteData( $register, $value );
}

sub readRegister {
    my ( $io, $addr, $register ) = @_;
    $io->selectDevice($addr);
    return $io->readByteData($register);
}

sub readRegister16 {
    my ( $io, $addr, $register ) = @_;
    $io->selectDevice($addr);
    my $res = $io->readByteData($register);
    $res <<= 8;
    return $res + $io->readByteData( $register + 1 );
}

sub writeIO {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_IO, $register, $value );
}

sub readIO {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_IO, $register );
}

sub readIO16 {
    my ( $io, $register ) = @_;
    $io->readRegister16( CTRL_IO, $register );
}

sub writeHDMI {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_HDMI, $register, $value );
}

sub readHDMI {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_HDMI, $register );
}

sub readHDMI16 {
    my ( $io, $register ) = @_;
    $io->readRegister16( CTRL_HDMI, $register );
}

sub writeDPLL {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_DPLL, $register, $value );
}

sub readDPLL {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_DPLL, $register );
}

sub writeCEC {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_CEC, $register, $value );
}

sub readCEC {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_CEC, $register );
}

sub writeINFO {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_INFO, $register, $value );
}

sub readINFO {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_INFO, $register );
}

sub writeKSV {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_KSV, $register, $value );
}

sub readKSV {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_KSV, $register );
}

sub writeEDID {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_EDID, $register, $value );
}

sub readEDID {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_EDID, $register );
}

sub writeCP {
    my ( $io, $register, $value ) = @_;
    $io->writeRegister( CTRL_CP, $register, $value );
}

sub readCP {
    my ( $io, $register ) = @_;
    $io->readRegister( CTRL_CP, $register );
}

sub readCP16 {
    my ( $io, $register ) = @_;
    $io->readRegister16( CTRL_CP, $register );
}

sub initAddressMaps {
    my ($io) = @_;

    $io->writeIO( 0xfd, CTRL_CP << 1 );
    $io->writeIO( 0xf9, CTRL_KSV << 1 );
    $io->writeIO( 0xfb, CTRL_HDMI << 1 );
    $io->writeIO( 0xfa, CTRL_EDID << 1 );
    $io->writeIO( 0xf8, CTRL_DPLL << 1 );
    $io->writeIO( 0xf4, CTRL_CEC << 1 );
    $io->writeIO( 0xf5, CTRL_INFO << 1 );
}

sub writeEDIDTable {
    my ( $io, @edid ) = @_;
    my $err;

    $io->writeKSV( 0x40, 0x81 );    # Disable HDCP 1.1
    $io->writeKSV( 0x74, 0x00 );    # disable internal EDID

    my $count = @edid;
    printf( "Write edid data %d bytes\n", $count );

    for ( my $i = 0 ; $i < $count ; $i++ ) {

        #printf("EDID %x, %x\n", $i, $edid[$i]);
        $err = $io->writeEDID( $i, $edid[$i] );
        if ( $err < 0 ) {
            printf("fail to write edid data\n");
            return;

            # ADV761x calculates the checksums and enables I2C access
            # to internal EDID ram from DDC port.
        }
    }

    $io->writeKSV( 0x74, 0x01 );    # enable internal EDID
    $io->writeIO( 0x15, 0xBE );
}

# check line state
sub noPower {
    my ($io) = @_;
    return $io->readIO(0x0c) & 0x24;
}

sub checkCable {
    my ($io) = @_;
    return $io->readIO(0x6f) & 0x01;
}

sub isHDMI {
    my ($io) = @_;
    return $io->readHDMI(0x05) & 0x80;
}

sub isLockSTDI {
    my ($io) = @_;
    return $io->readCP(0xb1) & 0x80;
}

sub isTMDS {
    my ($io) = @_;
    return $io->readIO(0x6a) & 0x10;
}

sub isLockTMDS {
    my ($io) = @_;
    return $io->readIO(0x6a) & 0x43 == 0x43;
}

sub isInterlaced {
    my ($io) = @_;
    return $io->readIO(0x12) & 0x10;
}

sub isSignal {
    my ($io) = @_;
    my $res;
    $res = !$io->noPower();
    $res &&= $io->isLockSTDI();
    $res &&= $io->isTMDS();
    $res &&= $io->isLockTMDS();
}

sub isFreeRun {
    my ($io) = @_;
    return $io->readCP(0xff) & 0x10;
}

# HDMI signal params
sub getWidth {
    my ($io) = @_;
    return $io->readHDMI16(0x07) & 0x1fff;
}

sub getHeight {
    my ($io) = @_;
    return $io->readHDMI16(0x09) & 0x1fff;
}

sub getHFrontPorch {
    my ($io) = @_;
    return $io->readHDMI16(0x20) & 0x1fff;
}

sub getHSync {
    my ($io) = @_;
    return $io->readHDMI16(0x22) & 0x1fff;
}

sub getHBackPorch {
    my ($io) = @_;
    return $io->readHDMI16(0x24) & 0x1fff;
}

sub getVFrontPorch {
    my ($io) = @_;
    return ( $io->readHDMI16(0x2a) & 0x1fff ) / 2;
}

sub getVSync {
    my ($io) = @_;
    return ( $io->readHDMI16(0x2e) & 0x1fff ) / 2;
}

sub getVBackPorch {
    my ($io) = @_;
    return ( $io->readHDMI16(0x32) & 0x1fff ) / 2;
}

sub getFPS1000 {
    my ($io) = @_;
    my $fps = $io->readCP16(0xb8) & 0x1fff;
    return 28636360 / 256 / $fps * 1000;
}

sub getTMDSFreq {
    my ($io) = @_;
    my $freq = $io->readHDMI16(0x51);
    my $frac = ( $freq & 0x7f ) / 128;
    return ( $freq >> 7 ) + $frac;
}

1;

__END__