Changeset 78062 for trunk/base/portmgr


Ignore:
Timestamp:
Apr 21, 2011, 9:07:51 PM (9 years ago)
Author:
jmr@…
Message:

implement subports

Location:
trunk/base/portmgr
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/portmgr/jobs/port_binary_distributable.tcl

    r76039 r78062  
    6767    }
    6868    array set portInfo [lindex $portSearchResult 1]
    69     set mport [mportopen $portInfo(porturl) {} $variantInfo]
     69    set mport [mportopen $portInfo(porturl) [list subport $portName] $variantInfo]
    7070    array unset portInfo
    7171    array set portInfo [mportinfo $mport]
  • trunk/base/portmgr/packaging/dpkgall.tcl

    r68749 r78062  
    440440                }
    441441
     442        # open correct subport
     443        set options(subport) $portinfo(name)
     444
    442445                # Skip un-supported ports
    443446                if {[info exists portinfo(platforms)] && ${anyplatform_flag} != "true"} {
     
    691694
    692695        foreach port [get_required_ports] {
     696            set options(subport) $port
    693697                if {[catch {do_portexec $port [array get options] [array get variants] activate} result]} {
    694698                        global errorInfo
  • trunk/base/portmgr/packaging/packageall.tcl

    r71035 r78062  
    399399        # Turn on verbose output for the build
    400400        set ui_options(ports_verbose) yes
     401        set options(subport) $name
    401402        if {[catch {set workername [mportopen $porturl [array get options] [array get variations] yes]} result] ||
    402403                $result == 1} {
  • trunk/base/portmgr/packaging/rpmall.tcl

    r71035 r78062  
    451451                        array set prebuildinfo [lindex $search 1]
    452452                        set ui_options(ports_verbose) yes
     453                        set options(subport) ${prebuild}
    453454                        if {[catch {set workername [mportopen $prebuildinfo(porturl) [array get options] [array get variations] yes]} result] ||
    454455                                $result == 1} {
     
    471472        # Turn on verbose output for the build
    472473        set ui_options(ports_verbose) yes
     474        set options(subport) $name
    473475        if {[catch {set workername [mportopen $porturl [array get options] [array get variations]]} result] ||
    474476                $result == 1} {
Note: See TracChangeset for help on using the changeset viewer.