x11-wm/stumpwm.stumpwm
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm.git synced 2026-09-10 07:26:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Handle errors returned by sb-unix:unix-fast-select

Browse source
This commit is contained in:
Ákos Kiss 2022-08-08 19:18:24 +02:00
parent 90cbcbd8fa
commit 1451b05477
1 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
ioloop.lisp
View file

@ -289,20 +289,19 @@
(floor remaining-ms 1000000))
(values nil nil))))
;; Actually block for events
(let ((rval (multiple-value-call
#'sb-unix:unix-fast-select (1+ maxfd)
(sb-alien:addr rfds)
(sb-alien:addr wfds)
(sb-alien:addr efds)
(compute-timeout))))
(cond ((= rval -1)
;; ???
(let ((errno rval))
(cond ((eql errno sb-unix:eintr)
nil)
(t (error "Unexpected ~S error: ~A"
'sb-unix:unix-fast-select
(sb-int:strerror errno))))))
(multiple-value-bind (rval errno)
(sb-unix:unix-fast-select (1+ maxfd)
(sb-alien:addr rfds)
(sb-alien:addr wfds)
(sb-alien:addr efds)
(compute-timeout)
nil)
(cond ((and errno (plusp errno))
(unless (eql errno sb-unix:eintr)
(dformat 5
"Unexpected ~S error: ~A~%"
'sb-unix:unix-fast-select
(sb-int:strerror errno))))
(t
;; Notify channels for transpired events
(maphash (lambda (fd evs)