Changeset 14508 for trunk/base

Timestamp:

Oct 9, 2005, 6:37:19 PM (19 years ago)

Author:

jberry

Message:

• 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.

Location:

trunk/base

Files:

• ChangeLog (modified) (2 diffs)
• src/port/port.tcl (modified) (7 diffs)

trunk/base/ChangeLog

@@ -1 +1 @@
 #
-#       $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
@@ -86 +86 @@
         - 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)
 
 

trunk/base/src/port/port.tcl

@@ -3 +3 @@
 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>
@@ -304 +304 @@
                         set url $global_porturl
                 } else {
-                        set url file://./
+                        set url file://.
                 }
                 set portname [url_to_portname $url]
@@ -362 +362 @@
                         set url $global_porturl
                 } else {
-                        set url file://./
+                        set url file://.
                 }
                 set portname [url_to_portname $url]
@@ -460 +460 @@
                 set url $global_porturl
         } else {
-                set url file://./
+                set url file://.
         }
         set portname [url_to_portname $url]
@@ -1699 +1699 @@
         }
         
-        ed      -
+        ed - edit -
         cat -
-        path -
-        portfile {
+        dir -
+        file {
                 # Operations on the PortFiles of the port
                 require_portlist
@@ -1736 +1736 @@
                                         }
                                         
-                                        ed {
+                                        ed - edit {
                                                 # Find an editor to edit the portfile
                                                 set editor ""
@@ -1752 +1752 @@
                                         }
                                         
-                                        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
                                         }