#!/usr/pkg/bin/perl

use  ucs_mappings () ;

my $cs = "jisx0208_necibm_ext" ;

my @jis_lines ;

my @all_lines = <stdin> ;
for $line (@all_lines)
{
	if( $line =~ /^(0x[A-Z0-9]+)[	 ]+[^	 ]+[	 ]+[^	 ]+[	 ]+[^	 ]+[	 ]+[^	 ]+[	 ]+(0x[A-Z0-9]+).*$/)
	{
		push( @jis_lines , "$2 $1") ;
	}
}

ucs_mappings::parse( '^([^	 ]+)[	 ]+([^	 ]+).*$' , \@jis_lines) ;

ucs_mappings::output_table_to_ucs( ${cs} , 2) ;
