Welcome to the CHICKEN Scheme pasting service

(use (prefix dbus dbus:))

(define ethernet-props
	`(#(("Type" . ,(dbus:make-variant "ethernet"))
	   ("Security" . ,(dbus:make-variant))	;; todo empty variant goes across as #f
	   ("State" . ,(dbus:make-variant "online"))
	   ("Favorite" . ,(dbus:make-variant #t))
	   ("Immutable" . ,(dbus:make-variant #f))
	   ("AutoConnect" . ,(dbus:make-variant #f))
	   ("Name" . ,(dbus:make-variant "Wired"))
	   ("LoginRequired" . ,(dbus:make-variant #f))
	   ("Ethernet" . ,(dbus:make-variant
		'#(("Method" . "auto")
		  ("Interface" . "eth0")
		  ("Address" . "C8:0A:A9:DA:AE:A5")
		  ("MTU" . 1500))))
	   ("IPv4" . ,(dbus:make-variant
		'#(("Method" . "dhcp")
		  ("Address" . "10.0.0.148")
		  ("Netmask" . "255.255.255.0"))))
	   ("IPv4.Configuration" . ,(dbus:make-variant '#(("Method" . "dhcp"))))
	   ("IPv6" . ,(dbus:make-variant))
	   ("IPv6.Configuration" . ,(dbus:make-variant '#(("Method" . "auto") ("Privacy" . "disabled"))))
	   ("Nameservers" . ,(dbus:make-variant '#("10.0.0.1")))
	   ("Nameservers.Configuration" . ,(dbus:make-variant))
	   ("Domains" . ,(dbus:make-variant '#("lan")))
	   ("Domains.Configuration" . ,(dbus:make-variant))
	   ("Proxy" . ,(dbus:make-variant '#(("Method" . "direct"))))
	   ("Proxy.Configuration" . ,(dbus:make-variant))
	   ("Provider" . ,(dbus:make-variant)))) )

(define (query . params)
	(printf "got a query; params: ~s returning~%" params) (pp ethernet-props)
	;; the response to the query:
	ethernet-props
)
(define ctxt (dbus:make-context
	; bus: dbus:system-bus
	service: 'net.connman
	interface: 'net.connman.Service
	path: '/net/connman/service/ethernet_c80aa9daaea5_cable))

(dbus:register-method ctxt "GetProperties" query)
(let loop ()
	; (printf "poll~%")
	(dbus:poll-for-message bus: dbus:session-bus)
	; (dbus:poll-for-message dbus:system-bus)
	(loop))