ProcessMRW changes for dynamic i2c devices

HDAT has a requirement from hostboot to provide I2C information
from the connections in the mrw.  This change pulls the changes
out of the mrw and stores them under the master proc target.
Each index in the arrays created is a separate connection.
The information is then pulled out in i2c.C getDeviceInfo()

Change-Id: I725278bc482131a65b8cfb565e08ff0a37f4cb30
RTC:165485
Reviewed-on: http://ralgit01.raleigh.ibm.com/gerrit1/39737
Tested-by: Jenkins Server <pfd-jenkins+hostboot@us.ibm.com>
Reviewed-by: Prachi Gupta <pragupta@us.ibm.com>
Tested-by: Jenkins OP Build CI <op-jenkins+hostboot@us.ibm.com>
Reviewed-by: Daniel M. Crowell <dcrowell@us.ibm.com>
Tested-by: FSP CI Jenkins <fsp-CI-jenkins+hostboot@us.ibm.com>
Reviewed-by: William G. Hoffa <wghoffa@us.ibm.com>

1 files changed, 190 insertions, 0 deletions

diff --git a/src/usr/targeting/common/processMrw.pl b/src/usr/targeting/common/processMrw.pl
index aeb405dc0..1d2b7bfd6 100644
--- a/src/usr/targeting/common/processMrw.pl
+++ b/src/usr/targeting/common/processMrw.pl
@@ -460,6 +460,15 @@ sub processProcessor
        $targetObj->setMasterProc($target);
     }
 
+    # I2C arrays
+    my @engine = ();
+    my @port = ();
+    my @slavePort = ();
+    my @addr = ();
+    my @speed = ();
+    my @type = ();
+    my @purpose = ();
+
     $targetObj->log($target, "Processing PROC");
     foreach my $child (@{ $targetObj->getTargetChildren($target) })
     {
@@ -511,8 +520,58 @@ sub processProcessor
         {
             processOcc($targetObj, $child, $target);
         }
+        # Ideally this should be $child_type eq "I2C", but we need a change
+        # in serverwiz and the witherspoon.xml first
+        elsif (index($child,"i2c-master") != -1)
+        {
+            my ($i2cEngine, $i2cPort, $i2cSlavePort, $i2cAddr,
+                $i2cSpeed, $i2cType, $i2cPurpose) =
+                    processI2C($targetObj, $child, $target);
+
+            # Add this I2C device's information to the proc array
+            push(@engine,@$i2cEngine);
+            push(@port,@$i2cPort);
+            push(@slavePort,@$i2cSlavePort);
+            push(@addr,@$i2cAddr);
+            push(@speed,@$i2cSpeed);
+            push(@type,@$i2cType);
+            push(@purpose,@$i2cPurpose);
+
+        }
     }
 
+    # Add final I2C arrays to processor
+    my $size         = scalar @engine;
+    my $engine_attr  = $engine[0];
+    my $port_attr    = $port[0];
+    my $slave_attr   = $slavePort[0];
+    my $addr_attr    = $addr[0];
+    my $speed_attr   = $speed[0];
+    my $type_attr    = "0x".$type[0];
+    my $purpose_attr = "0x".$purpose[0];
+
+    # Parse out array to print as a string
+    foreach my $n (1..($size-1))
+    {
+        $engine_attr    .= ",".$engine[$n];
+        $port_attr      .= ",".$port[$n];
+        $slave_attr     .= ",".$slavePort[$n];
+        $addr_attr      .= ",".$addr[$n];
+        $speed_attr     .= ",".$speed[$n];
+        $type_attr      .= ",0x".$type[$n];
+        $purpose_attr   .= ",0x".$purpose[$n];
+    }
+
+    # Set the arrays to the corresponding attribute on the proc
+    $targetObj->setAttribute($target,"HDAT_I2C_ENGINE",$engine_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_MASTER_PORT",$port_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_SLAVE_PORT",$slave_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_ADDR",$addr_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_BUS_FREQ",$speed_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_DEVICE_TYPE",$type_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_DEVICE_PURPOSE",$purpose_attr);
+    $targetObj->setAttribute($target,"HDAT_I2C_ELEMENTS",$size);
+
     ## update path for mvpd's and sbe's
     my $path  = $targetObj->getAttribute($target, "PHYS_PATH");
     my $model = $targetObj->getAttribute($target, "MODEL");
@@ -1214,6 +1273,137 @@ sub getI2cMapField
     return $hexfield;
 }
 
+#------------------------------------------------------------------------------
+# I2C
+#
+sub processI2C
+{
+    my $targetObj    = shift; # Top Hierarchy of targeting structure
+    my $target       = shift; # I2C targetInstance
+    my $parentTarget = shift; # Processor target
+
+    # Initialize output arrays
+    my @i2cEngine = ();
+    my @i2cPort = ();
+    my @i2cSlave = ();
+    my @i2cAddr = ();
+    my @i2cSpeed = ();
+    my @i2cType = ();
+    my @i2cPurpose = ();
+
+    # Step 1: get I2C_ENGINE and PORT from <targetInstance>
+
+    my $engine = $targetObj->getAttribute($target, "I2C_ENGINE");
+    if($engine eq "") {$engine = "0xFF";}
+
+    my $port = $targetObj->getAttribute($target, "I2C_PORT");
+    if($port eq "") {$port = "0xFF";}
+
+    # Step 2: get I2C_ADDRESS and I2C_SPEED from <bus>
+    #         This is different for each connection.
+
+    my $i2cs = $targetObj->findConnections($parentTarget, "I2C","");
+    if ($i2cs ne "")
+    {
+        # This gives all i2c connections
+        foreach my $i2c (@{$i2cs->{CONN}})
+        {
+            # Here we are checking that the i2c source matches our target
+            my $source = $i2c->{SOURCE};
+            if ($source ne $target)
+            {
+                next;
+            }
+
+            # Most I2C devices will default the slave port, it is only valid
+            # for gpio expanders.
+            my $slavePort = "0xFF";
+
+            my @source_array = split(/-/,$source);
+            my $source_idx = scalar @source_array;
+
+            # If the last part of the source only includes numbers
+            if($source_array[$source_idx-1] =~ /^[0-9,.E]+$/)
+            {
+                $slavePort = $source_array[$source_idx-1];
+            }
+
+            my $addr;
+            my $speed;
+            my $type;
+            my $purpose;
+
+            # For all these attributes, we need to check if they're defined,
+            # and if not we set them to a default value.
+            if ($targetObj->isBusAttributeDefined(
+                     $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_ADDRESS"))
+            {
+                $addr = $targetObj->getBusAttribute(
+                           $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_ADDRESS");
+            }
+
+            if ($addr eq "") {$addr = "0xFF";}
+
+            if ($targetObj->isBusAttributeDefined(
+                     $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_SPEED"))
+            {
+                $speed = $targetObj->getBusAttribute(
+                           $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_SPEED");
+            }
+
+            if ($speed eq "") {$speed = "0";}
+
+            if ($targetObj->isBusAttributeDefined(
+                     $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_TYPE"))
+            {
+                $type = $targetObj->getBusAttribute(
+                           $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_TYPE");
+            }
+
+            if ($type eq "")
+            {
+                $type = "FF";
+            }
+            else
+            {
+                $type = $targetObj->getEnumValue("HDAT_I2C_DEVICE_TYPE",$type);
+            }
+
+            if ($targetObj->isBusAttributeDefined(
+                     $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_PURPOSE"))
+            {
+                $purpose = $targetObj->getBusAttribute(
+                           $i2c->{SOURCE},$i2c->{BUS_NUM},"I2C_PURPOSE");
+            }
+
+            if ($purpose eq "")
+            {
+                $purpose = "FF";
+            }
+            else
+            {
+                $purpose = $targetObj->getEnumValue("HDAT_I2C_DEVICE_PURPOSE",
+                                                    $purpose);
+            }
+
+            # Step 3: For each connection, create an instance in the array
+            #         for the DeviceInfo_t struct.
+            push @i2cEngine, $engine;
+            push @i2cPort, $port;
+            push @i2cSlave, $slavePort;
+            push @i2cAddr, $addr;
+            push @i2cSpeed, $speed;
+            push @i2cType, $type;
+            push @i2cPurpose, $purpose;
+
+        }
+    }
+
+    # Return this i2c device's information back to the processor
+    return (\@i2cEngine, \@i2cPort, \@i2cSlave, \@i2cAddr,
+            \@i2cSpeed, \@i2cType, \@i2cPurpose);
+}
+
 
 sub setEepromAttributes
 {