From owner-ports-jp@jp.freebsd.org  Mon Jan 24 14:08:25 2000
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id OAA99453;
	Mon, 24 Jan 2000 14:08:25 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from localhost.my.domain (a105.uwajima.shikoku.ne.jp [210.157.174.105])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id OAA99448
	for <ports-jp@jp.freebsd.org>; Mon, 24 Jan 2000 14:08:23 +0900 (JST)
	(envelope-from nin@shikoku.ne.jp)
Received: from shikoku.ne.jp (ninslib [127.0.0.1])
	by localhost.my.domain (8.9.3/8.9.3) with SMTP id OAA40296
	for <ports-jp@jp.freebsd.org>; Mon, 24 Jan 2000 14:06:54 +0900 (JST)
	(envelope-from nin@shikoku.ne.jp)
Date: Mon, 24 Jan 2000 14:02:28 +0900 (JST)
Message-Id: <20000124.140228.78700203.nin@smtp.shikoku.ne.jp>
To: ports jp =?iso-2022-jp?B?GyRCOGZDZhsoQg==?= <ports-jp@jp.freebsd.org>
From: Ninomiya Hideyuki <nin@shikoku.ne.jp>
In-Reply-To: <20000122.161120.74757078.nin@smtp.shikoku.ne.jp>
References: <14472.5066.775919.3188T@ace.sitc.toshiba.co.jp>
	<20000121.185821.08319972.nin@smtp.shikoku.ne.jp>
	<20000122.161120.74757078.nin@smtp.shikoku.ne.jp>
X-Mailer: Mew version 1.95b18 on XEmacs 21.1 (Bryce Canyon)
X-cite-me: =?iso-2022-jp?B?GyRCJEskcxsoQg==?=
X-PGP-Fingerprint: 6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
X-PGP-Public-Key: http://user.shikoku.ne.jp/nin/pgp/public-key.txt
X-URL: http://user.shikoku.ne.jp/nin/index.html
Mime-Version: 1.0
Content-Type: Multipart/Mixed;
 boundary="--Next_Part(Mon_Jan_24_14:02:28_2000_508)--"
Content-Transfer-Encoding: 7bit
Reply-To: ports-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990727
X-Sequence: ports-jp 8666
Subject: [ports-jp 8666] little patch for sysutils/pib (Re: about ports)
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org
X-Originator: nin@shikoku.ne.jp

----Next_Part(Mon_Jan_24_14:02:28_2000_508)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

$B$3$s$K$A$O(B	$BFs5\(B @ $B$*;M9q(B $B$G$9!#(B

$BFs5\(B $B=(9,(B $B$O(B Sat, 22 Jan 2000 16:11:20 +0900 (JST) $B:"$K(B
    Subject:    [ports-jp 8640] Re: about ports
    Message-ID: <20000122.161120.74757078.nin@smtp.shikoku.ne.jp>
        $B$K1w$$$F!"0J2<$N$h$&$K8@$$$^$7$?!#(B
$B$l$*(B> $B0&MQ$N(B pib $B$A$g$C$H$7$?IT6q9g$,M-$C$F$=$lD4$Y$F$?$N$G$9$,(B.....
<snip>
$B$l$*(B> $B<B$O!"<+J,!"!"(Bports $B$NCV$->l=j$rJQ$($F$$$^$9!#(B
<snip>
$B$l$*(B> $B8=$K(B pib $B$G$O!"$=$N$;$$$G(B ports $B$rFI$_9~$a$J$/$J$kIT6q9g$,5/$-$F$^$9!#(B

ports tree $B$r0\F0$7$F$$$k>l9g$KBP1~$9$k0Y$N(B pib $B$KBP$9$k(B patch $B$r(B
$B:n$j$^$7$?!#(B

----Next_Part(Mon_Jan_24_14:02:28_2000_508)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=patch-ac

--- pib.tcl.orig	Mon Jan 24 12:30:50 2000
+++ pib.tcl	Mon Jan 24 12:41:42 2000
@@ -766,7 +766,7 @@
 #
 proc op_init {} {
 
-    global Options Envar env;
+    global argc argv Options Envar env;
 
     # Start out by defining all the enviroment options we grok
     #
@@ -871,6 +871,11 @@
 	}
 	close $fh;
     }
+    # option PORTSDIR override by commandline option
+    if {$argc==1} {
+	regexp -lineanchor -- "^(.*)/.+$" [lindex $argv 0] dummy proot;
+	set Envar(dir:value) $proot;
+    }
 }
 
 ################################################################################
@@ -1613,6 +1618,10 @@
 
 	set pname [lindex $elems 0];		# get port name
 
+	# get ports real path
+	regexp -lineanchor -- "^/usr/ports/(.*)$" [lindex $elems 1] dummy path;
+	set ppath "[op_elookup PORTSDIR]/$path";	
+
 	if {[info exists Ports($pname:name)]} {	# oops, duplicate
 	    if {$Options(warn_dup_names)} {
 		lappend errs "$pname: duplicate port name.";
@@ -1622,7 +1631,7 @@
 
 	# Populate arrays
 	set Ports($pname:name)	  $pname;
-	set Ports($pname:path)    [lindex $elems 1];
+	set Ports($pname:path)    $ppath;
 	set Ports($pname:prefix)  [lindex $elems 2];
 	set Ports($pname:comment) [lindex $elems 3];
 	set Ports($pname:dpath)   [lindex $elems 4];

----Next_Part(Mon_Jan_24_14:02:28_2000_508)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

$B$_$?$$$J46$8$J$s$G$9$,!"!"$5$F$3$N(B patch $B$I$&$9$k$N$,%Y%9%H(B
$B$J$s$G$7$g$&(B ?

[1] send-pr $B$9$k!#(B

[2] Maintainer $B$N(B msmith@freebsd.org $B$5$s$K(B patch $B$rAw$k!#(B

$B<+J,$8$c$A$g$C$H9,$;$K$J$l$?$1$I!"$3$NJU$I$&$9$j$cNI$$$N$+(B
$BNI$/2r$C$F$J$$<+J,(B....
---
ICQ UIN:57442553                         $BFs5\(B $B=(9,(B@$B0&I2(B $B54KL(B $B9-8+D.(B
PGP-Fingerprint: 6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:  http://user.shikoku.ne.jp/nin/pgp/public-key.txt
mailto:nin@shikoku.ne.jp   http://user.shikoku.ne.jp/nin/index.html
----Next_Part(Mon_Jan_24_14:02:28_2000_508)----
