[Boost-commit] svn:boost r54371 - trunk/tools/build/v2/tools

Subject: [Boost-commit] svn:boost r54371 - trunk/tools/build/v2/tools
From: juergen.hunold_at_[hidden]
Date: 2009-06-26 05:16:31

Author: jhunold
Date: 2009-06-26 05:16:31 EDT (Fri, 26 Jun 2009)
New Revision: 54371
URL: http://svn.boost.org/trac/boost/changeset/54371

Log:
Add tag rules for <qt> and <address-model>
Text files modified: 
   trunk/tools/build/v2/tools/common.jam |    27 +++++++++++++++++++++++++++             
   1 files changed, 27 insertions(+), 0 deletions(-)

Modified: trunk/tools/build/v2/tools/common.jam
==============================================================================
--- trunk/tools/build/v2/tools/common.jam	(original)
+++ trunk/tools/build/v2/tools/common.jam	2009-06-26 05:16:31 EDT (Fri, 26 Jun 2009)
@@ -773,6 +773,14 @@
                 result += [ join-tag $(f:G=) : [ runtime-tag $(name) : $(type) :
                 $(property-set) ] ] ;
             
+            case <qt> :
+            result += [ join-tag $(f:G=) : [ qt-tag $(name) : $(type) :
+                $(property-set) ] ] ;
+
+            case <address-model> :
+            result += [ join-tag $(f:G=) : [ address-model-tag $(name) : $(type) :
+                $(property-set) ] ] ;
+
             case <version:*> :
                 local key = [ MATCH <version:(.*)> : $(f:G) ] ;
                 local version = [ $(property-set).get <$(key)> ] ;
@@ -921,6 +929,25 @@
     return $(tag:J=) ;
 }
 
+# Create a tag for the Qt library version
+# "<qt>4.6.0" will result in tag "qt460"
+local rule qt-tag ( name : type ? : property-set )
+{
+    local properties = [ $(property-set).get <qt> ] ;
+    local version = [ MATCH "([0123456789]+)[.]?([0123456789]*)[.]?([0123456789]*)"
+        : $(properties) ] ;
+    local tag = "qt"$(version:J=) ;
+    return $(tag) ;
+}
+
+# Create a tag for the address-model
+# <address-model>64 will simply generate "64"
+local rule address-model-tag ( name : type ? : property-set )
+{
+    local tag = ;
+    local version = [ $(property-set).get <address-model> ] ;
+    return $(version) ;
+}
 
 rule __test__ ( )
 {