alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak udp.

Browse Source
This commit is contained in:
Brad Nelson
2022-08-12 23:22:46 -07:00
parent bcaa6da021
commit 26638fd68d
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
examples/udp.fs
View File

@ -33,7 +33,8 @@ variable received-len sizeof(sockaddr_in) received-len !
reader-task start-task reader-task start-task
; ;
: say ( port -- ) : say ( port -- "host" )
bl parse s>z gethostbyname ->h_addr outgoing ->addr!
outgoing ->port! outgoing ->port!
sockfd tib >in @ + #tib @ >in @ - sockfd tib >in @ + #tib @ >in @ -
0 outgoing sizeof(sockaddr_in) sendto drop 0 outgoing sizeof(sockaddr_in) sendto drop
@ -47,9 +48,9 @@ variable received-len sizeof(sockaddr_in) received-len !
." ------------------" cr ." ------------------" cr
." <port> udp ( open UDP connection on port )" cr ." <port> udp ( open UDP connection on port )" cr
." hear ( wait for messages on udp port and print then )" cr ." hear ( wait for messages on udp port and print then )" cr
." <port> say <message text> ( send a message to a port )" cr ." <port> say <host> <message text> ( send a message to a port )" cr
cr cr
." Example: 9999 udp hear ( listener )" cr ." Example: 9999 udp hear ( listener )" cr
." Example: 9998 udp 9999 say Can you hear me? ( sender )" cr ." Example: 9998 udp 9999 say localhost Can you hear me? ( sender )" cr
; ;
help quit help quit