--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/charconvfw/charconv_fw/tools/WRITER.PM	Tue Feb 02 02:02:46 2010 +0200
@@ -0,0 +1,186 @@
+#
+# 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;
+use FindBin;
+
+package WRITER;
+require Exporter;
+@WRITER::ISA=qw(Exporter);
+@WRITER::EXPORT=qw(write8 write16 write32 writePositiveIntegerCompacted15 writePositiveIntegerCompacted30 writeSignedIntegerCompacted29 writeString writeUids);
+
+sub write8
+	{
+	my $fileHandle=shift;
+	my $integer=shift;
+	if ($integer&0xffffff00)
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is too large to write into 8 bits\n");
+		}
+	printf $fileHandle "%c", $integer;
+	}
+
+sub write16 # little-endian
+	{
+	my $fileHandle=shift;
+	my $integer=shift;
+	if ($integer&0xffff0000)
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is too large to write into 8 bits\n");
+		}
+	&write8($fileHandle, $integer&0x000000ff);
+	&write8($fileHandle, ($integer>>8)&0x000000ff);
+	}
+
+sub write32 # little-endian
+	{
+	my $fileHandle=shift;
+	my $integer=shift;
+	&write8($fileHandle, $integer&0x000000ff);
+	&write8($fileHandle, ($integer>>8)&0x000000ff);
+	&write8($fileHandle, ($integer>>16)&0x000000ff);
+	&write8($fileHandle, ($integer>>24)&0x000000ff);
+	}
+
+sub writePositiveIntegerCompacted15 # big-endian
+	{
+	my $fileHandle=shift;
+	my $integer=shift;
+	if ($integer<0)
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is negative\n");
+		}
+	if ($integer<0x00000080)
+		{
+		&write8($fileHandle, $integer);
+		}
+	elsif ($integer<0x00008000)
+		{
+		&write8($fileHandle, 0x00000080|(($integer>>8)&0x0000007f));
+		&write8($fileHandle, $integer&0x000000ff);
+		}
+	else
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is too large to write into 15 bits\n");
+		}
+	}
+
+sub writePositiveIntegerCompacted30 # big-endian
+	{
+	my $fileHandle=shift;
+	my $integer=shift;
+	if ($integer<0)
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is negative\n");
+		}
+	if ($integer<0x00000080)
+		{
+		&write8($fileHandle, $integer);
+		}
+	elsif ($integer<0x00004000)
+		{
+		&write8($fileHandle, 0x00000080|(($integer>>8)&0x0000003f));
+		&write8($fileHandle, $integer&0x000000ff);
+		}
+	elsif ($integer<0x40000000)
+		{
+		&write8($fileHandle, 0x000000c0|(($integer>>24)&0x0000003f));
+		&write8($fileHandle, ($integer>>16)&0x000000ff);
+		&write8($fileHandle, ($integer>>8)&0x000000ff);
+		&write8($fileHandle, $integer&0x000000ff);
+		}
+	else
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is too large to write into 30 bits\n");
+		}
+	}
+
+sub writeSignedIntegerCompacted29 # big-endian
+	{
+	my $fileHandle=shift;
+	my $integer=shift;
+	my $negativeFlag=0x00000000;
+	if ($integer<0)
+		{
+		$negativeFlag=0x00000080;
+		if (($integer^-$integer)==0)
+			{
+			die("Error: the integer ".sprintf("0x%08x", $integer)." is too large to write into 29 bits\n");
+			}
+		$integer=-$integer;
+		}
+	if ($integer<0x00000040)
+		{
+		&write8($fileHandle, $negativeFlag|$integer);
+		}
+	elsif ($integer<0x00002000)
+		{
+		&write8($fileHandle, $negativeFlag|0x00000040|(($integer>>8)&0x0000001f));
+		&write8($fileHandle, $integer&0x000000ff);
+		}
+	elsif ($integer<0x20000000)
+		{
+		&write8($fileHandle, $negativeFlag|0x00000060|(($integer>>24)&0x0000001f));
+		&write8($fileHandle, ($integer>>16)&0x000000ff);
+		&write8($fileHandle, ($integer>>8)&0x000000ff);
+		&write8($fileHandle, $integer&0x000000ff);
+		}
+	else
+		{
+		die("Error: the integer ".sprintf("0x%08x", $integer)." is too large to write into 30 bits\n");
+		}
+	}
+
+sub writeString
+	{
+	my $fileHandle=shift;
+	my $string=shift;
+	my $lengthOfString=length($string);
+	my $i;
+	for ($i=0; $i<$lengthOfString; ++$i)
+		{
+		my $byteAsNumber;
+		($byteAsNumber)=unpack("C", substr($string, $i, 1));
+		&write8($fileHandle, $byteAsNumber);
+		}
+	}
+
+sub writeUids
+	{
+	my $fileHandle=shift;
+	my $uid1=shift;
+	my $uid2=shift;
+	my $uid3=shift;
+	use Cwd;
+	my $uidsin = sprintf("0x%08x 0x%08x 0x%08x ", $uid1, $uid2, $uid3);
+
+	# Locate uidcrc on the same path as this module, and if not found then run through environment
+
+  	my $uidsout = "";
+  	my $uidlocation = "$FindBin::Bin/uidcrc";
+  	if(-e $uidlocation or -e $uidlocation.".exe") {
+		$uidsout = `$uidlocation $uidsin` or die('Error: could not find UIDCRC at '.$uidlocation ); }
+	else {
+		$uidsout = `uidcrc $uidsin` or die('Error: could not find UIDCRC on PATH');
+	}
+
+	die ('Did not understand output of UIDCRC')
+		unless $uidsout =~ /^0x([0-9a-fA-F]{8}) 0x([0-9a-fA-F]{8}) 0x([0-9a-fA-F]{8}) 0x([0-9a-fA-F]{8})[ \n\r\t]*$/s;
+	my $uidCrcBinaryBuffer = pack 'V4', hex($1), hex($2), hex($3), hex($4);
+	&writeString($fileHandle, $uidCrcBinaryBuffer);
+	}
+