--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/charconvfw/Charconv/ongoing/Group/SNMTOOL.PL	Tue Feb 02 02:02:46 2010 +0200
@@ -0,0 +1,118 @@
+#
+# Copyright (c) 1997-2000 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;
+
+BEGIN
+	{
+	my $perlScriptPath=$0;
+	$perlScriptPath=~s/\//\\/g; # replace any forward-slashes with back-slashes
+	$perlScriptPath=~s/(\\?)[^\\]+$/$1/; # get rid of this Perl-script's file-name
+	unshift(@INC, $perlScriptPath); # can't do "use lib $perlScriptPath" here as "use lib" only seems to work with *hard-coded* directory names
+	}
+use PARSER;
+use WRITER;
+
+$|=1; # ensures that any progress information sent to the screen is displayed immediately and not buffered
+if ((@ARGV==0) || ($ARGV[0]=~/\?/i) || ($ARGV[0]=~/-h/i) || ($ARGV[0]=~/\/h/i) || ($ARGV[0]=~/help/i))
+	{
+	die("\nVersion 021\n\nCharacter-set standard-names and MIB-enums tool\nCopyright (c) 2000 Symbian Ltd\n\nUsage:\n\n\tsnmtool <input-file> <output-file>\n\n");
+	}
+my $inputFileName=shift;
+my $outputFileName=shift;
+print "Generating $outputFileName...\n";
+open(INPUT_FILE, "< $inputFileName") or die("Error: could not open \"$inputFileName\" for reading\n");
+my %characerSets=();
+&readInputFile(\*INPUT_FILE, $inputFileName, \%characerSets);
+close(INPUT_FILE) or die("Error: could not close \"$inputFileName\"\n");
+open(OUTPUT_FILE, "> $outputFileName") or die("Error: could not open \"$outputFileName\" for writing\n");
+binmode OUTPUT_FILE;
+&writeOutputFile(\*OUTPUT_FILE, \%characerSets);
+close(OUTPUT_FILE) or die("Error: could not close \"$outputFileName\"\n");
+print "complete\n\n";
+
+sub readInputFile
+	{
+	my $fileHandle=shift;
+	my $fileName=shift;
+	my $characerSets=shift;
+	my $line;
+	my $strippedDownLine;
+	my $identifier="";
+	for (;;)
+		{
+		($line, $strippedDownLine)=&nextNonEmptyStrippedDownLine($fileHandle);
+		if ($strippedDownLine eq "")
+			{
+			last;
+			}
+		if ($strippedDownLine=~/^CharacterSet\s+0x([0-9a-f]+)$/i)
+			{
+			$identifier=lc($1);
+			$characerSets->{$identifier}=[[], []];
+			}
+		else
+			{
+			if ($identifier eq "")
+				{
+				close($fileHandle);
+				die("Error: unexpected line in \"$fileName\":\n    $line\n");
+				}
+			if ($strippedDownLine=~/^StandardName\s+"(.*)"$/i)
+				{
+				push @{$characerSets->{$identifier}->[0]}, $1;
+				}
+			elsif ($strippedDownLine=~/^MibEnum\s+([0-9]+)$/i)
+				{
+				push @{$characerSets->{$identifier}->[1]}, $1;
+				}
+			else
+				{
+				close($fileHandle);
+				die("Error: unexpected line in \"$fileName\":\n    $line\n");
+				}
+			}
+		}
+	}
+
+sub writeOutputFile
+	{
+	my $fileHandle=shift;
+	my $characerSets=shift;
+	&writeUids($fileHandle, 0x1000589b, 0, 0);
+	my $characerSetIdentifier;
+	my $identifier;
+	my $data;
+	while (($identifier, $data)=each(%$characerSets))
+		{
+		&write32($fileHandle, hex($identifier));
+		&writePositiveIntegerCompacted15($fileHandle, scalar(@{$data->[0]}));
+		&writePositiveIntegerCompacted15($fileHandle, scalar(@{$data->[1]}));
+		my $standardName;
+		foreach $standardName (@{$data->[0]})
+			{
+			&writePositiveIntegerCompacted15($fileHandle, length($standardName));
+			&writeString($fileHandle, $standardName);
+			}
+		my $mibEnum;
+		foreach $mibEnum (@{$data->[1]})
+			{
+			&writePositiveIntegerCompacted30($fileHandle, $mibEnum);
+			}
+		}
+	}
+