/usr/bin/defoma-hints is in defoma 0.11.12ubuntu1.
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 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | #! /usr/bin/perl -w
# Defoma - Debian Font Manager
# Copyright (C) 2000 Yasuhiro Take <take@debian.org>
# This program is free software. You can freely use, copy, modify, and
# redistribute it under the terms of the GNU General Public License, Version 2.
use Debian::Defoma::Font;
import Debian::Defoma::Font;
use Debian::Defoma::Common;
import Debian::Defoma::Common qw(&DEFOMA_TEST_DIR);
$LIBDIR = DEFOMA_TEST_DIR . "/usr/share/defoma";
@EXITREMOVE = ();
$SIG{'HUP'} = \&signalexit;
$SIG{'INT'} = \&signalexit;
$SIG{'QUIT'} = \&signalexit;
$SIG{'TERM'} = \&signalexit;
$SIG{'__DIE__'} = \&emes;
require("$LIBDIR/libperl-hint.pl");
sub exitfunc {
my $e = (@_ > 0) ? shift(@_) : 0;
my $msg = (@_ > 0) ? shift(@_) : undef;
unlink @EXITREMOVE if (@EXITREMOVE);
print STDERR $msg, "\n" if (defined($msg));
exit $e;
}
sub signalexit {
exitfunc(255);
}
sub emes {
print 'defoma-hints ', @_, '\n';
exitfunc 1;
}
sub usage_and_exit {
print "defoma-hints [-c] [--no-question] <category> <font>...\n";
exitfunc 1;
}
### main()
usage_and_exit if (@ARGV == 0);
my $MODE = 'g';
my $NOQ = 0;
while ($ARGV[0] =~ /^-/) {
if ($ARGV[0] eq '-c') {
$MODE = 'c';
} elsif ($ARGV[0] eq '--no-question') {
$NOQ = 1;
}
shift(@ARGV);
}
usage_and_exit if (@ARGV < 2);
$CATEGORY = shift;
$LIBFILE = "$LIBDIR/libhint-$CATEGORY.pl";
my $sufpath = "";
if ($ARGV[0] =~ /^[^\/]/) {
$sufpath = "/path/to/";
}
print STDERR "Wait for second...\n";
defoma_font_init();
hint_beginlib('HintsGenerator', 70, $MODE, $sufpath, $NOQ);
if (-e $LIBFILE) {
require($LIBFILE);
my $funcptr;
eval("\$funcptr = \\&sethint_$CATEGORY");
print "category $CATEGORY\n";
foreach $FONTPATH (@ARGV) {
my $lhints = &{$funcptr}($FONTPATH);
next unless (defined($lhints));
print "begin $sufpath$FONTPATH\n";
my @hints = lhints2hints($lhints);
print join("\n", @hints);
print "\nend\n";
}
exitfunc(0);
}
exitfunc(1, "HintGenerator Library for $CATEGORY not found.");
|