boost/build
2
0
Fork 0
mirror of https://github.com/boostorg/build.git synced 2026-02-10 23:32:20 +00:00
Code Issues Projects Releases Wiki Activity

Better debuggability

Browse Source 
[SVN r16206]
This commit is contained in:
Dave Abrahams
2002-11-12 03:15:08 +00:00
parent ef4485356f
commit aa3e9c9ba5
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/kernel/class.jam
View File

@@ -213,18 +213,17 @@ rule instance ( name : class args * : * )
}
}
# Keeps track of the next unique object name to generate
next-instance = 1 ;
# create a new uniquely-named instance of the given class, returning
# its name.
rule new ( class args * : * )
{
local name = object@$(next-instance) ;
.next-instance.$(class) ?= 1 ;
local name = object($(class))@$(.next-instance.$(class)) ;
instance $(name) : $(class) $(args) : $(2) : $(3) : $(4) : $(5) : $(6) : $(7) : $(8) : $(9) ;
# bump the next unique object name
next-instance = [ numbers.increment $(next-instance) ] ;
.next-instance.$(class) = [ numbers.increment $(.next-instance.$(class)) ] ;
# Return the name of the new instance.
return $(name) ;
@@ -275,7 +274,7 @@ rule is-derived ( class : bases + )
rule is-instance ( value # The value to check
)
{
return [ MATCH "(object@).*" : $(value) ] ;
return [ MATCH "(object\\()[^@]+\\)@.*" : $(value) ] ;
}
# Check if the given value is of the given type.
@@ -285,7 +284,7 @@ rule is-a (
: type # The type to test for.
)
{
if [ MATCH "(object@).*" : $(instance) ]
if [ MATCH "(object\\()[^@]+\\)@.*" : $(instance) ]
{
return [ class.is-derived [ modules.peek $(instance) : __class__ ] : $(type) ] ;
}