| author | "Tomas Zeman <tomas.zeman@sun.com>" |
| Fri, 19 Oct 2007 11:01:15 +0200 | |
| changeset 0 | eeadadee24f6 |
| permissions | -rw-r--r-- |
| 0 | 1 |
awk ' |
2 |
{
|
|
3 |
if (split($0,x,"#")) {
|
|
4 |
f = split(x[1],y) |
|
5 |
if (f >= 2) {
|
|
6 |
if (split(y[2],z,"/") >= 2) {
|
|
7 |
a = "@" z[1] "/" z[2] |
|
8 |
print "+" length(a) "," length(y[1]) ":" a "->" y[1] |
|
9 |
for (i = 1;i <= f;i += 1) {
|
|
10 |
if (i != 2) {
|
|
11 |
a = y[i] "/" z[2] |
|
12 |
print "+" length(a) "," length(z[1]) ":" a "->" z[1] |
|
13 |
} |
|
14 |
} |
|
15 |
} |
|
16 |
} |
|
17 |
} |
|
18 |
} |
|
19 |
END {
|
|
20 |
print "" |
|
21 |
} |
|
22 |
' | HOME/bin/cdbmake "$@" |