mirror of
https://github.com/oliverschmidt/contiki.git
synced 2024-08-15 00:29:02 +00:00
156 lines
5.5 KiB
C
156 lines
5.5 KiB
C
/*
|
|
* Copyright (c) 2014, SICS Swedish ICT.
|
|
* All rights reserved.
|
|
*
|
|
* 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.
|
|
*
|
|
*/
|
|
|
|
/**
|
|
* \file
|
|
* Log functions for TSCH, meant for logging from interrupt
|
|
* during a timeslot operation. Saves ASN, slot and link information
|
|
* and adds the log to a ringbuf for later printout.
|
|
* \author
|
|
* Simon Duquennoy <simonduq@sics.se>
|
|
*
|
|
*/
|
|
|
|
#include "contiki.h"
|
|
#include <stdio.h>
|
|
#include "net/mac/tsch/tsch.h"
|
|
#include "net/mac/tsch/tsch-queue.h"
|
|
#include "net/mac/tsch/tsch-private.h"
|
|
#include "net/mac/tsch/tsch-log.h"
|
|
#include "net/mac/tsch/tsch-packet.h"
|
|
#include "net/mac/tsch/tsch-schedule.h"
|
|
#include "net/mac/tsch/tsch-slot-operation.h"
|
|
#include "lib/ringbufindex.h"
|
|
|
|
#if TSCH_LOG_LEVEL >= 1
|
|
#define DEBUG DEBUG_PRINT
|
|
#else /* TSCH_LOG_LEVEL */
|
|
#define DEBUG DEBUG_NONE
|
|
#endif /* TSCH_LOG_LEVEL */
|
|
#include "net/ip/uip-debug.h"
|
|
|
|
#if TSCH_LOG_LEVEL >= 2 /* Skip this file for log levels 0 or 1 */
|
|
|
|
PROCESS_NAME(tsch_pending_events_process);
|
|
|
|
/* Check if TSCH_LOG_QUEUE_LEN is a power of two */
|
|
#if (TSCH_LOG_QUEUE_LEN & (TSCH_LOG_QUEUE_LEN - 1)) != 0
|
|
#error TSCH_LOG_QUEUE_LEN must be power of two
|
|
#endif
|
|
static struct ringbufindex log_ringbuf;
|
|
static struct tsch_log_t log_array[TSCH_LOG_QUEUE_LEN];
|
|
static int log_dropped = 0;
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
/* Process pending log messages */
|
|
void
|
|
tsch_log_process_pending(void)
|
|
{
|
|
static int last_log_dropped = 0;
|
|
int16_t log_index;
|
|
/* Loop on accessing (without removing) a pending input packet */
|
|
if(log_dropped != last_log_dropped) {
|
|
printf("TSCH:! logs dropped %u\n", log_dropped);
|
|
last_log_dropped = log_dropped;
|
|
}
|
|
while((log_index = ringbufindex_peek_get(&log_ringbuf)) != -1) {
|
|
struct tsch_log_t *log = &log_array[log_index];
|
|
struct tsch_slotframe *sf = tsch_schedule_get_slotframe_by_handle(log->link->slotframe_handle);
|
|
printf("TSCH: {asn-%x.%lx link-%u-%u-%u-%u ch-%u} ",
|
|
log->asn.ms1b, log->asn.ls4b,
|
|
log->link->slotframe_handle, sf ? sf->size.val : 0, log->link->timeslot, log->link->channel_offset,
|
|
tsch_calculate_channel(&log->asn, log->link->channel_offset));
|
|
switch(log->type) {
|
|
case tsch_log_tx:
|
|
printf("%s-%u-%u %u tx %d, st %d-%d",
|
|
log->tx.dest == 0 ? "bc" : "uc", log->tx.is_data, log->tx.sec_level,
|
|
log->tx.datalen,
|
|
log->tx.dest,
|
|
log->tx.mac_tx_status, log->tx.num_tx);
|
|
if(log->tx.drift_used) {
|
|
printf(", dr %d", log->tx.drift);
|
|
}
|
|
printf("\n");
|
|
break;
|
|
case tsch_log_rx:
|
|
printf("%s-%u-%u %u rx %d",
|
|
log->rx.is_unicast == 0 ? "bc" : "uc", log->rx.is_data, log->tx.sec_level,
|
|
log->rx.datalen,
|
|
log->rx.src);
|
|
if(log->rx.drift_used) {
|
|
printf(", dr %d", log->rx.drift);
|
|
}
|
|
printf(", edr %d\n", (int)log->rx.estimated_drift);
|
|
break;
|
|
case tsch_log_message:
|
|
printf("%s\n", log->message);
|
|
break;
|
|
}
|
|
/* Remove input from ringbuf */
|
|
ringbufindex_get(&log_ringbuf);
|
|
}
|
|
}
|
|
/*---------------------------------------------------------------------------*/
|
|
/* Prepare addition of a new log.
|
|
* Returns pointer to log structure if success, NULL otherwise */
|
|
struct tsch_log_t *
|
|
tsch_log_prepare_add(void)
|
|
{
|
|
int log_index = ringbufindex_peek_put(&log_ringbuf);
|
|
if(log_index != -1) {
|
|
struct tsch_log_t *log = &log_array[log_index];
|
|
log->asn = current_asn;
|
|
log->link = current_link;
|
|
return log;
|
|
} else {
|
|
log_dropped++;
|
|
return NULL;
|
|
}
|
|
}
|
|
/*---------------------------------------------------------------------------*/
|
|
/* Actually add the previously prepared log */
|
|
void
|
|
tsch_log_commit(void)
|
|
{
|
|
ringbufindex_put(&log_ringbuf);
|
|
process_poll(&tsch_pending_events_process);
|
|
}
|
|
/*---------------------------------------------------------------------------*/
|
|
/* Initialize log module */
|
|
void
|
|
tsch_log_init(void)
|
|
{
|
|
ringbufindex_init(&log_ringbuf, TSCH_LOG_QUEUE_LEN);
|
|
}
|
|
|
|
#endif /* TSCH_LOG_LEVEL */
|