mirror of
https://github.com/boostorg/build.git
synced 2026-02-12 12:02:24 +00:00
28 lines
751 B
Plaintext
28 lines
751 B
Plaintext
# (C) Copyright David Abrahams 2001. 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.
|
|
|
|
rule ungrist ( names * )
|
|
{
|
|
local result ;
|
|
for local name in $(names)
|
|
{
|
|
local stripped = [ SUBST $(name) ^<(.*)>$ $1 ] ;
|
|
if ! $(stripped)
|
|
{
|
|
ECHO *** error: in ungrist $(names) ;
|
|
EXIT *** $(name) is not of the form <.*> ;
|
|
}
|
|
result += $(stripped) ;
|
|
}
|
|
return $(result) ;
|
|
}
|
|
|
|
rule __test__
|
|
{
|
|
import assert ;
|
|
assert.result foo bar : ungrist <foo> <bar> ;
|
|
}
|
|
|