varmod-subst.mk revision 1.9
1 # $NetBSD: varmod-subst.mk,v 1.9 2021/09/06 21:18:55 rillig Exp $ 2 # 3 # Tests for the :S,from,to, variable modifier. 4 5 all: mod-subst 6 all: mod-subst-delimiter 7 all: mod-subst-chain 8 all: mod-subst-dollar 9 10 WORDS= sequences of letters 11 12 .if ${WORDS:S,,,} != ${WORDS} 13 . warning The empty pattern matches something. 14 .endif 15 16 .if ${WORDS:S,e,*,1} != "s*quences of letters" 17 . warning The :S modifier flag '1' is not applied exactly once. 18 .endif 19 20 .if ${WORDS:S,f,*,1} != "sequences o* letters" 21 . warning The :S modifier flag '1' is only applied to the first word,\ 22 not to the first occurrence. 23 .endif 24 25 .if ${WORDS:S,e,*,} != "s*quences of l*tters" 26 . warning The :S modifier does not replace every first match per word. 27 .endif 28 29 .if ${WORDS:S,e,*,g} != "s*qu*nc*s of l*tt*rs" 30 . warning The :S modifier flag 'g' does not replace every occurrence. 31 .endif 32 33 .if ${WORDS:S,^sequ,occurr,} != "occurrences of letters" 34 . warning The :S modifier fails for a short match anchored at the start. 35 .endif 36 37 .if ${WORDS:S,^of,with,} != "sequences with letters" 38 . warning The :S modifier fails for an exact match anchored at the start. 39 .endif 40 41 .if ${WORDS:S,^office,does not match,} != ${WORDS} 42 . warning The :S modifier matches a too long pattern anchored at the start. 43 .endif 44 45 .if ${WORDS:S,f$,r,} != "sequences or letters" 46 . warning The :S modifier fails for a short match anchored at the end. 47 .endif 48 49 .if ${WORDS:S,s$,,} != "sequence of letter" 50 . warning The :S modifier fails to replace one occurrence per word. 51 .endif 52 53 .if ${WORDS:S,of$,,} != "sequences letters" 54 . warning The :S modifier fails for an exact match anchored at the end. 55 .endif 56 57 .if ${WORDS:S,eof$,,} != ${WORDS} 58 . warning The :S modifier matches a too long pattern anchored at the end. 59 .endif 60 61 .if ${WORDS:S,^of$,,} != "sequences letters" 62 . warning The :S modifier does not match a word anchored at both ends. 63 .endif 64 65 .if ${WORDS:S,^o$,,} != ${WORDS} 66 . warning The :S modifier matches a prefix anchored at both ends. 67 .endif 68 69 .if ${WORDS:S,^f$,,} != ${WORDS} 70 . warning The :S modifier matches a suffix anchored at both ends. 71 .endif 72 73 .if ${WORDS:S,^eof$,,} != ${WORDS} 74 . warning The :S modifier matches a too long prefix anchored at both ends. 75 .endif 76 77 .if ${WORDS:S,^office$,,} != ${WORDS} 78 . warning The :S modifier matches a too long suffix anchored at both ends. 79 .endif 80 81 .if ${WORDS:S,*,replacement,} != ${WORDS} 82 . error The '*' seems to be interpreted as a wildcard of some kind. 83 .endif 84 85 .if ${WORDS:S,.,replacement,} != ${WORDS} 86 . error The '.' seems to be interpreted as a wildcard of some kind. 87 .endif 88 89 .if ${:Uvalue:S,^val,&,} != "value" 90 . error 91 .endif 92 .if ${:Uvalue:S,ue$,&,} != "value" 93 . error 94 .endif 95 .if ${:Uvalue:S,^val,&-&-&,} != "val-val-value" 96 . error 97 .endif 98 .if ${:Uvalue:S,ue$,&-&-&,} != "value-ue-ue" 99 . error 100 .endif 101 102 mod-subst: 103 @echo $@: 104 @echo :${:Ua b b c:S,a b,,:Q}: 105 @echo :${:Ua b b c:S,a b,,1:Q}: 106 @echo :${:Ua b b c:S,a b,,W:Q}: 107 @echo :${:Ua b b c:S,b,,g:Q}: 108 @echo :${:U1 2 3 1 2 3:S,1 2,___,Wg:S,_,x,:Q}: 109 @echo ${:U12345:S,,sep,g:Q} 110 111 # The :S and :C modifiers accept an arbitrary character as the delimiter, 112 # including characters that are otherwise used as escape characters or 113 # interpreted in a special way. This can be used to confuse humans. 114 mod-subst-delimiter: 115 @echo $@: 116 @echo ${:U1 2 3:S 2 two :Q} horizontal tabulator 117 @echo ${:U1 2 3:S 2 two :Q} space 118 @echo ${:U1 2 3:S!2!two!:Q} exclamation mark 119 @echo ${:U1 2 3:S"2"two":Q} quotation mark 120 # In shell command lines, the hash does not need to be escaped. 121 # It needs to be escaped in variable assignment lines though. 122 @echo ${:U1 2 3:S#2#two#:Q} number sign 123 @echo ${:U1 2 3:S$2$two$:Q} dollar sign 124 @echo ${:U1 2 3:S%2%two%:Q} percent sign 125 @echo ${:U1 2 3:S&2&two&:Q} ampersand 126 @echo ${:U1 2 3:S'2'two':Q} apostrophe 127 @echo ${:U1 2 3:S(2(two(:Q} left parenthesis 128 @echo ${:U1 2 3:S)2)two):Q} right parenthesis 129 @echo ${:U1 2 3:S*2*two*:Q} asterisk 130 @echo ${:U1 2 3:S+2+two+:Q} plus sign 131 @echo ${:U1 2 3:S,2,two,:Q} comma 132 @echo ${:U1 2 3:S-2-two-:Q} hyphen-minus 133 @echo ${:U1 2 3:S.2.two.:Q} full stop 134 @echo ${:U1 2 3:S/2/two/:Q} solidus 135 @echo ${:U1 2 3:S121two1:Q} digit 136 @echo ${:U1 2 3:S:2:two::Q} colon 137 @echo ${:U1 2 3:S;2;two;:Q} semicolon 138 @echo ${:U1 2 3:S<2<two<:Q} less-than sign 139 @echo ${:U1 2 3:S=2=two=:Q} equals sign 140 @echo ${:U1 2 3:S>2>two>:Q} greater-than sign 141 @echo ${:U1 2 3:S?2?two?:Q} question mark 142 @echo ${:U1 2 3:S@2@two@:Q} commercial at 143 @echo ${:U1 2 3:SA2AtwoA:Q} capital letter 144 @echo ${:U1 2 3:S[2[two[:Q} left square bracket 145 @echo ${:U1 2 3:S\2\two\:Q} reverse solidus 146 @echo ${:U1 2 3:S]2]two]:Q} right square bracket 147 @echo ${:U1 2 3:S^2^two^:Q} circumflex accent 148 @echo ${:U1 2 3:S_2_two_:Q} low line 149 @echo ${:U1 2 3:S`2`two`:Q} grave accent 150 @echo ${:U1 2 3:Sa2atwoa:Q} small letter 151 @echo ${:U1 2 3:S{2{two{:Q} left curly bracket 152 @echo ${:U1 2 3:S|2|two|:Q} vertical line 153 @echo ${:U1 2 3:S}2}two}:Q} right curly bracket 154 @echo ${:U1 2 3:S~2~two~:Q} tilde 155 156 # The :S and :C modifiers can be chained without a separating ':'. 157 # This is not documented in the manual page. 158 # It works because ApplyModifier_Subst scans for the known modifiers g1W 159 # and then just returns to ApplyModifiers. There, the colon is optionally 160 # skipped (see the *st.next == ':' at the end of the loop). 161 # 162 # Most other modifiers cannot be chained since their parsers skip until 163 # the next ':' or '}' or ')'. 164 mod-subst-chain: 165 @echo $@: 166 @echo ${:Ua b c:S,a,A,S,b,B,}. 167 # There is no 'i' modifier for the :S or :C modifiers. 168 # The error message is "make: Unknown modifier 'i'", which is 169 # kind of correct, although it is mixing the terms for variable 170 # modifiers with the matching modifiers. 171 @echo ${:Uvalue:S,a,x,i}. 172 173 # No matter how many dollar signs there are, they all get merged 174 # into a single dollar by the :S modifier. 175 # 176 # As of 2020-08-09, this is because ParseModifierPart sees a '$' and 177 # calls Var_Parse to expand the variable. In all other places, the "$$" 178 # is handled outside of Var_Parse. Var_Parse therefore considers "$$" 179 # one of the "really stupid names", skips the first dollar, and parsing 180 # continues with the next character. This repeats for the other dollar 181 # signs, except the one before the delimiter. That one is handled by 182 # the code that optionally interprets the '$' as the end-anchor in the 183 # first part of the :S modifier. That code doesn't call Var_Parse but 184 # simply copies the dollar to the result. 185 mod-subst-dollar: 186 @echo $@:${:U1:S,^,$,:Q}: 187 @echo $@:${:U2:S,^,$$,:Q}: 188 @echo $@:${:U3:S,^,$$$,:Q}: 189 @echo $@:${:U4:S,^,$$$$,:Q}: 190 @echo $@:${:U5:S,^,$$$$$,:Q}: 191 @echo $@:${:U6:S,^,$$$$$$,:Q}: 192 @echo $@:${:U7:S,^,$$$$$$$,:Q}: 193 @echo $@:${:U8:S,^,$$$$$$$$,:Q}: 194 @echo $@:${:U40:S,^,$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$,:Q}: 195 # This generates no dollar at all: 196 @echo $@:${:UU8:S,^,${:U$$$$$$$$},:Q}: 197 # Here is an alternative way to generate dollar signs. 198 # It's unexpectedly complicated though. 199 @echo $@:${:U:range=5:ts\x24:C,[0-9],,g:Q}: 200 # In modifiers, dollars are escaped using the backslash, not using another 201 # dollar sign. Therefore, creating a dollar sign is pretty simple: 202 @echo $@:${:Ugood3:S,^,\$\$\$,:Q} 203
Indexes created Mon Oct 20 16:09:52 GMT 2025