Ignore:
Timestamp:
Dec 9, 2002, 4:39:49 AM (16 years ago)
Author:
landonf
Message:

Add working portexec
Change darwinports API:
dportopen now takes two lists, not two pointers to arrays
Update tk port to work with new portexec primitive

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r1362 r1363  
    10821082proc portexec_int {portname target {newworkpath ""}} {
    10831083    ui_debug "Executing $target ($portname)"
    1084     array set variations [list]
     1084    set variations [list]
    10851085    if {$newworkpath == ""} {
    10861086        array set options [list]
     
    10961096    array set portinfo [lindex $res 1]
    10971097    set porturl $portinfo(porturl)
    1098     set worker [dportopen $porturl options variations]
    1099     if {[catch {dportexec $worker clean} result] || $result != 0} {
    1100         ui_error "Clean of $portname failed: $result"
    1101         dportclose $worker
    1102         return -1
    1103     }
    1104         if {$target != "clean"} {
    1105                 if {[catch {dportexec $worker $target} result] || $result != 0} {
    1106                 ui_error "Execution $portname $target failed: $result"
    1107                 dportclose $worker
    1108                 return -1
    1109                 }
    1110         }
     1098    set worker [dportopen $porturl [array get options] $variations]
     1099    if {[catch {dportexec $worker $target} result] || $result != 0} {
     1100        ui_error "Execution $portname $target failed: $result"
     1101        dportclose $worker
     1102        return -1
     1103    }
    11111104    dportclose $worker
    11121105   
Note: See TracChangeset for help on using the changeset viewer.