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\\h4hrp.oby";
sl@0: 
sl@0: # Read h4hrp.oby to see if it has already been modified.
sl@0: my @lines = ();
sl@0: my $lastEndIf;
sl@0: 
sl@0: open(FH, $target) or die "Fail to open $target $!\n";
sl@0: while(<FH>)
sl@0: {
sl@0:   push(@lines, $_);
sl@0:   $lastEndIf = scalar(@lines) - 1 if (/#endif/i);
sl@0:   if (/\bLANGUAGE_CODE\s+0\d/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: for (my $i = 0; $i < scalar @lines; $i++)
sl@0: {
sl@0:   if ($i == $lastEndIf)
sl@0:   {
sl@0: 	print FH "\nDEFAULT_LANGUAGE 01\n";
sl@0: 	print FH "LANGUAGE_CODE 02\n";
sl@0: 	print FH "LANGUAGE_CODE 03\n\n";
sl@0:   }
sl@0:   print FH $lines[$i];
sl@0: }
sl@0: close(FH);