dce3a7a42d
drivers/md/unroll.pl replaced by awk script to drop build-time dependency on perl Signed-off-by: Vladimir Dronnikov <dronnikov@gmail.com> Signed-off-by: NeilBrown <neilb@suse.de>
21 lines
424 B
Awk
21 lines
424 B
Awk
|
|
# This filter requires one command line option of form -vN=n
|
|
# where n must be a decimal number.
|
|
#
|
|
# Repeat each input line containing $$ n times, replacing $$ with 0...n-1.
|
|
# Replace each $# with n, and each $* with a single $.
|
|
|
|
BEGIN {
|
|
n = N + 0
|
|
}
|
|
{
|
|
if (/\$\$/) { rep = n } else { rep = 1 }
|
|
for (i = 0; i < rep; ++i) {
|
|
tmp = $0
|
|
gsub(/\$\$/, i, tmp)
|
|
gsub(/\$\#/, n, tmp)
|
|
gsub(/\$\*/, "$", tmp)
|
|
print tmp
|
|
}
|
|
}
|