#!/usr/local/bin/perl
# file: mklist

open (H, "> _ucs2list.h") || die "open: $!";
open (C, "> _ucs2list.c") || die "open: $!";

while (<>)
{
  if (/^([0-9A-F]{4});([*%@!]);([0-9A-Z -]+);([^;]*);([0-9A-Z -]*);([^;]*)\n/)
       # Code                 ; 1.1 Name            ; 1.0 Name
       #             ; Origin               ; Comment             ; Decomposition
  {
    $ucs2 = $1;
    $ucs2 =~ tr/[A-Z]/[a-z]/;
    $name11 = $3;
    $name11 =~ tr/[A-Z] -/[a-z]__/;
    $name10 = $5;
    $name10 =~ tr/[A-Z] -/[a-z]__/;

    print H "#define UCS2_$name11\t", ("\t" x ((58-length ($name11))/8)), "0x$ucs2\n";
    print C "  /* 0x$ucs2 */ UCS2_$name11, \"$name11";
    if ($name10 ne '' && $name10 ne $name11 && !($name10 =~ /cyrillic|hangul/))
    {
      print H "#define  UCS2_$name10\t", ("\t" x ((57-length ($name10))/8)), "0x$ucs2\n";
      print C "/$name10";
    }
    print C "\",\n";
  }
}

close (H) || die "close: $!";
close (C) || die "close: $!";

rename ('_ucs2list.h', 'ucs2list.h') || die "rename: $!";
rename ('_ucs2list.c', 'ucs2list.c') || die "rename: $!";
