steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.sockets: Allow f in the port of an inet4. 

Fixes #2019.
windows-drag
Doug Coleman 2019-03-17 12:12:04 -05:00
parent 2136abc1d6
commit f4d17d3ba3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/sockets/sockets.factor
View File

@ -107,7 +107,7 @@ M: ipv4 empty-sockaddr drop sockaddr-in <struct> ;
sockaddr-in <struct> sockaddr-in <struct>
AF_INET >>family AF_INET >>family
swap swap
port>> htons >>port ; inline port>> 0 or htons >>port ; inline
M: ipv4 make-sockaddr ( inet -- sockaddr ) M: ipv4 make-sockaddr ( inet -- sockaddr )
[ make-sockaddr-part ] [ make-sockaddr-part ]
@ -122,7 +122,7 @@ M: ipv4 make-sockaddr-outgoing ( inet -- sockaddr )
M: ipv4 parse-sockaddr ( sockaddr-in addrspec -- newaddrspec ) M: ipv4 parse-sockaddr ( sockaddr-in addrspec -- newaddrspec )
[ addr>> uint <ref> ] dip inet-ntop <ipv4> ; [ addr>> uint <ref> ] dip inet-ntop <ipv4> ;
TUPLE: inet4 < ipv4 { port integer read-only } ; TUPLE: inet4 < ipv4 { port maybe{ integer } read-only } ;
: <inet4> ( host port -- inet4 ) : <inet4> ( host port -- inet4 )
over check-ipv4 inet4 boa ; over check-ipv4 inet4 boa ;