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