Ticket #16336: virtual-1.0.tcl

File virtual-1.0.tcl, 2.3 KB (added by febeling@…, 14 years ago)
Line 
1# $Id $
2#
3# Copyright (c) 2008 Caspar Florian Ebeling <febeling@macports.org>,
4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions are
8# met:
9#
10# 1. Redistributions of source code must retain the above copyright
11#    notice, this list of conditions and the following disclaimer.
12# 2. Redistributions in binary form must reproduce the above copyright
13#    notice, this list of conditions and the following disclaimer in the
14#    documentation and/or other materials provided with the distribution.
15# 3. Neither the name of Apple Computer, Inc. nor the names of its
16#    contributors may be used to endorse or promote products derived from
17#    this software without specific prior written permission.
18#
19# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
23# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
25# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
26# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
27# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
28# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30#
31
32proc lremove {listVal value} {
33        set idx [lsearch -exact $listVal $value]
34        lreplace $listVal $idx $idx
35}
36
37categories-append   virtual
38
39configure {}
40activate {}
41checksum {}
42fetch {}
43build {}
44destroot {}
45install {}
46
47proc virtual.setup {name providing_ports {primary "first"}} {
48        name ${name}
49
50        if {${primary} eq "first"} {
51                set provider [lindex ${providing_ports} 0]
52                depends_lib-append port:${provider}
53        } else {
54                depends_lib-append port:${primary}
55        }
56
57        set alternatives [lremove ${providing_ports} ${primary}]
58        foreach provider ${alternatives} {
59                set deselected [lremove ${alternatives} ${provider}]
60                set definition "depends_lib-delete port:${primary}\ndepends_lib-append port:${provider}\n"
61                ui_info "definition(${provider}): ${definition}"
62                variant ${provider} conflicts ${deselected} ${definition}
63        }
64}