12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634 |
- // Module for mqtt
- #include "module.h"
- #include "lauxlib.h"
- #include "platform.h"
- #include "c_string.h"
- #include "c_stdlib.h"
- #include "c_types.h"
- #include "mem.h"
- #include "lwip/ip_addr.h"
- #include "espconn.h"
- #include "mqtt_msg.h"
- #include "msg_queue.h"
- #include "user_interface.h"
- #define MQTT_BUF_SIZE 1024
- #define MQTT_DEFAULT_KEEPALIVE 60
- #define MQTT_MAX_CLIENT_LEN 64
- #define MQTT_MAX_USER_LEN 64
- #define MQTT_MAX_PASS_LEN 64
- #define MQTT_SEND_TIMEOUT 5
- #define MQTT_CONNECT_TIMEOUT 5
- typedef enum {
- MQTT_INIT,
- MQTT_CONNECT_SENT,
- MQTT_CONNECT_SENDING,
- MQTT_DATA
- } tConnState;
- typedef struct mqtt_event_data_t
- {
- uint8_t type;
- const char* topic;
- const char* data;
- uint16_t topic_length;
- uint16_t data_length;
- uint16_t data_offset;
- } mqtt_event_data_t;
- typedef struct mqtt_state_t
- {
- uint16_t port;
- int auto_reconnect;
- mqtt_connect_info_t* connect_info;
- uint16_t message_length;
- uint16_t message_length_read;
- mqtt_connection_t mqtt_connection;
- msg_queue_t* pending_msg_q;
- } mqtt_state_t;
- typedef struct lmqtt_userdata
- {
- struct espconn *pesp_conn;
- int self_ref;
- int cb_connect_ref;
- int cb_connect_fail_ref;
- int cb_disconnect_ref;
- int cb_message_ref;
- int cb_suback_ref;
- int cb_unsuback_ref;
- int cb_puback_ref;
- mqtt_state_t mqtt_state;
- mqtt_connect_info_t connect_info;
- uint16_t keep_alive_tick;
- uint32_t event_timeout;
- #ifdef CLIENT_SSL_ENABLE
- uint8_t secure;
- #endif
- bool connected; // indicate socket connected, not mqtt prot connected.
- ETSTimer mqttTimer;
- tConnState connState;
- }lmqtt_userdata;
- static sint8 socket_connect(struct espconn *pesp_conn);
- static void mqtt_socket_reconnected(void *arg, sint8_t err);
- static void mqtt_socket_connected(void *arg);
- static void mqtt_connack_fail(lmqtt_userdata * mud, int reason_code);
- static void mqtt_socket_disconnected(void *arg) // tcp only
- {
- NODE_DBG("enter mqtt_socket_disconnected.\n");
- struct espconn *pesp_conn = arg;
- bool call_back = false;
- if(pesp_conn == NULL)
- return;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return;
- os_timer_disarm(&mud->mqttTimer);
- lua_State *L = lua_getstate();
- if(mud->connected){ // call back only called when socket is from connection to disconnection.
- mud->connected = false;
- if((mud->cb_disconnect_ref != LUA_NOREF) && (mud->self_ref != LUA_NOREF)) {
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_disconnect_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata(client) to callback func in lua
- call_back = true;
- }
- }
- if(mud->mqtt_state.auto_reconnect){
- mud->pesp_conn->reverse = mud;
- mud->pesp_conn->type = ESPCONN_TCP;
- mud->pesp_conn->state = ESPCONN_NONE;
- mud->connected = false;
- mud->pesp_conn->proto.tcp->remote_port = mud->mqtt_state.port;
- mud->pesp_conn->proto.tcp->local_port = espconn_port();
- espconn_regist_connectcb(mud->pesp_conn, mqtt_socket_connected);
- espconn_regist_reconcb(mud->pesp_conn, mqtt_socket_reconnected);
- socket_connect(pesp_conn);
- } else {
- if(mud->pesp_conn){
- mud->pesp_conn->reverse = NULL;
- if(mud->pesp_conn->proto.tcp)
- c_free(mud->pesp_conn->proto.tcp);
- mud->pesp_conn->proto.tcp = NULL;
- c_free(mud->pesp_conn);
- mud->pesp_conn = NULL;
- }
- if(mud->self_ref != LUA_NOREF){ // TODO: should we unref the client and delete it?
- luaL_unref(L, LUA_REGISTRYINDEX, mud->self_ref);
- mud->self_ref = LUA_NOREF; // unref this, and the mqtt.socket userdata will delete it self
- }
- }
- if(call_back){
- lua_call(L, 1, 0);
- }
- NODE_DBG("leave mqtt_socket_disconnected.\n");
- }
- static void mqtt_socket_reconnected(void *arg, sint8_t err)
- {
- NODE_DBG("enter mqtt_socket_reconnected.\n");
- // mqtt_socket_disconnected(arg);
- struct espconn *pesp_conn = arg;
- if(pesp_conn == NULL)
- return;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return;
- os_timer_disarm(&mud->mqttTimer);
- if(mud->mqtt_state.auto_reconnect){
- pesp_conn->proto.tcp->remote_port = mud->mqtt_state.port;
- pesp_conn->proto.tcp->local_port = espconn_port();
- socket_connect(pesp_conn);
- } else {
- mqtt_socket_disconnected(arg);
- }
- NODE_DBG("leave mqtt_socket_reconnected.\n");
- }
- static void deliver_publish(lmqtt_userdata * mud, uint8_t* message, int length)
- {
- NODE_DBG("enter deliver_publish.\n");
- if(mud == NULL)
- return;
- mqtt_event_data_t event_data;
- event_data.topic_length = length;
- event_data.topic = mqtt_get_publish_topic(message, &event_data.topic_length);
- event_data.data_length = length;
- event_data.data = mqtt_get_publish_data(message, &event_data.data_length);
- if(mud->cb_message_ref == LUA_NOREF)
- return;
- if(mud->self_ref == LUA_NOREF)
- return;
- lua_State *L = lua_getstate();
- if(event_data.topic && (event_data.topic_length > 0)){
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_message_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata to callback func in lua
- lua_pushlstring(L, event_data.topic, event_data.topic_length);
- } else {
- NODE_DBG("get wrong packet.\n");
- return;
- }
- if(event_data.data && (event_data.data_length > 0)){
- lua_pushlstring(L, event_data.data, event_data.data_length);
- lua_call(L, 3, 0);
- } else {
- lua_call(L, 2, 0);
- }
- NODE_DBG("leave deliver_publish.\n");
- }
- static void mqtt_connack_fail(lmqtt_userdata * mud, int reason_code)
- {
- if(mud->cb_connect_fail_ref == LUA_NOREF || mud->self_ref == LUA_NOREF)
- {
- return;
- }
-
- lua_State *L = lua_getstate();
-
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_connect_fail_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata(client) to callback func in lua
- lua_pushinteger(L, reason_code);
- lua_call(L, 2, 0);
- }
- static sint8 mqtt_send_if_possible(struct espconn *pesp_conn)
- {
- if(pesp_conn == NULL)
- return ESPCONN_OK;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return ESPCONN_OK;
- sint8 espconn_status = ESPCONN_OK;
- // This indicates if we have sent something and are waiting for something to
- // happen
- if (mud->event_timeout == 0) {
- msg_queue_t *pending_msg = msg_peek(&(mud->mqtt_state.pending_msg_q));
- if (pending_msg) {
- mud->event_timeout = MQTT_SEND_TIMEOUT;
- NODE_DBG("Sent: %d\n", pending_msg->msg.length);
- #ifdef CLIENT_SSL_ENABLE
- if( mud->secure )
- {
- espconn_status = espconn_secure_send( pesp_conn, pending_msg->msg.data, pending_msg->msg.length );
- }
- else
- #endif
- {
- espconn_status = espconn_send( pesp_conn, pending_msg->msg.data, pending_msg->msg.length );
- }
- mud->keep_alive_tick = 0;
- }
- }
- NODE_DBG("send_if_poss, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- return espconn_status;
- }
- static void mqtt_socket_received(void *arg, char *pdata, unsigned short len)
- {
- NODE_DBG("enter mqtt_socket_received.\n");
- uint8_t msg_type;
- uint8_t msg_qos;
- uint16_t msg_id;
- int length = (int)len;
- // uint8_t in_buffer[MQTT_BUF_SIZE];
- uint8_t *in_buffer = (uint8_t *)pdata;
- struct espconn *pesp_conn = arg;
- if(pesp_conn == NULL)
- return;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return;
- READPACKET:
- if(length > MQTT_BUF_SIZE || length <= 0)
- return;
- // c_memcpy(in_buffer, pdata, length);
- uint8_t temp_buffer[MQTT_BUF_SIZE];
- mqtt_msg_init(&mud->mqtt_state.mqtt_connection, temp_buffer, MQTT_BUF_SIZE);
- mqtt_message_t *temp_msg = NULL;
- lua_State *L = lua_getstate();
- switch(mud->connState){
- case MQTT_CONNECT_SENDING:
- case MQTT_CONNECT_SENT:
- mud->event_timeout = 0;
-
- if(mqtt_get_type(in_buffer) != MQTT_MSG_TYPE_CONNACK){
- NODE_DBG("MQTT: Invalid packet\r\n");
- mud->connState = MQTT_INIT;
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- {
- espconn_secure_disconnect(pesp_conn);
- }
- else
- #endif
- {
- espconn_disconnect(pesp_conn);
- }
-
- mqtt_connack_fail(mud, MQTT_CONN_FAIL_NOT_A_CONNACK_MSG);
-
- break;
-
- } else if (mqtt_get_connect_ret_code(in_buffer) != MQTT_CONNACK_ACCEPTED) {
- NODE_DBG("MQTT: CONNACK REFUSED (CODE: %d)\n", mqtt_get_connect_ret_code(in_buffer));
-
- mud->connState = MQTT_INIT;
-
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- {
- espconn_secure_disconnect(pesp_conn);
- }
- else
- #endif
- {
- espconn_disconnect(pesp_conn);
- }
-
- mqtt_connack_fail(mud, mqtt_get_connect_ret_code(in_buffer));
-
- break;
-
- } else {
- mud->connState = MQTT_DATA;
- NODE_DBG("MQTT: Connected\r\n");
- if(mud->cb_connect_ref == LUA_NOREF)
- break;
- if(mud->self_ref == LUA_NOREF)
- break;
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_connect_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata(client) to callback func in lua
- lua_call(L, 1, 0);
- break;
- }
- break;
- case MQTT_DATA:
- mud->mqtt_state.message_length_read = length;
- mud->mqtt_state.message_length = mqtt_get_total_length(in_buffer, mud->mqtt_state.message_length_read);
- msg_type = mqtt_get_type(in_buffer);
- msg_qos = mqtt_get_qos(in_buffer);
- msg_id = mqtt_get_id(in_buffer, mud->mqtt_state.message_length);
- msg_queue_t *pending_msg = msg_peek(&(mud->mqtt_state.pending_msg_q));
- NODE_DBG("MQTT_DATA: type: %d, qos: %d, msg_id: %d, pending_id: %d\r\n",
- msg_type,
- msg_qos,
- msg_id,
- (pending_msg)?pending_msg->msg_id:0);
- switch(msg_type)
- {
- case MQTT_MSG_TYPE_SUBACK:
- if(pending_msg && pending_msg->msg_type == MQTT_MSG_TYPE_SUBSCRIBE && pending_msg->msg_id == msg_id){
- NODE_DBG("MQTT: Subscribe successful\r\n");
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- if (mud->cb_suback_ref == LUA_NOREF)
- break;
- if (mud->self_ref == LUA_NOREF)
- break;
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_suback_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref);
- lua_call(L, 1, 0);
- }
- break;
- case MQTT_MSG_TYPE_UNSUBACK:
- if(pending_msg && pending_msg->msg_type == MQTT_MSG_TYPE_UNSUBSCRIBE && pending_msg->msg_id == msg_id){
- NODE_DBG("MQTT: UnSubscribe successful\r\n");
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- if (mud->cb_unsuback_ref == LUA_NOREF)
- break;
- if (mud->self_ref == LUA_NOREF)
- break;
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_unsuback_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref);
- lua_call(L, 1, 0);
- }
- break;
- case MQTT_MSG_TYPE_PUBLISH:
- if(msg_qos == 1){
- temp_msg = mqtt_msg_puback(&mud->mqtt_state.mqtt_connection, msg_id);
- msg_enqueue(&(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_PUBACK, (int)mqtt_get_qos(temp_msg->data) );
- }
- else if(msg_qos == 2){
- temp_msg = mqtt_msg_pubrec(&mud->mqtt_state.mqtt_connection, msg_id);
- msg_enqueue(&(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_PUBREC, (int)mqtt_get_qos(temp_msg->data) );
- }
- if(msg_qos == 1 || msg_qos == 2){
- NODE_DBG("MQTT: Queue response QoS: %d\r\n", msg_qos);
- }
- deliver_publish(mud, in_buffer, mud->mqtt_state.message_length);
- break;
- case MQTT_MSG_TYPE_PUBACK:
- if(pending_msg && pending_msg->msg_type == MQTT_MSG_TYPE_PUBLISH && pending_msg->msg_id == msg_id){
- NODE_DBG("MQTT: Publish with QoS = 1 successful\r\n");
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- if(mud->cb_puback_ref == LUA_NOREF)
- break;
- if(mud->self_ref == LUA_NOREF)
- break;
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_puback_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata to callback func in lua
- lua_call(L, 1, 0);
- }
- break;
- case MQTT_MSG_TYPE_PUBREC:
- if(pending_msg && pending_msg->msg_type == MQTT_MSG_TYPE_PUBLISH && pending_msg->msg_id == msg_id){
- NODE_DBG("MQTT: Publish with QoS = 2 Received PUBREC\r\n");
- // Note: actually, should not destroy the msg until PUBCOMP is received.
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- temp_msg = mqtt_msg_pubrel(&mud->mqtt_state.mqtt_connection, msg_id);
- msg_enqueue(&(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_PUBREL, (int)mqtt_get_qos(temp_msg->data) );
- NODE_DBG("MQTT: Response PUBREL\r\n");
- }
- break;
- case MQTT_MSG_TYPE_PUBREL:
- if(pending_msg && pending_msg->msg_type == MQTT_MSG_TYPE_PUBREC && pending_msg->msg_id == msg_id){
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- temp_msg = mqtt_msg_pubcomp(&mud->mqtt_state.mqtt_connection, msg_id);
- msg_enqueue(&(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_PUBCOMP, (int)mqtt_get_qos(temp_msg->data) );
- NODE_DBG("MQTT: Response PUBCOMP\r\n");
- }
- break;
- case MQTT_MSG_TYPE_PUBCOMP:
- if(pending_msg && pending_msg->msg_type == MQTT_MSG_TYPE_PUBREL && pending_msg->msg_id == msg_id){
- NODE_DBG("MQTT: Publish with QoS = 2 successful\r\n");
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- if(mud->cb_puback_ref == LUA_NOREF)
- break;
- if(mud->self_ref == LUA_NOREF)
- break;
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_puback_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata to callback func in lua
- lua_call(L, 1, 0);
- }
- break;
- case MQTT_MSG_TYPE_PINGREQ:
- temp_msg = mqtt_msg_pingresp(&mud->mqtt_state.mqtt_connection);
- msg_enqueue(&(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_PINGRESP, (int)mqtt_get_qos(temp_msg->data) );
- NODE_DBG("MQTT: Response PINGRESP\r\n");
- break;
- case MQTT_MSG_TYPE_PINGRESP:
- // Ignore
- NODE_DBG("MQTT: PINGRESP received\r\n");
- break;
- }
- // NOTE: this is done down here and not in the switch case above
- // because the PSOCK_READBUF_LEN() won't work inside a switch
- // statement due to the way protothreads resume.
- if(msg_type == MQTT_MSG_TYPE_PUBLISH)
- {
- length = mud->mqtt_state.message_length_read;
- if(mud->mqtt_state.message_length < mud->mqtt_state.message_length_read)
- {
- length -= mud->mqtt_state.message_length;
- in_buffer += mud->mqtt_state.message_length;
- NODE_DBG("Get another published message\r\n");
- goto READPACKET;
- }
- }
- break;
- }
- mqtt_send_if_possible(pesp_conn);
- NODE_DBG("leave mqtt_socket_received.\n");
- return;
- }
- static void mqtt_socket_sent(void *arg)
- {
- NODE_DBG("enter mqtt_socket_sent.\n");
- struct espconn *pesp_conn = arg;
- if(pesp_conn == NULL)
- return;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return;
- if(!mud->connected)
- return;
- // call mqtt_sent()
- mud->event_timeout = 0;
- mud->keep_alive_tick = 0;
- if(mud->connState == MQTT_CONNECT_SENDING){
- mud->connState = MQTT_CONNECT_SENT;
- mud->event_timeout = MQTT_SEND_TIMEOUT;
- // MQTT_CONNECT not queued.
- return;
- }
- NODE_DBG("sent1, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- uint8_t try_send = 1;
- // qos = 0, publish and forgot.
- msg_queue_t *node = msg_peek(&(mud->mqtt_state.pending_msg_q));
- if(node && node->msg_type == MQTT_MSG_TYPE_PUBLISH && node->publish_qos == 0) {
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- if(mud->cb_puback_ref != LUA_NOREF && mud->self_ref != LUA_NOREF) {
- lua_State *L = lua_getstate();
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->cb_puback_ref);
- lua_rawgeti(L, LUA_REGISTRYINDEX, mud->self_ref); // pass the userdata to callback func in lua
- lua_call(L, 1, 0);
- }
- } else if(node && node->msg_type == MQTT_MSG_TYPE_PUBACK) {
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- } else if(node && node->msg_type == MQTT_MSG_TYPE_PUBCOMP) {
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- } else if(node && node->msg_type == MQTT_MSG_TYPE_PINGREQ) {
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- } else {
- try_send = 0;
- }
- if (try_send) {
- mqtt_send_if_possible(mud->pesp_conn);
- }
- NODE_DBG("sent2, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- NODE_DBG("leave mqtt_socket_sent.\n");
- }
- static void mqtt_socket_connected(void *arg)
- {
- NODE_DBG("enter mqtt_socket_connected.\n");
- struct espconn *pesp_conn = arg;
- if(pesp_conn == NULL)
- return;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return;
- mud->connected = true;
- espconn_regist_recvcb(pesp_conn, mqtt_socket_received);
- espconn_regist_sentcb(pesp_conn, mqtt_socket_sent);
- espconn_regist_disconcb(pesp_conn, mqtt_socket_disconnected);
- uint8_t temp_buffer[MQTT_BUF_SIZE];
- // call mqtt_connect() to start a mqtt connect stage.
- mqtt_msg_init(&mud->mqtt_state.mqtt_connection, temp_buffer, MQTT_BUF_SIZE);
- mqtt_message_t* temp_msg = mqtt_msg_connect(&mud->mqtt_state.mqtt_connection, mud->mqtt_state.connect_info);
- NODE_DBG("Send MQTT connection infomation, data len: %d, d[0]=%d \r\n", temp_msg->length, temp_msg->data[0]);
- mud->event_timeout = MQTT_SEND_TIMEOUT;
- // not queue this message. should send right now. or should enqueue this before head.
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- {
- espconn_secure_send(pesp_conn, temp_msg->data, temp_msg->length);
- }
- else
- #endif
- {
- espconn_send(pesp_conn, temp_msg->data, temp_msg->length);
- }
- mud->keep_alive_tick = 0;
- mud->connState = MQTT_CONNECT_SENDING;
- NODE_DBG("leave mqtt_socket_connected.\n");
- return;
- }
- void mqtt_socket_timer(void *arg)
- {
- NODE_DBG("enter mqtt_socket_timer.\n");
- lmqtt_userdata *mud = (lmqtt_userdata*) arg;
- if(mud == NULL)
- return;
- if(mud->pesp_conn == NULL){
- NODE_DBG("mud->pesp_conn is NULL.\n");
- os_timer_disarm(&mud->mqttTimer);
- return;
- }
- NODE_DBG("timer, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- if(mud->event_timeout > 0){
- NODE_DBG("event_timeout: %d.\n", mud->event_timeout);
- mud->event_timeout --;
- if(mud->event_timeout > 0){
- return;
- } else {
- NODE_DBG("event timeout. \n");
- if(mud->connState == MQTT_DATA)
- msg_destroy(msg_dequeue(&(mud->mqtt_state.pending_msg_q)));
- // should remove the head of the queue and re-send with DUP = 1
- // Not implemented yet.
- }
- }
- if(mud->connState == MQTT_INIT){ // socket connect time out.
- NODE_DBG("Can not connect to broker.\n");
- os_timer_disarm(&mud->mqttTimer);
- mqtt_connack_fail(mud, MQTT_CONN_FAIL_SERVER_NOT_FOUND);
- } else if(mud->connState == MQTT_CONNECT_SENDING){ // MQTT_CONNECT send time out.
- NODE_DBG("sSend MQTT_CONNECT failed.\n");
- mud->connState = MQTT_INIT;
- mqtt_connack_fail(mud, MQTT_CONN_FAIL_TIMEOUT_SENDING);
-
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- {
- espconn_secure_disconnect(mud->pesp_conn);
- }
- else
- #endif
- {
- espconn_disconnect(mud->pesp_conn);
- }
- mud->keep_alive_tick = 0; // not need count anymore
- } else if(mud->connState == MQTT_CONNECT_SENT) { // wait for CONACK time out.
- NODE_DBG("MQTT_CONNECT timeout.\n");
- mud->connState == MQTT_INIT;
-
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- {
- espconn_secure_disconnect(mud->pesp_conn);
- }
- else
- #endif
- {
- espconn_disconnect(mud->pesp_conn);
- }
- mqtt_connack_fail(mud, MQTT_CONN_FAIL_TIMEOUT_RECEIVING);
- } else if(mud->connState == MQTT_DATA){
- msg_queue_t *pending_msg = msg_peek(&(mud->mqtt_state.pending_msg_q));
- if(pending_msg){
- mqtt_send_if_possible(mud->pesp_conn);
- } else {
- // no queued event.
- mud->keep_alive_tick ++;
- if(mud->keep_alive_tick > mud->mqtt_state.connect_info->keepalive){
- uint8_t temp_buffer[MQTT_BUF_SIZE];
- mqtt_msg_init(&mud->mqtt_state.mqtt_connection, temp_buffer, MQTT_BUF_SIZE);
- NODE_DBG("\r\nMQTT: Send keepalive packet\r\n");
- mqtt_message_t* temp_msg = mqtt_msg_pingreq(&mud->mqtt_state.mqtt_connection);
- msg_queue_t *node = msg_enqueue( &(mud->mqtt_state.pending_msg_q), temp_msg,
- 0, MQTT_MSG_TYPE_PINGREQ, (int)mqtt_get_qos(temp_msg->data) );
- mqtt_send_if_possible(mud->pesp_conn);
- }
- }
- }
- NODE_DBG("keep_alive_tick: %d\n", mud->keep_alive_tick);
- NODE_DBG("leave mqtt_socket_timer.\n");
- }
- // Lua: mqtt.Client(clientid, keepalive, user, pass, clean_session)
- static int mqtt_socket_client( lua_State* L )
- {
- NODE_DBG("enter mqtt_socket_client.\n");
- lmqtt_userdata *mud;
- char tempid[20] = {0};
- c_sprintf(tempid, "%s%x", "NodeMCU_", system_get_chip_id() );
- NODE_DBG(tempid);
- NODE_DBG("\n");
- const char *clientId = tempid, *username = NULL, *password = NULL;
- size_t idl = c_strlen(tempid);
- size_t unl = 0, pwl = 0;
- int keepalive = 0;
- int stack = 1;
- int clean_session = 1;
- int top = lua_gettop(L);
- // create a object
- mud = (lmqtt_userdata *)lua_newuserdata(L, sizeof(lmqtt_userdata));
- // pre-initialize it, in case of errors
- mud->self_ref = LUA_NOREF;
- mud->cb_connect_ref = LUA_NOREF;
- mud->cb_connect_fail_ref = LUA_NOREF;
- mud->cb_disconnect_ref = LUA_NOREF;
- mud->cb_message_ref = LUA_NOREF;
- mud->cb_suback_ref = LUA_NOREF;
- mud->cb_puback_ref = LUA_NOREF;
- mud->pesp_conn = NULL;
- #ifdef CLIENT_SSL_ENABLE
- mud->secure = 0;
- #endif
- mud->keep_alive_tick = 0;
- mud->event_timeout = 0;
- mud->connState = MQTT_INIT;
- mud->connected = false;
- c_memset(&mud->mqttTimer, 0, sizeof(ETSTimer));
- c_memset(&mud->mqtt_state, 0, sizeof(mqtt_state_t));
- c_memset(&mud->connect_info, 0, sizeof(mqtt_connect_info_t));
- // set its metatable
- luaL_getmetatable(L, "mqtt.socket");
- lua_setmetatable(L, -2);
- if( lua_isstring(L,stack) ) // deal with the clientid string
- {
- clientId = luaL_checklstring( L, stack, &idl );
- stack++;
- }
- if(lua_isnumber( L, stack ))
- {
- keepalive = luaL_checkinteger( L, stack);
- stack++;
- }
- if(keepalive == 0){
- keepalive = MQTT_DEFAULT_KEEPALIVE;
- }
- if(lua_isstring( L, stack )){
- username = luaL_checklstring( L, stack, &unl );
- stack++;
- }
- if(username == NULL)
- unl = 0;
- NODE_DBG("length username: %d\r\n", unl);
- if(lua_isstring( L, stack )){
- password = luaL_checklstring( L, stack, &pwl );
- stack++;
- }
- if(password == NULL)
- pwl = 0;
- NODE_DBG("length password: %d\r\n", pwl);
- if(lua_isnumber( L, stack ))
- {
- clean_session = luaL_checkinteger( L, stack);
- stack++;
- }
- if(clean_session > 1){
- clean_session = 1;
- }
- // TODO: check the zalloc result.
- mud->connect_info.client_id = (uint8_t *)c_zalloc(idl+1);
- mud->connect_info.username = (uint8_t *)c_zalloc(unl + 1);
- mud->connect_info.password = (uint8_t *)c_zalloc(pwl + 1);
- if(!mud->connect_info.client_id || !mud->connect_info.username || !mud->connect_info.password){
- if(mud->connect_info.client_id) {
- c_free(mud->connect_info.client_id);
- mud->connect_info.client_id = NULL;
- }
- if(mud->connect_info.username) {
- c_free(mud->connect_info.username);
- mud->connect_info.username = NULL;
- }
- if(mud->connect_info.password) {
- c_free(mud->connect_info.password);
- mud->connect_info.password = NULL;
- }
- return luaL_error(L, "not enough memory");
- }
- c_memcpy(mud->connect_info.client_id, clientId, idl);
- mud->connect_info.client_id[idl] = 0;
- c_memcpy(mud->connect_info.username, username, unl);
- mud->connect_info.username[unl] = 0;
- c_memcpy(mud->connect_info.password, password, pwl);
- mud->connect_info.password[pwl] = 0;
- NODE_DBG("MQTT: Init info: %s, %s, %s\r\n", mud->connect_info.client_id, mud->connect_info.username, mud->connect_info.password);
- mud->connect_info.clean_session = clean_session;
- mud->connect_info.will_qos = 0;
- mud->connect_info.will_retain = 0;
- mud->connect_info.keepalive = keepalive;
- mud->mqtt_state.pending_msg_q = NULL;
- mud->mqtt_state.auto_reconnect = 0;
- mud->mqtt_state.port = 1883;
- mud->mqtt_state.connect_info = &mud->connect_info;
- NODE_DBG("leave mqtt_socket_client.\n");
- return 1;
- }
- // Lua: mqtt.delete( socket )
- // call close() first
- // socket: unref everything
- static int mqtt_delete( lua_State* L )
- {
- NODE_DBG("enter mqtt_delete.\n");
- lmqtt_userdata *mud = (lmqtt_userdata *)luaL_checkudata(L, 1, "mqtt.socket");
- luaL_argcheck(L, mud, 1, "mqtt.socket expected");
- if(mud==NULL){
- NODE_DBG("userdata is nil.\n");
- return 0;
- }
- os_timer_disarm(&mud->mqttTimer);
- mud->connected = false;
- // ---- alloc-ed in mqtt_socket_connect()
- if(mud->pesp_conn){ // for client connected to tcp server, this should set NULL in disconnect cb
- mud->pesp_conn->reverse = NULL;
- if(mud->pesp_conn->proto.tcp)
- c_free(mud->pesp_conn->proto.tcp);
- mud->pesp_conn->proto.tcp = NULL;
- c_free(mud->pesp_conn);
- mud->pesp_conn = NULL; // for socket, it will free this when disconnected
- }
- // ---- alloc-ed in mqtt_socket_lwt()
- if(mud->connect_info.will_topic){
- c_free(mud->connect_info.will_topic);
- mud->connect_info.will_topic = NULL;
- }
- if(mud->connect_info.will_message){
- c_free(mud->connect_info.will_message);
- mud->connect_info.will_message = NULL;
- }
- // ----
- //--------- alloc-ed in mqtt_socket_client()
- if(mud->connect_info.client_id){
- c_free(mud->connect_info.client_id);
- mud->connect_info.client_id = NULL;
- }
- if(mud->connect_info.username){
- c_free(mud->connect_info.username);
- mud->connect_info.username = NULL;
- }
- if(mud->connect_info.password){
- c_free(mud->connect_info.password);
- mud->connect_info.password = NULL;
- }
- // -------
- // free (unref) callback ref
- if(LUA_NOREF!=mud->cb_connect_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_connect_ref);
- mud->cb_connect_ref = LUA_NOREF;
- }
- if(LUA_NOREF!=mud->cb_connect_fail_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_connect_fail_ref);
- mud->cb_connect_fail_ref = LUA_NOREF;
- }
- if(LUA_NOREF!=mud->cb_disconnect_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_disconnect_ref);
- mud->cb_disconnect_ref = LUA_NOREF;
- }
- if(LUA_NOREF!=mud->cb_message_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_message_ref);
- mud->cb_message_ref = LUA_NOREF;
- }
- if(LUA_NOREF!=mud->cb_suback_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_suback_ref);
- mud->cb_suback_ref = LUA_NOREF;
- }
- if(LUA_NOREF!=mud->cb_puback_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_puback_ref);
- mud->cb_puback_ref = LUA_NOREF;
- }
- lua_gc(L, LUA_GCSTOP, 0);
- if(LUA_NOREF!=mud->self_ref){
- luaL_unref(L, LUA_REGISTRYINDEX, mud->self_ref);
- mud->self_ref = LUA_NOREF;
- }
- lua_gc(L, LUA_GCRESTART, 0);
- NODE_DBG("leave mqtt_delete.\n");
- return 0;
- }
- static sint8 socket_connect(struct espconn *pesp_conn)
- {
- NODE_DBG("enter socket_connect.\n");
- sint8 espconn_status;
- if(pesp_conn == NULL)
- return ESPCONN_CONN;
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud == NULL)
- return ESPCONN_ARG;
- mud->event_timeout = MQTT_CONNECT_TIMEOUT;
- mud->connState = MQTT_INIT;
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- {
- espconn_secure_set_size(ESPCONN_CLIENT, 5120); /* set SSL buffer size */
- espconn_status = espconn_secure_connect(pesp_conn);
- }
- else
- #endif
- {
- espconn_status = espconn_connect(pesp_conn);
- }
- os_timer_arm(&mud->mqttTimer, 1000, 1);
- NODE_DBG("leave socket_connect.\n");
- return espconn_status;
- }
- static sint8 socket_dns_found(const char *name, ip_addr_t *ipaddr, void *arg);
- static int dns_reconn_count = 0;
- static ip_addr_t host_ip; // for dns
- /* wrapper for using socket_dns_found() as callback function */
- static void socket_dns_foundcb(const char *name, ip_addr_t *ipaddr, void *arg)
- {
- socket_dns_found(name, ipaddr, arg);
- }
- static sint8 socket_dns_found(const char *name, ip_addr_t *ipaddr, void *arg)
- {
- NODE_DBG("enter socket_dns_found.\n");
- sint8 espconn_status = ESPCONN_OK;
- struct espconn *pesp_conn = arg;
- if(pesp_conn == NULL){
- NODE_DBG("pesp_conn null.\n");
- return -1;
- }
- if(ipaddr == NULL)
- {
- dns_reconn_count++;
- if( dns_reconn_count >= 5 ){
- NODE_ERR( "DNS Fail!\n" );
- // Note: should delete the pesp_conn or unref self_ref here.
-
- struct espconn *pesp_conn = arg;
- if(pesp_conn != NULL) {
- lmqtt_userdata *mud = (lmqtt_userdata *)pesp_conn->reverse;
- if(mud != NULL) {
- mqtt_connack_fail(mud, MQTT_CONN_FAIL_DNS);
- }
- }
-
- mqtt_socket_disconnected(arg); // although not connected, but fire disconnect callback to release every thing.
- return -1;
- }
- NODE_ERR( "DNS retry %d!\n", dns_reconn_count );
- host_ip.addr = 0;
- return espconn_gethostbyname(pesp_conn, name, &host_ip, socket_dns_foundcb);
- }
- // ipaddr->addr is a uint32_t ip
- if(ipaddr->addr != 0)
- {
- dns_reconn_count = 0;
- c_memcpy(pesp_conn->proto.tcp->remote_ip, &(ipaddr->addr), 4);
- NODE_DBG("TCP ip is set: ");
- NODE_DBG(IPSTR, IP2STR(&(ipaddr->addr)));
- NODE_DBG("\n");
- espconn_status = socket_connect(pesp_conn);
- }
- NODE_DBG("leave socket_dns_found.\n");
- return espconn_status;
- }
- // Lua: mqtt:connect( host, port, secure, auto_reconnect, function(client), function(client, connect_return_code) )
- static int mqtt_socket_connect( lua_State* L )
- {
- NODE_DBG("enter mqtt_socket_connect.\n");
- lmqtt_userdata *mud = NULL;
- unsigned port = 1883;
- size_t il;
- ip_addr_t ipaddr;
- const char *domain;
- int stack = 1;
- unsigned secure = 0, auto_reconnect = 0;
- int top = lua_gettop(L);
- sint8 espconn_status;
- mud = (lmqtt_userdata *)luaL_checkudata(L, stack, "mqtt.socket");
- luaL_argcheck(L, mud, stack, "mqtt.socket expected");
- stack++;
- if(mud == NULL)
- return 0;
- if(mud->connected){
- return luaL_error(L, "already connected");
- }
- if(mud->pesp_conn){ //TODO: should I free tcp struct directly or ask user to call close()???
- mud->pesp_conn->reverse = NULL;
- if(mud->pesp_conn->proto.tcp)
- c_free(mud->pesp_conn->proto.tcp);
- mud->pesp_conn->proto.tcp = NULL;
- c_free(mud->pesp_conn);
- mud->pesp_conn = NULL;
- }
- struct espconn *pesp_conn = NULL;
- pesp_conn = mud->pesp_conn = (struct espconn *)c_zalloc(sizeof(struct espconn));
- if(!pesp_conn)
- return luaL_error(L, "not enough memory");
- pesp_conn->proto.udp = NULL;
- pesp_conn->proto.tcp = (esp_tcp *)c_zalloc(sizeof(esp_tcp));
- if(!pesp_conn->proto.tcp){
- c_free(pesp_conn);
- pesp_conn = mud->pesp_conn = NULL;
- return luaL_error(L, "not enough memory");
- }
- // reverse is for the callback function
- pesp_conn->reverse = mud;
- pesp_conn->type = ESPCONN_TCP;
- pesp_conn->state = ESPCONN_NONE;
- mud->connected = false;
- if( (stack<=top) && lua_isstring(L,stack) ) // deal with the domain string
- {
- domain = luaL_checklstring( L, stack, &il );
- stack++;
- if (domain == NULL)
- {
- domain = "127.0.0.1";
- }
- ipaddr.addr = ipaddr_addr(domain);
- c_memcpy(pesp_conn->proto.tcp->remote_ip, &ipaddr.addr, 4);
- NODE_DBG("TCP ip is set: ");
- NODE_DBG(IPSTR, IP2STR(&ipaddr.addr));
- NODE_DBG("\n");
- }
- if ( (stack<=top) && lua_isnumber(L, stack) )
- {
- port = lua_tointeger(L, stack);
- stack++;
- NODE_DBG("TCP port is set: %d.\n", port);
- }
- pesp_conn->proto.tcp->remote_port = port;
- pesp_conn->proto.tcp->local_port = espconn_port();
- mud->mqtt_state.port = port;
- if ( (stack<=top) && lua_isnumber(L, stack) )
- {
- secure = lua_tointeger(L, stack);
- stack++;
- if ( secure != 0 && secure != 1 ){
- secure = 0; // default to 0
- }
- } else {
- secure = 0; // default to 0
- }
- #ifdef CLIENT_SSL_ENABLE
- mud->secure = secure; // save
- #else
- if ( secure )
- {
- return luaL_error(L, "ssl not available");
- }
- #endif
- if ( (stack<=top) && lua_isnumber(L, stack) )
- {
- auto_reconnect = lua_tointeger(L, stack);
- stack++;
- if ( auto_reconnect != 0 && auto_reconnect != 1 ){
- auto_reconnect = 0; // default to 0
- }
- } else {
- auto_reconnect = 0; // default to 0
- }
- mud->mqtt_state.auto_reconnect = auto_reconnect;
- // call back function when a connection is obtained, tcp only
- if ((stack<=top) && (lua_type(L, stack) == LUA_TFUNCTION || lua_type(L, stack) == LUA_TLIGHTFUNCTION)){
- lua_pushvalue(L, stack); // copy argument (func) to the top of stack
- if(mud->cb_connect_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_connect_ref);
- mud->cb_connect_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- stack++;
- }
-
- // call back function when a connection fails
- if ((stack<=top) && (lua_type(L, stack) == LUA_TFUNCTION || lua_type(L, stack) == LUA_TLIGHTFUNCTION)){
- lua_pushvalue(L, stack); // copy argument (func) to the top of stack
- if(mud->cb_connect_fail_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_connect_fail_ref);
- mud->cb_connect_fail_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- stack++;
- }
- lua_pushvalue(L, 1); // copy userdata to the top of stack
- if(mud->self_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->self_ref);
- mud->self_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- espconn_status = espconn_regist_connectcb(pesp_conn, mqtt_socket_connected);
- espconn_status |= espconn_regist_reconcb(pesp_conn, mqtt_socket_reconnected);
- os_timer_disarm(&mud->mqttTimer);
- os_timer_setfn(&mud->mqttTimer, (os_timer_func_t *)mqtt_socket_timer, mud);
- // timer started in socket_connect()
- if((ipaddr.addr == IPADDR_NONE) && (c_memcmp(domain,"255.255.255.255",16) != 0))
- {
- host_ip.addr = 0;
- dns_reconn_count = 0;
- if(ESPCONN_OK == espconn_gethostbyname(pesp_conn, domain, &host_ip, socket_dns_foundcb)){
- espconn_status |= socket_dns_found(domain, &host_ip, pesp_conn); // ip is returned in host_ip.
- }
- }
- else
- {
- espconn_status |= socket_connect(pesp_conn);
- }
- NODE_DBG("leave mqtt_socket_connect.\n");
- if (espconn_status == ESPCONN_OK) {
- lua_pushboolean(L, 1);
- } else {
- lua_pushboolean(L, 0);
- }
- return 1;
- }
- // Lua: mqtt:close()
- // client disconnect and unref itself
- static int mqtt_socket_close( lua_State* L )
- {
- NODE_DBG("enter mqtt_socket_close.\n");
- int i = 0;
- lmqtt_userdata *mud = NULL;
- mud = (lmqtt_userdata *)luaL_checkudata(L, 1, "mqtt.socket");
- luaL_argcheck(L, mud, 1, "mqtt.socket expected");
- if (mud == NULL || mud->pesp_conn == NULL) {
- lua_pushboolean(L, 0);
- return 1;
- }
- // Send disconnect message
- mqtt_message_t* temp_msg = mqtt_msg_disconnect(&mud->mqtt_state.mqtt_connection);
- NODE_DBG("Send MQTT disconnect infomation, data len: %d, d[0]=%d \r\n", temp_msg->length, temp_msg->data[0]);
- sint8 espconn_status;
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure)
- espconn_status = espconn_secure_send(mud->pesp_conn, temp_msg->data, temp_msg->length);
- else
- #endif
- espconn_status = espconn_send(mud->pesp_conn, temp_msg->data, temp_msg->length);
- mud->mqtt_state.auto_reconnect = 0; // stop auto reconnect.
- #ifdef CLIENT_SSL_ENABLE
- if(mud->secure){
- if(mud->pesp_conn->proto.tcp->remote_port || mud->pesp_conn->proto.tcp->local_port)
- espconn_status |= espconn_secure_disconnect(mud->pesp_conn);
- }
- else
- #endif
- {
- if(mud->pesp_conn->proto.tcp->remote_port || mud->pesp_conn->proto.tcp->local_port)
- espconn_status |= espconn_disconnect(mud->pesp_conn);
- }
- NODE_DBG("leave mqtt_socket_close.\n");
- if (espconn_status == ESPCONN_OK) {
- lua_pushboolean(L, 1);
- } else {
- lua_pushboolean(L, 0);
- }
- return 1;
- }
- // Lua: mqtt:on( "method", function() )
- static int mqtt_socket_on( lua_State* L )
- {
- NODE_DBG("enter mqtt_socket_on.\n");
- lmqtt_userdata *mud;
- size_t sl;
- mud = (lmqtt_userdata *)luaL_checkudata(L, 1, "mqtt.socket");
- luaL_argcheck(L, mud, 1, "mqtt.socket expected");
- if(mud==NULL){
- NODE_DBG("userdata is nil.\n");
- return 0;
- }
- const char *method = luaL_checklstring( L, 2, &sl );
- if (method == NULL)
- return luaL_error( L, "wrong arg type" );
- luaL_checkanyfunction(L, 3);
- lua_pushvalue(L, 3); // copy argument (func) to the top of stack
- if( sl == 7 && c_strcmp(method, "connect") == 0){
- if(mud->cb_connect_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_connect_ref);
- mud->cb_connect_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- }else if( sl == 7 && c_strcmp(method, "offline") == 0){
- if(mud->cb_disconnect_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_disconnect_ref);
- mud->cb_disconnect_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- }else if( sl == 7 && c_strcmp(method, "message") == 0){
- if(mud->cb_message_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_message_ref);
- mud->cb_message_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- }else{
- lua_pop(L, 1);
- return luaL_error( L, "method not supported" );
- }
- NODE_DBG("leave mqtt_socket_on.\n");
- return 0;
- }
- // Lua: bool = mqtt:unsubscribe(topic, function())
- static int mqtt_socket_unsubscribe( lua_State* L ) {
- NODE_DBG("enter mqtt_socket_unsubscribe.\n");
- uint8_t stack = 1;
- uint16_t msg_id = 0;
- const char *topic;
- size_t il;
- lmqtt_userdata *mud;
- mud = (lmqtt_userdata *) luaL_checkudata( L, stack, "mqtt.socket" );
- luaL_argcheck( L, mud, stack, "mqtt.socket expected" );
- stack++;
- if(mud==NULL){
- NODE_DBG("userdata is nil.\n");
- lua_pushboolean(L, 0);
- return 1;
- }
- if(mud->pesp_conn == NULL){
- NODE_DBG("mud->pesp_conn is NULL.\n");
- lua_pushboolean(L, 0);
- return 1;
- }
- if(!mud->connected){
- luaL_error( L, "not connected" );
- lua_pushboolean(L, 0);
- return 1;
- }
- uint8_t temp_buffer[MQTT_BUF_SIZE];
- mqtt_msg_init(&mud->mqtt_state.mqtt_connection, temp_buffer, MQTT_BUF_SIZE);
- mqtt_message_t *temp_msg = NULL;
- if( lua_istable( L, stack ) ) {
- NODE_DBG("unsubscribe table\n");
- lua_pushnil( L ); /* first key */
- int topic_count = 0;
- uint8_t overflow = 0;
- while( lua_next( L, stack ) != 0 ) {
- topic = luaL_checkstring( L, -2 );
- if (topic_count == 0) {
- temp_msg = mqtt_msg_unsubscribe_init( &mud->mqtt_state.mqtt_connection, &msg_id );
- }
- temp_msg = mqtt_msg_unsubscribe_topic( &mud->mqtt_state.mqtt_connection, topic );
- topic_count++;
- NODE_DBG("topic: %s - length: %d\n", topic, temp_msg->length);
- if (temp_msg->length == 0) {
- lua_pop(L, 1);
- overflow = 1;
- break; // too long message for the outbuffer.
- }
- lua_pop( L, 1 );
- }
- if (topic_count == 0){
- return luaL_error( L, "no topics found" );
- }
- if (overflow != 0){
- return luaL_error( L, "buffer overflow, can't enqueue all unsubscriptions" );
- }
- temp_msg = mqtt_msg_unsubscribe_fini( &mud->mqtt_state.mqtt_connection );
- if (temp_msg->length == 0) {
- return luaL_error( L, "buffer overflow, can't enqueue all unsubscriptions" );
- }
- stack++;
- } else {
- NODE_DBG("unsubscribe string\n");
- topic = luaL_checklstring( L, stack, &il );
- stack++;
- if( topic == NULL ){
- return luaL_error( L, "need topic name" );
- }
- temp_msg = mqtt_msg_unsubscribe( &mud->mqtt_state.mqtt_connection, topic, &msg_id );
- }
- if( lua_type( L, stack ) == LUA_TFUNCTION || lua_type( L, stack ) == LUA_TLIGHTFUNCTION ) { // TODO: this will overwrite the previous one.
- lua_pushvalue( L, stack ); // copy argument (func) to the top of stack
- if( mud->cb_unsuback_ref != LUA_NOREF )
- luaL_unref( L, LUA_REGISTRYINDEX, mud->cb_unsuback_ref );
- mud->cb_unsuback_ref = luaL_ref( L, LUA_REGISTRYINDEX );
- }
- msg_queue_t *node = msg_enqueue( &(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_UNSUBSCRIBE, (int)mqtt_get_qos(temp_msg->data) );
- NODE_DBG("topic: %s - id: %d - qos: %d, length: %d\n", topic, node->msg_id, node->publish_qos, node->msg.length);
- NODE_DBG("msg_size: %d, event_timeout: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)), mud->event_timeout);
- sint8 espconn_status = ESPCONN_IF;
- espconn_status = mqtt_send_if_possible(mud->pesp_conn);
- if(!node || espconn_status != ESPCONN_OK){
- lua_pushboolean(L, 0);
- } else {
- lua_pushboolean(L, 1); // enqueued succeed.
- }
- NODE_DBG("unsubscribe, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- NODE_DBG("leave mqtt_socket_unsubscribe.\n");
- return 1;
- }
- // Lua: bool = mqtt:subscribe(topic, qos, function())
- static int mqtt_socket_subscribe( lua_State* L ) {
- NODE_DBG("enter mqtt_socket_subscribe.\n");
- uint8_t stack = 1, qos = 0;
- uint16_t msg_id = 0;
- const char *topic;
- size_t il;
- lmqtt_userdata *mud;
- mud = (lmqtt_userdata *) luaL_checkudata( L, stack, "mqtt.socket" );
- luaL_argcheck( L, mud, stack, "mqtt.socket expected" );
- stack++;
- if(mud==NULL){
- NODE_DBG("userdata is nil.\n");
- lua_pushboolean(L, 0);
- return 1;
- }
- if(mud->pesp_conn == NULL){
- NODE_DBG("mud->pesp_conn is NULL.\n");
- lua_pushboolean(L, 0);
- return 1;
- }
- if(!mud->connected){
- luaL_error( L, "not connected" );
- lua_pushboolean(L, 0);
- return 1;
- }
- uint8_t temp_buffer[MQTT_BUF_SIZE];
- mqtt_msg_init(&mud->mqtt_state.mqtt_connection, temp_buffer, MQTT_BUF_SIZE);
- mqtt_message_t *temp_msg = NULL;
- if( lua_istable( L, stack ) ) {
- NODE_DBG("subscribe table\n");
- lua_pushnil( L ); /* first key */
- int topic_count = 0;
- uint8_t overflow = 0;
- while( lua_next( L, stack ) != 0 ) {
- topic = luaL_checkstring( L, -2 );
- qos = luaL_checkinteger( L, -1 );
- if (topic_count == 0) {
- temp_msg = mqtt_msg_subscribe_init( &mud->mqtt_state.mqtt_connection, &msg_id );
- }
- temp_msg = mqtt_msg_subscribe_topic( &mud->mqtt_state.mqtt_connection, topic, qos );
- topic_count++;
- NODE_DBG("topic: %s - qos: %d, length: %d\n", topic, qos, temp_msg->length);
- if (temp_msg->length == 0) {
- lua_pop(L, 1);
- overflow = 1;
- break; // too long message for the outbuffer.
- }
- lua_pop( L, 1 );
- }
- if (topic_count == 0){
- return luaL_error( L, "no topics found" );
- }
- if (overflow != 0){
- return luaL_error( L, "buffer overflow, can't enqueue all subscriptions" );
- }
- temp_msg = mqtt_msg_subscribe_fini( &mud->mqtt_state.mqtt_connection );
- if (temp_msg->length == 0) {
- return luaL_error( L, "buffer overflow, can't enqueue all subscriptions" );
- }
- stack++;
- } else {
- NODE_DBG("subscribe string\n");
- topic = luaL_checklstring( L, stack, &il );
- stack++;
- if( topic == NULL ){
- return luaL_error( L, "need topic name" );
- }
- qos = luaL_checkinteger( L, stack );
- temp_msg = mqtt_msg_subscribe( &mud->mqtt_state.mqtt_connection, topic, qos, &msg_id );
- stack++;
- }
- if( lua_type( L, stack ) == LUA_TFUNCTION || lua_type( L, stack ) == LUA_TLIGHTFUNCTION ) { // TODO: this will overwrite the previous one.
- lua_pushvalue( L, stack ); // copy argument (func) to the top of stack
- if( mud->cb_suback_ref != LUA_NOREF )
- luaL_unref( L, LUA_REGISTRYINDEX, mud->cb_suback_ref );
- mud->cb_suback_ref = luaL_ref( L, LUA_REGISTRYINDEX );
- }
- msg_queue_t *node = msg_enqueue( &(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_SUBSCRIBE, (int)mqtt_get_qos(temp_msg->data) );
- NODE_DBG("topic: %s - id: %d - qos: %d, length: %d\n", topic, node->msg_id, node->publish_qos, node->msg.length);
- NODE_DBG("msg_size: %d, event_timeout: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)), mud->event_timeout);
- sint8 espconn_status = ESPCONN_IF;
- espconn_status = mqtt_send_if_possible(mud->pesp_conn);
- if(!node || espconn_status != ESPCONN_OK){
- lua_pushboolean(L, 0);
- } else {
- lua_pushboolean(L, 1); // enqueued succeed.
- }
- NODE_DBG("subscribe, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- NODE_DBG("leave mqtt_socket_subscribe.\n");
- return 1;
- }
- // Lua: bool = mqtt:publish( topic, payload, qos, retain, function() )
- static int mqtt_socket_publish( lua_State* L )
- {
- NODE_DBG("enter mqtt_socket_publish.\n");
- struct espconn *pesp_conn = NULL;
- lmqtt_userdata *mud;
- size_t l;
- uint8_t stack = 1;
- uint16_t msg_id = 0;
- mud = (lmqtt_userdata *)luaL_checkudata(L, stack, "mqtt.socket");
- luaL_argcheck(L, mud, stack, "mqtt.socket expected");
- stack++;
- if(mud==NULL){
- NODE_DBG("userdata is nil.\n");
- lua_pushboolean(L, 0);
- return 1;
- }
- if(mud->pesp_conn == NULL){
- NODE_DBG("mud->pesp_conn is NULL.\n");
- lua_pushboolean(L, 0);
- return 1;
- }
- if(!mud->connected){
- return luaL_error( L, "not connected" );
- }
- const char *topic = luaL_checklstring( L, stack, &l );
- stack ++;
- if (topic == NULL){
- return luaL_error( L, "need topic" );
- }
- const char *payload = luaL_checklstring( L, stack, &l );
- stack ++;
- uint8_t qos = luaL_checkinteger( L, stack);
- stack ++;
- uint8_t retain = luaL_checkinteger( L, stack);
- stack ++;
- uint8_t temp_buffer[MQTT_BUF_SIZE];
- mqtt_msg_init(&mud->mqtt_state.mqtt_connection, temp_buffer, MQTT_BUF_SIZE);
- mqtt_message_t *temp_msg = mqtt_msg_publish(&mud->mqtt_state.mqtt_connection,
- topic, payload, l,
- qos, retain,
- &msg_id);
- if (lua_type(L, stack) == LUA_TFUNCTION || lua_type(L, stack) == LUA_TLIGHTFUNCTION){
- lua_pushvalue(L, stack); // copy argument (func) to the top of stack
- if(mud->cb_puback_ref != LUA_NOREF)
- luaL_unref(L, LUA_REGISTRYINDEX, mud->cb_puback_ref);
- mud->cb_puback_ref = luaL_ref(L, LUA_REGISTRYINDEX);
- }
- msg_queue_t *node = msg_enqueue(&(mud->mqtt_state.pending_msg_q), temp_msg,
- msg_id, MQTT_MSG_TYPE_PUBLISH, (int)qos );
- sint8 espconn_status = ESPCONN_OK;
- espconn_status = mqtt_send_if_possible(mud->pesp_conn);
- if(!node || espconn_status != ESPCONN_OK){
- lua_pushboolean(L, 0);
- } else {
- lua_pushboolean(L, 1); // enqueued succeed.
- }
- NODE_DBG("publish, queue size: %d\n", msg_size(&(mud->mqtt_state.pending_msg_q)));
- NODE_DBG("leave mqtt_socket_publish.\n");
- return 1;
- }
- // Lua: mqtt:lwt( topic, message, qos, retain, function(client) )
- static int mqtt_socket_lwt( lua_State* L )
- {
- NODE_DBG("enter mqtt_socket_lwt.\n");
- uint8_t stack = 1;
- size_t topicSize, msgSize;
- NODE_DBG("mqtt_socket_lwt.\n");
- lmqtt_userdata *mud = NULL;
- const char *lwtTopic, *lwtMsg;
- uint8_t lwtQoS, lwtRetain;
- mud = (lmqtt_userdata *)luaL_checkudata( L, stack, "mqtt.socket" );
- luaL_argcheck( L, mud, stack, "mqtt.socket expected" );
- if(mud == NULL)
- return 0;
- stack++;
- lwtTopic = luaL_checklstring( L, stack, &topicSize );
- if (lwtTopic == NULL)
- {
- return luaL_error( L, "need lwt topic");
- }
- stack++;
- lwtMsg = luaL_checklstring( L, stack, &msgSize );
- if (lwtMsg == NULL)
- {
- return luaL_error( L, "need lwt message");
- }
- stack++;
- if(mud->connect_info.will_topic){ // free the previous one if there is any
- c_free(mud->connect_info.will_topic);
- mud->connect_info.will_topic = NULL;
- }
- if(mud->connect_info.will_message){
- c_free(mud->connect_info.will_message);
- mud->connect_info.will_message = NULL;
- }
- mud->connect_info.will_topic = (uint8_t*) c_zalloc( topicSize + 1 );
- mud->connect_info.will_message = (uint8_t*) c_zalloc( msgSize + 1 );
- if(!mud->connect_info.will_topic || !mud->connect_info.will_message){
- if(mud->connect_info.will_topic){
- c_free(mud->connect_info.will_topic);
- mud->connect_info.will_topic = NULL;
- }
- if(mud->connect_info.will_message){
- c_free(mud->connect_info.will_message);
- mud->connect_info.will_message = NULL;
- }
- return luaL_error( L, "not enough memory");
- }
- c_memcpy(mud->connect_info.will_topic, lwtTopic, topicSize);
- mud->connect_info.will_topic[topicSize] = 0;
- c_memcpy(mud->connect_info.will_message, lwtMsg, msgSize);
- mud->connect_info.will_message[msgSize] = 0;
- if ( lua_isnumber(L, stack) )
- {
- mud->connect_info.will_qos = lua_tointeger(L, stack);
- stack++;
- }
- if ( lua_isnumber(L, stack) )
- {
- mud->connect_info.will_retain = lua_tointeger(L, stack);
- stack++;
- }
- NODE_DBG("mqtt_socket_lwt: topic: %s, message: %s, qos: %d, retain: %d\n",
- mud->connect_info.will_topic,
- mud->connect_info.will_message,
- mud->connect_info.will_qos,
- mud->connect_info.will_retain);
- NODE_DBG("leave mqtt_socket_lwt.\n");
- return 0;
- }
- // Module function map
- static const LUA_REG_TYPE mqtt_socket_map[] = {
- { LSTRKEY( "connect" ), LFUNCVAL( mqtt_socket_connect ) },
- { LSTRKEY( "close" ), LFUNCVAL( mqtt_socket_close ) },
- { LSTRKEY( "publish" ), LFUNCVAL( mqtt_socket_publish ) },
- { LSTRKEY( "subscribe" ), LFUNCVAL( mqtt_socket_subscribe ) },
- { LSTRKEY( "unsubscribe" ), LFUNCVAL( mqtt_socket_unsubscribe ) },
- { LSTRKEY( "lwt" ), LFUNCVAL( mqtt_socket_lwt ) },
- { LSTRKEY( "on" ), LFUNCVAL( mqtt_socket_on ) },
- { LSTRKEY( "__gc" ), LFUNCVAL( mqtt_delete ) },
- { LSTRKEY( "__index" ), LROVAL( mqtt_socket_map ) },
- { LNILKEY, LNILVAL }
- };
-
- static const LUA_REG_TYPE mqtt_map[] = {
- { LSTRKEY( "Client" ), LFUNCVAL( mqtt_socket_client ) },
- { LSTRKEY( "CONN_FAIL_SERVER_NOT_FOUND" ), LNUMVAL( MQTT_CONN_FAIL_SERVER_NOT_FOUND ) },
- { LSTRKEY( "CONN_FAIL_NOT_A_CONNACK_MSG" ), LNUMVAL( MQTT_CONN_FAIL_NOT_A_CONNACK_MSG ) },
- { LSTRKEY( "CONN_FAIL_DNS" ), LNUMVAL( MQTT_CONN_FAIL_DNS ) },
- { LSTRKEY( "CONN_FAIL_TIMEOUT_RECEIVING" ), LNUMVAL( MQTT_CONN_FAIL_TIMEOUT_RECEIVING ) },
- { LSTRKEY( "CONN_FAIL_TIMEOUT_SENDING" ), LNUMVAL( MQTT_CONN_FAIL_TIMEOUT_SENDING ) },
- { LSTRKEY( "CONNACK_ACCEPTED" ), LNUMVAL( MQTT_CONNACK_ACCEPTED ) },
- { LSTRKEY( "CONNACK_REFUSED_PROTOCOL_VER" ), LNUMVAL( MQTT_CONNACK_REFUSED_PROTOCOL_VER ) },
- { LSTRKEY( "CONNACK_REFUSED_ID_REJECTED" ), LNUMVAL( MQTT_CONNACK_REFUSED_ID_REJECTED ) },
- { LSTRKEY( "CONNACK_REFUSED_SERVER_UNAVAILABLE" ), LNUMVAL( MQTT_CONNACK_REFUSED_SERVER_UNAVAILABLE ) },
- { LSTRKEY( "CONNACK_REFUSED_BAD_USER_OR_PASS" ), LNUMVAL( MQTT_CONNACK_REFUSED_BAD_USER_OR_PASS ) },
- { LSTRKEY( "CONNACK_REFUSED_NOT_AUTHORIZED" ), LNUMVAL( MQTT_CONNACK_REFUSED_NOT_AUTHORIZED ) },
- { LSTRKEY( "__metatable" ), LROVAL( mqtt_map ) },
- { LNILKEY, LNILVAL }
- };
- int luaopen_mqtt( lua_State *L )
- {
- luaL_rometatable(L, "mqtt.socket", (void *)mqtt_socket_map); // create metatable for mqtt.socket
- return 0;
- }
- NODEMCU_MODULE(MQTT, "mqtt", mqtt_map, luaopen_mqtt);
|