A new file, comments.ja, describes comments of each port.

Fix portindex command to refer comments.ja.
Reviewed by: Motoyuki Konno <motoyuki@snipe.rim.or.jp>
Submitted by: Jun Kuriyama <kuriyama@opt.phys.waseda.ac.jp>
This commit is contained in:
Hiroyuki Hanai 1998-02-12 02:32:52 +00:00
parent 154a2088c1
commit 969440c420
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=2425
4 changed files with 2556 additions and 2 deletions

File diff suppressed because it is too large Load diff

View file

@ -4,7 +4,7 @@
#
# by John Fieber <jfieber@freebsd.org>
# Mon May 13 10:31:58 EST 1996
# $Id: portindex,v 1.3 1997-12-26 17:05:23 max Exp $
# $Id: portindex,v 1.4 1998-02-12 02:32:52 hanai Exp $
# The FreeBSD Japanese Documentation Project
# Original revision: 1.11
@ -56,10 +56,23 @@ sub main {
if (open(CATF, "categories.ja_JP.EUC")) {
while (<CATF>) {
($a, $b) = split('\|');
next if !defined($b);
chop($b);
$catsLANG{$a} = $b;
}
}
# 'COMMENT' translation database
if (open(COMF, "comments.ja")) {
while (<COMF>) {
($a, $b) = split('\|');
next if !defined($b);
chop($b);
$b =~ s/&/&amp;/g;
$b =~ s/</&lt;/g;
$b =~ s/>/&gt;/g;
$descLANG{$a} = $b;
}
}
while (<>) {
chop;
@ -79,6 +92,11 @@ sub main {
$catkey{$name} = $cat[0];
# desc translation
($lloc = $loc) =~ s@^/usr/ports/@@;
$desc = $descLANG{$lloc}
if ($descLANG{$lloc} ne '');
foreach $i (@cat) {
$stats{$i}++;

1259
ja/ports/comments.ja Normal file

File diff suppressed because it is too large Load diff

View file

@ -4,7 +4,7 @@
#
# by John Fieber <jfieber@freebsd.org>
# Mon May 13 10:31:58 EST 1996
# $Id: portindex,v 1.3 1997-12-26 17:05:23 max Exp $
# $Id: portindex,v 1.4 1998-02-12 02:32:52 hanai Exp $
# The FreeBSD Japanese Documentation Project
# Original revision: 1.11
@ -56,10 +56,23 @@ sub main {
if (open(CATF, "categories.ja_JP.EUC")) {
while (<CATF>) {
($a, $b) = split('\|');
next if !defined($b);
chop($b);
$catsLANG{$a} = $b;
}
}
# 'COMMENT' translation database
if (open(COMF, "comments.ja")) {
while (<COMF>) {
($a, $b) = split('\|');
next if !defined($b);
chop($b);
$b =~ s/&/&amp;/g;
$b =~ s/</&lt;/g;
$b =~ s/>/&gt;/g;
$descLANG{$a} = $b;
}
}
while (<>) {
chop;
@ -79,6 +92,11 @@ sub main {
$catkey{$name} = $cat[0];
# desc translation
($lloc = $loc) =~ s@^/usr/ports/@@;
$desc = $descLANG{$lloc}
if ($descLANG{$lloc} ne '');
foreach $i (@cat) {
$stats{$i}++;