boost/build
2
0
Fork 0
mirror of https://github.com/boostorg/build.git synced 2026-02-15 00:52:16 +00:00
Code Issues Projects Releases Wiki Activity

Build request expansion

Browse Source 
[SVN r12778]
This commit is contained in:
Dave Abrahams
2002-02-10 00:49:29 +00:00
parent 96c830fc0b
commit e9b2c95e8a
8 changed files with 585 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/util/string.jam
View File

@@ -1,4 +1,4 @@
# (C) Copyright David Abrahams 2001. Permission to copy, use, modify, sell and
# (C) Copyright David Abrahams 2002. Permission to copy, use, modify, sell and
# distribute this software is granted provided this copyright notice appears in
# all copies. This software is provided "as is" without express or implied
# warranty, and with no claim as to its suitability for any purpose.
@@ -23,6 +23,17 @@ rule chars ( string )
return $(result) ;
}
rule join ( strings * : separator ? )
{
separator ?= "" ;
local result = $(strings[1]) ;
for local x in $(strings[2-])
{
result = $(result)$(separator)$(x) ;
}
return $(result) ;
}
rule __test__ ( )
{
import assert ;
@@ -35,4 +46,7 @@ rule __test__ ( )
assert.result a b c d e f g h i : chars abcdefghi ;
assert.result a b c d e f g h i j : chars abcdefghij ;
assert.result a b c d e f g h i j k : chars abcdefghijk ;
assert.result a//b/c/d : join a "" b c d : / ;
assert.result abcd : join a "" b c d ;
}