# Copyright (c) 1997-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;
use integer;

my $numberOfBitsUsedForDictionaryTokens=3;
my @dictionarySource=
	(
	'{1}data\\',
	'z:\system\\',
	'ikon{3}',
	'.mbm',
	'my_{5}',
	'program',
	);
my @resourceSource=
	(
	'<C,18>My {5} is cool',
	'<C,24>{0}e{2}',
	'<V,9174804><C,6><V,-6208493><v,0x3176>',
	'<V,-120727><V,-82385253><v,0x3176>',
	'<C,0><C,2><C,2><C,24><C,24>{0}u{2}<C,1><C,40><C,40>{1}apps\{4}\{4}{3}',
	);

my $outputFile=shift;
my $dictionaryDataAndIndex='';
my $resourceDataAndIndex='';
&generateDataAndIndexFromSource(\$dictionaryDataAndIndex, \@dictionarySource);
&generateDataAndIndexFromSource(\$resourceDataAndIndex, \@resourceSource);
(system('uidcrc 0x101f5010 0 0x00018bf1 '.$outputFile)==0) or die;
(-s($outputFile)==16) or die;
open(OUTPUT_INDEX_FILE, '>> '.$outputFile) or die;
binmode(OUTPUT_INDEX_FILE);
print(OUTPUT_INDEX_FILE pack('Cv2', 0xc0|($numberOfBitsUsedForDictionaryTokens-3), 300, 16+5+1+length($dictionaryDataAndIndex))); # the 5-byte header for dictionary-compressed resource files
print(OUTPUT_INDEX_FILE pack('C', 0x13)); # the bit-array of resources containing compressed Unicode
print(OUTPUT_INDEX_FILE $dictionaryDataAndIndex);
print(OUTPUT_INDEX_FILE $resourceDataAndIndex);
close(OUTPUT_INDEX_FILE) or die;

sub generateDataAndIndexFromSource
	{
	my $dataAndIndex=shift;
	my $source=shift;
	my $dataBits='';
	my $numberOfDataBits=0;
	my @dataIndex=();
	foreach my $line (@$source)
		{
		($line=~/^(.*)$/) or die; $line=$1; # get rid of the end-of-line character(s) (these, by default, are not matched by '.')
		if ($line ne '')
			{
			my $remainder=$line;
			$line='';
			for (;;)
				{
				if ($remainder!~/^(.*?)\<(.*)$/)
					{
					$line.=$remainder;
					last;
					}
				$line.=$1;
				$remainder=$2;
				($remainder=~/^([a-z])\,(.+?)\>(.*)$/i) or die;
				my $template=$1;
				my $hexadecimalInteger=$2;
				$remainder=$3;
				if ($hexadecimalInteger=~/^(0x[0-9a-f]+)$/i)
					{
					$hexadecimalInteger=hex($hexadecimalInteger);
					}
				else
					{
					($hexadecimalInteger=~/^\-?\d+$/i) or die;
					}
				$line.=pack($template, $hexadecimalInteger);
				}
			my $oldNumberOfDataBits=$numberOfDataBits;
			$remainder=$line;
			for (;;)
				{
				if ($remainder!~/^(.*?)\{(.*)$/)
					{
					&appendPrefixedStringToDataBits(\$dataBits, \$numberOfDataBits, $remainder);
					$remainder='';
					last;
					}
				my $pre=$1;
				my $post=$2;
				($post=~/^(\d+)\}(.*)$/) or die;
				&appendPrefixedStringToDataBits(\$dataBits, \$numberOfDataBits, $pre);
				my $dictionaryIndex=$1;
				$remainder=$2;
				&appendBitsToDataBits(\$dataBits, \$numberOfDataBits, 1, 0);
				&appendBitsToDataBits(\$dataBits, \$numberOfDataBits, $numberOfBitsUsedForDictionaryTokens, $dictionaryIndex);
				}
			(($numberOfDataBits&0xffff)==$numberOfDataBits) or die;
			push(@dataIndex, $numberOfDataBits);
			}
		}
	(length($dataBits)==($numberOfDataBits+7)/8) or die;
	$$dataAndIndex=$dataBits;
	$$dataAndIndex.=pack('v*', @dataIndex);
	}

sub appendPrefixedStringToDataBits
	{
	my $dataBits=shift;
	my $numberOfDataBits=shift;
	my $string=shift;
	for (;;)
		{
		my $remainder='';
		my $lengthOfString=length($string);
		if ($lengthOfString==0)
			{
			last;
			}
		if ($lengthOfString==1)
			{
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 2, 0x1); # 1 0
			}
		elsif ($lengthOfString==2)
			{
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 3, 0x3); # 1 1 0
			}
		elsif ($lengthOfString<11)
			{
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 4, 0x7); # 1 1 1 0
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 3, $lengthOfString-3);
			}
		else
			{
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 4, 0xf); # 1 1 1 1
			if ($lengthOfString>266)
				{
				$remainder=substr($string, 266);
				substr($string, 266)='';
				$lengthOfString=length($string);
				($lengthOfString==266) or die;
				}
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 8, $lengthOfString-11);
			}
		foreach my $byte (unpack('C*', $string))
			{
			&appendBitsToDataBits($dataBits, $numberOfDataBits, 8, $byte);
			}
		$string=$remainder;
		}
	}

sub appendBitsToDataBits
	{
	my $dataBits=shift;
	my $numberOfDataBits=shift;
	my $numberOfBitsToAppend=shift;
	my $bitsToAppend=shift;
	for (my $i=0; $i<$numberOfBitsToAppend; ++$i)
		{
		vec($$dataBits, $$numberOfDataBits, 1)=(($bitsToAppend>>$i)&1);
		++$$numberOfDataBits;
		}
	}