123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291 |
- #include <stdio.h>
- #include <string.h>
- #include <stdlib.h>
- #include "coap.h"
- #include "lua.h"
- #include "lauxlib.h"
- #include "os_type.h"
- #include "user_interface.h"
- #include "user_config.h"
- void build_well_known_rsp(char *rsp, uint16_t rsplen);
- void endpoint_setup(void)
- {
- coap_setup();
- }
- static const coap_endpoint_path_t path_well_known_core = {2, {".well-known", "core"}};
- static int handle_get_well_known_core(const coap_endpoint_t *ep, coap_rw_buffer_t *scratch, const coap_packet_t *inpkt, coap_packet_t *outpkt, uint8_t id_hi, uint8_t id_lo)
- {
- outpkt->content.p = (uint8_t *)calloc(1,MAX_PAYLOAD_SIZE); // this should be free-ed when outpkt is built in coap_server_respond()
- if(outpkt->content.p == NULL){
- NODE_DBG("not enough memory\n");
- return COAP_ERR_BUFFER_TOO_SMALL;
- }
- outpkt->content.len = MAX_PAYLOAD_SIZE;
- build_well_known_rsp(outpkt->content.p, outpkt->content.len);
- return coap_make_response(scratch, outpkt, (const uint8_t *)outpkt->content.p, strlen(outpkt->content.p), id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, COAP_CONTENTTYPE_APPLICATION_LINKFORMAT);
- }
- static const coap_endpoint_path_t path_variable = {2, {"v1", "v"}};
- static int handle_get_variable(const coap_endpoint_t *ep, coap_rw_buffer_t *scratch, const coap_packet_t *inpkt, coap_packet_t *outpkt, uint8_t id_hi, uint8_t id_lo)
- {
- const coap_option_t *opt;
- uint8_t count;
- int n;
- lua_State *L = lua_getstate();
- if (NULL != (opt = coap_findOptions(inpkt, COAP_OPTION_URI_PATH, &count)))
- {
- if ((count != ep->path->count ) && (count != ep->path->count + 1)) // +1 for /f/[function], /v/[variable]
- {
- NODE_DBG("should never happen.\n");
- goto end;
- }
- if (count == ep->path->count + 1)
- {
- coap_luser_entry *h = ep->user_entry->next; // ->next: skip the first entry(head)
- while(NULL != h){
- if (opt[count-1].buf.len != strlen(h->name))
- {
- h = h->next;
- continue;
- }
- if (0 == memcmp(h->name, opt[count-1].buf.p, opt[count-1].buf.len))
- {
- NODE_DBG("/v1/v/");
- NODE_DBG((char *)h->name);
- NODE_DBG(" match.\n");
- if(strlen(h->name))
- {
- n = lua_gettop(L);
- lua_getglobal(L, h->name);
- if (!lua_isnumber(L, -1) && !lua_isstring(L, -1)) {
- NODE_DBG ("should be a number or string.\n");
- lua_settop(L, n);
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_NOT_FOUND, COAP_CONTENTTYPE_NONE);
- } else {
- const char *res = lua_tostring(L,-1);
- lua_settop(L, n);
- return coap_make_response(scratch, outpkt, (const uint8_t *)res, strlen(res), id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, h->content_type);
- }
- }
- } else {
- h = h->next;
- }
- }
- }else{
- NODE_DBG("/v1/v match.\n");
- goto end;
- }
- }
- NODE_DBG("none match.\n");
- end:
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, COAP_CONTENTTYPE_TEXT_PLAIN);
- }
- static const coap_endpoint_path_t path_function = {2, {"v1", "f"}};
- static int handle_post_function(const coap_endpoint_t *ep, coap_rw_buffer_t *scratch, const coap_packet_t *inpkt, coap_packet_t *outpkt, uint8_t id_hi, uint8_t id_lo)
- {
- const coap_option_t *opt;
- uint8_t count;
- int n;
- lua_State *L = lua_getstate();
- if (NULL != (opt = coap_findOptions(inpkt, COAP_OPTION_URI_PATH, &count)))
- {
- if ((count != ep->path->count ) && (count != ep->path->count + 1)) // +1 for /f/[function], /v/[variable]
- {
- NODE_DBG("should never happen.\n");
- goto end;
- }
- if (count == ep->path->count + 1)
- {
- coap_luser_entry *h = ep->user_entry->next; // ->next: skip the first entry(head)
- while(NULL != h){
- if (opt[count-1].buf.len != strlen(h->name))
- {
- h = h->next;
- continue;
- }
- if (0 == memcmp(h->name, opt[count-1].buf.p, opt[count-1].buf.len))
- {
- NODE_DBG("/v1/f/");
- NODE_DBG((char *)h->name);
- NODE_DBG(" match.\n");
- if(strlen(h->name))
- {
- n = lua_gettop(L);
- lua_getglobal(L, h->name);
- if (lua_type(L, -1) != LUA_TFUNCTION) {
- NODE_DBG ("should be a function\n");
- lua_settop(L, n);
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_NOT_FOUND, COAP_CONTENTTYPE_NONE);
- } else {
- lua_pushlstring(L, inpkt->payload.p, inpkt->payload.len); // make sure payload.p is filled with '\0' after payload.len, or use lua_pushlstring
- lua_call(L, 1, 1);
- if (!lua_isnil(L, -1)){ /* get return? */
- if( lua_isstring(L, -1) ) // deal with the return string
- {
- size_t len = 0;
- const char *ret = luaL_checklstring( L, -1, &len );
- if(len > MAX_PAYLOAD_SIZE){
- lua_settop(L, n);
- luaL_error( L, "return string:<MAX_PAYLOAD_SIZE" );
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_NOT_FOUND, COAP_CONTENTTYPE_NONE);
- }
- NODE_DBG((char *)ret);
- NODE_DBG("\n");
- lua_settop(L, n);
- return coap_make_response(scratch, outpkt, ret, len, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, COAP_CONTENTTYPE_TEXT_PLAIN);
- }
- } else {
- lua_settop(L, n);
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, COAP_CONTENTTYPE_TEXT_PLAIN);
- }
- }
- }
- } else {
- h = h->next;
- }
- }
- }else{
- NODE_DBG("/v1/f match.\n");
- goto end;
- }
- }
- NODE_DBG("none match.\n");
- end:
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_NOT_FOUND, COAP_CONTENTTYPE_NONE);
- }
- static const coap_endpoint_path_t path_command = {2, {"v1", "c"}};
- static int handle_post_command(const coap_endpoint_t *ep, coap_rw_buffer_t *scratch, const coap_packet_t *inpkt, coap_packet_t *outpkt, uint8_t id_hi, uint8_t id_lo)
- {
- if (inpkt->payload.len == 0)
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_BAD_REQUEST, COAP_CONTENTTYPE_TEXT_PLAIN);
- if (inpkt->payload.len > 0)
- {
- char line[LUA_MAXINPUT+1];
- if (!coap_buffer_to_string(line, LUA_MAXINPUT, &inpkt->payload)) {
- lua_State *L = lua_getstate();
- int base = lua_gettop(L), n, status;
- int l = strlen(line);
- line[l++] = '\n';
- /* compile and exec payload; any error or results will be left on the stack and printed */
- /* TODO: consider returning output as result instead of printing */
- luaL_dostring(L, line);
- if ((n = lua_gettop(L) - base) > 0)
- {
- lua_getglobal(L, "print");
- lua_insert(L, base);
- lua_pcall(L, n, 0, 0);
- lua_settop(L, base);
- }
- }
- return coap_make_response(scratch, outpkt, NULL, 0, id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, COAP_CONTENTTYPE_TEXT_PLAIN);
- }
- }
- static uint32_t id = 0;
- static const coap_endpoint_path_t path_id = {2, {"v1", "id"}};
- static int handle_get_id(const coap_endpoint_t *ep, coap_rw_buffer_t *scratch, const coap_packet_t *inpkt, coap_packet_t *outpkt, uint8_t id_hi, uint8_t id_lo)
- {
- id = system_get_chip_id();
- return coap_make_response(scratch, outpkt, (const uint8_t *)(&id), sizeof(uint32_t), id_hi, id_lo, &inpkt->tok, COAP_RSPCODE_CONTENT, COAP_CONTENTTYPE_TEXT_PLAIN);
- }
- coap_luser_entry var_head = {NULL,NULL,0};
- coap_luser_entry *variable_entry = &var_head;
- coap_luser_entry func_head = {NULL,NULL,0};
- coap_luser_entry *function_entry = &func_head;
- const coap_endpoint_t endpoints[] =
- {
- {COAP_METHOD_GET, handle_get_well_known_core, &path_well_known_core, "ct=40", NULL},
- {COAP_METHOD_GET, handle_get_variable, &path_variable, "ct=0", &var_head},
- {COAP_METHOD_POST, handle_post_function, &path_function, NULL, &func_head},
- {COAP_METHOD_POST, handle_post_command, &path_command, NULL, NULL},
- {COAP_METHOD_GET, handle_get_id, &path_id, "ct=0", NULL},
- {(coap_method_t)0, NULL, NULL, NULL, NULL}
- };
- void build_well_known_rsp(char *rsp, uint16_t rsplen)
- {
- const coap_endpoint_t *ep = endpoints;
- int i;
- uint16_t len = rsplen;
- memset(rsp, 0, len);
- len--; // Null-terminated string
- while(NULL != ep->handler)
- {
- if (NULL == ep->core_attr) {
- ep++;
- continue;
- }
- if (NULL == ep->user_entry){
- if (0 < strlen(rsp)) {
- strncat(rsp, ",", len);
- len--;
- }
- strncat(rsp, "<", len);
- len--;
- for (i = 0; i < ep->path->count; i++) {
- strncat(rsp, "/", len);
- len--;
- strncat(rsp, ep->path->elems[i], len);
- len -= strlen(ep->path->elems[i]);
- }
- strncat(rsp, ">;", len);
- len -= 2;
- strncat(rsp, ep->core_attr, len);
- len -= strlen(ep->core_attr);
- } else {
- coap_luser_entry *h = ep->user_entry->next; // ->next: skip the first entry(head)
- while(NULL != h){
- if (0 < strlen(rsp)) {
- strncat(rsp, ",", len);
- len--;
- }
- strncat(rsp, "<", len);
- len--;
- for (i = 0; i < ep->path->count; i++) {
- strncat(rsp, "/", len);
- len--;
- strncat(rsp, ep->path->elems[i], len);
- len -= strlen(ep->path->elems[i]);
- }
- strncat(rsp, "/", len);
- len--;
- strncat(rsp, h->name, len);
- len -= strlen(h->name);
- strncat(rsp, ">;", len);
- len -= 2;
- strncat(rsp, ep->core_attr, len);
- len -= strlen(ep->core_attr);
- h = h->next;
- }
- }
- ep++;
- }
- }
|