#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG
# This is an automatically generated prolog.
#
# $Source: src/usr/targeting/xmltohb/updatetargetxml.pl $
#
# OpenPOWER HostBoot Project
#
# Contributors Listed Below - COPYRIGHT 2012,2017
# [+] International Business Machines Corp.
#
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
# implied. See the License for the specific language governing
# permissions and limitations under the License.
#
# IBM_PROLOG_END_TAG

#
# Original file created by Van Lee for fsp.
# File copied to Hostboot and modified by CamVan Nguyen
#
# Usage:
#
#    updatetargetxml --hb=target_types_hb.xml --common=target_types.xml
#
# Purpose:
#
#   This perl script processes the target_types_hb.xml file to find the
#   <targetTypeExtension> tags, and update target_types.xml if needed.
#   The updated target_types.xml is written to the console.
#

use strict;
use XML::Simple;
use Data::Dumper;

$XML::Simple::PREFERRED_PARSER = 'XML::Parser';

my $hb = "";
my $common = "";
my $usage = 0;
use Getopt::Long;
GetOptions( "hb:s"       => \$hb,
            "common:s"   => \$common,
            "help"       => \$usage, );

if ($usage || ($hb eq "") || ($common eq ""))
{
    display_help();
    exit 0;
}

open (FH, "<$hb") ||
    die "ERROR: unable to open $hb\n";
close (FH);

my $generic = XMLin("$hb", ForceArray=>1);

open (FH, "<$common") ||
    die "ERROR: unable to open $common\n";
close (FH);

my $generic1 = XMLin("$common");

my @NewAttr;
foreach my $Extension ( @{$generic->{targetTypeExtension}} )
{
    my $id = $Extension->{id}->[0];
    foreach my $attr ( @{$Extension->{attribute}} )
    {
        my $attribute_id = $attr->{id}->[0];
        my $default = "";
        if (exists $attr->{default})
        {
            $default = $attr->{default}->[0];
        }

        if (! exists $generic1->{targetType}->{$id}->{attribute}->{$attribute_id})
        {
            push @NewAttr, [ $id, $attribute_id, $default ];
        }
    }
}

#for my $i ( 0 .. $#NewAttr )
#{
         #  print STDERR "$NewAttr[$i][0], $NewAttr[$i][1], $NewAttr[$i][2]\n";
#}

open (FH, "<$common");

my $check = 0;
my $id = "";
while (my $line = <FH>)
{
    if ( $line =~ /^\s*<targetType>.*/)
    {
        $check = 1;
    }
    elsif ($check == 1 && $line =~ /^\s*<id>/)
    {
        $check = 0;
        $id = $line;
        $id =~ s/\n//;
        $id =~ s/.*<id>(.*)<\/id>.*/$1/;
    }
    elsif ($line =~ /^\s*<\/targetType>.*/)
    {
        for my $i ( 0 .. $#NewAttr )
        {
            if ($NewAttr[$i][0] eq $id)
            {
                print "    <attribute>\n";
                print "        <id>$NewAttr[$i][1]</id>\n";
                if ($NewAttr[$i][2] ne "")
                {
                    print "        <default>$NewAttr[$i][2]</default>\n";
                }
                print "    </attribute>\n";
            }
        }
    }
    print "$line";
}

close (FH);

sub display_help
{
    use File::Basename;
    my $scriptname = basename($0);
    print STDERR "
Usage:

    $scriptname --help
    $scriptname --hb=hbfname --hb=commonfname
        --hb=hbfname
              hbfname is the complete pathname of the target_types_hb.xml file
        --common=commonfname
              commonfname is the complete pathname of the target_types.xml file
\n";
}