mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-26 21:17:40 +00:00
97bd3a5c0a
This is meta port of Japanese bit-map fonts. Submitted by: KOMATSU Shinichiro <koma2@jiro.c.u-tokyo.ac.jp> [ports-jp 12166]
23 lines
511 B
Perl
23 lines
511 B
Perl
#!/usr/bin/perl
|
|
$prefix = $ENV{'PKG_PREFIX'};
|
|
$dir = "$prefix/lib/X11/fonts/local";
|
|
$to = "$dir/fonts.alias";
|
|
$from = "$to.orig";
|
|
rename($to, $from) || die("Can't rename: $!");
|
|
open(IN, $from) || die("Can't open $from: $!");
|
|
open(OUT, ">$to") || die("Can't open $to: $!");
|
|
while (<IN>) {
|
|
chop;
|
|
if (/^\s*!/ || /^\s*$/) {
|
|
print OUT "$_\n";
|
|
}
|
|
else {
|
|
@line = split(/\s+/, $_);
|
|
@elm = split(/-+/, $line[0]);
|
|
if ($elm[1] ne 'alias') {
|
|
print OUT "$_\n";
|
|
}
|
|
}
|
|
}
|
|
#system("$prefix/bin/xset fp rehash");
|