manager: Implemented Manager Technologies

OSSystems · Mar 28, 2012 · 04966ae · 04966ae
1 parent c9c9845
commit 04966ae
Show file tree

Hide file tree

Showing 2 changed files with 32 additions and 3 deletions.
diff --git a/connman.scm b/connman.scm
@@ -136,8 +136,16 @@
    manager-properties-set-offline-mode!
    manager-properties-set-session-mode!
 
-   make-manager-context
+   ;; Technologies
    manager-technologies
+   manager-technology-path
+   manager-technology-name
+   manager-technology-type
+   manager-technology-powered?
+   manager-technology-connected?
+   manager-technology-thetering?
+
+   make-manager-context
    manager-services
    )
 

diff --git a/manager.scm b/manager.scm
@@ -46,9 +46,30 @@
    (make-variant session-mode?)))
 
 
+;;;
+;;; Manager technologies
+;;;
+(define-record manager-technology
+  path
+  name
+  type
+  powered?
+  connected?
+  thetering?)
+
 (define (manager-technologies context)
-  (and-let* ((techs (dbus-call context "GetTechnologies")))
-    (car techs)))
+  (and-let* ((techs (dbus-call context "GetTechnologies"))
+             (techs (vector->list (car techs))))
+    (map (lambda (item)
+           (let ((path (object-path->string (struct-ref item 0)))
+		 (properties (vector->list (struct-ref item 1))))
+             (make-manager-technology path
+                                      (dbus-value "Name" properties)
+                                      (dbus-value "Type" properties)
+                                      (dbus-value "Powered" properties)
+                                      (dbus-value "Connected" properties)
+                                      (dbus-value "Thetering" properties))))
+         techs)))
 
 
 (define (manager-services context)