|
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.
