[Boost-commit] svn:boost r83855 - in trunk/tools/build/v2: engine/modules util

Subject: [Boost-commit] svn:boost r83855 - in trunk/tools/build/v2: engine/modules util
From: steven_at_[hidden]
Date: 2013-04-11 18:55:26

Author: steven_watanabe
Date: 2013-04-11 18:55:25 EDT (Thu, 11 Apr 2013)
New Revision: 83855
URL: http://svn.boost.org/trac/boost/changeset/83855

Log:
Implement sequence.transform as a native rule.
Text files modified: 
   trunk/tools/build/v2/engine/modules/sequence.c |    42 +++++++++++++++++++++++++++++++++++++-- 
   trunk/tools/build/v2/util/sequence.jam         |     4 +++                                     
   2 files changed, 43 insertions(+), 3 deletions(-)

Modified: trunk/tools/build/v2/engine/modules/sequence.c
==============================================================================
--- trunk/tools/build/v2/engine/modules/sequence.c	(original)
+++ trunk/tools/build/v2/engine/modules/sequence.c	2013-04-11 18:55:25 EDT (Thu, 11 Apr 2013)
@@ -7,6 +7,8 @@
 
 #include "../native.h"
 #include "../object.h"
+#include "../lists.h"
+#include "../compile.h"
 
 #include <stdlib.h>
 
@@ -52,9 +54,43 @@
     return result;
 }
 
+LIST * sequence_transform( FRAME * frame, int flags )
+{
+    LIST * function = lol_get( frame->args, 0 );
+    LIST * sequence = lol_get( frame->args, 1 );
+    LIST * result = L0;
+    OBJECT * function_name = list_front( function );
+    LISTITER args_begin = list_next( list_begin( function ) ), args_end = list_end( function );
+    LISTITER iter = list_begin( sequence ), end = list_end( sequence );
+
+    for ( ; iter != end; iter = list_next( iter ) )
+    {
+        FRAME inner[ 1 ];
+
+        frame_init( inner );
+        inner->prev = frame;
+        inner->prev_user = frame->prev_user;
+        inner->module = frame->prev->module;
+
+        lol_add( inner->args, list_push_back( list_copy_range( function, args_begin, args_end ), object_copy( list_item( iter ) ) ) );
+        result = list_append( result, evaluate_rule( function_name, inner ) );
+
+        frame_free( inner );
+    }
+
+    return result;
+}
+
 void init_sequence()
 {
-    char const * args[] = { "elements", "*", ":", "rank", "*", 0 };
-    declare_native_rule( "sequence", "select-highest-ranked", args,
-                        sequence_select_highest_ranked, 1 );
+    {
+        char const * args[] = { "elements", "*", ":", "rank", "*", 0 };
+        declare_native_rule( "sequence", "select-highest-ranked", args,
+                            sequence_select_highest_ranked, 1 );
+    }
+    {
+        char const * args[] = { "function", "+", ":", "sequence", "*", 0 };
+        declare_native_rule( "sequence", "transform", args,
+                            sequence_transform, 1 );
+    }
 }

Modified: trunk/tools/build/v2/util/sequence.jam
==============================================================================
--- trunk/tools/build/v2/util/sequence.jam	(original)
+++ trunk/tools/build/v2/util/sequence.jam	2013-04-11 18:55:25 EDT (Thu, 11 Apr 2013)
@@ -50,6 +50,10 @@
     return $(result) ;
 }
 
+if [ HAS_NATIVE_RULE sequence : transform : 1 ]
+{
+    NATIVE_RULE sequence : transform ;
+}
 
 rule reverse ( s * )
 {