#!/bin/sh	
	PATH=/usr/local/bin:/usr/ucb:/usr/bin:/bin
	tmp=/tmp/accept.$$
	trap 'trap 0; rm -f $tmp; exit' 0 1 2 3 15

[ X$1 = X-notk ] && shift	## backward compatibility
[ $# -gt 0 ] || { echo >&2 usage: `basename $0` cmd; exit 1; }

cat >$tmp << 'end of script'

if [catch {
	set server [dp_connect -server 0]
	set socket [lindex $server 0]
	set port [lindex $server 1]
	puts stderr "[pid] serves $port ([expr $port/256],[expr $port%256])"
    } err] {
	puts stderr $err; exit 1
}

if [catch {
	set client [dp_accept $socket]
	set data [lindex $client 0]
	puts stderr "call from [lindex $client 1]"
    } err] {
	puts stderr $err; exit 1
}

catch {eval exec $argv <@ $data >@ $data}
exit 0

end of script
dpwish -notk -file $tmp "$@"