/*
 * rtcp_xr.c
 *
 *  Created on: Mar 29, 2015
 *      Author: fmetz
 */
#include "rtcp_xr.h"
#include <stdio.h>
#include <arpa/inet.h>
#include <glib.h>

/* RTCP XR payload type */
#define RTCP_XR		    207

/* RTCP XR block types */
#define BT_LOSS_RLE	    1
#define BT_DUP_RLE	    2
#define BT_RCPT_TIMES	    3
#define BT_RR_TIME	    4
#define BT_DLRR		    5
#define BT_STATS	    6
#define BT_VOIP_METRICS	    7


void print_rtcp_xr_rb_header(GString *log, const pjmedia_rtcp_xr_rb_header *rb_header) {
	g_string_append_printf(log, "rb_header_blocktype=%u, rb_header_blockspecdata=%u, rb_header_blocklength=%u, ",
			rb_header->bt,
			rb_header->specific,
			ntohs(rb_header->length));
}

void print_rtcp_xr_rb_rr_time(GString *log, const pjmedia_rtcp_xr_rb_rr_time *rb_rr_time) {
	print_rtcp_xr_rb_header(log, &rb_rr_time->header);
	g_string_append_printf(log, "rb_rr_time_ntp_sec=%u, rb_rr_time_ntp_frac=%u, ",
			ntohl(rb_rr_time->ntp_sec),
			ntohl(rb_rr_time->ntp_frac));
}

void print_rtcp_xr_rb_dlrr(GString *log, const pjmedia_rtcp_xr_rb_dlrr *rb_dlrr) {
	print_rtcp_xr_rb_header(log, &rb_dlrr->header);
	g_string_append_printf(log, "rb_dlrr_ssrc=%u, rb_dlrr_lrr=%u, rb_dlrr_dlrr=%u, ",
			ntohl(rb_dlrr->item.ssrc),
			ntohl(rb_dlrr->item.lrr),
			ntohl(rb_dlrr->item.dlrr));
}

void print_rtcp_xr_rb_stats(GString *log, const pjmedia_rtcp_xr_rb_stats *rb_stats) {
	print_rtcp_xr_rb_header(log, &rb_stats->header);
	g_string_append_printf(log, "rb_stats_ssrc=%u, rb_stats_begin_seq=%u, rb_stats_end_seq=%u, rb_stats_lost_packets=%u, rb_stats_duplicate_packets=%u,"
			"rb_stats_jitter_min=%u, rb_stats_jitter_max=%u, rb_stats_jitter_mean=%u, rb_stats_jitter_deviation=%u,"
			"rb_stats_toh_min=%u, rb_stats_toh_max=%u, rb_stats_toh_mean=%u, rb_stats_toh_deviation=%u, ",
			ntohl(rb_stats->ssrc),
			ntohs(rb_stats->begin_seq),
			ntohl(rb_stats->end_seq),
			ntohl(rb_stats->lost),
			ntohl(rb_stats->dup),
			ntohl(rb_stats->jitter_min),
			ntohl(rb_stats->jitter_max),
			ntohl(rb_stats->jitter_mean),
			ntohl(rb_stats->jitter_dev),
			ntohl(rb_stats->toh_min),
			ntohl(rb_stats->toh_max),
			ntohl(rb_stats->toh_mean),
			ntohl(rb_stats->toh_dev));
}

void print_rtcp_xr_rb_voip_mtc(GString *log, const pjmedia_rtcp_xr_rb_voip_mtc *rb_voip_mtc) {
	print_rtcp_xr_rb_header(log, &rb_voip_mtc->header);
	g_string_append_printf(log, "rb_voip_mtc_ssrc=%u, rb_voip_mtc_loss_rate=%u, rb_voip_mtc_discard_rate=%u, rb_voip_mtc_burst_den=%u, "
			"rb_voip_mtc_gap_den=%u, rb_voip_mtc_burst_dur=%u, rb_voip_mtc_gap_dur=%u, rb_voip_mtc_rnd_trip_delay=%u, "
			"rb_voip_mtc_end_sys_delay=%u, rb_voip_mtc_signal_lvl=%u, rb_voip_mtc_noise_lvl=%u, rb_voip_mtc_rerl=%u, "
			"rb_voip_mtc_gmin=%u, rb_voip_mtc_r_factor=%u, rb_voip_mtc_ext_r_factor=%u, rb_voip_mtc_mos_lq=%u, "
			"rb_voip_mtc_mos_cq=%u, rb_voip_mtc_rx_config=%u, rb_voip_mtc_jb_nom=%u, rb_voip_mtc_jb_max=%u, "
			"rb_voip_mtc_jb_abs_max=%u, ",
			ntohl(rb_voip_mtc->ssrc),
			rb_voip_mtc->loss_rate,
			rb_voip_mtc->discard_rate,
			rb_voip_mtc->burst_den,
			rb_voip_mtc->gap_den,
			ntohs(rb_voip_mtc->burst_dur),
			ntohs(rb_voip_mtc->gap_dur),
			ntohs(rb_voip_mtc->rnd_trip_delay),
			ntohs(rb_voip_mtc->end_sys_delay),
			rb_voip_mtc->signal_lvl,
			rb_voip_mtc->noise_lvl,
			rb_voip_mtc->rerl,
			rb_voip_mtc->gmin,
			rb_voip_mtc->r_factor,
			rb_voip_mtc->ext_r_factor,
			rb_voip_mtc->mos_lq,
			rb_voip_mtc->mos_cq,
			rb_voip_mtc->rx_config,
			ntohs(rb_voip_mtc->jb_nom),
			ntohs(rb_voip_mtc->jb_max),
			ntohs(rb_voip_mtc->jb_abs_max));
}

void pjmedia_rtcp_xr_rx_rtcp_xr(GString *log, const pjmedia_rtcp_common *common, str *s) {

	const pjmedia_rtcp_xr_rb_rr_time  *rb_rr_time;
	const pjmedia_rtcp_xr_rb_dlrr     *rb_dlrr;
	const pjmedia_rtcp_xr_rb_stats    *rb_stats;
	const pjmedia_rtcp_xr_rb_voip_mtc *rb_voip_mtc;
	const pjmedia_rtcp_xr_rb_header   *rb_hdr;
	unsigned pkt_len, rb_len;

	if (!log)
		return;

	// packet length is guaranteed to be valid from upstream

	pkt_len = (ntohs(common->length) + 1) << 2;

	/* Parse report rpt_types */
	while (pkt_len >= sizeof(*rb_hdr))
	{
		rb_hdr = (pjmedia_rtcp_xr_rb_header*) s->s;
		rb_len = (ntohs((u_int16_t)rb_hdr->length) + 1) << 2;
		if (str_shift(s, rb_len))
			break;
		pkt_len -= rb_len;

		/* Just skip any block with length == 0 (no report content) */
		if (rb_len > 4) {
			switch (rb_hdr->bt) {
			case BT_RR_TIME:
				rb_rr_time = (pjmedia_rtcp_xr_rb_rr_time*) rb_hdr;
				print_rtcp_xr_rb_rr_time(log, rb_rr_time);
				break;
			case BT_DLRR:
				rb_dlrr = (pjmedia_rtcp_xr_rb_dlrr*) rb_hdr;
				print_rtcp_xr_rb_dlrr(log, rb_dlrr);
				break;
			case BT_STATS:
				rb_stats = (pjmedia_rtcp_xr_rb_stats*) rb_hdr;
				print_rtcp_xr_rb_stats(log, rb_stats);
				break;
			case BT_VOIP_METRICS:
				rb_voip_mtc = (pjmedia_rtcp_xr_rb_voip_mtc*) rb_hdr;
				print_rtcp_xr_rb_voip_mtc(log, rb_voip_mtc);
				break;
			default:
				break;
			}
		}
	}
}