Skip to content
Permalink
Browse files

- Rename "portfile" action to "file"; rename "path" action to "dir".

 - Rename "ed" action to "edit", keeping "ed" as a nice short alias.
 - Abbreviate url used to specify current directory, so it looks better when
   we convert it to a path and add a "/".
 - Update ChangeLog to with additional information about new actions, and
   to reflect new names.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14508 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
jdberry committed Oct 9, 2005
1 parent 83b7fc8 commit f00a6ee7d58b6bffcc1133ab2463c188778ad41f
Showing with 20 additions and 14 deletions.
  1. +8 −2 ChangeLog
  2. +12 −12 src/port/port.tcl
@@ -1,5 +1,5 @@
#
# $Id: ChangeLog,v 1.7 2005/10/09 15:31:27 jberry Exp $
# $Id: ChangeLog,v 1.8 2005/10/09 18:37:18 jberry Exp $
#
# This is a log of major user-visible changes in each release
#
@@ -85,7 +85,13 @@ Release 1.2:

- Snazzy new ChangeLog file

- Add new actions for port(1): help, echo, cat, ed, path, portfile (jberry)
- Add new actions for port(1): help (get help about port),
echo (the expanded arguments),
cat (the contents of the Portfiles from the specified ports),
edit (also alias "ed", the contents of the Portfiles, using EDITOR or VISUAL),
dir (emit path to the port's directory),
file (emit path to the port's Portfile)
(jberry)


Release 1.1:
@@ -2,7 +2,7 @@
#\
exec @TCLSH@ "$0" "$@"
# port.tcl
# $Id: port.tcl,v 1.114 2005/10/09 15:31:28 jberry Exp $
# $Id: port.tcl,v 1.115 2005/10/09 18:37:19 jberry Exp $
#
# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
# Copyright (c) 2002 Apple Computer, Inc.
@@ -303,7 +303,7 @@ proc add_to_portlist {listname portentry} {
if {[info exists global_porturl]} {
set url $global_porturl
} else {
set url file://./
set url file://.
}
set portname [url_to_portname $url]
set port(url) $url
@@ -361,7 +361,7 @@ proc require_portlist {} {
if {[info exists global_porturl]} {
set url $global_porturl
} else {
set url file://./
set url file://.
}
set portname [url_to_portname $url]

@@ -459,7 +459,7 @@ proc get_current_port {} {
if {[info exists global_porturl]} {
set url $global_porturl
} else {
set url file://./
set url file://.
}
set portname [url_to_portname $url]
if {$portname == ""} {
@@ -1698,10 +1698,10 @@ switch -- $action {
}
}

ed -
ed - edit -
cat -
path -
portfile {
dir -
file {
# Operations on the PortFiles of the port
require_portlist
foreachport $portlist {
@@ -1735,7 +1735,7 @@ switch -- $action {
close $f
}

ed {
ed - edit {
# Find an editor to edit the portfile
set editor ""
foreach ed { VISUAL EDITOR } {
@@ -1751,13 +1751,13 @@ switch -- $action {
}
}

path {
# output the path to the port
dir {
# output the path to the port's directory
puts $portdir
}

portfile {
# output the path to the portfile
file {
# output the path to the port's portfile
puts $portfile
}
}

0 comments on commit f00a6ee

Please sign in to comment.
You can’t perform that action at this time.