From ecf54ec2ed794576c885e9bc4f372b562c105409 Mon Sep 17 00:00:00 2001
From: Vladimir Prus <ghost@cs.msu.su>
Date: Wed, 4 May 2005 06:06:34 +0000
Subject: [PATCH] Remove dead code.

[SVN r28649]
---
 v2/build/targets.jam        | 52 -------------------------------------
 v2/build/virtual-target.jam | 11 ++++++++
 2 files changed, 11 insertions(+), 52 deletions(-)

diff --git a/v2/build/targets.jam b/v2/build/targets.jam
index cf0d456e8..9f53ed09c 100644
--- a/v2/build/targets.jam
+++ b/v2/build/targets.jam
@@ -1245,58 +1245,6 @@ class typed-target : basic-target
     }            
 }
 
-#
-# Given a base target name and a set of properties, returns the
-# name which should be really used, by looking at the <tag> properties.
-# The tag properties come in two flavour:
-#   - <tag>value, 
-#   - <tag>@rule-name
-# In the first case, value is just added to name
-# In the second case, the specified rule is called with name and properties
-# and should return the new name.
-rule tag-name ( name : property-set )
-{
-    local properties = [ $(property-set).raw ] ;
-    
-    local tagged-name = $(name) ;
-
-    local name_f = [ $(property-set).get <name> ] ;
-    local tags = [ $(property-set).get <tag> ] ;
-    
-    if $(name_f) && $(tags)
-    {
-        errors.error "Both <tag> and <name> properties specified" ;
-    }
-    
-
-    if $(name_f)
-    {
-        tagged-name = $(name_f) ;
-    }            
-    if $(tags)
-    {        
-        local rule-name = [ MATCH ^@(.*) : $(tags) ] ;
-        if $(rule-name)
-        {
-            if $(tags[2])
-            {
-                errors.error "<tag>@rulename is present but is the the only <tag> feature" ;
-            }
-            tagged-name = [ $(rule-name) $(name) : $(property-set) ] ;
-        }
-        else
-        {                            
-            for local tag in $(tags)
-            {
-                tagged-name = $(tagged-name)$(tag) ;
-            }
-        }        
-    }
-    
-    return $(tagged-name) ;
-}
-
-
 # Return the list of sources to use, if main target rule is invoked
 # with 'sources'. If there are any objects in 'sources', they are treated
 # as main target instances, and WRITEME.
diff --git a/v2/build/virtual-target.jam b/v2/build/virtual-target.jam
index f2d37bd2c..bd4b879a9 100644
--- a/v2/build/virtual-target.jam
+++ b/v2/build/virtual-target.jam
@@ -405,6 +405,17 @@ class abstract-file-target : virtual-target
         }                
     }            
 
+    # Given the target name specified in constructor, returns the
+    # name which should be really used, by looking at the <tag> properties.
+    # The tag properties come in two flavour:
+    #   - <tag>value, 
+    #   - <tag>@rule-name
+    # In the first case, value is just added to name
+    # In the second case, the specified rule is called with specified name,
+    # target type and properties and should return the new name.
+    # If not <tag> property is specified, or the rule specified by
+    # <tag> returns nothing, returns the result of calling 
+    # virtual-target.add-suffix
     rule _adjust-name ( specified-name )
     {        
         local ps ;