/usr/bin/makeacm is in console-cyrillic 0.9-17.
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 | #!/usr/bin/perl
# run perldoc on this script for complete documentation
use Unicode::String;
$x = new Unicode::String;
print "# Made by makeacm script (c) 1999 by Victor Wagner <vitus\@ice.ru>\n";
while (<>) {
next if /^\s*#/; #skip comments
chomp;
next if /^\s*$/; #skip empty lines
($eightbit,$unicode) = split /\s+/;
if ($unicode=~/U\+([a-fA-F0-9]+)/) {
$unicode = ("0x$1");
} $code = hex($unicode);
next if (hex($eightbit)==0x20 || hex($eightbit)==0x0a);
die "invalid line $." unless $unicode =~ /^0x[0-9a-fA-F]{4}$/ && $eightbit =~ /^0x[0-9a-fA-F]{2}$/;
$x->pack($code);
print "$eightbit\t'",$x->utf8,"'\n";
}
=head1 NAME makeacm
produces acm file from character set definition
=head1 SYNOPSIS
makeacm charset-file >file.acm
=head1 DESCRIPTION
This script makes application console map (acm) file from
charset definition, downloaded from ftp.unicode.org (or you can
get these files from catdoc distriubtion. sfm files may also be used
Unicode::String module from CPAN is required
=head1 SEE ALSO
B<consolechars>(1), documentation files in B<console-tools> package,
B<ftp://ftp.unicode.org/Public/MAPPINGS>
=head1 COPYRIGHT
Public domain. Made on Earth.
=head1 AUTHOR
Victor Wagner E<lt>vitus@ice.ruE<gt>
|