From 776f6adfbf3c09e8a3cbdb7098a9d66cadbdb867 Mon Sep 17 00:00:00 2001
From: Vladimir Prus <ghost@cs.msu.su>
Date: Thu, 16 Feb 2006 07:18:31 +0000
Subject: [PATCH] New rule virtual-target.select-by-type.

[SVN r32950]
---
 v2/build/virtual-target.jam | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/v2/build/virtual-target.jam b/v2/build/virtual-target.jam
index c6a5a837e..ef6694992 100644
--- a/v2/build/virtual-target.jam
+++ b/v2/build/virtual-target.jam
@@ -928,6 +928,22 @@ rule all-targets ( )
     return $(.all-targets) ;
 }
 
+# Returns all targets from 'targets' with types
+# equal to 'type' or derived from it.
+rule select-by-type ( type : targets * )
+{
+    local result ;
+    for local t in $(targets)
+    {
+        if [ type.is-subtype [ $(t).type ] $(type) ]
+        {
+            result += $(t) ;
+        }         
+    }
+    
+    return $(result) ;    
+}
+
 
 
 rule register-actual-name ( actual-name : virtual-target )