Allow very long attribute names

There are explicit formating rules inside xmltohb.pl when
generating some of the files it creates.  These rules will clip
the size of attribute and enum names without any warning.  This
change will detect any overly long values and override the
formatting rules to create functional (if uglier) code.

Change-Id: I7e5fe455bc6bec680c35bf392c129e1d5d06ac1c
Reviewed-on: http://rchgit01.rchland.ibm.com/gerrit1/89692
Reviewed-by: Michael Baiocchi <mbaiocch@us.ibm.com>
Tested-by: Jenkins Server <pfd-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP Build CI <op-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP HW <op-hw-jenkins+hostboot@us.ibm.com>
Tested-by: FSP CI Jenkins <fsp-CI-jenkins+hostboot@us.ibm.com>
Reviewed-by: Roland Veloz <rveloz@us.ibm.com>
Reviewed-by: Nicholas E Bofferding <bofferdn@us.ibm.com>

src/usr/targeting/common/xmltohb/xmltohb.pl

@@ -6,7 +6,7 @@
 #
 # OpenPOWER HostBoot Project
 #
-# Contributors Listed Below - COPYRIGHT 2012,2019
+# Contributors Listed Below - COPYRIGHT 2012,2020
 # [+] International Business Machines Corp.
 # [+] YADRO
 #
@@ -2119,7 +2119,18 @@ sub writeEnumFileAttrIdEnum {
     {
         $hexVal = $enumerator->{value};
         $attrId = $enumerator->{name};
-        write;
+
+        # enforce the implicit length requirement since the format command
+        #  does not throw an error if we overrun
+        my $enumsize = length($attrId);
+        if( $enumsize > 55 )
+        {
+            print "    $attrId = $hexVal,\n";
+        }
+        else
+        {
+            write;
+        }
     }
 
     print $outFile "};\n\n";
@@ -2181,7 +2192,18 @@ sub writeEnumFileAttrEnums {
                 $enumHex = sprintf "0x%08X", $enumHexValue;
             }
             $enumName = $enumerationType->{id} . "_" . $enumerator->{name};
-            write;
+
+            # enforce the implicit length requirement since the format command
+            #  does not throw an error if we overrun
+            my $enumsize = length($enumName);
+            if( $enumsize > 58 )
+            {
+               print "    $enumName = $enumHex,\n";
+            }
+            else
+            {
+               write;
+            }
         }
         print $outFile "};\n\n";
     }