Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
7
Task/Sockets/Standard-ML/sockets.ml
Normal file
7
Task/Sockets/Standard-ML/sockets.ml
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
val txt = Word8VectorSlice.full (Byte.stringToBytes "hello world" ) ;
|
||||
val set = fn socket => fn ipnr => fn portnr => fn text =>
|
||||
(
|
||||
Socket.connect (socket, INetSock.toAddr ( Option.valOf (NetHostDB.fromString(ipnr) ) , portnr )) ;
|
||||
Socket.sendVec(socket, text) before Socket.close socket
|
||||
)
|
||||
;
|
||||
Loading…
Add table
Add a link
Reference in a new issue