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

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

Added support for dict and variant and a connman introspection example.

Not sure if the variant support is quite right, because what's inside
is often unsupported.

File size: 707 bytes
Line 
1(use dbus)
2
3(define ctxt (dbus:make-context
4        bus: dbus:system-bus
5        service: 'net.connman
6        ;path: '/net/connman
7))
8
9(let ([response (dbus:discover-api-xml ctxt)])
10        (display response)
11)
12
13(define mgr-ctxt (dbus:make-context bus: dbus:system-bus
14        service: 'net.connman interface: 'net.connman.Manager))
15
16(printf "~%==== Manager Properties:~%")
17(pretty-print (dbus:call mgr-ctxt "GetProperties"))
18
19(printf "~%==== Manager Services:~%")
20(pretty-print (dbus:call mgr-ctxt "GetServices"))
21
22(define clock-ctxt (dbus:make-context bus: dbus:system-bus
23        service: 'net.connman interface: 'net.connman.Clock))
24
25(printf "~%==== Clock Properties:~%")
26(pretty-print (dbus:call clock-ctxt "GetProperties"))
27
28(sleep 1)
29(exit)
Note: See TracBrowser for help on using the repository browser.