/usr/share/t-code/bushu2canna is in t-code-common 2:2.3.1-3.5.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | #!/usr/bin/perl
$target = "bushu.select";
$target = shift if @ARGV;
%num = (qw(0 £° 1 £± 2 £² 3 £³ 4 £´ 5 £µ 6 £¶ 7 £· 8 £¸ 9 £¹ , ¡¤ . ¡¥ / ¡¿),
"\'", "¡Ç");
open (STDOUT, "|nkf -s");
$\ = "\r\n";
$CH = "(?:[!-~]|[\241-\376][\241-\376])";
# ´ðËÜ¥¹¥È¥í¡¼¥¯¤òÆɤࡣ¤½¤Î¤Þ¤Þ½ÐÎϤ¹¤ë¡£
open (IN, "tcode.txt");
while (<IN>) {
chomp;
($s, $c) = /^($CH+) ($CH)/o;
push(@tchars, $c);
(print), next if $c eq '';
$stroke_code{"$s"} = $c;
$code_stroke{$c} = "$s";
if ($c eq '¢¥') {
$jf = $c;
next;
} elsif ($c eq '¢¤') {
$fj = $c;
next;
}
print "$s $c";
}
close (IN);
# Éô¼óÊÑ´¹¤Î¼½ñ¤ò½Ð¤¹
print "";
open (IN, $target);
while (<IN>) {
chomp;
my ($f, $s, $c) = /^($CH)($CH)($CH)/o;
my ($cf, $cs);
$cf = $code_stroke{$f};
$cs = $code_stroke{$s};
if ($cs) {
$used{$f}++;
$f =~ s|([0-9\',./])|$num{$1}|ge;
print "$jf$f$cs $c";
}
}
close (IN);
# Éô¼óÊÑ´¹¤Î³«»Ï¥·¡¼¥±¥ó¥¹¤ò½Ð¤¹¡£
print "";
print $code_stroke{$jf}, " \\0 $jf";
for $c (@tchars) {
next unless $used{$c};
(print ""), next if $c eq '';
next if $c eq $jf || $c eq $fj;
if ($code_stroke{$c}) {
my ($c2) = $c;
$c2 =~ s|([0-9\',./])|$num{$1}|ge;
print $jf, $code_stroke{$c}, " \\0 $jf$c2";
}
}
|