Ticket #16336: virtual-1.0.tcl

# $Id $
#
# Copyright (c) 2008 Caspar Florian Ebeling <febeling@macports.org>,
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are
# met:
#
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. Neither the name of Apple Computer, Inc. nor the names of its
#    contributors may be used to endorse or promote products derived from
#    this software without specific prior written permission.
# 
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#

proc lremove {listVal value} {
        set idx [lsearch -exact $listVal $value]
        lreplace $listVal $idx $idx
}

categories-append   virtual

configure {}
activate {}
checksum {}
fetch {}
build {}
destroot {}
install {}

proc virtual.setup {name providing_ports {primary "first"}} {
        name ${name}

        if {${primary} eq "first"} {
                set provider [lindex ${providing_ports} 0]
                depends_lib-append port:${provider}
        } else {
                depends_lib-append port:${primary}
        }

        set alternatives [lremove ${providing_ports} ${primary}]
        foreach provider ${alternatives} {
                set deselected [lremove ${alternatives} ${provider}]
                set definition "depends_lib-delete port:${primary}\ndepends_lib-append port:${provider}\n"
                ui_info "definition(${provider}): ${definition}"
                variant ${provider} conflicts ${deselected} ${definition}
        }
}