From 26638fd68d6ec7abc5f052bdeb9adbf1af6775b6 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 12 Aug 2022 23:22:46 -0700
Subject: [PATCH] Tweak udp.

---
 examples/udp.fs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/examples/udp.fs b/examples/udp.fs
index 0876104..6459a82 100644
--- a/examples/udp.fs
+++ b/examples/udp.fs
@@ -33,7 +33,8 @@ variable received-len sizeof(sockaddr_in) received-len !
   reader-task start-task
 ;
 
-: say ( port -- )
+: say ( port -- "host" )
+  bl parse s>z gethostbyname ->h_addr outgoing ->addr!
   outgoing ->port!
   sockfd tib >in @ + #tib @ >in @ - 
     0 outgoing sizeof(sockaddr_in) sendto drop
@@ -47,9 +48,9 @@ variable received-len sizeof(sockaddr_in) received-len !
   ." ------------------" cr
   ." <port> udp ( open UDP connection on port )" 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
   ." 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