[Boost-commit] svn:boost r39330 - trunk/tools/jam/src

From: grafikrobot_at_[hidden]
Date: 2007-09-16 17:35:21

Author: grafik
Date: 2007-09-16 17:35:19 EDT (Sun, 16 Sep 2007)
New Revision: 39330
URL: http://svn.boost.org/trac/boost/changeset/39330

Log:
Implement @() expansion during parse phase. (fixes #721)
Text files modified: 
   trunk/tools/jam/src/expand.c |    43 +++++++++++++++++++++++++++++++++++++-- 
   1 files changed, 40 insertions(+), 3 deletions(-)

Modified: trunk/tools/jam/src/expand.c
==============================================================================
--- trunk/tools/jam/src/expand.c	(original)
+++ trunk/tools/jam/src/expand.c	2007-09-16 17:35:19 EDT (Sun, 16 Sep 2007)
@@ -90,18 +90,55 @@
 
     /* This gets alot of cases: $(<) and $(>) */
 
-    if( in[0] == '$' && in[1] == '(' && in[3] == ')' && !in[4] )
+    if( in[0] == '$' && in[1] == '(' && in[3] == ')' && in[4] == '\0' )
     {
         switch( in[2] )
         {
-        case '1':
         case '<':
             return list_copy( l, lol_get( lol, 0 ) );
 
-        case '2':
         case '>':
             return list_copy( l, lol_get( lol, 1 ) );
+        
+        case '1':
+        case '2':
+        case '3':
+        case '4':
+        case '5':
+        case '6':
+        case '7':
+        case '8':
+        case '9':
+            return list_copy( l, lol_get( lol, in[2]-'1' ) );
+        }
+    }
+    
+    /* Expand @() files, to single item plus accompanying file. */
+    
+    if ( in[0] == '@' && in[1] == '(' && *(end-1) == ')' )
+    {
+        /* We try the expansion until it fits within the propspective output buffer. */
+        char * at_buf = 0;
+        int at_size = MAXJPATH;
+        int at_len = 0;
+        do
+        {
+            BJAM_FREE(at_buf);
+            at_buf = (char*)BJAM_MALLOC_ATOMIC(at_size + 1);
+            at_len = var_string( in, at_buf, at_size, lol );
+            at_size *= 2;
+        } while ( at_len < 0 && at_len < INT_MAX / 2 );
+        /* Return the result as a single item list. */
+        if ( at_len > 0 )
+        {
+            LIST * r;
+            string_copy( buf, at_buf );
+            r = list_new( l, newstr( buf->value) );
+            string_free( buf );
+            BJAM_FREE(at_buf);
+            return r;
         }
+        BJAM_FREE(at_buf);
     }
 
     /* Just try simple copy of in to out. */