1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/textandloc/charconvfw/charconv_fw/tools/snmtool.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,128 @@
     1.4 +#
     1.5 +# Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).
     1.6 +# All rights reserved.
     1.7 +# This component and the accompanying materials are made available
     1.8 +# under the terms of "Eclipse Public License v1.0"
     1.9 +# which accompanies this distribution, and is available
    1.10 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
    1.11 +#
    1.12 +# Initial Contributors:
    1.13 +# Nokia Corporation - initial contribution.
    1.14 +#
    1.15 +# Contributors:
    1.16 +#
    1.17 +# Description: 
    1.18 +#
    1.19 +
    1.20 +use strict;
    1.21 +use integer;
    1.22 +
    1.23 +BEGIN
    1.24 +	{
    1.25 +	my $perlScriptPath=$0;
    1.26 +	my $os = $^O; #get the OS type
    1.27 +	#check OS type
    1.28 +  if($os=~/MSWin32/) #Windows OS
    1.29 +    {
    1.30 +    $perlScriptPath=~s/\//\\/g; # replace any forward-slashes with back-slashes
    1.31 +    $perlScriptPath=~s/(\\?)[^\\]+$/$1/; # get rid of this Perl-script's file-name
    1.32 +    }
    1.33 +  else #Unix OS
    1.34 +    {
    1.35 +    $perlScriptPath=~s/\\/\//g; # replace any back-slashes with forward-slashes
    1.36 +    $perlScriptPath=~s/(\/?)[^\/]+$/$1/; # get rid of this Perl-script's file-name
    1.37 +    }
    1.38 +	unshift(@INC, $perlScriptPath); # can't do "use lib $perlScriptPath" here as "use lib" only seems to work with *hard-coded* directory names
    1.39 +	}
    1.40 +use PARSER;
    1.41 +use WRITER;
    1.42 +
    1.43 +$|=1; # ensures that any progress information sent to the screen is displayed immediately and not buffered
    1.44 +if ((@ARGV==0) || ($ARGV[0]=~/\?/i) || ($ARGV[0]=~/-h/i) || ($ARGV[0]=~/help/i))
    1.45 +	{
    1.46 +	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");
    1.47 +	}
    1.48 +my $inputFileName=shift;
    1.49 +my $outputFileName=shift;
    1.50 +print "Generating $outputFileName...\n";
    1.51 +open(INPUT_FILE, "< $inputFileName") or die("Error: could not open \"$inputFileName\" for reading\n");
    1.52 +my %characerSets=();
    1.53 +&readInputFile(\*INPUT_FILE, $inputFileName, \%characerSets);
    1.54 +close(INPUT_FILE) or die("Error: could not close \"$inputFileName\"\n");
    1.55 +open(OUTPUT_FILE, "> $outputFileName") or die("Error: could not open \"$outputFileName\" for writing\n");
    1.56 +binmode OUTPUT_FILE;
    1.57 +&writeOutputFile(\*OUTPUT_FILE, \%characerSets);
    1.58 +close(OUTPUT_FILE) or die("Error: could not close \"$outputFileName\"\n");
    1.59 +print "complete\n\n";
    1.60 +
    1.61 +sub readInputFile
    1.62 +	{
    1.63 +	my $fileHandle=shift;
    1.64 +	my $fileName=shift;
    1.65 +	my $characerSets=shift;
    1.66 +	my $line;
    1.67 +	my $strippedDownLine;
    1.68 +	my $identifier="";
    1.69 +	for (;;)
    1.70 +		{
    1.71 +		($line, $strippedDownLine)=&nextNonEmptyStrippedDownLine($fileHandle);
    1.72 +		if ($strippedDownLine eq "")
    1.73 +			{
    1.74 +			last;
    1.75 +			}
    1.76 +		if ($strippedDownLine=~/^CharacterSet\s+0x([0-9a-f]+)$/i)
    1.77 +			{
    1.78 +			$identifier=lc($1);
    1.79 +			$characerSets->{$identifier}=[[], []];
    1.80 +			}
    1.81 +		else
    1.82 +			{
    1.83 +			if ($identifier eq "")
    1.84 +				{
    1.85 +				close($fileHandle);
    1.86 +				die("Error: unexpected line in \"$fileName\":\n    $line\n");
    1.87 +				}
    1.88 +			if ($strippedDownLine=~/^StandardName\s+"(.*)"$/i)
    1.89 +				{
    1.90 +				push @{$characerSets->{$identifier}->[0]}, $1;
    1.91 +				}
    1.92 +			elsif ($strippedDownLine=~/^MibEnum\s+([0-9]+)$/i)
    1.93 +				{
    1.94 +				push @{$characerSets->{$identifier}->[1]}, $1;
    1.95 +				}
    1.96 +			else
    1.97 +				{
    1.98 +				close($fileHandle);
    1.99 +				die("Error: unexpected line in \"$fileName\":\n    $line\n");
   1.100 +				}
   1.101 +			}
   1.102 +		}
   1.103 +	}
   1.104 +
   1.105 +sub writeOutputFile
   1.106 +	{
   1.107 +	my $fileHandle=shift;
   1.108 +	my $characerSets=shift;
   1.109 +	&writeUids($fileHandle, 0x1000589b, 0, 0);
   1.110 +	my $characerSetIdentifier;
   1.111 +	my $identifier;
   1.112 +	my $data;
   1.113 +	while (($identifier, $data)=each(%$characerSets))
   1.114 +		{
   1.115 +		&write32($fileHandle, hex($identifier));
   1.116 +		&writePositiveIntegerCompacted15($fileHandle, scalar(@{$data->[0]}));
   1.117 +		&writePositiveIntegerCompacted15($fileHandle, scalar(@{$data->[1]}));
   1.118 +		my $standardName;
   1.119 +		foreach $standardName (@{$data->[0]})
   1.120 +			{
   1.121 +			&writePositiveIntegerCompacted15($fileHandle, length($standardName));
   1.122 +			&writeString($fileHandle, $standardName);
   1.123 +			}
   1.124 +		my $mibEnum;
   1.125 +		foreach $mibEnum (@{$data->[1]})
   1.126 +			{
   1.127 +			&writePositiveIntegerCompacted30($fileHandle, $mibEnum);
   1.128 +			}
   1.129 +		}
   1.130 +	}
   1.131 +