osd-contiki/examples/avr-rss2/ipv6/dc-rpl-coap/coap-client.c
Robert Olsson 3c19e870f1 Moving the avr-rss2 platform examples to the global examples
location as suggested by the maintainers.
2016-05-14 12:05:19 +02:00

413 lines
14 KiB
C

/*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. Neither the name of the Institute nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* This file is part of the Contiki operating system.
*
*/
#include "contiki.h"
#include "contiki-net.h"
#include "lib/random.h"
#include "sys/ctimer.h"
#include "net/ip/uip.h"
#include "net/ipv6/uip-ds6.h"
#include "net/ip/uip-udp-packet.h"
#ifdef WITH_COMPOWER
#include "powertrace.h"
#endif
#include <stdio.h>
#include <string.h>
/**************************************************************************/
/* from er-rest-example/er-rexample-client.c */
#include <stdlib.h>
#include "er-coap-engine.h"
#include "er-coap.h"
#include "er-coap-observe-client.h"
/* #include "dev/button-sensor.h" */
#if PLATFORM_HAS_LEDS
#include "dev/leds.h"
#endif
#define DEBUG 1
#if DEBUG
#include <stdio.h>
#define PRINTF(...) printf(__VA_ARGS__)
#define PRINT6ADDR(addr) PRINTF("[%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x:%02x%02x]", ((uint8_t *)addr)[0], ((uint8_t *)addr)[1], ((uint8_t *)addr)[2], ((uint8_t *)addr)[3], ((uint8_t *)addr)[4], ((uint8_t *)addr)[5], ((uint8_t *)addr)[6], ((uint8_t *)addr)[7], ((uint8_t *)addr)[8], ((uint8_t *)addr)[9], ((uint8_t *)addr)[10], ((uint8_t *)addr)[11], ((uint8_t *)addr)[12], ((uint8_t *)addr)[13], ((uint8_t *)addr)[14], ((uint8_t *)addr)[15])
#define PRINTLLADDR(lladdr) PRINTF("[%02x:%02x:%02x:%02x:%02x:%02x]", (lladdr)->addr[0], (lladdr)->addr[1], (lladdr)->addr[2], (lladdr)->addr[3], (lladdr)->addr[4], (lladdr)->addr[5])
#else
#define PRINTF(...)
#define PRINT6ADDR(addr)
#define PRINTLLADDR(addr)
#endif
/* FIXME: This server address is hard-coded for Cooja and link-local for unconnected border router. */
/* #define SERVER_NODE(ipaddr) uip_ip6addr(ipaddr, 0xfe80, 0, 0, 0, 0x0212, 0x7402, 0x0002, 0x0202) / * cooja2 * / */
/* #define SERVER_NODE(ipaddr) uip_ip6addr(ipaddr, 0xbbbb, 0, 0, 0, 0, 0, 0, 0x1) */
/* #define SERVER_NODE(ipaddr) uip_ip6addr(ipaddr, 0x2000, 0, 0, 0, 0, 0, 0, 0x0001) */
#define LOCAL_PORT UIP_HTONS(COAP_DEFAULT_PORT + 1)
#define REMOTE_PORT UIP_HTONS(COAP_DEFAULT_PORT)
#define GET_INTERVAL 10
/* #define OBSERVE_INTERVAL 10 */
/**************************************************************************/
#define UDP_CLIENT_PORT 8765
#define UDP_SERVER_PORT 5678
#define UDP_EXAMPLE_ID 190
/* #define DEBUG DEBUG_PRINT */
/* #include "net/ip/uip-debug.h" */
#ifndef PERIOD
/* #define PERIOD 60 */
#define PERIOD 10
#endif
#define START_INTERVAL (15 * CLOCK_SECOND)
#define SEND_INTERVAL (PERIOD * CLOCK_SECOND)
#define SEND_TIME (random_rand() % (SEND_INTERVAL))
/* static struct uip_udp_conn *client_conn; */
static uip_ipaddr_t server_ipaddr;
static coap_observee_t *obs;
static int count_notify = 0;
/**************************************************************************/
static struct etimer et;
/* Example URIs that can be queried. */
#define NUMBER_OF_URLS 4
/* leading and ending slashes only for demo purposes, get cropped automatically when setting the Uri-Path */
char *service_urls[NUMBER_OF_URLS] =
{ ".well-known/core", "/dcdc/status", "/dcdc/vdc", "/dcdc/hwcfg" };
/*
#if PLATFORM_HAS_BUTTON
static int uri_switch = 0;
#endif
*/
/* This function is will be passed to COAP_BLOCKING_REQUEST() to handle responses. */
void
client_chunk_handler(void *response)
{
const uint8_t *chunk;
int len = coap_get_payload(response, &chunk);
#if PLATFORM_HAS_LEDS
/* set red led when receiving a packet */
leds_on(LEDS_RED);
#endif
/* printf("|%.*s", len, (char *)chunk); */
printf("RX: %d\n%s\n", len, (char *)chunk);
}
/**************************************************************************/
/*---------------------------------------------------------------------------*/
PROCESS(coap_client_process, "CoAP client process");
AUTOSTART_PROCESSES(&coap_client_process);
/*---------------------------------------------------------------------------*/
static void
tcpip_handler(void)
{
char *str;
if(uip_newdata()) {
str = uip_appdata;
str[uip_datalen()] = '\0';
printf("DATA recv '%s'\n", str);
}
}
/*---------------------------------------------------------------------------*/
static void
print_local_addresses(void)
{
int i;
uint8_t state;
PRINTF("Client IPv6 addresses: ");
for(i = 0; i < UIP_DS6_ADDR_NB; i++) {
state = uip_ds6_if.addr_list[i].state;
if(uip_ds6_if.addr_list[i].isused &&
(state == ADDR_TENTATIVE || state == ADDR_PREFERRED)) {
PRINT6ADDR(&uip_ds6_if.addr_list[i].ipaddr);
PRINTF("\n");
/* hack to make address "final" */
if(state == ADDR_TENTATIVE) {
uip_ds6_if.addr_list[i].state = ADDR_PREFERRED;
}
}
}
}
/*---------------------------------------------------------------------------*/
static void
set_global_address(void)
{
uip_ipaddr_t ipaddr;
uip_ip6addr(&ipaddr, 0xaaaa, 0, 0, 0, 0, 0, 0, 0);
uip_ds6_set_addr_iid(&ipaddr, &uip_lladdr);
uip_ds6_addr_add(&ipaddr, 0, ADDR_AUTOCONF);
/* The choice of server address determines its 6LoPAN header compression.
* (Our address will be compressed Mode 3 since it is derived from our link-local address)
* Obviously the choice made here must also be selected in udp-server.c.
*
* For correct Wireshark decoding using a sniffer, add the /64 prefix to the 6LowPAN protocol preferences,
* e.g. set Context 0 to aaaa::. At present Wireshark copies Context/128 and then overwrites it.
* (Setting Context 0 to aaaa::1111:2222:3333:4444 will report a 16 bit compressed address of aaaa::1111:22ff:fe33:xxxx)
*
* Note the IPCMV6 checksum verification depends on the correct uncompressed addresses.
*/
#if 0
/* Mode 1 - 64 bits inline */
uip_ip6addr(&server_ipaddr, 0xaaaa, 0, 0, 0, 0, 0, 0, 1);
#elif 1
/* Mode 2 - 16 bits inline */
uip_ip6addr(&server_ipaddr, 0xaaaa, 0, 0, 0, 0, 0x00ff, 0xfe00, 1);
#else
/* Mode 3 - derived from server link-local (MAC) address */
uip_ip6addr(&server_ipaddr, 0xaaaa, 0, 0, 0, 0x0250, 0xc2ff, 0xfea8, 0xcd1a); /* redbee-econotag */
#endif
/* Voravit Added */
/* PRINTF("VORAVIT CLIENT: SERVER IPv6 addresses: \n"); */
/* PRINT6ADDR(&server_ipaddr); */
}
/*---------------------------------------------------------------------------*/
static void
generate_random_payload(int type, char *msg)
{
if(type == 2) { /* /dcdc/vdc */
snprintf((char *)msg, 64, "&VG=%d&SL=%d&PMX=%d", (random_rand() % 25) + 1, (random_rand() % 10) + 1, (random_rand() % 100) + 1);
} else if(type == 3) { /* /dcdc/hwcfg */
snprintf((char *)msg, 64, "&VMX=%d&IMX=%d", (random_rand() % 25) + 1, (random_rand() % 6) + 1);
}
}
/*----------------------------------------------------------------------------*/
/*
* Handle the response to the observe request and the following notifications
*/
static void
notification_callback(coap_observee_t *obs, void *notification, coap_notification_flag_t flag)
{
int len = 0;
const uint8_t *payload = NULL;
/* printf("Notification handler\n"); */
/* printf("Observee URI: %s\n", obs->url); */
if(notification) {
len = coap_get_payload(notification, &payload);
}
switch(flag) {
case NOTIFICATION_OK:
count_notify++;
printf("NOTIFICATION OK: %d\n%*s\n", count_notify, len, (char *)payload);
break;
case OBSERVE_OK: /* server accepeted observation request */
printf("OBSERVE_OK: \n%*s\n", len, (char *)payload);
break;
case OBSERVE_NOT_SUPPORTED:
printf("OBSERVE_NOT_SUPPORTED: \n%*s\n", len, (char *)payload);
obs = NULL;
break;
case ERROR_RESPONSE_CODE:
printf("ERROR_RESPONSE_CODE: \n%*s\n", len, (char *)payload);
obs = NULL;
break;
case NO_REPLY_FROM_SERVER:
printf("NO_REPLY_FROM_SERVER: "
"removing observe registration with token %x%x\n",
obs->token[0], obs->token[1]);
obs = NULL;
break;
}
}
/*---------------------------------------------------------------------------*/
/*
* Toggle the observation of the remote resource
*/
void
toggle_observation(void)
{
if(obs) {
printf("Stopping observation\n");
coap_obs_remove_observee(obs);
obs = NULL;
} else {
printf("Starting observation\n");
obs = coap_obs_request_registration(&server_ipaddr, REMOTE_PORT, service_urls[1], notification_callback, NULL);
}
}
/*---------------------------------------------------------------------------*/
static int count_get = 0;
static int count_put = 0;
/*---------------------------------------------------------------------------*/
PROCESS_THREAD(coap_client_process, ev, data)
{
/*
#if WITH_COMPOWER
static int print = 0;
#endif
*/
PROCESS_BEGIN();
PROCESS_PAUSE();
set_global_address();
PRINTF("CoAP client process started\n");
print_local_addresses();
/**************************************************************************/
static coap_packet_t request[1]; /* This way the packet can be treated as pointer as usual. */
/* receives all CoAP messages */
coap_init_engine();
etimer_set(&et, GET_INTERVAL * CLOCK_SECOND);
while(1) {
PROCESS_YIELD();
if(ev == tcpip_event) {
printf("TCPIP_HANDLER\n");
tcpip_handler();
}
if(etimer_expired(&et)) {
count_get++;
/*---------------------------------------------------------------------------*/
if(count_get < 10) { /* we do normal GET 3 times for each resource */
/* TEST GET: looping through the 3 resources: status, vdc, hwcfg */
/* Also CoAP GET doesn't need to have a payload */
coap_init_message(request, COAP_TYPE_CON, COAP_GET, 0);
if(count_get % 3 == 1) {
coap_set_header_uri_path(request, service_urls[1]);
PRINTF("GET %d: %s\n", count_get, service_urls[1]);
} else if(count_get % 3 == 2) {
coap_set_header_uri_path(request, service_urls[2]);
PRINTF("GET %d: %s\n", count_get, service_urls[2]);
} else {
coap_set_header_uri_path(request, service_urls[3]);
PRINTF("GET %d: %s\n", count_get, service_urls[3]);
}
#if PLATFORM_HAS_LEDS
/* set yellow led when sending packet */
leds_on(LEDS_YELLOW);
#endif
COAP_BLOCKING_REQUEST(&server_ipaddr, REMOTE_PORT, request,
client_chunk_handler);
} /* if (count_get < 10) */
/*---------------------------------------------------------------------------*/
/* test PUT: vdc and hwcfg on odd and even packet */
/* every 10th timer we PUT a resource: vdc and hwcfg alternately */
if(count_get % 10 == 0) {
/* static char msg[64] = ""; */
char msg[64] = "";
/*---------------------------------------------------------------------------*/
/* We read CO2 sensor if it is enable */
#ifdef CO2
coap_init_message(request, COAP_TYPE_CON, COAP_GET, 0);
coap_set_header_uri_path(request, "/dcdc/co2");
PRINTF("GET %d: %s\n", count_get, "/dcdc/co2");
#if PLATFORM_HAS_LEDS
leds_on(LEDS_YELLOW);
#endif
COAP_BLOCKING_REQUEST(&server_ipaddr, REMOTE_PORT, request,
client_chunk_handler);
#endif
/*---------------------------------------------------------------------------*/
count_put++;
coap_init_message(request, COAP_TYPE_CON, COAP_PUT, 0);
if(count_put % 2 == 0) {
coap_set_header_uri_path(request, service_urls[3]);
generate_random_payload(3, msg);
coap_set_payload(request, (uint8_t *)msg, sizeof(msg) - 1);
PRINTF("PUT %d: %s PAYLOAD: %s\n", count_get, service_urls[3], msg);
} else {
coap_set_header_uri_path(request, service_urls[2]);
generate_random_payload(2, msg);
coap_set_payload(request, (uint8_t *)msg, sizeof(msg) - 1);
PRINTF("PUT %d: %s PAYLOAD: %s\n", count_get, service_urls[2], msg);
}
#if PLATFORM_HAS_LEDS
/* set yellow led when sending packet */
leds_on(LEDS_YELLOW);
#endif
COAP_BLOCKING_REQUEST(&server_ipaddr, REMOTE_PORT, request,
client_chunk_handler);
}
/* after 2 more timeout we do GET to check the resource new value */
if((count_get > 10) && ((count_get - 2) % 10 == 0)) {
coap_init_message(request, COAP_TYPE_CON, COAP_GET, 0);
if(count_put % 2 == 0) {
coap_set_header_uri_path(request, service_urls[3]);
PRINTF("GET %d: %s\n", count_get, service_urls[3]);
} else {
coap_set_header_uri_path(request, service_urls[2]);
PRINTF("GET %d: %s\n", count_get, service_urls[2]);
}
#if PLATFORM_HAS_LEDS
/* set yellow led when sending packet */
leds_on(LEDS_YELLOW);
#endif
COAP_BLOCKING_REQUEST(&server_ipaddr, REMOTE_PORT, request,
client_chunk_handler);
}
/*---------------------------------------------------------------------------*/
/* test GET with observe option when timer expires the 15th time */
if(count_get == 15) {
/* PRINTF("GET %d: OBSERVE: %s\n", count_get, service_urls[2]); */
toggle_observation();
}
etimer_reset(&et);
}
} /* END_WHILE(1) */
PROCESS_END();
}
/*---------------------------------------------------------------------------*/