#!perl

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

 # All rights reserved.

 # This component and the accompanying materials are made available

 # under the terms of "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:

 #

 use strict;

 my $target = "\\epoc32\\rom\\include\\h4hrp.oby";

 # Read h4hrp.oby to see if it has already been modified.

 my @lines = ();

 my $lastEndIf;

 open(FH, $target) or die "Fail to open $target $!\n";

 while(<FH>)

 {

   push(@lines, $_);

   $lastEndIf = scalar(@lines) - 1 if (/#endif/i);

   if (/\bLANGUAGE_CODE\s+0\d/i)

   {

     close(FH);

 	exit(0);

   }

 }

 close(FH);

 chmod(0666, $target);

 open(FH, ">$target") or die "Fail to open $target for write $!\n";

 for (my $i = 0; $i < scalar @lines; $i++)

 {

   if ($i == $lastEndIf)

   {

 	print FH "\nDEFAULT_LANGUAGE 01\n";

 	print FH "LANGUAGE_CODE 02\n";

 	print FH "LANGUAGE_CODE 03\n\n";

   }

   print FH $lines[$i];

 }

 close(FH);