about summary refs log tree commit diff
path: root/Functions/TCP/tcp_point
blob: 6a8f75d3a592032ce4e16f23c45ee2c7fdcb1afe (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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