#!perl
#
# some examples of transliteration lists.
#
use ShiftJIS::String qw(:tr);

$digitZ2H = trclosure('O-X', '0-9');
$upperZ2H = trclosure('`-y', 'A-Z');
$lowerZ2H = trclosure('-', 'a-z');
$alphaZ2H = trclosure('`-y-',      'A-Za-z');
$alnumZ2H = trclosure('O-X`-y-', '0-9A-Za-z');

$digitH2Z = trclosure('0-9', 'O-X');
$upperH2Z = trclosure('A-Z', '`-y');
$lowerH2Z = trclosure('a-z', '-');
$alphaH2Z = trclosure('A-Za-z',    '`-y-');
$alnumH2Z = trclosure('0-9A-Za-z', 'O-X`-y-');

$ascii_toupper     = trclosure('a-z',   'A-Z'  );
$fullwidth_toupper = trclosure('-', '`-y');
$greek_toupper     = trclosure('-', '-');
$cyrillic_toupper  = trclosure('p-', '@-`');

$ascii_tolower     = trclosure('A-Z',   'a-z'  );
$fullwidth_tolower = trclosure('`-y', '-');
$greek_tolower     = trclosure('-', '-');
$cyrillic_tolower  = trclosure('@-`', 'p-');

$j_tokatakana      = trclosure('-', '@-');
$j_tohiragana      = trclosure('@-', '-');
