11 lines
320 B
Plaintext
11 lines
320 B
Plaintext
|
(local { : sleep } (require :posix.unistd))
|
||
|
|
|
||
|
|
(let [[filename socketname] arg
|
||
|
|
socket (io.popen (.. "socat - unix-listen:" socketname) :w)]
|
||
|
|
(with-open [handle (io.open filename :r)]
|
||
|
|
(each [l (handle:lines "L")]
|
||
|
|
(if (string.match l "GNS") (sleep 1))
|
||
|
|
(socket:write l)
|
||
|
|
(socket:flush)
|
||
|
|
)))
|