" ROT IF TELL NL EMIT 1 EXIT THEN 2DROP
;
+: time ( -- s ; seconds since epoch )
+ 0 SYS_TIME
+;
+
HEX 100 DECIMAL CONSTANT MSG_WAITALL
HEX 80002 DECIMAL CONSTANT SOCK_DGRAM|SOCK_CLOEXEC
15 CONSTANT NETLINK_KOBJECT_UEVENT
BEGIN
NL-SOCKET @ RECV-BUFFER NL_MAX_PAYLOAD MSG_WAITALL 0 0
SYS_RECVFROM DUP 0 >
- IF DROP RECV-BUFFER DUP STRLEN TELL NL EMIT
+ IF DROP time . SP EMIT RECV-BUFFER DUP STRLEN TELL NL EMIT
ELSE S" ** Error: " TELL . NL EMIT
THEN
AGAIN