[51287] trunk/base/src/port1.0/portutil.tcl

[toby at macports.org]

Revision: 51287
          http://trac.macports.org/changeset/51287
Author:   toby at macports.org
Date:     2009-05-22 01:38:17 -0700 (Fri, 22 May 2009)
Log Message:
-----------
Delete the rather terrifying "portexec" functionality. This appears to have be used at some point in the distant past, but no longer...

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-05-22 08:25:05 UTC (rev 51286)
+++ trunk/base/src/port1.0/portutil.tcl	2009-05-22 08:38:17 UTC (rev 51287)
@@ -2048,52 +2048,6 @@
     }
 }
 
-
-# builds the specified port (looked up in the index) to the specified target
-# doesn't yet support options or variants...
-# newworkpath defines the port's workpath - useful for when one port relies
-# on the source, etc, of another
-proc portexec_int {portname target {newworkpath ""}} {
-    ui_debug "Executing $target ($portname)"
-    set variations [list]
-    if {$newworkpath == ""} {
-        array set options [list]
-    } else {
-        set options(workpath) ${newworkpath}
-    }
-
-    set res [mport_lookup $portname]
-    if {[llength $res] < 2} {
-        ui_error "Dependency $portname not found"
-        return -1
-    }
-
-    array set portinfo [lindex $res 1]
-    set porturl $portinfo(porturl)
-    if {[catch {set worker [mport_open $porturl [array get options] $variations]} result]} {
-        global errorInfo
-        ui_debug "$errorInfo"
-        ui_error "Opening $portname $target failed: $result"
-        return -1
-    }
-    if {[catch {mport_exec $worker $target} result] || $result != 0} {
-        global errorInfo
-        ui_debug "$errorInfo"
-        ui_error "Execution $portname $target failed: $result"
-        mport_close $worker
-        return -1
-    }
-    mport_close $worker
-
-    return 0
-}
-
-# portfile primitive that calls portexec_int with newworkpath == ${workpath}
-proc portexec {portname target} {
-    global workpath
-    return [portexec_int $portname $target $workpath]
-}
-
 proc adduser {name args} {
     global os.platform
     set passwd {*}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090522/33ce74e2/attachment-0001.html>