/*
* Copyright (C) 2012 Doubango Telecom <http://www.doubango.org>
*
* Contact: Mamadou Diop <diopmamadou(at)doubango.org>
*	
* This file is part of Open Source Doubango Framework.
*
* DOUBANGO is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*	
* DOUBANGO is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*	
* You should have received a copy of the GNU General Public License
* along with DOUBANGO.
*
*/
/**@file trtp_rtcp_session.c
 * @brief RTCP session.
 *
 * @author Mamadou Diop <diopmamadou(at)doubango.org>
 *

 */
#include "tinyrtp/rtcp/trtp_rtcp_session.h"
#include "tinyrtp/rtcp/trtp_rtcp_packet.h"
#include "tinyrtp/rtcp/trtp_rtcp_header.h"
#include "tinyrtp/rtcp/trtp_rtcp_report_rr.h"
#include "tinyrtp/rtcp/trtp_rtcp_report_sr.h"
#include "tinyrtp/rtcp/trtp_rtcp_report_sdes.h"
#include "tinyrtp/rtcp/trtp_rtcp_report_bye.h"
#include "tinyrtp/rtcp/trtp_rtcp_report_fb.h"
#include "tinyrtp/rtp/trtp_rtp_packet.h"

#include "tnet_utils.h"

#include "tsk_string.h"
#include "tsk_md5.h"
#include "tsk_list.h"
#include "tsk_time.h"
#include "tsk_timer.h"
#include "tsk_safeobj.h"
#include "tsk_memory.h"
#include "tsk_debug.h"

#include <stdlib.h>
#include <string.h>

#ifdef _MSC_VER
static double drand48() { return (((double)rand()) / RAND_MAX); }
static void srand48(long sv) { srand((unsigned int) sv); }
#endif

#define RTCP_BW			(160 * 50) // FIXME: default bandwidth (octet/second)
#define CODEC_RATE		8000		// FIXME
#define RTP_SEQ_MOD		(1 << 16)
#define MAX_DROPOUT		3000
#define MAX_MISORDER	100
#define MIN_SEQUENTIAL	2

typedef double time_tp;
typedef void* packet_;

typedef enum event_
{
	EVENT_BYE,
	EVENT_REPORT,
	EVENT_RTP
}
event_;

typedef enum PacketType_
{
	PACKET_RTCP_REPORT,
	PACKET_BYE,
	PACKET_RTP,
}
PacketType_;

#define TypeOfEvent(e)	(e)

#define TRTP_RTCP_SOURCE(self)	((trtp_rtcp_source_t*)self)

typedef struct trtp_rtcp_source_s
{
	TSK_DECLARE_OBJECT;

	uint32_t ssrc;			 /* source's ssrc */
	uint16_t max_seq;        /* highest seq. number seen */
	uint32_t cycles;         /* shifted count of seq. number cycles */
	uint32_t base_seq;       /* base seq number */
	uint32_t bad_seq;        /* last 'bad' seq number + 1 */
	uint32_t probation;      /* sequ. packets till source is valid */
	uint32_t received;       /* packets received */
	uint32_t expected_prior; /* packet expected at last interval */
	uint32_t received_prior; /* packet received at last interval */
	uint32_t transit;        /* relative trans time for prev pkt */
	double jitter;         /* estimated jitter */
	
	uint32_t base_ts;	/* base timestamp */
	uint32_t max_ts;	/* highest timestamp number seen */
	uint32_t rate;		/* codec sampling rate */

	uint32_t ntp_msw;  /* last received NTP timestamp from RTCP sender */
	uint32_t ntp_lsw;  /* last received NTP timestamp from RTCP sender */
	uint64_t dlsr;    /* delay since last SR */
}
trtp_rtcp_source_t;
typedef tsk_list_t trtp_rtcp_sources_L_t; /**< List of @ref trtp_rtcp_header_t elements */

static tsk_object_t* trtp_rtcp_source_ctor(tsk_object_t * self, va_list * app)
{
	trtp_rtcp_source_t *source = self;
	if(source){
	}
	return self;
}
static tsk_object_t* trtp_rtcp_source_dtor(tsk_object_t * self)
{ 
	trtp_rtcp_source_t *source = self;
	if(source){
	}
	return self;
}
static const tsk_object_def_t trtp_rtcp_source_def_s = 
{
	sizeof(trtp_rtcp_source_t),
	trtp_rtcp_source_ctor, 
	trtp_rtcp_source_dtor,
	tsk_null, 
};
const tsk_object_def_t *trtp_rtcp_source_def_t = &trtp_rtcp_source_def_s;

static int _trtp_rtcp_source_init_seq(trtp_rtcp_source_t* self, uint16_t seq, uint32_t ts);
static tsk_bool_t _trtp_rtcp_source_update_seq(trtp_rtcp_source_t* self, uint16_t seq, uint32_t ts);

static int __pred_find_source_by_ssrc(const tsk_list_item_t *item, const void *pssrc)
{
	if(item && item->data){
		trtp_rtcp_source_t *source = item->data;
		return source->ssrc - *((uint32_t*)pssrc);
	}
	return -1;
}

static trtp_rtcp_source_t* _trtp_rtcp_source_create(uint32_t ssrc, uint16_t seq, uint32_t ts)
{
	trtp_rtcp_source_t* source;
	if(!(source = tsk_object_new(trtp_rtcp_source_def_t))){
		TSK_DEBUG_ERROR("Failed to create source object");
		return tsk_null;
	}
	
	_trtp_rtcp_source_init_seq(source, seq, ts);
	source->ssrc = ssrc;
	source->max_seq = seq - 1;
	source->probation = MIN_SEQUENTIAL;
	source->rate = CODEC_RATE;//FIXME

	return source;
}

static int _trtp_rtcp_source_init_seq(trtp_rtcp_source_t* self, uint16_t seq, uint32_t ts)
{
	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	self->base_seq = seq;
	self->max_seq = seq;
	self->bad_seq = RTP_SEQ_MOD + 1;   /* so seq == bad_seq is false */
	self->cycles = 0;
	self->received = 0;
	self->received_prior = 0;
	self->expected_prior = 0;
	self->base_ts = ts;
	self->max_ts = ts;
	return 0;
}

static tsk_bool_t _trtp_rtcp_source_update_seq(trtp_rtcp_source_t* self, uint16_t seq, uint32_t ts)
{
	uint16_t udelta;
	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return tsk_false;
	}

	 udelta = seq - self->max_seq;

	/*
	* Source is not valid until MIN_SEQUENTIAL packets with
	* sequential sequence numbers have been received.
	*/
	if (self->probation) {
		/* packet is in sequence */
		if (seq == self->max_seq + 1) {
			self->probation--;
			self->max_seq = seq;
			self->max_ts = ts;
			if (self->probation == 0) {
				_trtp_rtcp_source_init_seq(self, seq, ts);
				self->received++;
				return tsk_true;
			}
		} else {
			self->probation = MIN_SEQUENTIAL - 1;
			self->max_seq = seq;
			self->max_ts = ts;
		}
		return tsk_false;
	} else if (udelta < MAX_DROPOUT) {
		/* in order, with permissible gap */
		if (seq < self->max_seq) {
			/*
			* Sequence number wrapped - count another 64K cycle.
			*/
			self->cycles += RTP_SEQ_MOD;
		}
		self->max_seq = seq;
		self->max_ts = ts;
	} else if (udelta <= RTP_SEQ_MOD - MAX_MISORDER) {
		/* the sequence number made a very large jump */
		if (seq == self->bad_seq) {
			/*
			* Two sequential packets -- assume that the other side
			* restarted without telling us so just re-sync
			* (i.e., pretend this was the first packet).
			*/
			_trtp_rtcp_source_init_seq(self, seq, ts);
		}
		else {
			self->bad_seq = (seq + 1) & (RTP_SEQ_MOD-1);
			return tsk_false;
		}
	} else {
		/* duplicate or reordered packet */
	}
	self->received++;
	return tsk_true;
}

static tsk_bool_t _trtp_rtcp_source_is_probed(const trtp_rtcp_source_t* self)
{
	return (self && self->probation == 0);
}







typedef time_tp (*tc_f)();
static time_tp _trtp_rtcp_session_tc() { return (time_tp)tsk_time_now(); }

typedef struct trtp_rtcp_session_s
{
	TSK_DECLARE_OBJECT;
	
	tsk_bool_t started;
	tnet_fd_t local_fd;
	const struct sockaddr * remote_addr;

	const void* callback_data;
	trtp_rtcp_cb_f callback;

	struct{
		tsk_timer_manager_handle_t* handle_global;
		tsk_timer_id_t id_report;
		tsk_timer_id_t id_bye;
	} timer;

	trtp_rtcp_source_t* source_local; /**< local source */
	trtp_rtcp_report_sdes_t* sdes;
	uint64_t time_start; /**< Start time in millis (NOT in NTP unit yet) */
	
	// <RTCP-FB>
	uint8_t fir_seqnr;
	// </RTCP-FB>

	// <sender>
	char* cname;
	uint32_t packets_count;
	uint32_t octets_count;
	// </sender>

	// <others>
	time_tp tp; /**< the last time an RTCP packet was transmitted; */
	tc_f tc; /**< the current time */
	time_tp tn; /**< the next scheduled transmission time of an RTCP packet */
	int32_t pmembers; /**< the estimated number of session members at the time tn was last recomputed */
	int32_t members; /**< the most current estimate for the number of session members */
	int32_t senders; /**< the most current estimate for the number of senders in the session */
	double rtcp_bw; /**< The target RTCP bandwidth, i.e., the total bandwidth
      that will be used for RTCP packets by all members of this session,
      in octets per second.  This will be a specified fraction of the
      "session bandwidth" parameter supplied to the application at
      startup*/
	tsk_bool_t we_sent; /**< Flag that is true if the application has sent data since the 2nd previous RTCP report was transmitted */
	double avg_rtcp_size; /**< The average compound RTCP packet size, in octets,
      over all RTCP packets sent and received by this participant.  The
      size includes lower-layer transport and network protocol headers
      (e.g., UDP and IP) as explained in Section 6.2*/
	tsk_bool_t initial; /**< Flag that is true if the application has not yet sent an RTCP packet */
	// </others>

	trtp_rtcp_sources_L_t *sources;

	TSK_DECLARE_SAFEOBJ;

#if HAVE_SRTP
	struct{
		const srtp_t* session;
	} srtp;
#endif
}
trtp_rtcp_session_t;

static tsk_object_t* trtp_rtcp_session_ctor(tsk_object_t * self, va_list * app)
{
	trtp_rtcp_session_t *session = self;
	if(session){
		session->sources = tsk_list_create();
		session->timer.id_report = TSK_INVALID_TIMER_ID;
		session->timer.id_bye = TSK_INVALID_TIMER_ID;
		session->tc = _trtp_rtcp_session_tc;
		// get a handle for the global timer manager
		session->timer.handle_global = tsk_timer_mgr_global_ref();
		tsk_safeobj_init(session);
	}
	return self;
}
static tsk_object_t* trtp_rtcp_session_dtor(tsk_object_t * self)
{ 
	trtp_rtcp_session_t *session = self;
	if(session){
		trtp_rtcp_session_stop(session);

		TSK_OBJECT_SAFE_FREE(session->sources);
		TSK_OBJECT_SAFE_FREE(session->source_local);
		TSK_OBJECT_SAFE_FREE(session->sdes);
		TSK_FREE(session->cname);
		// release the handle for the global timer manager
		tsk_timer_mgr_global_unref(&session->timer.handle_global);

		tsk_safeobj_deinit(session);
	}
	return self;
}
static const tsk_object_def_t trtp_rtcp_session_def_s = 
{
	sizeof(trtp_rtcp_session_t),
	trtp_rtcp_session_ctor, 
	trtp_rtcp_session_dtor,
	tsk_null, 
};
const tsk_object_def_t *trtp_rtcp_session_def_t = &trtp_rtcp_session_def_s;


static tsk_bool_t _trtp_rtcp_session_have_source(trtp_rtcp_session_t* self, uint32_t ssrc);
static trtp_rtcp_source_t* _trtp_rtcp_session_find_source(trtp_rtcp_session_t* self, uint32_t ssrc);
static trtp_rtcp_source_t* _trtp_rtcp_session_find_or_add_source(trtp_rtcp_session_t* self, uint32_t ssrc, uint16_t seq_if_add, uint32_t ts_id_add);
static int _trtp_rtcp_session_add_source(trtp_rtcp_session_t* self, trtp_rtcp_source_t* source);
static int _trtp_rtcp_session_add_source_2(trtp_rtcp_session_t* self, uint32_t ssrc, uint16_t seq, uint32_t ts, tsk_bool_t *added);
static int _trtp_rtcp_session_remove_source(trtp_rtcp_session_t* self, uint32_t ssrc, tsk_bool_t *removed);
static tsk_size_t _trtp_rtcp_session_send_pkt(trtp_rtcp_session_t* self, trtp_rtcp_packet_t* pkt);
static int _trtp_rtcp_session_timer_callback(const void* arg, tsk_timer_id_t timer_id);

static void Schedule(trtp_rtcp_session_t* session, double tn, event_ e);
static void OnReceive(trtp_rtcp_session_t* session, const packet_ p, event_ e, tsk_size_t ReceivedPacketSize);
static void OnExpire(trtp_rtcp_session_t* session, event_ e);
static void SendBYEPacket(trtp_rtcp_session_t* session, event_ e);

trtp_rtcp_session_t* trtp_rtcp_session_create(uint32_t ssrc, const char* cname)
{
	trtp_rtcp_session_t* session;

	if(!(session = tsk_object_new(trtp_rtcp_session_def_t))){
		TSK_DEBUG_ERROR("Failed to create new session object");
		return tsk_null;
	}

	// RFC 3550 - 6.3.2 Initialization
	if(!(session->source_local = _trtp_rtcp_source_create(ssrc, 0, 0))){
		TSK_DEBUG_ERROR("Failed to create new local source");
		TSK_OBJECT_SAFE_FREE(session);
		goto bail;
	}
	_trtp_rtcp_session_add_source(session, session->source_local);
	session->initial = tsk_true;
	session->we_sent = tsk_false;
	session->senders = 1;
	session->members = 1;
	session->rtcp_bw = RTCP_BW;//FIXME: as parameter from the code, Also added possiblities to update this value
	session->cname = tsk_strdup(cname);
	
bail:
	return session;
}

int trtp_rtcp_session_set_callback(trtp_rtcp_session_t* self, trtp_rtcp_cb_f callback, const void* callback_data)
{
	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	tsk_safeobj_lock(self);
	self->callback = callback;
	self->callback_data = callback_data;
	tsk_safeobj_unlock(self);
	return 0;
}

#if HAVE_SRTP
int trtp_rtcp_session_set_srtp_sess(trtp_rtcp_session_t* self, const srtp_t* session)
{
	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}

	tsk_safeobj_lock(self);
	self->srtp.session = session;
	tsk_safeobj_unlock(self);

	return 0;
}
#endif

int trtp_rtcp_session_start(trtp_rtcp_session_t* self, tnet_fd_t local_fd, const struct sockaddr * remote_addr)
{
	int ret;

	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	if(self->started){
		TSK_DEBUG_WARN("Already started");
		return 0;
	}
	
	// start global timer manager
	if((ret = tsk_timer_manager_start(self->timer.handle_global))){
		TSK_DEBUG_ERROR("Failed to start timer");
		return ret;
	}

	self->local_fd = local_fd;
	self->remote_addr = remote_addr;

	// Send Initial RR (mandatory)
	Schedule(self, 0., EVENT_REPORT);

	// set start time
	self->time_start = tsk_time_now();

	self->started = tsk_true;

	return ret;
}

int trtp_rtcp_session_stop(trtp_rtcp_session_t* self)
{
	int ret = 0;

	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}

	if(self->started){
		// send BYE synchronous way
		SendBYEPacket(self, EVENT_REPORT);
		
		// this is a global timer shared by many components -> stopping it won't remove
		// all scheduled items as it could continue running if still used
		tsk_safeobj_lock(self); // must
		if(TSK_TIMER_ID_IS_VALID(self->timer.id_bye)){
			tsk_timer_manager_cancel(self->timer.handle_global, self->timer.id_bye);
			self->timer.id_bye = TSK_INVALID_TIMER_ID;
		}
		if(TSK_TIMER_ID_IS_VALID(self->timer.id_report)){
			tsk_timer_manager_cancel(self->timer.handle_global, self->timer.id_report);
			self->timer.id_report = TSK_INVALID_TIMER_ID;
		}
		tsk_safeobj_unlock(self);
		self->started = tsk_false;
	}

	return ret;
}

int trtp_rtcp_session_process_rtp_out(trtp_rtcp_session_t* self, const trtp_rtp_packet_t* packet_rtp, tsk_size_t size)
{
	int ret = 0;

	if(!self || !packet_rtp || !packet_rtp->header){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}

	if(!self->started){
		TSK_DEBUG_ERROR("Not started");
		return -2;
	}

	tsk_safeobj_lock(self);

	// create local source if not already done
	// first destroy it if the ssrc don't match
	if(self->source_local && self->source_local->ssrc != packet_rtp->header->ssrc){
		tsk_bool_t removed = tsk_false;
		// local ssrc has changed: sould never happen ...but who know?
		// remove the source
		TSK_DEBUG_WARN("Not expected to be called");
		_trtp_rtcp_session_remove_source(self, self->source_local->ssrc, &removed);
		TSK_OBJECT_SAFE_FREE(self->source_local);
		TSK_OBJECT_SAFE_FREE(self->sdes);
		self->packets_count = 0;
		self->octets_count = 0;
		if(removed){
			--self->senders;
			--self->members;
		}
	}
	if(!self->source_local){
		if(!(self->source_local = _trtp_rtcp_source_create(packet_rtp->header->ssrc, packet_rtp->header->seq_num, packet_rtp->header->timestamp))){
			TSK_DEBUG_ERROR("Failed to create new local source");
		}
		// add the source (refresh the number of senders, ...)
		_trtp_rtcp_session_add_source(self, self->source_local);
		// 'members' and 'senders' were already initialized in the constructor
	}
	
	if(!self->we_sent){
		self->we_sent = tsk_true;
	}

	++self->packets_count;
	self->octets_count += size;

	tsk_safeobj_unlock(self);

	return ret;
}

int trtp_rtcp_session_process_rtp_in(trtp_rtcp_session_t* self, const trtp_rtp_packet_t* packet_rtp, tsk_size_t size)
{
	int ret = 0;
	trtp_rtcp_source_t* source;

	if(!self || !packet_rtp || !packet_rtp->header){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}

	if(!self->started){
		TSK_DEBUG_ERROR("Not started");
		return -2;
	}

	tsk_safeobj_lock(self);
	OnReceive(self, (const packet_)packet_rtp, EVENT_RTP, size);
	if((source = _trtp_rtcp_session_find_source(self, packet_rtp->header->ssrc))){
		if(_trtp_rtcp_source_update_seq(source, packet_rtp->header->seq_num, packet_rtp->header->timestamp)){
			// RFC 3550 A.8 Estimating the Interarrival Jitter
			/* uint32_t expected = (source->cycles + source->max_seq) - source->base_seq + 1; */
			double arrival = (((double)(source->max_ts - source->base_ts) / (double)source->rate) * 1000);
			int32_t transit = (int32_t)arrival - packet_rtp->header->timestamp;
			int32_t d = (transit - source->transit);
			if(d < 0) d = -d;
			source->transit = transit;
			source->jitter += (1./16.) * ((double)d - source->jitter);
		}
		TSK_OBJECT_SAFE_FREE(source);
	}

	tsk_safeobj_unlock(self);

	return ret;
}

int trtp_rtcp_session_process_rtcp_in(trtp_rtcp_session_t* self, const void* buffer, tsk_size_t size)
{
	int ret = 0;
	trtp_rtcp_packet_t* packet_rtcp = tsk_null;

	if(!self || !buffer || size < TRTP_RTCP_HEADER_SIZE){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}

	if(!self->started){
		TSK_DEBUG_ERROR("Not started");
		return -2;
	}
	
	// derialize the RTCP packet for processing
	packet_rtcp = trtp_rtcp_packet_deserialize(buffer, size);
	if(packet_rtcp){
		tsk_safeobj_lock(self);
		OnReceive(self, 
			(const packet_)packet_rtcp, 
			(packet_rtcp->header->type == trtp_rtcp_packet_type_bye) ? EVENT_BYE : EVENT_REPORT, 
			size);
		if(packet_rtcp->header->type == trtp_rtcp_packet_type_sr){
			trtp_rtcp_source_t* source;
			const trtp_rtcp_report_sr_t* sr = (const trtp_rtcp_report_sr_t*)packet_rtcp;
			if((source = _trtp_rtcp_session_find_source(self, sr->ssrc))){
				source->ntp_lsw = sr->sender_info.ntp_lsw;
				source->ntp_msw = sr->sender_info.ntp_msw;
				source->dlsr = tsk_time_now();
				TSK_OBJECT_SAFE_FREE(source);
			}
		}
		tsk_safeobj_unlock(self); // must be before callback()

		if(self->callback){
			ret = self->callback(self->callback_data, packet_rtcp);
		}
		TSK_OBJECT_SAFE_FREE(packet_rtcp);
	}
		

	return ret;
}

int trtp_rtcp_session_signal_pkt_loss(trtp_rtcp_session_t* self, uint32_t ssrc_media, const uint16_t* seq_nums, tsk_size_t count)
{
	trtp_rtcp_report_rr_t* rr;
	if(!self || !self->source_local || !seq_nums || !count){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	
	if((rr = trtp_rtcp_report_rr_create_2(self->source_local->ssrc))){
		trtp_rtcp_report_rtpfb_t* rtpfb;
		if((rtpfb = trtp_rtcp_report_rtpfb_create_nack(self->source_local->ssrc, ssrc_media, seq_nums, count))){
			trtp_rtcp_packet_add_packet((trtp_rtcp_packet_t*)rr,  (trtp_rtcp_packet_t*)rtpfb, tsk_false);
			_trtp_rtcp_session_send_pkt(self, (trtp_rtcp_packet_t*)rr);
			TSK_OBJECT_SAFE_FREE(rtpfb);
		}
		TSK_OBJECT_SAFE_FREE(rr);
	}
	return 0;
}

// Frame corrupted means the prediction chain is broken -> Send FIR
int trtp_rtcp_session_signal_frame_corrupted(trtp_rtcp_session_t* self, uint32_t ssrc_media)
{
	trtp_rtcp_report_rr_t* rr;
	if(!self || !self->source_local){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	
	if((rr = trtp_rtcp_report_rr_create_2(self->source_local->ssrc))){
		trtp_rtcp_report_psfb_t* psfb_fir = trtp_rtcp_report_psfb_create_fir(self->fir_seqnr++, self->source_local->ssrc, ssrc_media);
		if(psfb_fir){
			trtp_rtcp_packet_add_packet((trtp_rtcp_packet_t*)rr, (trtp_rtcp_packet_t*)psfb_fir, tsk_false);
			_trtp_rtcp_session_send_pkt(self, (trtp_rtcp_packet_t*)rr);
			TSK_OBJECT_SAFE_FREE(psfb_fir);
		}
		TSK_OBJECT_SAFE_FREE(rr);
	}
	return 0;
}

// for now send just a FIR
int trtp_rtcp_session_signal_jb_error(struct trtp_rtcp_session_s* self, uint32_t ssrc_media)
{
	return trtp_rtcp_session_signal_frame_corrupted(self, ssrc_media);
}

static tsk_bool_t _trtp_rtcp_session_have_source(trtp_rtcp_session_t* self, uint32_t ssrc)
{
	tsk_list_item_t* item;
	tsk_list_foreach(item, self->sources){
		if(TRTP_RTCP_SOURCE(item->data)->ssrc == ssrc){
			return tsk_true;
		}
	}
	return tsk_false;
}

// find source by ssrc
// the caller must release the returned object
static trtp_rtcp_source_t* _trtp_rtcp_session_find_source(trtp_rtcp_session_t* self, uint32_t ssrc)
{
	tsk_list_item_t* item;
	tsk_list_foreach(item, self->sources){
		if(TRTP_RTCP_SOURCE(item->data)->ssrc == ssrc){
			return tsk_object_ref(item->data);
		}
	}
	return tsk_null;
}

// find or add source by ssrc
// the caller must release the returned object
static trtp_rtcp_source_t* _trtp_rtcp_session_find_or_add_source(trtp_rtcp_session_t* self, uint32_t ssrc, uint16_t seq_if_add, uint32_t ts_id_add)
{
	trtp_rtcp_source_t* source;
	if((source = _trtp_rtcp_session_find_source(self, ssrc))){
		return source;
	}

	if((source = _trtp_rtcp_source_create(ssrc, seq_if_add, ts_id_add))){
		if((_trtp_rtcp_session_add_source(self, source)) != 0){
			TSK_DEBUG_ERROR("Failed to add source");
			TSK_OBJECT_SAFE_FREE(source);
			return tsk_null;
		}
		return tsk_object_ref(source);
	}
	return tsk_null;
}

int _trtp_rtcp_session_add_source(trtp_rtcp_session_t* self, trtp_rtcp_source_t* source)
{
	if(!self || !source){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}

	tsk_list_lock(self->sources);
	source = tsk_object_ref(source);
	tsk_list_push_back_data(self->sources, (void**)&source);
	tsk_list_unlock(self->sources);

	return 0;
}

// adds a source if doesn't exist
static int _trtp_rtcp_session_add_source_2(trtp_rtcp_session_t* self, uint32_t ssrc, uint16_t seq, uint32_t ts, tsk_bool_t *added)
{
	int ret = 0;
	tsk_list_item_t* item;
	trtp_rtcp_source_t* source;

	tsk_list_lock(self->sources);
	tsk_list_foreach(item, self->sources){
		if(TRTP_RTCP_SOURCE(item->data)->ssrc == ssrc){
			tsk_list_unlock(self->sources);
			*added = tsk_false;
			return 0;
		}
	}

	tsk_list_unlock(self->sources);

	if((source = _trtp_rtcp_source_create(ssrc, seq, ts))){
		ret = _trtp_rtcp_session_add_source(self, source);
	}

	TSK_OBJECT_SAFE_FREE(source);

	*added = tsk_true;
	return ret;
}

int _trtp_rtcp_session_remove_source(trtp_rtcp_session_t* self, uint32_t ssrc, tsk_bool_t *removed)
{
	*removed = tsk_false;
	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	tsk_list_lock(self->sources);
	if((*removed = tsk_list_remove_item_by_pred(self->sources, __pred_find_source_by_ssrc, &ssrc)) == tsk_true){
		// ...
	}
	tsk_list_unlock(self->sources);
	return 0;
}

static tsk_size_t _trtp_rtcp_session_send_pkt(trtp_rtcp_session_t* self, trtp_rtcp_packet_t* pkt)
{
	tsk_size_t ret = 0;
	tsk_size_t __num_bytes_pad = 0;
	tsk_buffer_t* buffer;

	if(!self->remote_addr || self->local_fd <= 0){
		TSK_DEBUG_ERROR("Invalid network settings");
		return 0;
	}

#if HAVE_SRTP
	if(self->srtp.session) __num_bytes_pad = (SRTP_MAX_TRAILER_LEN + 0x4);
#endif

	// SDES
	if(!self->sdes && (self->sdes = trtp_rtcp_report_sdes_create_null())){
		trtp_rtcp_sdes_chunck_t* chunck = trtp_rtcp_sdes_chunck_create(self->source_local->ssrc);
		if(chunck){
			static const char* _name = "test@doubango.org";
			trtp_rtcp_sdes_chunck_add_item(chunck, trtp_rtcp_sdes_item_type_cname, self->cname, tsk_strlen(self->cname));
			trtp_rtcp_sdes_chunck_add_item(chunck, trtp_rtcp_sdes_item_type_name, _name, tsk_strlen(_name));
			trtp_rtcp_report_sdes_add_chunck(self->sdes, chunck);
			TSK_OBJECT_SAFE_FREE(chunck);
		}
	}
	if(self->sdes){
		trtp_rtcp_packet_add_packet(pkt, (trtp_rtcp_packet_t*)self->sdes, tsk_true);
	}

	if((buffer = trtp_rtcp_packet_serialize(pkt, __num_bytes_pad))){
		void* data = buffer->data;
		int size = buffer->size;
#if HAVE_SRTP
		if(self->srtp.session){
			if(srtp_protect_rtcp(((srtp_t)*self->srtp.session), data, &size) != err_status_ok){
				TSK_DEBUG_ERROR("srtp_protect_rtcp() failed");
			}
		}
#endif
		if(tnet_sockfd_sendto(self->local_fd, self->remote_addr, data, size) > 0){
			ret = size;
		}
		TSK_OBJECT_SAFE_FREE(buffer);
	}

	return ret;
}

static int _trtp_rtcp_session_timer_callback(const void* arg, tsk_timer_id_t timer_id)
{
	trtp_rtcp_session_t* session = (trtp_rtcp_session_t*)arg;
	tsk_safeobj_lock(session); // must
	if(session->timer.id_bye == timer_id){
		session->timer.id_bye = TSK_INVALID_TIMER_ID;
		OnExpire(session, EVENT_BYE);
	}
	else if(session->timer.id_report == timer_id){
		session->timer.id_report = TSK_INVALID_TIMER_ID;
		OnExpire(session, EVENT_REPORT);
	}
	tsk_safeobj_unlock(session);
	return 0;
}

static tsk_bool_t IsRtpPacket(const packet_ p)
{
	return (TSK_OBJECT_HEADER(p)->__def__ == trtp_rtp_packet_def_t);
}

static PacketType_ PacketType(const packet_ p)
{
	if(IsRtpPacket(p)){
		return PACKET_RTP;
	}
	else{
		switch(((const trtp_rtcp_packet_t*)p)->header->type){
			case trtp_rtcp_packet_type_bye: return PACKET_BYE;
			default: return PACKET_RTCP_REPORT;
		}
	}
}

// Returns true if the packet is from a member or not
// also checks all csrc
static tsk_bool_t NewMember(trtp_rtcp_session_t* session, const packet_ p)
{
	uint32_t ssrc = 0;
	if(IsRtpPacket(p)){
		const trtp_rtp_packet_t* packet_rtp = (const trtp_rtp_packet_t*)p;
		tsk_size_t i;
		for(i = 0; i < packet_rtp->header->csrc_count && i < sizeof(packet_rtp->header->csrc)/sizeof(packet_rtp->header->csrc[0]); ++i){
			if(!(_trtp_rtcp_session_have_source(session, packet_rtp->header->csrc[i]))){
				return tsk_false;
			}
		}
		ssrc = packet_rtp->header->ssrc;
	}
	else{
		switch(((const trtp_rtcp_packet_t*)p)->header->type){
			case trtp_rtcp_packet_type_rr: ssrc = ((const trtp_rtcp_report_rr_t*)p)->ssrc; break;
			case trtp_rtcp_packet_type_sr: ssrc = ((const trtp_rtcp_report_sr_t*)p)->ssrc; break;
			case trtp_rtcp_packet_type_bye:
				{
					tsk_size_t i;
					const trtp_rtcp_report_bye_t* bye = (const trtp_rtcp_report_bye_t*)p;
					for(i = 0; i < TRTP_RTCP_PACKET(bye)->header->rc; ++i){
						if(!_trtp_rtcp_session_have_source(session, bye->ssrc_list[i])){
							return tsk_false;
						}
					}
					return tsk_true;
				}
			default: return tsk_false;
		}
	}

	return !_trtp_rtcp_session_have_source(session, ssrc);
}

#define NewSender(session, p) NewMember((session), (p))

static tsk_size_t AddMemberUsingRTCPPacket(trtp_rtcp_session_t* session, const trtp_rtcp_packet_t* p, tsk_bool_t sender)
{
	trtp_rtcp_packets_L_t* packets = tsk_null;
	trtp_rtcp_rblocks_L_t* blocks = tsk_null;
	tsk_bool_t added = tsk_false;
	tsk_size_t count = 0;

	switch(p->header->type){
		case trtp_rtcp_packet_type_rr:
			{
				const trtp_rtcp_report_rr_t* rr = (const trtp_rtcp_report_rr_t*)p;
				_trtp_rtcp_session_add_source_2(session, ((const trtp_rtcp_report_rr_t*)p)->ssrc, 0, 0, &added);
				if(added) ++count;
				
				packets = rr->packets;
				blocks = rr->blocks;
				break;
			}
		case trtp_rtcp_packet_type_sr:
			{
				const trtp_rtcp_report_sr_t* sr = (const trtp_rtcp_report_sr_t*)p;
				_trtp_rtcp_session_add_source_2(session, ((const trtp_rtcp_report_sr_t*)p)->ssrc, 0, 0, &added);
				if(added) ++count;
				packets = sr->packets;
				blocks = sr->blocks;
				break;
			}
        default:
            {
                break;
            }
	}

	if(!sender){
		if(packets){
			const tsk_list_item_t *item;
			tsk_list_foreach(item, packets){
				AddMemberUsingRTCPPacket(session, (const trtp_rtcp_packet_t*)item->data, sender);
			}
		}
		if(blocks){
			const tsk_list_item_t *item;
			tsk_list_foreach(item, blocks){
				_trtp_rtcp_session_add_source_2(session, TRTP_RTCP_RBLOCK(item->data)->ssrc, 0, 0, &added);
				if(added) ++count;
			}
		}
	}

	return count;
}

static tsk_size_t AddMember_(trtp_rtcp_session_t* session, const packet_ p, tsk_bool_t sender)
{
	tsk_size_t count = 0;
	if(IsRtpPacket(p)){
		const trtp_rtp_packet_t* packet_rtp = (const trtp_rtp_packet_t*)p;
		tsk_size_t i;
		tsk_bool_t added = tsk_false;
		_trtp_rtcp_session_add_source_2(session, packet_rtp->header->ssrc, packet_rtp->header->seq_num, packet_rtp->header->timestamp, &added);
		if(added) ++count;
		for(i = 0; i < packet_rtp->header->csrc_count && i < sizeof(packet_rtp->header->csrc)/sizeof(packet_rtp->header->csrc[0]); ++i){
			_trtp_rtcp_session_add_source_2(session, packet_rtp->header->csrc[i], 0, 0, &added);
			if(added) ++count;
		}
	}
	else{
		count += AddMemberUsingRTCPPacket(session, (const trtp_rtcp_packet_t*) p, sender);
	}
	return count;
}

#define AddMember(session, p)	AddMember_((session), (p), tsk_false)
#define AddSender(session, p)	AddMember_((session), (p), tsk_true)


static tsk_size_t RemoveMemberUsingRTCPPacket(trtp_rtcp_session_t* session, const trtp_rtcp_packet_t* p)
{
	trtp_rtcp_packets_L_t* packets = tsk_null;
	trtp_rtcp_rblocks_L_t* blocks = tsk_null;
	tsk_bool_t removed = tsk_false;
	tsk_size_t count = 0;

	switch(p->header->type){
		case trtp_rtcp_packet_type_rr:
			{
				const trtp_rtcp_report_rr_t* rr = (const trtp_rtcp_report_rr_t*)p;
				_trtp_rtcp_session_remove_source(session, ((const trtp_rtcp_report_rr_t*)p)->ssrc, &removed);
				if(removed) ++count;
				
				packets = rr->packets;
				blocks = rr->blocks;
				break;
			}
		case trtp_rtcp_packet_type_sr:
			{
				const trtp_rtcp_report_sr_t* sr = (const trtp_rtcp_report_sr_t*)p;
				_trtp_rtcp_session_remove_source(session, ((const trtp_rtcp_report_sr_t*)p)->ssrc, &removed);
				if(removed) ++count;
				packets = sr->packets;
				blocks = sr->blocks;
				break;
			}
        default:
            {
                break;
            }
	}
	
	if(packets){
		const tsk_list_item_t *item;
		tsk_list_foreach(item, packets){
			RemoveMemberUsingRTCPPacket(session, (const trtp_rtcp_packet_t*)item->data);
		}
	}
	if(blocks){
		const tsk_list_item_t *item;
		tsk_list_foreach(item, blocks){
			_trtp_rtcp_session_remove_source(session, TRTP_RTCP_RBLOCK(item->data)->ssrc, &removed);
			if(removed) ++count;
		}
	}
	

	return count;
}

static tsk_size_t RemoveMember(trtp_rtcp_session_t* session, const packet_ p)
{
	tsk_size_t count = 0;
	if(IsRtpPacket(p)){
		const trtp_rtp_packet_t* packet_rtp = (const trtp_rtp_packet_t*)p;
		tsk_size_t i;
		tsk_bool_t removed = tsk_false;
		_trtp_rtcp_session_remove_source(session, packet_rtp->header->ssrc, &removed);
		if(removed) ++count;
		for(i = 0; i < packet_rtp->header->csrc_count && i < sizeof(packet_rtp->header->csrc)/sizeof(packet_rtp->header->csrc[0]); ++i){
			_trtp_rtcp_session_remove_source(session, packet_rtp->header->csrc[i], &removed);
			if(removed) ++count;
		}
	}
	else{
		count += RemoveMemberUsingRTCPPacket(session, (const trtp_rtcp_packet_t*) p);
	}
	return count;
}

#define RemoveSender(session, p) RemoveMember((session), (p))

// Sends BYE in synchronous mode
static void SendBYEPacket(trtp_rtcp_session_t* session, event_ e)
{
	trtp_rtcp_report_bye_t* bye;
	tsk_size_t __num_bytes_pad = 0;

	if(!session->remote_addr || session->local_fd <= 0){
		TSK_DEBUG_ERROR("Invalid network settings");
		return;
	}

	tsk_safeobj_lock(session);

#if HAVE_SRTP
	if(session->srtp.session) __num_bytes_pad = (SRTP_MAX_TRAILER_LEN + 0x4);
#endif

	if(session->source_local && (bye = trtp_rtcp_report_bye_create_2(session->source_local->ssrc))){
		tsk_buffer_t* buffer;
		// serialize and send the packet
		if((buffer = trtp_rtcp_packet_serialize((const trtp_rtcp_packet_t*)bye, __num_bytes_pad))){
			void* data = buffer->data;
			int size = buffer->size;
#if HAVE_SRTP
			if(session->srtp.session){
				if(srtp_protect_rtcp(((srtp_t)*session->srtp.session), data, &size) != err_status_ok){
					TSK_DEBUG_ERROR("srtp_protect_rtcp() failed");
				}
			}
#endif
			tnet_sockfd_sendto(session->local_fd, session->remote_addr, data, size);
			TSK_OBJECT_SAFE_FREE(buffer);
		}
		TSK_OBJECT_SAFE_FREE(bye);
	}

	tsk_safeobj_unlock(session);
}

// returns sent packet size
static tsk_size_t SendRTCPReport(trtp_rtcp_session_t* session, event_ e)
{
	tsk_size_t ret = 0;

	tsk_safeobj_lock(session);

	if(session->initial){
		// Send Receiver report (manadatory to be the first on)
		trtp_rtcp_report_rr_t* rr = trtp_rtcp_report_rr_create_2(session->source_local->ssrc);
		if(rr){
			// serialize and send the packet
			ret = _trtp_rtcp_session_send_pkt(session, (trtp_rtcp_packet_t*)rr);
			TSK_OBJECT_SAFE_FREE(rr);
		}
	}
	else{
		trtp_rtcp_report_sr_t* sr = trtp_rtcp_report_sr_create_null();
		if(sr){
			uint64_t ntp_now = tsk_time_ntp();
			uint64_t time_now = tsk_time_now();
			trtp_rtcp_rblock_t* rblock;
			trtp_rtcp_source_t* source;
			tsk_list_item_t *item;
			tsk_bool_t packet_lost = tsk_false;
			
			// sender info
			sr->ssrc = session->source_local->ssrc;
			sr->sender_info.ntp_msw = (ntp_now >> 32);
			sr->sender_info.ntp_lsw = (ntp_now & 0xFFFFFFFF);
			sr->sender_info.sender_pcount = session->packets_count;
			sr->sender_info.sender_ocount = session->octets_count;
			{	/* rtp_timestamp */
				struct timeval tv;
				uint64_t rtp_timestamp = (time_now - session->time_start) * (session->source_local->rate / 1000);
				tv.tv_sec = (long)(rtp_timestamp / 1000);
				tv.tv_usec = (long)(rtp_timestamp - ((rtp_timestamp / 1000) * 1000)) * 1000;
#if 1
				sr->sender_info.rtp_timestamp = (uint32_t)tsk_time_get_ms(&tv);
#else
				sr->sender_info.rtp_timestamp = (uint32_t)tsk_time_get_ntp_ms(&tv);
#endif
			}

			// report blocks
			tsk_list_foreach(item, session->sources){
				if(!(source = (trtp_rtcp_source_t*)item->data) || !_trtp_rtcp_source_is_probed(source)){
					continue;
				}
				if((rblock = trtp_rtcp_rblock_create_null())){
					uint32_t expected, expected_interval, received_interval, lost_interval;
					
					rblock->ssrc = source->ssrc;
					// RFC 3550 - A.3 Determining Number of Packets Expected and Lost
					expected = (source->cycles + source->max_seq) - source->base_seq + 1;
					expected_interval = expected - source->expected_prior;
					source->expected_prior = expected;
					received_interval = source->received - source->received_prior;
					source->received_prior = source->received;
					lost_interval = expected_interval - received_interval;
					if (expected_interval == 0 || lost_interval <= 0) rblock->fraction = 0;
					else rblock->fraction = (lost_interval << 8) / expected_interval;
					rblock->cumulative_no_lost = ((expected - source->received));
					if(!packet_lost && rblock->fraction) packet_lost = tsk_true;
					
					rblock->last_seq = ((source->cycles & 0xFFFF) << 16) | source->max_seq;
					rblock->jitter = (uint32_t)source->jitter;
					rblock->lsr = ((source->ntp_msw & 0xFFFF) << 16) | ((source->ntp_lsw & 0xFFFF0000) >> 16);
					if(source->dlsr){
						rblock->dlsr = (uint32_t)(((time_now - source->dlsr) * 65536) / 1000); // in units of 1/65536 seconds
					}
					
					trtp_rtcp_report_sr_add_block(sr, rblock);					
					TSK_OBJECT_SAFE_FREE(rblock);
				}
			}

			// RFC 4885 - 3.1. Compound RTCP Feedback Packets
			// The FB message(s) MUST be placed in the compound packet after RR and
			// SDES RTCP packets defined in [1].  The ordering with respect to other
			// RTCP extensions is not defined.
			// RFC 5104 Full Intra Request (FIR)
			if(packet_lost){
#if 0 // Will be managed by the jitter buffer
				trtp_rtcp_report_psfb_t* psfb_fir = trtp_rtcp_report_psfb_create_fir(session->fir_seqnr++, session->source_local->ssrc, source->ssrc);
				if(psfb_fir){
					trtp_rtcp_packet_add_packet((trtp_rtcp_packet_t*)sr, (trtp_rtcp_packet_t*)psfb_fir, tsk_false);
					TSK_OBJECT_SAFE_FREE(psfb_fir);
				}
				TSK_DEBUG_INFO("RTCP Packet Lost (Sending FIR)");
#endif
			}

			// serialize and send the packet
			ret = _trtp_rtcp_session_send_pkt(session, (trtp_rtcp_packet_t*)sr);
			TSK_OBJECT_SAFE_FREE(sr);
		}
	}

	tsk_safeobj_unlock(session);
	return ret;
}

static void Schedule(trtp_rtcp_session_t* session, double tn, event_ e)
{
	tsk_safeobj_lock(session); // must
	switch(e){
		case EVENT_BYE: 
			if(!TSK_TIMER_ID_IS_VALID(session->timer.id_bye)){
				session->timer.id_bye = tsk_timer_mgr_global_schedule((uint64_t)tn, _trtp_rtcp_session_timer_callback, session);
			}
			break;
		case EVENT_REPORT:
			if(!TSK_TIMER_ID_IS_VALID(session->timer.id_report)){
				session->timer.id_report = tsk_timer_mgr_global_schedule((uint64_t)tn, _trtp_rtcp_session_timer_callback, session);
			}
			break;
		default: TSK_DEBUG_ERROR("Unexpected code called"); break;
	}
	tsk_safeobj_unlock(session);
}

#define Reschedule(session, tn, e) Schedule((session), (tn), (e))

static double rtcp_interval(int32_t members,
					 int32_t senders,
					 double rtcp_bw,
					 int32_t we_sent,
					 double avg_rtcp_size,
					 tsk_bool_t initial)
{
	/*
	* Minimum average time between RTCP packets from this site (in
	* seconds).  This time prevents the reports from `clumping' when
	* sessions are small and the law of large numbers isn't helping
	* to smooth out the traffic.  It also keeps the report interval
	* from becoming ridiculously small during transient outages like
	* a network partition.
	*/
	#define RTCP_MIN_TIME 5.
	/*
	* Fraction of the RTCP bandwidth to be shared among active
	* senders.  (This fraction was chosen so that in a typical
	* session with one or two active senders, the computed report
	* time would be roughly equal to the minimum report time so that
	* we don't unnecessarily slow down receiver reports.)  The
	* receiver fraction must be 1 - the sender fraction.
	*/
	#define RTCP_SENDER_BW_FRACTION 0.25
	#define RTCP_RCVR_BW_FRACTION (1 - RTCP_SENDER_BW_FRACTION)
	/*
	* To compensate for "timer reconsideration" converging to a
	* value below the intended average.
	*/
	#define COMPENSATION  (2.71828 - 1.5)

	double t;                   /* interval */
	double rtcp_min_time = RTCP_MIN_TIME;
	int n;                      /* no. of members for computation */

	/*
	* Very first call at application start-up uses half the min
	* delay for quicker notification while still allowing some time
	* before reporting for randomization and to learn about other
	* sources so the report interval will converge to the correct
	* interval more quickly.
	*/
	if (initial) {
		rtcp_min_time /= 2;
	}
	/*
	* Dedicate a fraction of the RTCP bandwidth to senders unless
	* the number of senders is large enough that their share is
	* more than that fraction.
	*/
	n = members;
	if (senders <= members * RTCP_SENDER_BW_FRACTION) {
		if (we_sent) {
			rtcp_bw *= RTCP_SENDER_BW_FRACTION;
			n = senders;
		} else {
			rtcp_bw *= RTCP_RCVR_BW_FRACTION;
			n -= senders;
		}
	}

	/*
	* The effective number of sites times the average packet size is
	* the total number of octets sent when each site sends a report.
	* Dividing this by the effective bandwidth gives the time
	* interval over which those packets must be sent in order to
	* meet the bandwidth target, with a minimum enforced.  In that
	* time interval we send one report so this time is also our
	* average time between reports.
	*/
	t = avg_rtcp_size * n / rtcp_bw;
	if (t < rtcp_min_time) t = rtcp_min_time;

	/*
	* To avoid traffic bursts from unintended synchronization with
	* other sites, we then pick our actual next report interval as a
	* random number uniformly distributed between 0.5*t and 1.5*t.
	*/
	t = t * (drand48() + 0.5);
	t = t / COMPENSATION;

	return (t * 1000);
}


static void OnExpire(trtp_rtcp_session_t* session, event_ e)
{
	/* This function is responsible for deciding whether to send an
	* RTCP report or BYE packet now, or to reschedule transmission.
	* It is also responsible for updating the pmembers, initial, tp,
	* and avg_rtcp_size state variables.  This function should be
	* called upon expiration of the event timer used by Schedule().
	*/

	double t;     /* Interval */
	double tn;    /* Next transmit time */
	double tc;

	/* In the case of a BYE, we use "timer reconsideration" to
	* reschedule the transmission of the BYE if necessary */
	
	if (TypeOfEvent(e) == EVENT_BYE) {
		t = rtcp_interval(session->members,
			session->senders,
			session->rtcp_bw,
			session->we_sent,
			session->avg_rtcp_size,
			session->initial);
		tn = session->tp + t;
		if (tn <= session->tc()) {
			SendBYEPacket(session, e);
#if 0
			exit(1);
#endif
		} else {
#if 0
			Schedule(session, tn, e);
#else
			Schedule(session, 0, e);
#endif
		}

	} else if (TypeOfEvent(e) == EVENT_REPORT) {
		t = rtcp_interval(session->members,
			session->senders,
			session->rtcp_bw,
			session->we_sent,
			session->avg_rtcp_size,
			session->initial);
		tn = session->tp + t;
		if (tn <= (tc = session->tc())) {
			tsk_size_t SentPacketSize = SendRTCPReport(session, e);
			session->avg_rtcp_size = (1./16.)*SentPacketSize + (15./16.)*(session->avg_rtcp_size);
			session->tp = tc;

			/* We must redraw the interval.  Don't reuse the
			one computed above, since its not actually
			distributed the same, as we are conditioned
			on it being small enough to cause a packet to
			be sent */

			t = rtcp_interval(session->members,
				session->senders,
				session->rtcp_bw,
				session->we_sent,
				session->avg_rtcp_size,
				session->initial);
#if 0
			Schedule(session, t+tc, e);
#else
			Schedule(session, t, e);
#endif
			session->initial = tsk_false;
		} else {
#if 0
			Schedule(session, tn, e);
#else
			Schedule(session, 0, e);
#endif
		}
		session->pmembers = session->members;
	}
}

static void OnReceive(trtp_rtcp_session_t* session, const packet_ p, event_ e, tsk_size_t ReceivedPacketSize)
{
	/* What we do depends on whether we have left the group, and are
	* waiting to send a BYE (TypeOfEvent(e) == EVENT_BYE) or an RTCP
	* report.  p represents the packet that was just received.  */

	if (PacketType(p) == PACKET_RTCP_REPORT) {
		if (NewMember(session, p) && (TypeOfEvent(e) == EVENT_REPORT)) {
			session->members += AddMember(session, p);
		}
		session->avg_rtcp_size = (1./16.)*ReceivedPacketSize + (15./16.)*(session->avg_rtcp_size);
	} else if (PacketType(p) == PACKET_RTP) {
#if 0
		if (NewMember(session, p) && (TypeOfEvent(e) == EVENT_REPORT)) {
			session->members += AddMember(session, p);
		}
		if (NewSender(session, p) && (TypeOfEvent(e) == EVENT_REPORT)) {
			tsk_size_t count = AddSender(session, p);
			session->senders += count;
			session->members += count;
		}
#else
		if (NewSender(session, p)) {
			tsk_size_t count = AddSender(session, p);
			session->senders += count;
			session->members += count;
		}
#endif
	} else if (PacketType(p) == PACKET_BYE) {
		session->avg_rtcp_size = (1./16.)*ReceivedPacketSize + (15./16.)*(session->avg_rtcp_size);

		if (TypeOfEvent(e) == EVENT_REPORT) {
			double tc = session->tc();
			tsk_size_t count = RemoveMember(session, p);
			session->senders -= count;
			session->members -= count;
#if 0
			if (NewSender(session, p) == tsk_false) {
				RemoveSender(p);
				session->senders -= 1;
			}
			if (NewMember(session, p) == tsk_false) {
				RemoveMember(p);
				session->members -= 1;
			}
#endif

			if (session->members < session->pmembers && session->pmembers) {
				session->tn = (time_tp)(tc +
					(((double) session->members)/(session->pmembers))*(session->tn - tc));
				session->tp = (time_tp)(tc -
					(((double) session->members)/(session->pmembers))*(tc - session->tp));

				/* Reschedule the next report for time tn */

				Reschedule(session, session->tn, e);
				session->pmembers = session->members;
			}

		} else if (TypeOfEvent(e) == EVENT_BYE) {
			session->members += 1;
		}
	}
}
