#

# 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;