--- a/Symbian/SysDefToText/SysDefToText.pm Sat Feb 20 00:39:01 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,219 +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:
-#
-# This module converts new-style System Definition XML files to the older
-# .TXT file format (i.e. files of the type GT.TXT, Techview.TXT etc.)
-
-package SysDefToText;
-use strict;
-use SysDefCollector;
-use SysDefParser;
-
-# ConvertFile
-#
-# Inputs
-# Name of XML file to read
-# Configuration name
-#
-# Outputs
-# Writes data to Text File
-# Writes to log file, if filename defined.
-#
-# Description
-# This is the "top level" subroutine for the conversion of a "SysDef" .XML file to an old format "Text" file.
-#
-sub ConvertFile
-{
- my ($configname, $XMLfile, $outfile, $logfile) = @_;
-
-# my $XMLhandle = \*XMLFILE;
- my $outhandle = \*OUTFILE;
- my $loghandle = \*LOGFILE;
-
-# open $XMLhandle, "<$XMLfile" or die "Cannot open input file: $XMLfile";
- open $outhandle, ">$outfile" or die "Cannot open output file: $outfile";
- if (defined $logfile)
- {
- open $loghandle, ">$logfile" or die "Cannot open logfile: $logfile";
- print $loghandle "Processing: $XMLfile Output to: $outfile\n";
- print $loghandle "==================================================\n";
- }
- else
- {
- $loghandle = \*STDERR;
- }
-
- my $sysdef = SysDefCollector->new($configname,$loghandle);
- my $parser = SysDefParser->new(-client => $sysdef->parserClient());
-
- foreach my $file (@$XMLfile) {
- my $XMLhandle = \*file;
- open $XMLhandle, "<$file" or die "Cannot open input file: $file";
- $parser->parse($XMLhandle);
- close $XMLhandle;
- }
-
- ## Suppress this debugging!
- ##{ # FTB just call dump() and test() routines.
- #$sysdef->dump($loghandle);
- #$sysdef->test($loghandle);
- ##}
-
- WriteHeader($outhandle,$configname,$XMLfile);
-
- my @list0 = $sysdef->options(); # ABLD options
- my @list1 = $sysdef->targets();
- WriteOptionList($outhandle,\@list0,\@list1);
-
- my @list2 = $sysdef->components();
- my $bootflag = $sysdef->specialInstructionsFlag();
- WriteComponentList($outhandle,\@list2,$bootflag);
-
-# close XMLFILE;
- close OUTFILE;
- if (defined $logfile) { close LOGFILE; }
-}
-
-# WriteHeader
-#
-# Inputs
-# Handle of Text file to which to write
-# Configuration name
-#
-# Outputs
-# Writes data to Text File
-#
-# Description
-# This subroutine initiates the old format "Text" file.
-#
-sub WriteHeader
-{
- my $fh = shift;
- my $config = shift;
- my $XMLfile = shift;
- print $fh <<HEADER_TXT;
-#
-# ****************************** IMPORTANT NOTE ************************************
-#
-# This file was generated using information read from: @$XMLfile.
-# The configuration was specified as: $config
-#
-# **********************************************************************************
-#
-
-HEADER_TXT
-}
-
-# WriteOptionList
-#
-# Inputs
-# Handle of Text file to which to write
-# Array reference for list of ABLD Options
-# Array reference for list of targets
-#
-# Outputs
-# Writes data to Text File
-#
-# Description
-# This subroutine writes out options and targets (one per line) to the old format "Text" file.
-# Note that option lines and target lines have the same format!
-#
-sub WriteOptionList
-{
- my $fh = shift;
- my $abldoptions = shift; # Array ref.
- my $targets = shift; # Array ref.
-
- print $fh "# Optional variations in the generated scripts\n\n";
-
- my $column2pos = 8;
- foreach my $option (@$abldoptions)
- {
- my $name = '<option ????>';
- if ($option =~ /^-(.+)/) {$name = "<option $1>"}
- my $len = length $name;
- while ($len > $column2pos) { $column2pos += 8; }
- printf $fh "%-*s\t# use abld %s\n", $column2pos, $name, $option;
- }
-
- foreach my $target (@$targets)
- {
- # abld targets are only one word
- next if ($target =~ /\w+\s+\w+/);
- my $name;
- if ($target =~ /(misa|mint|mcot|mtemplate|meig)/i)
- {
- $name = "<option arm_assp $target>";
- } else {
- $name = "<option $target>";
- }
- my $len = length $name;
- while ($len > $column2pos) { $column2pos += 8; }
- printf $fh "%-*s\t#\n", $column2pos, $name;
- }
-
- print $fh "\n";
-}
-
-# WriteComponentList
-#
-# Inputs
-# Handle of Text file to which to write
-# Hash reference for hash of Components
-#
-# Outputs
-# Writes data to Text File
-#
-# Description
-# This subroutine writes out the Name and filepath (abld_directory) for each component,
-# one component per line, to the old format "Text" file.
-#
-sub WriteComponentList
-{
- my $fh = shift;
- my $listref = shift; # Ordered array of array refs -> "Name" and "abld_directory" pairs
- my $bootflag = shift; # Boolean flag indicates whether default bootstrap "component" required
-
- print $fh "# List of components required \n";
- print $fh "#\n# Name abld_directory\n";
-
- if($bootflag)
- {
- print $fh "#\n# Bootstrapping....\n\n";
- print $fh "<special bldfiles E32Toolp group> # Special installation for E32ToolP\n\n";
- print $fh "# Components:\n";
- }
- print $fh "#\n";
-
- ##print $fh "# Things which generate include files used by later components, e.g. .RSG, .MBG or .h files\n\n";
- ##print $fh "# Everything else\n\n";
-
- my $column2pos = 8;
- foreach my $component (@$listref)
- {
- my $len = length $component->[0];
- while ($len > $column2pos) { $column2pos += 8; }
- my $bldfile = $component->[1];
- if ($bldfile =~ /^\\/) {
- $bldfile =~ s/^\\//i;
- }
- printf $fh "%-*s\t%s\n", $column2pos, $component->[0], $bldfile;
- }
-}
-
-1;
-
-__END__
-