#!/usr/bin/perl

#

# CDDL HEADER START

#

# The contents of this file are subject to the terms of the

# Common Development and Distribution License (the "License").  

# You may not use this file except in compliance with the License.

#

# You can obtain a copy of the license at src/OPENSOLARIS.LICENSE

# or http://www.opensolaris.org/os/licensing.

# See the License for the specific language governing permissions

# and limitations under the License.

#

# When distributing Covered Code, include this CDDL HEADER in each

# file and include the License file at src/OPENSOLARIS.LICENSE.

# If applicable, add the following below this CDDL HEADER, with the

# fields enclosed by brackets "[]" replaced with your own identifying

# information: Portions Copyright [yyyy] [name of copyright owner]

#

# CDDL HEADER END

#

# Copyright 2009 Sun Microsystems, Inc.  All rights reserved.

# Use is subject to license terms.

#

# The script translate a file from one charmap to another

use strict;

use warnings;

die "Usage: translate_charmap.pl <charmap> <new charmap> <file to translate>\n" unless $#ARGV == 2;

open F1, "<$ARGV[0]" or die $!;

open F2, "<$ARGV[1]" or die $!;

open F, "<$ARGV[2]" or die $!;

my %cm;

while (<F1>) { last if /^CHARMAP/ };

while (<F2>) { last if /^CHARMAP/ };

while (<F2>) {

	next if /^#/ or /^\s*$/;

	last if /^END CHARMAP/;

	chomp;

	my ($name, $code) = /<(.*)>\s*(.*)\s*$/ or die $_;

	$code = uc $code;

	print "# rewrite $cm{$code} to $name\n" if defined $cm{$code} and length($cm{$code}) > length($name);

	$cm{$code} = $name unless defined $cm{$code} and length($cm{$code}) > length($name);

}

my %tr;

while (<F1>) {

	next if /^#/ or /^\s*$/;

	last if /^END CHARMAP/;

	chomp;

	my ($name, $code) = /<(.*)>\s*(.*)\s*$/ or die $_;

	$code = uc $code;

	print "# unknown code $code ($name)\n" unless defined $cm{$code};

	$tr{$name} = $cm{$code};

}

while (<F>) {

	if (/^#/) { print; next };

	my $line = $_;

	for(my $i = 0;;) {

		my $n1 = index($line,"<",$i);

		if ($n1 == -1) {	

			print substr($line, $i);

			last;

		}

		print substr($line, $i, $n1-$i+1);

		my $n2 = index($line, ">", $n1);

		die "'>' is missing" if $n2 == -1;

		my $code = substr($line, $n1+1, $n2-$n1-1);

		if (defined $tr{$code}) {

			print $tr{$code};

		} else {

			warn "'$code' is unknown: '$line'" unless 

			print $code;

		}

		$i = $n2;

	}

}