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

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 #

    15 

    16 #!perl

    17 

    18 $_ = "\U$ARGV[0]";

    19 die "ERROR: Bad arguments\n\n" if ((@ARGV!=1) || !(/UREL|UDEB/));

    20 

    21 $release = $_;

    22 $header_file_name = "\\epoc32\\rom\\include\\header.iby";

    23 $ARGV[0] = $header_file_name;

    24 

    25 while (<>) {

    26 	s/(urel|udeb)/$release/gi if (/define BUILD_DIR/);

    27 	push @header_file, $_;

    28 }

    29 

    30 open OVERWRITE, ">$header_file_name";

    31 print OVERWRITE @header_file;

    32 close OVERWRITE;