plan9fox/rc/bin/bullshit
2014-11-02 13:16:33 -05:00

56 lines
1.2 KiB
Bash
Executable file

#!/bin/rc
rfork e
if(~ $#1 0)
file=/lib/bullshit
if not
file=$1
awk '
function min(a, b){
if(a > b)
return b
else
return a
}
function suffix(){
if(hassuffix = (rand() < 0.2))
return suffixes[int(rand() * nsuffix)]
return ""
}
$2 == "*" { protocol[nprotocol++] = $1; next }
$2 == "$" { end[nend++] = $1; next }
$2 == "%" { suffixes[nsuffix++] = $1; next }
$2 == "^" { start[nstart++] = $1; next }
$2 == "|" { noend[nword] = 1 }
{ word[nword++] = $1; next }
END {
srand()
last = -1
out = 0
total = int(rand() * 7) + 3
n = int(rand() * min(total - out, 3))
for(i = 0; i < n; i++)
printf "%s ", start[int(rand() * nstart)]
out += n
hassuffix = 0
n = int(rand() * min(total - out, 3))
for(i = 0; i < n; i++)
printf "%s%s ", word[last = int(rand() * nword)], suffix()
out += n
if(rand() > 0.5){
n = int(rand() * 3)
for(i = 0; i < n; i++)
printf "%s %s", protocol[int(rand() * nprotocol)], (i != n-1) ? "over " : ""
out += n
last = -1
hassuffix = 0
}
n = int(rand() * min(total - out, 3))
if(out + n == 1 || last == -1)
n += 2
for(i = 0; i < n; i++)
printf "%s%s ", word[last = int(rand() * nword)], suffix()
if(rand() < 0.1 || (last >= 0 && noend[last]) || hassuffix)
printf "%s ", end[int(rand() * nend)]
print ""
}
' $file