--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/brandingserver/tools/xml/xml2h.pl	Thu Dec 17 08:54:49 2009 +0200
@@ -0,0 +1,111 @@
+#
+# Copyright (c) 2006-2006 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:  Writes a header file based on brand xml file
+#
+
+#------------------------------------------------------------------------------
+# Prints usage information
+#------------------------------------------------------------------------------
+#
+sub UsageInformation
+{
+    print <<EOF;
+XML2h.PL
+Finds all element id's in brand XML file and writes a C++ header file based on
+them. Destination file is overwritten!
+
+Usage:
+xml2h.pl [in file:xml] [out file:h]
+EOF
+
+    exit;
+}
+
+#------------------------------------------------------------------------------
+# Reads XML file and finds element id's
+#------------------------------------------------------------------------------
+#
+sub ReadXMLFile
+{
+    # Parse XML file
+    open( INPUT, $ARGV[0] ) || die "ERROR: Can't open file: '$ARGV[0]'";
+
+    # join lines
+    my $xmlcontent = join( "", <INPUT> );
+    close(INPUT);
+
+    # remove all comments
+    $xmlcontent =~ s/<!--[.\s]*-->//g;
+
+    # find elements id's
+    $_ = $xmlcontent;
+    my @elements = /<.*element[. ]* id="([\w\d_]+)".*>/g;
+
+    #debug print
+#   foreach $item (@elements) print "$item\n";
+    return @elements;
+}
+
+#------------------------------------------------------------------------------
+# Write Header file
+#------------------------------------------------------------------------------
+#
+sub WriteHeaderFile
+{
+    my @ids = @_;
+    open( OUTPUT, ">$ARGV[1]" ) || die "Can't open file: '$ARGV[1]'";
+
+    # Write header
+    print OUTPUT <<EOF;
+// Branding item header file created with XML2H. DO NOT MODIFY!
+
+EOF
+
+    # Write items
+    foreach $item (@ids)
+        {
+        $const = $item;
+        substr( $const, 0, 1 ) =~ tr/[a-z]/[A-Z]/;
+        print OUTPUT <<EOF;
+_LIT8( K$const, \t"$item");
+EOF
+        }
+
+    print OUTPUT "\n//End of file\n";
+    close( OUTPUT );
+}
+
+#------------------------------------------------------------------------------
+# Main function
+#------------------------------------------------------------------------------
+#
+
+# Check parameters
+my $count = @ARGV;
+if( $count != 2 )
+    {
+    UsageInformation();
+    }
+
+# Parse XML file
+my @ids = ReadXMLFile();
+
+# Write XML file
+WriteHeaderFile( @ids );
+
+# Done!
+$count = @ids;
+print "Processed succesfully $count elements."
+
+# end of file