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

Last change on this file since 25880 was 19799, checked in by felix winkelmann, 11 years ago

applied dbus porting patch by andrei barbu

File size: 514 bytes
Line 
1(use 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.