diff -r c8ecf89eb77f -r d879835cfeed Symbian/SysDefToText/SysDefToText.pl --- a/Symbian/SysDefToText/SysDefToText.pl Sat Feb 20 00:39:01 2010 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,116 +0,0 @@ -# -# 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 <>@_"; } -} - -__END__