#

 # 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 the License "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:

 #

 my $file=@ARGV[0];

 my $newfile=@ARGV[1];

 open TMP, $file;

 my $line;

 my @data;

 my $n=0;

 my $start=0;

 while (my $line = <TMP>)

 {

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

    {

       $start=1;

    }

    if ($start)

    {

      push @data,$line;

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

      {

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

          push @data,"\n";

          $n++;

          $start = 0;

          next;

      }

    }

 }

 close TMP;

 open DUMP, ">$newfile";

 print "* Writing $newfile\n";

 my $line;

 foreach $line (@data)

 {

 	print DUMP $line;

 }

 close DUMP;