mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-19 13:33:52 +01:00
30 lines
443 B
Plaintext
30 lines
443 B
Plaintext
|
emulate -L zsh
|
||
|
|
setopt extendedglob cbases
|
||
|
|
|
||
|
|
|
||
|
|
if [[ $# -ne 1 ]]; then
|
||
|
|
print "Usage: $0 port
|
||
|
|
Listen on the given port; send anything that arrives to standard output." >&2
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
local REPLY lfd afd
|
||
|
|
if ! ztcp -l $1; then
|
||
|
|
print "Failed to listen on port $1" >&2
|
||
|
|
return 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
lfd=$REPLY
|
||
|
|
|
||
|
|
if ! ztcp -a $lfd; then
|
||
|
|
print "Failed to accept on fd $lfd" >&2
|
||
|
|
ztcp -c $lfd
|
||
|
|
fi
|
||
|
|
|
||
|
|
afd=$REPLY
|
||
|
|
|
||
|
|
cat <&$afd
|
||
|
|
|
||
|
|
ztcp -c $lfd
|
||
|
|
ztcp -c $afd
|