--- a/build/tools/targets_from_mmp.pl Sat Feb 20 00:39:01 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,183 +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:
-#
-#!/usr/bin/perl
-
-#
-# ==============================================================================
-# Name : targets_from_mmp.pl
-# Description : This script provides search functionality for target components
-# from mmp-files found from the environment.
-# Version : 1
-# ==============================================================================
-#
-
-use strict;
-use Cwd;
-use File::Find;
-
-use Getopt::Std;
-use vars qw($opt_o $opt_i $opt_p $opt_s );
-
-# -----------------------------------------------------------
-# Check the arguments and if not any or too many print guide.
-# -----------------------------------------------------------
-if (( $#ARGV < 0) || ($#ARGV > 5))
-{
- print <<USAGE;
-
-Usage: targets_from_mmp.pl [-p component] [-o output-file] [-s] [-i input-file]
-
- -p prints the mmp-file(s) related to component.
- -i specify the input file from where to search for
- mmp-target relation (value is "targets_from_mmps.txt"
- if else not specified).
- -s scans the environment and prints the output to
- "targets_from_mmps.txt" or to separately specified
- file (with option -o).
- -o output-file where to write scanning results.
-
- At least one option is required.
-
-Examples: targets_from_mmp.pl -s
- targets_from_mmp.pl -s -o targets_from_mmps.txt
- targets_from_mmp.pl -p clock.dll
- targets_from_mmp.pl -p clock.dll -i targets_from_mmps.txt
-USAGE
- exit -1;
-}
-
-# ---------------
-# Collect options
-# ---------------
-getopts("o:i:p:s");
-
-my ($inputfile, $outputfile);
-
-# -----------------------------------------------------------
-# If output-file is defined in arguments open specified file
-# for printing the targets found from mmp-files.
-# -----------------------------------------------------------
-if ($opt_s)
-{
- if ($opt_o)
- {
- $outputfile = $opt_o;
- }
- else
- {
- $outputfile = "targets_from_mmps.txt";
- }
-
- open (OUTPUT, ">$outputfile");
- print "\nWriting targets of mmp-files into \"$outputfile\".\n";
-
- find(\&doFind, cwd);
-}
-
-# ----------------------------------------------------
-# If special input file is defined.
-# ----------------------------------------------------
-if ($opt_i)
-{
- $inputfile = $opt_i;
-}
-else
-{
- $inputfile = "targets_from_mmps.txt";
-}
-
-# ----------------------------------------------------
-# If component to search is defined in arguments print
-# indication of that on screen.
-# ----------------------------------------------------
-if ($opt_p)
-{
- open (INPUT, $inputfile) or die "\nInputfile \"$inputfile\" not found, please check the filename or scan the environment first!\n";
- #print "\nSearching mmp-file for target \"$opt_p\" from \"$inputfile\"...\n\n";
-
- my $found_indicator=0;
-
- foreach my $line (<INPUT>)
- {
- if ($line =~ m/(.*) : $opt_p/i)
- {
- print "\n $opt_p -->\n" if ($found_indicator == 0);
- $found_indicator++;
- print " $1";
- }
- }
-
- print "\nCould not find target \"$opt_p\" from any mmp-file (from \"$inputfile\")!\n" if ($found_indicator == 0);
-
- print "\n";
- close INPUT;
-}
-
-# --------------------------------------------
-# Function to find the targets from mmp-files.
-# --------------------------------------------
-sub doFind
-{
- my $file = $File::Find::name;
-
- $file =~ s,/,\\,g;
- return unless -f $file;
-
- return unless $file =~ /(?i)\.mmp$/;
-
- open F, $file or return;
- #print $file . "\n";
-
- if ($file =~ m/^\S:(.*)/i)
- {
- $file = $1;
- }
-
- my ($line, $foundSomething);
-
- $foundSomething = "false";
-
- while ($line=<F>)
- {
- if ($line=~ m/^[\s|\t]*(?i)TARGET[\s|\t]+(\S*).*$/)
- {
- # If output-file is defined print all findings to that.
- if ($outputfile)
- {
-
-
- print OUTPUT "$file : $1\n";
- }
-
- # If component to search is defined and found
- # print corresponding mmp-file on screen.
-
- $foundSomething = "true";
- }
- }
-
- if ($foundSomething eq "false")
- {
- #print "no TARGET found from $file\n";
- }
-
- close F;
-}
-
-if ($outputfile)
-{
- close OUTPUT;
-}