source: project/release/4/dbus/trunk/examples/introspect-services.scm @ 25884

Last change on this file since 25884 was 25884, checked in by ecloud, 9 years ago

Removed dbus: prefix; you can add it back like this: (use (prefix dbus dbus:))

File size: 529 bytes
Line 
1(use (prefix dbus dbus:))
2
3;; the actual dbus call to get known service names:
4; (define ctxt (dbus:make-context
5        ; service: 'org.freedesktop.DBus
6        ; interface: 'org.freedesktop.DBus
7        ; path: '/org/freedesktop/DBus
8        ; ))
9
10; (let ([response (dbus:call ctxt "ListNames")])
11        ; (display response)
12; )
13
14;; dbus.egg provides this:
15(printf "session bus services:~%")
16(pretty-print (dbus:discover-services)) ;; session bus by default
17(printf "system bus services:~%")
18(pretty-print (dbus:discover-services bus: dbus:system-bus))
19
20(exit)
Note: See TracBrowser for help on using the repository browser.