sl@0: #!perl
sl@0: 
sl@0: # Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description:
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: my $target = "\\epoc32\\rom\\include\\header.iby";
sl@0: 
sl@0: # Read header.iby to see if it has already been modified.
sl@0: my @lines = ();
sl@0: open(FH, $target) or die "Fail to open $target $!\n";
sl@0: while(<FH>)
sl@0: {
sl@0:   push(@lines, $_);
sl@0:   if (/rom_image\s+2\s+rofs2/i)
sl@0:   {
sl@0: 	close(FH);
sl@0: 	exit(0);
sl@0:   }
sl@0: }
sl@0: close(FH);
sl@0: 
sl@0: chmod(0666, $target);
sl@0: open(FH, ">$target") or die "Fail to open $target for write $!\n";
sl@0: 
sl@0: foreach (@lines)
sl@0: {
sl@0:   print FH $_;
sl@0:   if (/rom_image\s+1\s+rofs\b/i)
sl@0:   {
sl@0: 	print FH "rom_image 2 rofs2 size=1000000 non-xip compress\n";
sl@0:   }
sl@0: }
sl@0: close(FH);