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

Print the value of "project-help" variant in ./Jamfile on --help option.

Browse Source 
[SVN r32767]
This commit is contained in:
Vladimir Prus
2006-02-09 13:38:13 +00:00
parent 8ed3cf9d15
commit 874f64a3b1
3 changed files with 75 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
v2/build-system.jam
View File

@@ -26,6 +26,7 @@ import "class" : new ;
import builtin ;
import make ;
import os ;
import option ;
import version ;
@@ -131,6 +132,10 @@ if --version in [ modules.peek : ARGV ]
EXIT ;
}
option.process ;
# We always load project in "." so that 'use-project' directives has
# any chance of been seen. Otherwise, we won't be able to refer to
# subprojects using target ids.

63
v2/kernel/bootstrap.jam
View File

@@ -28,7 +28,6 @@ for local r in $(required-rules)
local native =
regex transform 2
;
while $(native)
{
if ! [ HAS_NATIVE_RULE $(native[1]) :
@@ -113,68 +112,6 @@ IMPORT modules : import : : import ;
#
import modules ;
# Check command-line args as soon as possible. For each option try
# to load module named after option. Is that succeeds, invoke 'process'
# rule in the module. The rule may return "true" to indicate that the
# regular built process should not be attempted.
#
# Options take the general form of: --<name>[=<value>] [<value>]
#
local dont-build ;
local args = $(ARGV) ;
while $(args)
{
local arg = [ MATCH ^--(.*) : $(args[1]) ] ;
while $(args[2-]) && ! $(arg)
{
args = $(args[2-]) ;
arg = [ MATCH ^--(.*) : $(args[1]) ] ;
}
args = $(args[2-]) ;
if $(arg)
{
local split = [ MATCH ^(([^-=]+)[^=]*)(=?)(.*)$ : $(arg) ] ;
local full-name = $(split[1]) ;
local prefix = $(split[2]) ;
local values ;
if $(split[3])
{
values = $(split[4]) ;
}
if $(args) && ! [ MATCH ^(--).* : $(args[1]) ]
{
values += $(args[1]) ;
args = $(args[2-]) ;
}
# look in options subdirectories of BOOST_BUILD_PATH for modules
# matching the full option name and then its prefix.
local plugin-dir = options ;
local option-files = [
GLOB $(plugin-dir:D=$(BOOST_BUILD_PATH)) : $(full-name).jam $(prefix).jam
] ;
if $(option-files)
{
# load the file into a module named for the option
local f = $(option-files[1]) ;
local module-name = --$(f:D=:S=) ;
modules.load $(module-name) : $(f:D=) : $(f:D) ;
# if there's a process rule, call it with the full option name
# and its value (if any). If there was no "=" in the option,
# the value will be empty.
if process in [ RULENAMES $(module-name) ]
{
dont-build +=
[ modules.call-in $(module-name) : process --$(full-name) : $(values) ] ;
}
}
}
}
if ! $(dont-build)
{
# Allow users to override the build system file from the

70
v2/util/option.jam
View File

@@ -19,3 +19,73 @@ rule get ( name : default-value ? )
}
}
rule process ( )
{
# Check command-line args as soon as possible. For each option try
# to load module named after option. Is that succeeds, invoke 'process'
# rule in the module. The rule may return "true" to indicate that the
# regular built process should not be attempted.
#
# Options take the general form of: --<name>[=<value>] [<value>]
#
local ARGV = [ modules.peek : ARGV ] ;
local BOOST_BUILD_PATH = [ modules.peek : BOOST_BUILD_PATH ] ;
local dont-build ;
local args = $(ARGV) ;
while $(args)
{
local arg = [ MATCH ^--(.*) : $(args[1]) ] ;
while $(args[2-]) && ! $(arg)
{
args = $(args[2-]) ;
arg = [ MATCH ^--(.*) : $(args[1]) ] ;
}
args = $(args[2-]) ;
if $(arg)
{
local split = [ MATCH ^(([^-=]+)[^=]*)(=?)(.*)$ : $(arg) ] ;
local full-name = $(split[1]) ;
local prefix = $(split[2]) ;
local values ;
if $(split[3])
{
values = $(split[4]) ;
}
if $(args) && ! [ MATCH ^(--).* : $(args[1]) ]
{
values += $(args[1]) ;
args = $(args[2-]) ;
}
# look in options subdirectories of BOOST_BUILD_PATH for modules
# matching the full option name and then its prefix.
local plugin-dir = options ;
local option-files = [
GLOB $(plugin-dir:D=$(BOOST_BUILD_PATH)) : $(full-name).jam $(prefix).jam
] ;
if $(option-files)
{
# load the file into a module named for the option
local f = $(option-files[1]) ;
local module-name = --$(f:D=:S=) ;
modules.load $(module-name) : $(f:D=) : $(f:D) ;
# if there's a process rule, call it with the full option name
# and its value (if any). If there was no "=" in the option,
# the value will be empty.
if process in [ RULENAMES $(module-name) ]
{
dont-build +=
[ modules.call-in $(module-name) : process --$(full-name) : $(values) ] ;
}
}
}
}
}