1 #

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

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

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

     6 # which accompanies this distribution, and is available

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

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description:

    15 #

    16 

    17 my $file=@ARGV[0];

    18 my $newfile=@ARGV[1];

    19 open TMP, $file;

    20 my $line;

    21 my @data;

    22 my $n=0;

    23 my $start=0;

    24 while (my $line = <TMP>)

    25 {

    26    if (($start == 0) && ($line =~ /^.*SYMTestCaseID.*/i))

    27    {

    28       $start=1;

    29    }

    30    if ($start)

    31    {

    32      push @data,$line;

    33    

    34      if ($line =~ /^.*SYMTestStatus\s*Implemented.*/i)

    35      {

    36          push @data, "int dummy$n(){}";

    37          push @data,"\n";

    38          $n++;

    39          $start = 0;

    40          next;

    41      }

    42    }

    43 }

    44 

    45 close TMP;

    46 

    47 open DUMP, ">$newfile";

    48 print "* Writing $newfile\n";

    49 my $line;

    50 foreach $line (@data)

    51 {

    52 	print DUMP $line;

    53 }

    54 close DUMP;