sl@0: #
sl@0: # Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description: 
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: use integer;
sl@0: 
sl@0: BEGIN
sl@0: 	{
sl@0: 	my $perlScriptPath=$0;
sl@0: 	my $os = $^O; #get the OS type
sl@0: 	#check OS type
sl@0:   if($os=~/MSWin32/) #Windows OS
sl@0:     {
sl@0:     $perlScriptPath=~s/\//\\/g; # replace any forward-slashes with back-slashes
sl@0:     $perlScriptPath=~s/(\\?)[^\\]+$/$1/; # get rid of this Perl-script's file-name
sl@0:     }
sl@0:   else #Unix OS
sl@0:     {
sl@0:     $perlScriptPath=~s/\\/\//g; # replace any back-slashes with forward-slashes
sl@0:     $perlScriptPath=~s/(\/?)[^\/]+$/$1/; # get rid of this Perl-script's file-name
sl@0:     }
sl@0: 	unshift(@INC, $perlScriptPath); # can't do "use lib $perlScriptPath" here as "use lib" only seems to work with *hard-coded* directory names
sl@0: 	}
sl@0: use PARSER;
sl@0: use WRITER;
sl@0: 
sl@0: $|=1; # ensures that any progress information sent to the screen is displayed immediately and not buffered
sl@0: if ((@ARGV==0) || ($ARGV[0]=~/\?/i) || ($ARGV[0]=~/-h/i) || ($ARGV[0]=~/help/i))
sl@0: 	{
sl@0: 	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");
sl@0: 	}
sl@0: my $inputFileName=shift;
sl@0: my $outputFileName=shift;
sl@0: print "Generating $outputFileName...\n";
sl@0: open(INPUT_FILE, "< $inputFileName") or die("Error: could not open \"$inputFileName\" for reading\n");
sl@0: my %characerSets=();
sl@0: &readInputFile(\*INPUT_FILE, $inputFileName, \%characerSets);
sl@0: close(INPUT_FILE) or die("Error: could not close \"$inputFileName\"\n");
sl@0: open(OUTPUT_FILE, "> $outputFileName") or die("Error: could not open \"$outputFileName\" for writing\n");
sl@0: binmode OUTPUT_FILE;
sl@0: &writeOutputFile(\*OUTPUT_FILE, \%characerSets);
sl@0: close(OUTPUT_FILE) or die("Error: could not close \"$outputFileName\"\n");
sl@0: print "complete\n\n";
sl@0: 
sl@0: sub readInputFile
sl@0: 	{
sl@0: 	my $fileHandle=shift;
sl@0: 	my $fileName=shift;
sl@0: 	my $characerSets=shift;
sl@0: 	my $line;
sl@0: 	my $strippedDownLine;
sl@0: 	my $identifier="";
sl@0: 	for (;;)
sl@0: 		{
sl@0: 		($line, $strippedDownLine)=&nextNonEmptyStrippedDownLine($fileHandle);
sl@0: 		if ($strippedDownLine eq "")
sl@0: 			{
sl@0: 			last;
sl@0: 			}
sl@0: 		if ($strippedDownLine=~/^CharacterSet\s+0x([0-9a-f]+)$/i)
sl@0: 			{
sl@0: 			$identifier=lc($1);
sl@0: 			$characerSets->{$identifier}=[[], []];
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			if ($identifier eq "")
sl@0: 				{
sl@0: 				close($fileHandle);
sl@0: 				die("Error: unexpected line in \"$fileName\":\n    $line\n");
sl@0: 				}
sl@0: 			if ($strippedDownLine=~/^StandardName\s+"(.*)"$/i)
sl@0: 				{
sl@0: 				push @{$characerSets->{$identifier}->[0]}, $1;
sl@0: 				}
sl@0: 			elsif ($strippedDownLine=~/^MibEnum\s+([0-9]+)$/i)
sl@0: 				{
sl@0: 				push @{$characerSets->{$identifier}->[1]}, $1;
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 				close($fileHandle);
sl@0: 				die("Error: unexpected line in \"$fileName\":\n    $line\n");
sl@0: 				}
sl@0: 			}
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: sub writeOutputFile
sl@0: 	{
sl@0: 	my $fileHandle=shift;
sl@0: 	my $characerSets=shift;
sl@0: 	&writeUids($fileHandle, 0x1000589b, 0, 0);
sl@0: 	my $characerSetIdentifier;
sl@0: 	my $identifier;
sl@0: 	my $data;
sl@0: 	while (($identifier, $data)=each(%$characerSets))
sl@0: 		{
sl@0: 		&write32($fileHandle, hex($identifier));
sl@0: 		&writePositiveIntegerCompacted15($fileHandle, scalar(@{$data->[0]}));
sl@0: 		&writePositiveIntegerCompacted15($fileHandle, scalar(@{$data->[1]}));
sl@0: 		my $standardName;
sl@0: 		foreach $standardName (@{$data->[0]})
sl@0: 			{
sl@0: 			&writePositiveIntegerCompacted15($fileHandle, length($standardName));
sl@0: 			&writeString($fileHandle, $standardName);
sl@0: 			}
sl@0: 		my $mibEnum;
sl@0: 		foreach $mibEnum (@{$data->[1]})
sl@0: 			{
sl@0: 			&writePositiveIntegerCompacted30($fileHandle, $mibEnum);
sl@0: 			}
sl@0: 		}
sl@0: 	}
sl@0: