| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- # Copyright 2002-2005 Vladimir Prus.
- # Distributed under the Boost Software License, Version 1.0.
- # (See accompanying file LICENSE.txt or copy at
- # https://www.bfgroup.xyz/b2/LICENSE.txt)
- import os ;
- import gcc ;
- import property ;
- import toolset ;
- rule properties-as-path ( properties * )
- {
- local r ;
- for local p in $(properties)
- {
- if $(p:G) != <action>
- {
- r += $(p) ;
- }
- }
- return [ property.as-path
- [ property.remove incidental : $(r) ] ] ;
- }
- toolset.flags yfc-compile KNOWN-PROPERTIES : <toolset> <optimization> ;
- toolset.flags yfc-link KNOWN-PROPERTIES : <toolset> <optimization> ;
- rule yfc-compile ( target : sources * : property-set * )
- {
- PROPERTIES on $(target) = [ properties-as-path $(property-set) ] ;
- }
- actions yfc-compile
- {
- echo $(PROPERTIES) > $(<)
- echo $(>) >> $(<)
- }
- rule yfc-link ( target : sources * : property-set * )
- {
- PROPERTIES on $(target) = [ properties-as-path $(property-set) ] ;
- }
- actions yfc-link
- {
- echo $(PROPERTIES) > $(<)
- echo $(>) >> $(<)
- }
- if [ os.name ] = VMS
- {
- actions yfc-compile
- {
- PIPE WRITE SYS$OUTPUT "$(PROPERTIES)" | TYPE SYS$INPUT /OUT=$(<:W)
- PIPE WRITE SYS$OUTPUT "$(>:J= ",")" | APPEND /NEW SYS$INPUT $(<:W)
- }
- actions yfc-link
- {
- PIPE WRITE SYS$OUTPUT "$(PROPERTIES)" | TYPE SYS$INPUT /OUT=$(<:W)
- OPEN /APPEND FOUT $(<:W)
- WRITE FOUT "$(>:J= ",")"
- CLOSE FOUT
- }
- }
- IMPORT $(__name__) : yfc-compile yfc-link : : yfc-compile yfc-link ;
|