Changeset 24551

Timestamp:

2007-04-27 17:48:09 (19 months ago)

Author:

jberry@…

Message:

Add two new commands to port, for comment:

• port homepage -- emits the homepage url for the given port
• port gohome -- open the homepage url using /usr/bin/open

Please tell me if these are useful. There's a bit more work to be done (man page, autoconf) to
make this really real.

Files:

• trunk/base/src/port/port.tcl (modified) (3 diffs)

trunk/base/src/port/port.tcl

@@ -1884 +1884 @@
         require_portlist portlist
         foreachport $portlist {
+                # Verify the portname, getting portinfo to map to a porturl
+                if {[catch {set res [dportsearch $portname no exact]} result]} {
+                        global errorInfo
+                        ui_debug "$errorInfo"
+                        break_softcontinue "search for portname $portname failed: $result" 1 status
+                }
+                if {[llength $res] < 2} {
+                        break_softcontinue "Port $portname not found" 1 status
+                }
+                array set portinfo [lindex $res 1]
+
                 # If we have a url, use that, since it's most specific
                 # otherwise try to map the portname to a url
                 if {$porturl == ""} {
-                        # Verify the portname, getting portinfo to map to a porturl
-                        if {[catch {set res [dportsearch $portname no exact]} result]} {
-                                global errorInfo
-                                ui_debug "$errorInfo"
-                                break_softcontinue "search for portname $portname failed: $result" 1 status
-                        }
-                        if {[llength $res] < 2} {
-                                break_softcontinue "Port $portname not found" 1 status
-                        }
-                        array set portinfo [lindex $res 1]
                         set porturl $portinfo(porturl)
                 }
@@ -1968 +1969 @@
                                         puts $portfile
                                 }
+
+                                homepage {
+                                        set homepage $portinfo(homepage)
+                                        if { $homepage != "" } {
+                                                puts $homepage
+                                        } elseif { [ui_isset ports_verbose] } {
+                                                puts "(no homepage)"
+                                        }
+                                }
+
+                                gohome {
+                                        set homepage $portinfo(homepage)
+                                        if { $homepage != "" } {
+                                                # TODO we should autoconfigure this, and perhaps leave an option for
+                                                # a different command to visit the homepage
+                                                system "/usr/bin/open $homepage"
+                                        } else {
+                                                puts "(no homepage)"
+                                        }
+                                }
                         }
                 } else {
@@ -2136 +2157 @@
         url                     action_portcmds
         file            action_portcmds
+        homepage        action_portcmds
+        gohome          action_portcmds
         
         depends         action_target