From 8e9e9a2c52a654a354a83c9d80662fa34fab677d Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sun, 13 Jun 2021 00:37:53 +1000 Subject: [PATCH] slight polishing --- examples/uenventlog.f | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/examples/uenventlog.f b/examples/uenventlog.f index ff69c48..acf6222 100755 --- a/examples/uenventlog.f +++ b/examples/uenventlog.f @@ -16,7 +16,7 @@ SYSTEM DEFINITIONS ; : DIE" ( n " quoted" -- ; If v then print message and exit ) - " ROT IF TELL NL EMIT EXIT THEN 2DROP + " ROT IF TELL NL EMIT 1 EXIT THEN 2DROP ; HEX 100 DECIMAL CONSTANT MSG_WAITALL @@ -27,14 +27,6 @@ HEX 80002 DECIMAL CONSTANT SOCK_DGRAM|SOCK_CLOEXEC VARIABLE RECV-BUFFER NL_MAX_PAYLOAD ALLOT -: PRINTMSG ( n -- ; print RECV-BUFFER message ) - ( n is message length when >0 but we only use text up to first NUL ) - DUP 0 > - IF DROP RECV-BUFFER DUP STRLEN TELL NL EMIT - ELSE S" ** Error: " TELL . NL EMIT - THEN -; - VARIABLE NL-SOCKADDR ( 0-1 .family ) AF_NETLINK W, ( 2-3 ??? ) 0 W, @@ -52,7 +44,10 @@ SYS_BIND DIE" Failed to bind" : NL-LOOP BEGIN NL-SOCKET @ RECV-BUFFER NL_MAX_PAYLOAD MSG_WAITALL 0 0 - SYS_RECVFROM PRINTMSG + SYS_RECVFROM DUP 0 > + IF DROP RECV-BUFFER DUP STRLEN TELL NL EMIT + ELSE S" ** Error: " TELL . NL EMIT + THEN AGAIN ; -- 2.39.2