diff --git a/prolog/mqtt.pl b/prolog/mqtt.pl index 6ccb252..f38a49b 100644 --- a/prolog/mqtt.pl +++ b/prolog/mqtt.pl @@ -1,7 +1,6 @@ % MQTT pack for SWI-Prolog % 2016-05-24 - olsky - initial draft % 2016-05-30 - olsky - working connect and publish -% 2016-05-31 - olsky - addding async interface % :- module(mqtt, [ @@ -101,6 +100,8 @@ true. + + % subscribe with: % - topic pattern % - qos @@ -110,6 +111,12 @@ mqtt_sub(Connection, Topic) :- mqtt_sub(Connection, Topic, []). + + + + + + % hooks: mqtt_hook_on_connect(Connection, Data) :- format('% hook > on_connect > connection: ~w data: ~w~n', [Connection, Data]).