marvell/services/audio/libacm/tools/xml_xls/xls2xml.pl

#
# All Rights Reserved
#
# MARVELL CONFIDENTIAL
# Copyright 2012 Marvell International Ltd All Rights Reserved.
# The source code contained or described herein and all documents related to
# the source code ("Material") are owned by Marvell International Ltd or its
# suppliers or licensors. Title to the Material remains with Marvell International Ltd
# or its suppliers and licensors. The Material contains trade secrets and
# proprietary and confidential information of Marvell or its suppliers and
# licensors. The Material is protected by worldwide copyright and trade secret
# laws and treaty provisions. No part of the Material may be used, copied,
# reproduced, modified, published, uploaded, posted, transmitted, distributed,
# or disclosed in any way without Marvell's prior express written permission.
#
# No license under any patent, copyright, trade secret or other intellectual
# property right is granted to or conferred upon you by disclosure or delivery
# of the Materials, either expressly, by implication, inducement, estoppel or
# otherwise. Any license under such intellectual property rights must be
# express and approved by Marvell in writing.
#
#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
use XML::DOM;
use XML::Twig;
use IO::File;

my ($inputFile, $outputFile) = @ARGV;
my $file_type = substr($inputFile, -4, 5);
die "Input file type error $inputFile" unless $file_type eq ".xls";
die "Cen't open $inputFile" unless -r $inputFile;

# define node names
my %headline = ('Operation'=>0, 'ReferencePath'=>1, 'Component'=>2, 'ControlProtocol'=>3, 'Comment'=>4, 'Register'=>5, 'Value'=>6, 'Misc'=>7);
my %str_headline = (0=>'Operation', 1=>'ReferencePath', 2=>'Component', 3=>'ControlProtocol', 4=>'Comment', 5=>'Register', 6=>'Value', 7=>'Misc');
my %row_type = ('Operation'=>0, 'Component'=>1, 'Comment'=>2, 'Register'=>3);

#open input excel
my $parser_excel   = Spreadsheet::ParseExcel->new();
my $workbook = $parser_excel ->parse($inputFile);
die $parser_excel->error() unless defined $workbook;

#open parser for output xml
my $xml = "<MarvellAudioPathConfiguration/>";
my $parser_xml = new XML::DOM::Parser;
my $dom = $parser_xml->parse($xml);
die $parser_xml->error() unless defined $dom;

# Write <?xml version="1.0"?> and <MarvellAudioPathConfiguration> element
my $Decl = $dom->createXMLDecl("1.0");
$dom->setXMLDecl($Decl);

for my $worksheet ( $workbook->worksheets() ) {

    if ($worksheet->get_name() eq 'PathToAliasList') {
        my ( $row_min, $row_max ) = $worksheet->row_range();
        for my $row ( $row_min+1 .. $row_max ) {
            my $AudioPath = $dom->createElement("AudioPath");
            my $path_name = $worksheet->get_cell($row, 1)->value;
            $AudioPath->setAttribute("identifier", $path_name);
            my $alias_name = $worksheet->get_cell($row, 0)->value;
            $AudioPath->setAttribute("alias", $alias_name);
            $dom->getDocumentElement->appendChild($AudioPath);
        }
        next;
    }

    # Generate AudioPath node.
    my $AudioPath = $dom->createElement("AudioPath");

    # The first row is the audio path name.
    my $path_name = $worksheet->get_cell(0, 0)->value;
    $AudioPath->setAttribute("identifier", $path_name);

    my $Operation;
    my $Component;
    my $Comment;
    my $Register;
    my $str_Component_cur;

    my ( $row_min, $row_max ) = $worksheet->row_range();
    my ( $col_min, $col_max ) = $worksheet->col_range();

    #ingore second row since it is the headline
    for my $row ( $row_min+2 .. $row_max ) {
        my $str_Operation = undef;
        my $str_Refpath = undef;
        my $str_Component = undef;
        my $str_CtlProtocol = undef;
        my $str_Comment = undef;
        my $str_Register = undef;
        my $str_Value = undef;
        my $str_Misc = undef;
        my $row_type = undef;

        #parse each row
        for my $col ( $col_min .. $col_max ) {
            my $cell = $worksheet->get_cell( $row, $col );
            next unless $cell;

            if ($str_headline{$col} eq 'Operation'){
                #Operation
                $row_type = $row_type{'Operation'};
                $str_Operation = $cell->value();
            }elsif($str_headline{$col} eq 'ReferencePath'){
                #ReferencePath
                $str_Refpath = $cell->value();
            }elsif($str_headline{$col} eq 'Component'){
                #Component
                $row_type = $row_type{'Component'};
                $str_Component = $cell->value();
            }elsif($str_headline{$col} eq 'ControlProtocol'){
                #ControlProtocol
                $str_CtlProtocol = $cell->value();
            }elsif($str_headline{$col} eq 'Comment'){
                #Comment
                $row_type = $row_type{'Comment'};
                $str_Comment = $cell->value();
            }elsif($str_headline{$col} eq 'Register'){
                #Register
                $row_type = $row_type{'Register'};
                $str_Register = $cell->value();
            }elsif($str_headline{$col} eq 'Value'){
                #Value
                $str_Value = $cell->value();
            }elsif($str_headline{$col} eq 'Misc'){
                #Misc
                $str_Misc = $cell->value();
            }
        }

        if ($row_type == $row_type{'Operation'}){
            $Operation->appendChild($Component) if defined $Component && defined $Operation; #append the last Component Node
            $Component = undef;
            $AudioPath->appendChild($Operation) if defined $Operation; #append the old Operation Node
            $Operation = $dom->createElement('Operation'); #create new Operation node
            $Operation->setAttribute("identifier", $str_Operation) if $str_Operation;
            $Operation->setAttribute("ref_path_identifier", $str_Refpath) if $str_Refpath;
        }elsif($row_type == $row_type{'Component'}){
            $Operation->appendChild($Component) if defined $Component; #append the old Component Node
            $Component = $dom->createElement('AudioComponent'); #create new Component node
            $Component->setAttribute("identifier", $str_Component) if $str_Component;
            $str_Component_cur = $str_Component;
            $Component->setAttribute("control_protocol", $str_CtlProtocol) if $str_CtlProtocol;
        }elsif($row_type == $row_type{'Comment'}){
            $Comment = $dom->createComment($str_Comment); #create new Comment node
            $Component->appendChild($Comment) if defined $Component; #append the old Comment Node
        }elsif($row_type == $row_type{'Register'}){
            if($str_Component_cur eq 'DELAY'){
                $Register = $dom->createElement('Delay'); #create new Delay node
                $Register->setAttribute("value", $str_Register) if defined $str_Register;
            }elsif($str_Component_cur eq 'GPIO_PORT'){
                $Register = $dom->createElement('GPIO'); #create new GPIO node
                $Register->setAttribute("name", $str_Register) if defined $str_Register;
                $Register->setAttribute("port", $str_Value) if defined $str_Value;
                $Register->setAttribute("value", $str_Misc) if defined $str_Misc;
            }else{
                $Register = $dom->createElement('Register'); #create new Register node
                $Register->setAttribute("field", $str_Register) if defined $str_Register;
                $Register->setAttribute("value", $str_Value) if defined $str_Value;
                $Register->setAttribute("misc", $str_Misc) if defined $str_Misc;
            }
            $Component->appendChild($Register); #append the old Register Node
        }
        $row_type = undef;
    }
    #append the last Component Node
    $Operation->appendChild($Component) if defined $Component && defined $Operation;
    #append the last Operation Node
    $AudioPath->appendChild($Operation) if defined $Operation;
    #append AudioPath
    $dom->getDocumentElement->appendChild($AudioPath);
}

# end of parsing, flush to output file
open OUTPUT, ">$outputFile";
select OUTPUT;
my $twig = new XML::Twig;
$twig->set_indent(" "x4);
$twig->parse($dom->toString);
$twig->set_pretty_print("indented");
print $twig->sprint;
select STDOUT;
close OUTPUT