#

# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description:

#

#!perl

# This script converts new-style System Definition XML files to the older

# .TXT file format (i.e. files of the type GT.TXT, Techview.TXT etc.)

#

# Modified by S60 to get two xml input file

# Can use cases when system model and system build located in different files

#

use strict;

use FindBin;		# for FindBin::Bin

use lib $FindBin::Bin;

use Getopt::Long;

use SysDefToText;

my $debug;

my ($config, $XMLfile, $outfile, $logfile) = ProcessCommandLine();

print STDERR "Configuration:    $config\n";

print STDERR "Input .XML file:  @$XMLfile\n";

print STDERR "Output .TXT file: $outfile\n";

if (defined $logfile)

    {

    print STDERR "Logfile:          $logfile\n";

    }

SysDefToText::ConvertFile($config, $XMLfile, $outfile, $logfile);

exit(0);

# ProcessCommandLine

#

# Inputs

#   @ARGV

#

# Outputs

#   Returns Configuration Nmae and filenames.

#

# Description

#   This function processes the command line

#   On error, exits via Usage();

sub ProcessCommandLine

{

    my ($help, $config, @XMLfile, $XMLfile1, $outfile, $logfile);

    my $args = @ARGV;

    my $ret = GetOptions('h' => \$help, 'n=s' => \$config, 'x=s' => \@XMLfile, 'o=s' => \$outfile, 'l=s' => \$logfile);

    if (($help) || (!$args) || (!$ret) || (!@XMLfile) || (!defined $config) || (!defined $outfile))

    {

        Usage();

    }

    if (@ARGV)

    {

        Usage ("Redundant information on command line: @ARGV");

    }

    return($config, \@XMLfile, $outfile, $logfile);

}

# Usage

#

# Input: Error message, if any

#

# Output: Usage information.

#

sub Usage

{

    if (@_)

    {

        print "\n****@_\n";

    }

    print <<USAGE_EOF;

    Usage: SysDefToText.pl parameters [options]

    Parameters:

    -x   XML System Model File [Multiple -x options allowed]

    -n   Named Configuration

    -o   Output Text (.TXT) file

    Options:

    -h   Display this Help and exit.

    -l   Logfile (.LOG)

USAGE_EOF

    exit 1;

}

sub dbgprint

{

    if($debug) { print ">>@_"; }

}

__END__