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

Parse multiline comments.

Browse Source
This commit is contained in:
Steven Watanabe
2018-01-18 11:31:44 -07:00
parent ac8ba7d5e6
commit fe432547dc
1 changed files with 38 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/util/doc.jam
View File

@@ -652,6 +652,43 @@ local rule print-help-config (
ws = "\t " ;
# Extract the text from a single comment
#
local rule extract-one-comment (
var # The name of the variable to extract from
: start # The initial part after the leading '#'
)
{
local m = [ MATCH ^(\\|)(.*) : $(start) ] ;
if $(m)
{
start = $(m[2]) ;
local comment ;
while true
{
local end = [ MATCH "(.*)(\\|#)(.*)" : $(start) ] ;
if $(end)
{
comment += $(end[1]) ;
$(var) = $(end[3]) $($(var)[2-]) ;
return $(comment) ;
}
else
{
comment += $(start) ;
$(var) = $($(var)[2-]) ;
}
start = $($(var)[1]) ;
}
}
else
{
$(var) = $($(var)[2-]) ;
if $(start) { return [ MATCH "^[$(ws)]?(.*)$" : $(start) ] ; }
else { return "" ; }
}
}
# Extract the text from a block of comments.
#
local rule extract-comment (
@@ -663,9 +700,7 @@ local rule extract-comment (
local l = [ MATCH "^[$(ws)]*(#)(.*)$" : $(line) ] ;
while $(l[1]) && $($(var))
{
if $(l[2]) { comment += [ MATCH "^[$(ws)]?(.*)$" : $(l[2]) ] ; }
else { comment += "" ; }
$(var) = $($(var)[2-]) ;
comment += [ extract-one-comment $(var) : $(l[2]) ] ;
line = $($(var)[1]) ;
l = [ MATCH "^[$(ws)]*(#)(.*)$" : $(line) ] ;
}