1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
# Written by Aleksey Cheusov <vle@gmx.net>, public domain
#
# This awk module is a part of RunAWK distribution,
# http://sourceforge.net/projects/runawk
#
############################################################
# =head2 braceexpand.awk
#
# =over 2
#
# =item I<braceexp(STRING)>
#
# shell-like brace expansion.
#
# For example:
# print braceexpand("ab{,22{,7,8}}z{8,9}")
# -| abz8 abz9 ab22z8 ab22z9 ab227z8 ab227z9 ab228z8 ab228z9
#
# =back
#
#use "match_br.awk"
BEGIN {
__runawk_expanded = 0
}
function __runawk_braceexpand1 (s,
left,mid,right,len,accu,i,ch,deep)
{
__runawk_expanded = 0
if (match_br(s, "{", "}")){
left = substr(s, 1, RSTART-1)
mid = substr(s, RSTART+1, RLENGTH-2) ","
right = substr(s, RSTART+RLENGTH)
len = RLENGTH-1
s = ""
accu = ""
deep = 0
for (i=1; i <= len; ++i){
ch = substr(mid, i, 1)
if (deep == 0 && ch == ","){
if (s != ""){
s = s " "
}
accu = __runawk_braceexpand1(accu)
if (gsub(/ /, ",", accu)){
s = s __runawk_braceexpand1(left "{" accu "}" right)
}else{
s = s left accu right
}
accu = ""
}else{
accu = accu ch
if (ch == "{")
++deep
else if (ch == "}")
--deep
}
}
__runawk_expanded = 1
}
return s
}
function braceexpand (s, arr,i,cnt,cont){
cont = 1
while (cont){
cont = 0
cnt = split(s, arr, / /)
s = ""
for (i=1; i <= cnt; ++i){
if (i > 1)
s = s " "
s = s __runawk_braceexpand1(arr [i])
cont = (cont || __runawk_expanded)
}
}
return s
}
|
