mirror of
https://github.com/boostorg/build.git
synced 2026-02-15 13:02:11 +00:00
2a015f5761
committing in tools/build
Modified Files:
build_system.htm
Documented:
local rules
the RULENAMES rule
the EXPORT rule
the BACKTRACE rule
new IMPORT semantics
-d+12 Dependency Graph Output
Crude Argument Binding
Variable numbers of arguments
jam_src/compile.c
implemented RULENAMES, EXPORT, varargs support, new IMPORT semantics
removed unused variables
jam_src/make1.c
jam_src/hdrmacro.c
removed unused variables
jam_src/jamgram.{c,h,y,yy}
"module local x" does not change module local value of x
if it is already set.
jam_src/lists.[ch]
added list_pop_front()
new/assert.jam new/boost-build.jam
new/build-system.jam new/errors.jam
new/modules.jam new/os.path.jam
beginnings of new build system
test/check-arguments.jam
test/check-jam-patches.jam
test/echo_args.jam
Added tests for recent core modifications; comments
Added Files:
new/feature.jam new/property.jam
new/readme.txt new/sequence.jam
new/test.jam
beginnings of new build system
----------------------------------------------------------------------
[SVN r11789]
68 lines
1.8 KiB
Plaintext
68 lines
1.8 KiB
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.
|
|
|
|
import errors : error-skip-frames lol->list ;
|
|
|
|
# assert the equality of A and B
|
|
rule equal ( a * : b * )
|
|
{
|
|
if $(a) != $(b)
|
|
{
|
|
error-skip-frames 3 assertion failure: \"$(a)\" "!=" \"$(b)\" ;
|
|
}
|
|
}
|
|
|
|
# assert that EXPECTED is the result of calling RULE-NAME with the
|
|
# given arguments
|
|
rule result ( expected * : rule-name args * : * )
|
|
{
|
|
local result__ ;
|
|
module [ CALLER_MODULE ]
|
|
{
|
|
result__ = [
|
|
$(rule-name) $(args) : $(3) : $(4) : $(5) : $(6) : $(7) : $(8) : $(9) ] ;
|
|
}
|
|
|
|
if $(result__) != $(expected)
|
|
{
|
|
error-skip-frames 3 assertion failure: "[" $(rule-name)
|
|
[ lol->list $(args) : $(3) : $(4) : $(5) : $(6) : $(7) : $(8) : $(9) ]
|
|
"]"
|
|
: expected: \"$(expected)\"
|
|
: got: \"$(result__)\" ;
|
|
}
|
|
}
|
|
|
|
# assert that the given variable is nonempty.
|
|
rule nonempty-variable ( name )
|
|
{
|
|
local empty ;
|
|
if $($(variable)) = $(empty)
|
|
{
|
|
error-skip-frames 3 assertion failure: expecting non-empty variable $(variable) ;
|
|
}
|
|
}
|
|
|
|
# assert that the result of calling RULE-NAME on the given arguments
|
|
# has a true logical value (is neither an empty list nor all empty
|
|
# strings).
|
|
rule true ( rule-name args * : * )
|
|
{
|
|
local result__ ;
|
|
module [ CALLER_MODULE ]
|
|
{
|
|
result__ = [
|
|
$(rule-name) $(args) : $(2) $(3) : $(4)
|
|
: $(5) : $(6) : $(7) : $(8) : $(9) ] ;
|
|
}
|
|
|
|
if ! $(result__)
|
|
{
|
|
error-skip-frames 3 assertion failure: expecting true result from
|
|
"[" $(rule-name) \"$(args)\" "]" ;
|
|
}
|
|
}
|
|
|