ref: 1ca868f1913c0dc61beef0d27490253f095ad495
dir: /gridup/
#!/bin/rc
srv tcp!registry.9p.zone!6675 registry /n/registry
fn clean {
echo $1 | sed 's/.*!([^!]+)!.*/\1/'
}
for(s in /n/registry/tcp*){
s=`{basename $s}
srv $s `{clean $s} /n/^`{clean $s}
}
>/tmp/chatcat cat <<'...'
#!/bin/rc
chan=$1
label $chan
echo JOIN $nick to chat >>/n/chat.9p.zone/$chan
cd /tmp/chatnicks/$chan && rm -f *
{
mkdir -p /tmp/chatnicks/$chan && \
cd /tmp/chatnicks/$chan && \
rm -f *
awk '/^[-a-zA-Z_0-9]+ [→•|] / { system("touch " $1 ":") }' </n/chat.9p.zone/$chan
} &
cat /n/chat.9p.zone/$chan &
while() cat | sed '1s/^/'$nick' → /' >>/n/chat.9p.zone/$chan
...
chmod +x /tmp/chatcat
>/tmp/gridrio cat <<'...'
#!/bin/rc
for(c in chat commits noise)
window -scroll -cd /tmp/chatnicks/$c /tmp/chatcat $c
...
chmod +x /tmp/gridrio
echo ' Type a (multi-line) message ending with a newline'
echo ' and press control-d (EOT) to send.'
echo
echo -n 'Please enter nickname to use, finish with ENTER: '
nick=`{read}
if(~ $#nick 0)
nick=$user
exec rio -s -i /tmp/gridrio