1 # Copyright 2001, 2002 Dave Abrahams
2 # Copyright 2003 Vladimir Prus
3 # Distributed under the Boost Software License, Version 1.0.
4 # (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt)
12 rule add ( elements * )
14 for local e in $(elements)
24 rule contains ( element )
26 return $($(element)) ;
31 return $(self.result) ;
37 # Returns the elements of set1 that are not in set2.
39 rule difference ( set1 * : set2 * )
42 for local element in $(set1)
44 if ! ( $(element) in $(set2) )
46 result += $(element) ;
52 NATIVE_RULE set : difference ;
55 # Removes all the items appearing in both set1 & set2.
57 rule intersection ( set1 * : set2 * )
60 for local v in $(set1)
71 # Returns whether set1 & set2 contain the same elements. Note that this ignores
72 # any element ordering differences as well as any element duplication.
74 rule equal ( set1 * : set2 * )
76 if $(set1) in $(set2) && ( $(set2) in $(set1) )
87 assert.result 0 1 4 6 8 9 : difference 0 1 2 3 4 5 6 7 8 9 : 2 3 5 7 ;
88 assert.result 2 5 7 : intersection 0 1 2 4 5 6 7 8 9 : 2 3 5 7 ;
91 assert.true equal 1 1 2 3 : 3 2 2 1 ;
92 assert.false equal 2 3 : 3 2 2 1 ;