#!/bin/rc

rfork en

fn connect {echo connect $* >[1=5]}

fn send {cat > $local/data}

fn receive {cat < $local/data}

fn listen {
	echo announce $1 >[1=5]
	while() {
		<>[6] $local/listen {
			x=`{read <[0=6]}
			cat /net/tcp/$x/data
		}
	}}

<>[5]/net/tcp/clone {
	n=`{read <[0=5]}
	local=/net/tcp/$n
	echo $local
	rc
}