blob: a9728b6317a0f54c6bfc317f42e378453863aabf (
plain)
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
|
#!/bin/rc
if(~ $#1 0)
file=/lib/blogcom
if not
file=$1
awk ' BEGIN { w = 0; s = ""; nss = 0; srand() }
function ends() {
ss[nss++] = s;
s = "";
}
{
split($0, a, "")
for(i = 1; i <= length($0); i++){
if(a[i] == "{"){
w = 1;
delete ws;
nws = 0;
ws[nws] = "";
}
else if(a[i] == "}"){
nws++;
s = s ws[int(rand()*nws)]
w = 0;
}
else if(a[i] == "|"){
if(w)
ws[++nws] = "";
else
ends();
}
else if(w)
ws[nws] = ws[nws] a[i];
else{
s = s a[i];
}
}
}
/[^|]$/ { if(w) ws[nws] = ws[nws] " "; else s = s " "; }
END { ends(); print ss[int(rand()*nss)] } ' $file | fmt
|
