Welcome to the CHICKEN Scheme pasting service

dbus + connman added by mario-goulart on Wed Feb 8 18:24:01 2012

(use dbus)

(define (device-properties device)
  (let ((c (dbus:make-context bus: dbus:system-bus
			      service: 'net.connman 
			      interface: 'net.connman.Service
			      path: (make-pathname "/net/connman/service"
						   device))))
    (dbus:call c "GetProperties")))

(pp (device-properties "ethernet_080027447063_cable"))

;; => (#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What module provides regular expressions support?
Visually impaired? Let me spell it for you (wav file) download WAV