Changeset 25881 in project

Timestamp:

02/08/12 23:55:13 (9 years ago)

Author:

ecloud

Message:

Actually reading of variants works fine. Improved connman example. Still no way to write variants though.

Location:

release/4/dbus/trunk

Files:

• dbus.setup (modified) (1 diff)
• examples/introspect-connman.scm (modified) (1 diff)

release/4/dbus/trunk/dbus.setup

@@ -14 +14 @@
 (install-extension 'dbus
         `("dbus.so" "dbus.import.so")
-        `((version 0.88)))
+        `((version 0.89)))

release/4/dbus/trunk/examples/introspect-connman.scm

@@ -4 +4 @@
         bus: dbus:system-bus
         service: 'net.connman
-        ;path: '/net/connman
 ))
 
-(let ([response (dbus:discover-api-xml ctxt)])
-        (display response)
-)
+(display (dbus:discover-api-xml ctxt))
+
+(define (device-properties device)
+  (let ((c (dbus:make-context bus: dbus:system-bus
+                              service: 'net.connman
+                              interface: 'net.connman.Service
+                              path: device)))
+    (dbus:call c "GetProperties")))
 
 (define mgr-ctxt (dbus:make-context bus: dbus:system-bus
         service: 'net.connman interface: 'net.connman.Manager))
 
-(printf "~%==== Manager Properties:~%")
-(pretty-print (dbus:call mgr-ctxt "GetProperties"))
+(printf "~%==== Clock Properties:~%")
+(define clock-ctxt (dbus:make-context bus: dbus:system-bus
+        service: 'net.connman interface: 'net.connman.Clock))
+(pretty-print (dbus:call clock-ctxt "GetProperties"))
 
 (printf "~%==== Manager Services:~%")
 (pretty-print (dbus:call mgr-ctxt "GetServices"))
 
-(define clock-ctxt (dbus:make-context bus: dbus:system-bus
-        service: 'net.connman interface: 'net.connman.Clock))
-
-(printf "~%==== Clock Properties:~%")
-(pretty-print (dbus:call clock-ctxt "GetProperties"))
+(printf "~%==== Manager Properties:~%")
+(let ([mgr-props (dbus:call mgr-ctxt "GetProperties")])
+        (pretty-print mgr-props)
+        (let ([ifaces (assoc "Services" (vector->list (car mgr-props)))])
+                (when (pair? ifaces)
+                        (set! ifaces (vector->list (cdr ifaces)))
+(printf "~%==== Network interface Properties:~%")
+                        (for-each (lambda (path)
+                                        (printf "---- ~a~%" path)
+                                        (pp (vector->list (car (device-properties path))))
+                                ) ifaces)
+                )))
 
 (sleep 1)