From owner-ports-jp@jp.freebsd.org  Fri Aug 28 18:48:04 1998
Received: by jaz.jp.freebsd.org (8.9.1+3.0W/8.7.3) id SAA08723;
	Fri, 28 Aug 1998 18:48:04 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from pis.toba-cmt.ac.jp (pis.toba-cmt.ac.jp [202.26.248.77])
	by jaz.jp.freebsd.org (8.9.1+3.0W/8.7.3) with ESMTP id SAA08718
	for <ports-jp@jp.freebsd.org>; Fri, 28 Aug 1998 18:48:01 +0900 (JST)
	(envelope-from kiri@pis.toba-cmt.ac.jp)
Received: from localhost (localhost.pis [127.0.0.1])
	by pis.toba-cmt.ac.jp (8.9.1/8.8.8) with ESMTP id SAA19733
	for <ports-jp@jp.freebsd.org>; Fri, 28 Aug 1998 18:54:30 +0900 (JST)
	(envelope-from kiri@pis.toba-cmt.ac.jp)
To: ports-jp@jp.freebsd.org
In-Reply-To: Your message of "Thu, 27 Aug 1998 01:57:36 -0700 (PDT)"
	<199808270857.BAA11732@silvia.hip.berkeley.edu>
References: <199808270857.BAA11732@silvia.hip.berkeley.edu>
X-Mailer: Mew version 1.92.4 on XEmacs 20.4 (Emerald)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19980828185430N.kiri@kiri.toba-cmt.ac.jp>
Date: Fri, 28 Aug 1998 18:54:30 +0900
From: KIRIYAMA Kazuhiko <kiri@pis.toba-cmt.ac.jp>
X-Dispatcher: imput version 971024
Lines: 83
Reply-To: ports-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+980820
X-Sequence: ports-jp 4180
Subject: [ports-jp 4180] Re: Add perl5 symlink into japanese/perl5/pkg/PLIST?
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org

$B6M;3(B $B$G$9!#(B

$B$"$5$_(B $B$5$s!'(B
> $B$=$&$=$&!"$@$l$+(B japanese/ $B0J2<$N(B port$B$N%^%K%e%"%k$r:G?7$N(B bsd.port.mk
> $B$K$7$?$,$C$FCj=P$7$F$$$?$@$1$^$9$+!)(B $B4pK\E*$K%^%K%e%"%k$O!J%j%s%/$G$J(B
> $B$$8B$j!KA4It(B MAN?$BJQ?t$G5-=R$7!"(Bpkg/PLIST$B$K$O=q$+$J$$$H$$$&$3$H$K$J$j$^(B
> $B$7$?!#(BMANCOMPRESSED$B$O%G%U%)%k%H$G(B "no"$B!"(BUSE_IMAKE$B$N>l9g$O(B "yes"$B$G$9$N(B
> $B$GIaDL$O;XDj$7$J$/$F$b$h$$$O$:$G$9!#(B

$B$H$j$"$($:(B

(1) PLIST $BCf$K(B */man?/* $B$,$"$l$P:o=|$7$F(B PLIST.new $B$K%;!<%V(B
(2) $B$=$$$D$r(B Makefile $B$NCf$KF~$l$k(B MAN?=.. $B%j%9%H$r@8@.(B

$B$9$k%9%/%j%W%H(B($B"-(B)$B$r:n$j$^$7$?!#;H$$J}$O(B

(1) $B%o!<%/%G%#%l%/%H%j$K0\F0(B
(2) ports $B%5%V%D%j!<$r%3%T!<(B
(3) $B0z?tL5$G<B9T(B

$B$G$9!#$b$A$m$s!VL5J]>Z!W$G$9(B :)

$B!t(B $B0l1~(B japanese $B%D%j!<$G3N$+$a$^$7$?$,(B...

#!/bin/sh

TMPDIR={TMPDIR:-.}

find ${TMPDIR} -path "*/pkg/PLIST" -print | \
    perl -ne '
	$lw = 64;
	chop;
	open(IN,"< $_");
	@a=<IN>;
	open(OUT,"> $_.new");
	@e =grep(/^.*\/man.\/.*$/, @a);
	undef %m;
	undef %mj;
	foreach(@e){
	    chop;
	    @t = split(/\//);
	    if ($t[1] eq "ja"){
		$mj{'0'} = "MANLANG=\t\"ja\"";
		$sec = substr($t[2], -1, 1);
		$t[3] =~s/\.gz$//;
		$mj{$sec}  .= $t[3] . " " if $t[2] eq "man$sec";
		$tmj{$sec} .= $t[3] . " " if $t[2] eq "man$sec";
		$mj{$sec}  .= " \\\n\t\t", $tmj{$sec} = "" if length($tmj{$sec}) > $lw;
	    }else{
		$sec = substr($t[1], -1, 1);
		$t[2] =~s/\.gz$//;
		$m{$sec}  .= $t[2] . " " if $t[1] eq "man$sec";
		$tm{$sec} .= $t[2] . " " if $t[1] eq "man$sec";
		$m{$sec}  .= " \\\n\t\t", $tm{$sec} = "" if length($tm{$sec}) > $lw;
	    }
	}
	print $_, "\n";
	if (defined(%m)){
	    foreach(keys %m){
		substr($m{$_}, 0, 0) = "MAN$_=\t\t";
		$m{$_} =~ s/[ \t]+$//;
		$m{$_} =~ s/\\[ \n\t]+$//;
		$m{$_} .= "\n";
		print $m{$_};
	    }
	}
	if (defined(%mj)){
	    foreach(keys %mj){
		substr($mj{$_}, 0, 0) = "MAN$_=\t\t" if $_ ne "0";
		$mj{$_} =~ s/[ \t]+$//;
		$mj{$_} =~ s/\\[ \n\t]+$//;
		$mj{$_} .= "\n";
		print $mj{$_};
	    }
	}
	@a =grep(!/^.*\/man.\/.*$/, @a);
	print OUT @a;
	close(OUT);
	close(IN)'

---
KIRIYAMA Kazuhiko
kiri@pis.toba-cmt.ac.jp
