dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

saturn: Provide more dbus constant names

Browse Source 
Makes reading the code easier^W possible.
This commit is contained in:
Samuel Dionne-Riel 2022-01-17 20:57:26 -05:00 committed by Daniel Barlow
parent c4af9e0599
commit 6a5f2ecb18
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
saturn/main.fnl
View File

@ -25,12 +25,17 @@
(local DBUS_NAME_FLAG_DO_NOT_QUEUE 4)
(local DBUS_REQUEST_NAME_REPLY_PRIMARY_OWNER 1)
(local DBUS_REQUEST_NAME_REPLY_IN_QUEUE 2)
(local DBUS_REQUEST_NAME_REPLY_EXISTS 3)
(local DBUS_REQUEST_NAME_REPLY_ALREADY_OWNER 4)
(let [ret (bus:RequestName "net.telent.saturn" DBUS_NAME_FLAG_DO_NOT_QUEUE)]
(if (or (= ret 1) (= ret 4))
(if (or (= ret DBUS_REQUEST_NAME_REPLY_PRIMARY_OWNER) (= ret DBUS_REQUEST_NAME_REPLY_ALREADY_OWNER))
true
(= ret 2)
(= ret DBUS_REQUEST_NAME_REPLY_IN_QUEUE)
(error "unexpected DBUS_REQUEST_NAME_REPLY_IN_QUEUE")
(= ret 3)
(= ret DBUS_REQUEST_NAME_REPLY_EXISTS)
(do
(print "already running")
(os.exit 0))))