#

# 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 the License "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);

			}

		}

	}