Guile MQTT provides bindings for the libmosquitto MQTT client library.
The bindings are written in GOOPS and rely on lower-level bindings
created by NYACC directly and automatically from mosquitto.h.
Changes compared to v0.2.0:
-
Bugfix: Removed last reference to (nyacc foreign cdata) in (ffi
mosquitto) such that (mosquitto client) gets independent of NYACC -
Cleanups
The bindings align with GOOPS style, which means short method
names. (The specialization is done through the arguments.)
The user can extend the client class by inheritance.
This is beta software.
The following example, as well as the Guile libmosquitto bindings themselves,
are inspired by the Chicken Scheme mosquitto bindings by Dmitrii Kosenkov.
(use-modules (mosquitto client))
(let ((client (make-client #:on-connect
(lambda (client err)
(if (not (eq? err MOSQ_ERR_SUCCESS))
(abort err)
(display "Yay, we are connected!\n"))))))
(set! (disconnect-callback client)
(lambda (client err)
(if (not (eq? err MOSQ_ERR_SUCCESS))
(display "Unexpected disconnect...\n"))))
(set! (message-callback client)
(lambda (cl msg)
(display (string->append "Topic: " (topic msg)
"Payload:" (payload msg)))
(publish client "topic2" "message received, thanks!")))
(connect client "localhost" #:username "mqtt-admin" #:password "mypass")
(subscribe client "topic1")
(loop-forever client))
See further examples under the directory examples.
Guile MQTT is free software and is released under the LGPL v3 license.