Home | History | Annotate | Line # | Download | only in unit-tests
modmisc.mk revision 1.23
      1  1.23  rillig # $Id: modmisc.mk,v 1.23 2020/07/26 11:39:55 rillig Exp $
      2   1.1     apb #
      3   1.1     apb # miscellaneous modifier tests
      4   1.1     apb 
      5   1.1     apb # do not put any dirs in this list which exist on some
      6   1.1     apb # but not all target systems - an exists() check is below.
      7   1.1     apb path=:/bin:/tmp::/:.:/no/such/dir:.
      8   1.1     apb # strip cwd from path.
      9   1.1     apb MOD_NODOT=S/:/ /g:N.:ts:
     10   1.1     apb # and decorate, note that $'s need to be doubled. Also note that 
     11   1.1     apb # the modifier_variable can be used with other modifiers.
     12   1.1     apb MOD_NODOTX=S/:/ /g:N.:@d@'$$d'@
     13   1.1     apb # another mod - pretend it is more interesting
     14   1.1     apb MOD_HOMES=S,/home/,/homes/,
     15   1.1     apb MOD_OPT=@d@$${exists($$d):?$$d:$${d:S,/usr,/opt,}}@
     16   1.1     apb MOD_SEP=S,:, ,g
     17   1.1     apb 
     18   1.7  rillig all:	modvar modvarloop modsysv mod-HTE emptyvar undefvar
     19  1.23  rillig all:	mod-subst
     20  1.23  rillig all:	mod-regex
     21  1.23  rillig all:	mod-loop-varname mod-loop-resolve mod-loop-varname-dollar
     22  1.12  rillig all:	mod-subst-dollar mod-loop-dollar
     23  1.23  rillig all:	mod-regex-limits
     24  1.23  rillig all:	mod-regex-errors
     25  1.16  rillig all:	mod-assign
     26  1.18  rillig all:	mod-assign-nested
     27  1.17  rillig all:	mod-tu-space
     28  1.23  rillig all:	mod-quote
     29  1.22  rillig all:	mod-break-many-words
     30   1.1     apb 
     31  1.23  rillig # See also sysv.mk.
     32   1.1     apb modsysv:
     33   1.1     apb 	@echo "The answer is ${libfoo.a:L:libfoo.a=42}"
     34   1.1     apb 
     35  1.23  rillig # Demonstrates modifiers that are given indirectly from a variable.
     36   1.1     apb modvar:
     37   1.1     apb 	@echo "path='${path}'"
     38   1.1     apb 	@echo "path='${path:${MOD_NODOT}}'"
     39   1.1     apb 	@echo "path='${path:S,home,homes,:${MOD_NODOT}}'"
     40   1.1     apb 	@echo "path=${path:${MOD_NODOTX}:ts:}"
     41   1.1     apb 	@echo "path=${path:${MOD_HOMES}:${MOD_NODOTX}:ts:}"
     42   1.1     apb 
     43   1.1     apb .for d in ${path:${MOD_SEP}:N.} /usr/xbin
     44   1.1     apb path_$d?= ${d:${MOD_OPT}:${MOD_HOMES}}/
     45   1.1     apb paths+= ${d:${MOD_OPT}:${MOD_HOMES}}
     46   1.1     apb .endfor
     47   1.1     apb 
     48   1.1     apb modvarloop:
     49   1.1     apb 	@echo "path_/usr/xbin=${path_/usr/xbin}"
     50   1.1     apb 	@echo "paths=${paths}"
     51   1.1     apb 	@echo "PATHS=${paths:tu}"
     52   1.2  rillig 
     53   1.6  rillig PATHNAMES=	a/b/c def a.b.c a.b/c a a.a .gitignore a a.a
     54   1.4  rillig mod-HTE:
     55   1.6  rillig 	@echo "dirname of '"${PATHNAMES:Q}"' is '"${PATHNAMES:H:Q}"'"
     56   1.6  rillig 	@echo "basename of '"${PATHNAMES:Q}"' is '"${PATHNAMES:T:Q}"'"
     57   1.6  rillig 	@echo "suffix of '"${PATHNAMES:Q}"' is '"${PATHNAMES:E:Q}"'"
     58   1.6  rillig 	@echo "root of '"${PATHNAMES:Q}"' is '"${PATHNAMES:R:Q}"'"
     59   1.7  rillig 
     60   1.7  rillig # When a modifier is applied to the "" variable, the result is discarded.
     61   1.7  rillig emptyvar:
     62   1.7  rillig 	@echo S:${:S,^$,empty,}
     63   1.7  rillig 	@echo C:${:C,^$,empty,}
     64   1.7  rillig 	@echo @:${:@var@${var}@}
     65   1.7  rillig 
     66   1.7  rillig # The :U modifier turns even the "" variable into something that has a value.
     67   1.7  rillig # The resulting variable is empty, but is still considered to contain a
     68   1.7  rillig # single empty word. This word can be accessed by the :S and :C modifiers,
     69   1.7  rillig # but not by the :@ modifier since it explicitly skips empty words.
     70   1.7  rillig undefvar:
     71   1.7  rillig 	@echo S:${:U:S,^$,empty,}
     72   1.7  rillig 	@echo C:${:U:C,^$,empty,}
     73   1.7  rillig 	@echo @:${:U:@var@empty@}
     74   1.8  rillig 
     75  1.23  rillig mod-subst:
     76  1.20  rillig 	@echo $@:
     77   1.8  rillig 	@echo :${:Ua b b c:S,a b,,:Q}:
     78   1.8  rillig 	@echo :${:Ua b b c:S,a b,,1:Q}:
     79   1.8  rillig 	@echo :${:Ua b b c:S,a b,,W:Q}:
     80   1.8  rillig 	@echo :${:Ua b b c:S,b,,g:Q}:
     81   1.8  rillig 	@echo :${:U1 2 3 1 2 3:S,1 2,___,Wg:S,_,x,:Q}:
     82  1.20  rillig 	@echo ${:U12345:S,,sep,g:Q}
     83   1.8  rillig 
     84  1.23  rillig mod-regex:
     85  1.20  rillig 	@echo $@:
     86   1.8  rillig 	@echo :${:Ua b b c:C,a b,,:Q}:
     87   1.8  rillig 	@echo :${:Ua b b c:C,a b,,1:Q}:
     88   1.8  rillig 	@echo :${:Ua b b c:C,a b,,W:Q}:
     89   1.8  rillig 	@echo :${:Uword1 word2:C,****,____,g:C,word,____,:Q}:
     90   1.8  rillig 	@echo :${:Ua b b c:C,b,,g:Q}:
     91   1.8  rillig 	@echo :${:U1 2 3 1 2 3:C,1 2,___,Wg:C,_,x,:Q}:
     92   1.9  rillig 
     93   1.9  rillig # In the :@ modifier, the name of the loop variable can even be generated
     94   1.9  rillig # dynamically.  There's no practical use-case for this, and hopefully nobody
     95   1.9  rillig # will ever depend on this, but technically it's possible.
     96  1.23  rillig mod-loop-varname:
     97   1.9  rillig 	@echo :${:Uone two three:@${:Ubar:S,b,v,}@+${var}+@:Q}:
     98  1.10  rillig 
     99  1.10  rillig # The :@ modifier resolves the variables a little more often than expected.
    100  1.10  rillig # In particular, it resolves _all_ variables from the context, and not only
    101  1.10  rillig # the loop variable (in this case v).
    102  1.11  rillig #
    103  1.11  rillig # The d means direct reference, the i means indirect reference.
    104  1.10  rillig RESOLVE=	${RES1} $${RES1}
    105  1.11  rillig RES1=		1d${RES2} 1i$${RES2}
    106  1.11  rillig RES2=		2d${RES3} 2i$${RES3}
    107  1.11  rillig RES3=		3
    108  1.10  rillig 
    109  1.23  rillig mod-loop-resolve:
    110  1.10  rillig 	@echo $@:${RESOLVE:@v@w${v}w@:Q}:
    111  1.12  rillig 
    112  1.23  rillig # Until 2020-07-20, the variable name of the :@ modifier could end with one
    113  1.23  rillig # or two dollar signs, which were silently ignored.
    114  1.23  rillig # There's no point in allowing a dollar sign in that position.
    115  1.23  rillig mod-loop-varname-dollar:
    116  1.13  rillig 	@echo $@:${1 2 3:L:@v$@($v)@:Q}.
    117  1.13  rillig 	@echo $@:${1 2 3:L:@v$$@($v)@:Q}.
    118  1.13  rillig 	@echo $@:${1 2 3:L:@v$$$@($v)@:Q}.
    119  1.13  rillig 
    120  1.12  rillig # No matter how many dollar characters there are, they all get merged
    121  1.12  rillig # into a single dollar by the :S modifier.
    122  1.12  rillig mod-subst-dollar:
    123  1.12  rillig 	@echo $@:${:U1:S,^,$,:Q}:
    124  1.12  rillig 	@echo $@:${:U2:S,^,$$,:Q}:
    125  1.12  rillig 	@echo $@:${:U3:S,^,$$$,:Q}:
    126  1.12  rillig 	@echo $@:${:U4:S,^,$$$$,:Q}:
    127  1.12  rillig 	@echo $@:${:U5:S,^,$$$$$,:Q}:
    128  1.12  rillig 	@echo $@:${:U6:S,^,$$$$$$,:Q}:
    129  1.12  rillig 	@echo $@:${:U7:S,^,$$$$$$$,:Q}:
    130  1.12  rillig 	@echo $@:${:U8:S,^,$$$$$$$$,:Q}:
    131  1.12  rillig # This generates no dollar at all:
    132  1.12  rillig 	@echo $@:${:UU8:S,^,${:U$$$$$$$$},:Q}:
    133  1.12  rillig # Here is an alternative way to generate dollar characters.
    134  1.12  rillig # It's unexpectedly complicated though.
    135  1.12  rillig 	@echo $@:${:U:range=5:ts\x24:C,[0-9],,g:Q}:
    136  1.12  rillig 
    137  1.12  rillig # Demonstrate that it is possible to generate dollar characters using the
    138  1.12  rillig # :@ modifier.
    139  1.12  rillig #
    140  1.12  rillig # These are edge cases that could have resulted in a parse error as well
    141  1.12  rillig # since the $@ at the end could have been interpreted as a variable, which
    142  1.12  rillig # would mean a missing closing @ delimiter.
    143  1.12  rillig mod-loop-dollar:
    144  1.12  rillig 	@echo $@:${:U1:@word@${word}$@:Q}:
    145  1.12  rillig 	@echo $@:${:U2:@word@$${word}$$@:Q}:
    146  1.12  rillig 	@echo $@:${:U3:@word@$$${word}$$$@:Q}:
    147  1.12  rillig 	@echo $@:${:U4:@word@$$$${word}$$$$@:Q}:
    148  1.12  rillig 	@echo $@:${:U5:@word@$$$$${word}$$$$$@:Q}:
    149  1.12  rillig 	@echo $@:${:U6:@word@$$$$$${word}$$$$$$@:Q}:
    150  1.14  rillig 
    151  1.23  rillig mod-regex-limits:
    152  1.14  rillig 	@echo $@:00-ok:${:U1 23 456:C,..,\0\0,:Q}
    153  1.14  rillig 	@echo $@:11-missing:${:U1 23 456:C,..,\1\1,:Q}
    154  1.14  rillig 	@echo $@:11-ok:${:U1 23 456:C,(.).,\1\1,:Q}
    155  1.14  rillig 	@echo $@:22-missing:${:U1 23 456:C,..,\2\2,:Q}
    156  1.14  rillig 	@echo $@:22-missing:${:U1 23 456:C,(.).,\2\2,:Q}
    157  1.14  rillig 	@echo $@:22-ok:${:U1 23 456:C,(.)(.),\2\2,:Q}
    158  1.15  rillig 	# The :C modifier only handles single-digit capturing groups,
    159  1.15  rillig 	# which is more than enough for daily use.
    160  1.15  rillig 	@echo $@:capture:${:UabcdefghijABCDEFGHIJrest:C,(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.),\9\8\7\6\5\4\3\2\1\0\10\11\12,}
    161  1.16  rillig 
    162  1.23  rillig mod-regex-errors:
    163  1.21  rillig 	@echo $@: ${UNDEF:Uvalue:C,[,,}
    164  1.21  rillig 
    165  1.16  rillig # Just a bit of basic code coverage for the obscure ::= assignment modifiers.
    166  1.16  rillig mod-assign:
    167  1.16  rillig 	@echo $@: ${1 2 3:L:@i@${FIRST::?=$i}@} first=${FIRST}.
    168  1.16  rillig 	@echo $@: ${1 2 3:L:@i@${LAST::=$i}@} last=${LAST}.
    169  1.16  rillig 	@echo $@: ${1 2 3:L:@i@${APPENDED::+=$i}@} appended=${APPENDED}.
    170  1.16  rillig 	@echo $@: ${echo.1 echo.2 echo.3:L:@i@${RAN::!=${i:C,.*,&; & 1>\&2,:S,., ,g}}@} ran:${RAN}.
    171  1.16  rillig 	# The assignments happen in the global scope and thus are
    172  1.16  rillig 	# preserved even after the shell command has been run.
    173  1.16  rillig 	@echo $@: global: ${FIRST:Q}, ${LAST:Q}, ${APPENDED:Q}, ${RAN:Q}.
    174  1.17  rillig 
    175  1.18  rillig mod-assign-nested:
    176  1.18  rillig 	@echo $@: ${1:?${THEN1::=then1${IT1::=t1}}:${ELSE1::=else1${IE1::=e1}}}${THEN1}${ELSE1}${IT1}${IE1}
    177  1.18  rillig 	@echo $@: ${0:?${THEN2::=then2${IT2::=t2}}:${ELSE2::=else2${IE2::=e2}}}${THEN2}${ELSE2}${IT2}${IE2}
    178  1.18  rillig 	@echo $@: ${SINK3:Q}
    179  1.18  rillig 	@echo $@: ${SINK4:Q}
    180  1.18  rillig SINK3:=	${1:?${THEN3::=then3${IT3::=t3}}:${ELSE3::=else3${IE3::=e3}}}${THEN3}${ELSE3}${IT3}${IE3}
    181  1.18  rillig SINK4:=	${0:?${THEN4::=then4${IT4::=t4}}:${ELSE4::=else4${IE4::=e4}}}${THEN4}${ELSE4}${IT4}${IE4}
    182  1.18  rillig 
    183  1.17  rillig mod-tu-space:
    184  1.17  rillig 	# The :tu and :tl modifiers operate on the variable value
    185  1.17  rillig 	# as a single string, not as a list of words. Therefore,
    186  1.17  rillig 	# the adjacent spaces are preserved.
    187  1.17  rillig 	@echo $@: ${a   b:L:tu:Q}
    188  1.19  rillig 
    189  1.23  rillig mod-quote:
    190  1.19  rillig 	@echo $@: new${.newline:Q}${.newline:Q}line
    191  1.22  rillig 
    192  1.22  rillig # Cover the bmake_realloc in brk_string.
    193  1.22  rillig mod-break-many-words:
    194  1.22  rillig 	@echo $@: ${UNDEF:U:range=500:[#]}
    195