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

io.sockets: remove send-n-times, broadcast-n-times.

db4
Doug Coleman 2016-02-20 18:37:08 -08:00
parent 666b076d4c
commit 69d5a3a276
2 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
basis/io/sockets/sockets-docs.factor
View File

@ -238,19 +238,6 @@ HELP: send-once
}
{ $description "Sends a packet one time to the address and closes the sending datagram port." } ;
HELP: send-n-times
{ $values
{ "bytes" byte-array } { "addrspec" "an address specifier" } { "n" integer }
}
{ $examples
"Send a datagram 10 times to localhost, port 7777:"
{ $example "USING: io.sockets prettyprint ;"
"B{ 1 2 3 } f 7777 <inet4> 10 send-n-times"
""
}
}
{ $description "Sends a packet n times to the address and closes the sending datagram port." } ;
HELP: broadcast-once
{ $values
{ "bytes" byte-array } { "addrspec" "an address specifier" }
@ -264,21 +251,6 @@ HELP: broadcast-once
}
{ $description "Broadcasts a packet one time to the address and closes the sending broadcast port." } ;
HELP: broadcast-n-times
{ $values
{ "bytes" byte-array } { "addrspec" "an address specifier" } { "n" integer }
}
{ $examples
"Broadcast a datagram 10 times to localhost, port 7777:"
{ $example "USING: io.sockets prettyprint ;"
"B{ 1 2 3 } f 7777 <inet4> 10 broadcast-n-times"
""
}
}
{ $description "Broadcasts a packet n times to the address and closes the sending broadcast port." } ;
HELP: with-random-local-broadcast
{ $values
{ "quot" quotation }

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

@ -406,19 +406,9 @@ CONSTANT: datagram-size 65536
: send-once ( bytes addrspec -- )
[ send ] with-random-local-datagram ;
:: send-n-times ( bytes addrspec n -- )
[
n swap '[ bytes addrspec _ send ] times
] with-random-local-datagram ;
: broadcast-once ( bytes addrspec -- )
[ send ] with-random-local-broadcast ;
:: broadcast-n-times ( bytes addrspec n -- )
[
n swap '[ bytes addrspec _ send ] times
] with-random-local-broadcast ;
MEMO: ipv6-supported? ( -- ? )
[ "::1" 0 <inet6> binary <server> dispose t ] [ drop f ] recover ;