gst/rtpmanager/rtpsession.c

   1 /* GStreamer
   2  * Copyright (C) <2007> Wim Taymans <wim.taymans@gmail.com>
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
  17  * Boston, MA 02110-1301, USA.
  18  */
  19
  20 /* FIXME 0.11: suppress warnings for deprecated API such as GValueArray
  21  * with newer GLib versions (>= 2.31.0) */
  22 #define GLIB_DISABLE_DEPRECATION_WARNINGS
  23
  24 #include <string.h>
  25
  26 #include <gst/rtp/gstrtpbuffer.h>
  27 #include <gst/rtp/gstrtcpbuffer.h>
  28
  29 #include <gst/glib-compat-private.h>
  30
  31 #include "rtpsession.h"
  32
  33 GST_DEBUG_CATEGORY_STATIC (rtp_session_debug);
  34 #define GST_CAT_DEFAULT rtp_session_debug
  35
  36 /* signals and args */
  37 enum
  38 {
  39   SIGNAL_GET_SOURCE_BY_SSRC,
  40   SIGNAL_ON_NEW_SSRC,
  41   SIGNAL_ON_SSRC_COLLISION,
  42   SIGNAL_ON_SSRC_VALIDATED,
  43   SIGNAL_ON_SSRC_ACTIVE,
  44   SIGNAL_ON_SSRC_SDES,
  45   SIGNAL_ON_BYE_SSRC,
  46   SIGNAL_ON_BYE_TIMEOUT,
  47   SIGNAL_ON_TIMEOUT,
  48   SIGNAL_ON_SENDER_TIMEOUT,
  49   SIGNAL_ON_SENDING_RTCP,
  50   SIGNAL_ON_FEEDBACK_RTCP,
  51   SIGNAL_SEND_RTCP,
  52   LAST_SIGNAL
  53 };
  54
  55 #define DEFAULT_INTERNAL_SOURCE      NULL
  56 #define DEFAULT_BANDWIDTH            RTP_STATS_BANDWIDTH
  57 #define DEFAULT_RTCP_FRACTION        (RTP_STATS_RTCP_FRACTION * RTP_STATS_BANDWIDTH)
  58 #define DEFAULT_RTCP_RR_BANDWIDTH    -1
  59 #define DEFAULT_RTCP_RS_BANDWIDTH    -1
  60 #define DEFAULT_RTCP_MTU             1400
  61 #define DEFAULT_SDES                 NULL
  62 #define DEFAULT_NUM_SOURCES          0
  63 #define DEFAULT_NUM_ACTIVE_SOURCES   0
  64 #define DEFAULT_SOURCES              NULL
  65 #define DEFAULT_RTCP_MIN_INTERVAL    (RTP_STATS_MIN_INTERVAL * GST_SECOND)
  66 #define DEFAULT_RTCP_FEEDBACK_RETENTION_WINDOW (2 * GST_SECOND)
  67 #define DEFAULT_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD (3)
  68 #define DEFAULT_PROBATION            RTP_DEFAULT_PROBATION
  69
  70 enum
  71 {
  72   PROP_0,
  73   PROP_INTERNAL_SSRC,
  74   PROP_INTERNAL_SOURCE,
  75   PROP_BANDWIDTH,
  76   PROP_RTCP_FRACTION,
  77   PROP_RTCP_RR_BANDWIDTH,
  78   PROP_RTCP_RS_BANDWIDTH,
  79   PROP_RTCP_MTU,
  80   PROP_SDES,
  81   PROP_NUM_SOURCES,
  82   PROP_NUM_ACTIVE_SOURCES,
  83   PROP_SOURCES,
  84   PROP_FAVOR_NEW,
  85   PROP_RTCP_MIN_INTERVAL,
  86   PROP_RTCP_FEEDBACK_RETENTION_WINDOW,
  87   PROP_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD,
  88   PROP_PROBATION,
  89   PROP_STATS,
  90   PROP_LAST
  91 };
  92
  93 /* update average packet size */
  94 #define INIT_AVG(avg, val) \
  95    (avg) = (val);
  96 #define UPDATE_AVG(avg, val)            \
  97   if ((avg) == 0)                       \
  98    (avg) = (val);                       \
  99   else                                  \
 100    (avg) = ((val) + (15 * (avg))) >> 4;
 101
 102
 103 /* The number RTCP intervals after which to timeout entries in the
 104  * collision table
 105  */
 106 #define RTCP_INTERVAL_COLLISION_TIMEOUT 10
 107
 108 /* GObject vmethods */
 109 static void rtp_session_finalize (GObject * object);
 110 static void rtp_session_set_property (GObject * object, guint prop_id,
 111     const GValue * value, GParamSpec * pspec);
 112 static void rtp_session_get_property (GObject * object, guint prop_id,
 113     GValue * value, GParamSpec * pspec);
 114
 115 static void rtp_session_send_rtcp (RTPSession * sess, GstClockTime max_delay);
 116
 117 static guint rtp_session_signals[LAST_SIGNAL] = { 0 };
 118
 119 G_DEFINE_TYPE (RTPSession, rtp_session, G_TYPE_OBJECT);
 120
 121 static guint32 rtp_session_create_new_ssrc (RTPSession * sess);
 122 static RTPSource *obtain_source (RTPSession * sess, guint32 ssrc,
 123     gboolean * created, RTPPacketInfo * pinfo, gboolean rtp);
 124 static RTPSource *obtain_internal_source (RTPSession * sess,
 125     guint32 ssrc, gboolean * created);
 126 static GstFlowReturn rtp_session_schedule_bye_locked (RTPSession * sess,
 127     GstClockTime current_time);
 128 static GstClockTime calculate_rtcp_interval (RTPSession * sess,
 129     gboolean deterministic, gboolean first);
 130
 131 static gboolean
 132 accumulate_trues (GSignalInvocationHint * ihint, GValue * return_accu,
 133     const GValue * handler_return, gpointer data)
 134 {
 135   if (g_value_get_boolean (handler_return))
 136     g_value_set_boolean (return_accu, TRUE);
 137
 138   return TRUE;
 139 }
 140
 141 static void
 142 rtp_session_class_init (RTPSessionClass * klass)
 143 {
 144   GObjectClass *gobject_class;
 145
 146   gobject_class = (GObjectClass *) klass;
 147
 148   gobject_class->finalize = rtp_session_finalize;
 149   gobject_class->set_property = rtp_session_set_property;
 150   gobject_class->get_property = rtp_session_get_property;
 151
 152   /**
 153    * RTPSession::get-source-by-ssrc:
 154    * @session: the object which received the signal
 155    * @ssrc: the SSRC of the RTPSource
 156    *
 157    * Request the #RTPSource object with SSRC @ssrc in @session.
 158    */
 159   rtp_session_signals[SIGNAL_GET_SOURCE_BY_SSRC] =
 160       g_signal_new ("get-source-by-ssrc", G_TYPE_FROM_CLASS (klass),
 161       G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION, G_STRUCT_OFFSET (RTPSessionClass,
 162           get_source_by_ssrc), NULL, NULL, g_cclosure_marshal_generic,
 163       RTP_TYPE_SOURCE, 1, G_TYPE_UINT);
 164
 165   /**
 166    * RTPSession::on-new-ssrc:
 167    * @session: the object which received the signal
 168    * @src: the new RTPSource
 169    *
 170    * Notify of a new SSRC that entered @session.
 171    */
 172   rtp_session_signals[SIGNAL_ON_NEW_SSRC] =
 173       g_signal_new ("on-new-ssrc", G_TYPE_FROM_CLASS (klass),
 174       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_new_ssrc),
 175       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 176       RTP_TYPE_SOURCE);
 177   /**
 178    * RTPSession::on-ssrc-collision:
 179    * @session: the object which received the signal
 180    * @src: the #RTPSource that caused a collision
 181    *
 182    * Notify when we have an SSRC collision
 183    */
 184   rtp_session_signals[SIGNAL_ON_SSRC_COLLISION] =
 185       g_signal_new ("on-ssrc-collision", G_TYPE_FROM_CLASS (klass),
 186       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_ssrc_collision),
 187       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 188       RTP_TYPE_SOURCE);
 189   /**
 190    * RTPSession::on-ssrc-validated:
 191    * @session: the object which received the signal
 192    * @src: the new validated RTPSource
 193    *
 194    * Notify of a new SSRC that became validated.
 195    */
 196   rtp_session_signals[SIGNAL_ON_SSRC_VALIDATED] =
 197       g_signal_new ("on-ssrc-validated", G_TYPE_FROM_CLASS (klass),
 198       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_ssrc_validated),
 199       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 200       RTP_TYPE_SOURCE);
 201   /**
 202    * RTPSession::on-ssrc-active:
 203    * @session: the object which received the signal
 204    * @src: the active RTPSource
 205    *
 206    * Notify of a SSRC that is active, i.e., sending RTCP.
 207    */
 208   rtp_session_signals[SIGNAL_ON_SSRC_ACTIVE] =
 209       g_signal_new ("on-ssrc-active", G_TYPE_FROM_CLASS (klass),
 210       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_ssrc_active),
 211       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 212       RTP_TYPE_SOURCE);
 213   /**
 214    * RTPSession::on-ssrc-sdes:
 215    * @session: the object which received the signal
 216    * @src: the RTPSource
 217    *
 218    * Notify that a new SDES was received for SSRC.
 219    */
 220   rtp_session_signals[SIGNAL_ON_SSRC_SDES] =
 221       g_signal_new ("on-ssrc-sdes", G_TYPE_FROM_CLASS (klass),
 222       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_ssrc_sdes),
 223       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 224       RTP_TYPE_SOURCE);
 225   /**
 226    * RTPSession::on-bye-ssrc:
 227    * @session: the object which received the signal
 228    * @src: the RTPSource that went away
 229    *
 230    * Notify of an SSRC that became inactive because of a BYE packet.
 231    */
 232   rtp_session_signals[SIGNAL_ON_BYE_SSRC] =
 233       g_signal_new ("on-bye-ssrc", G_TYPE_FROM_CLASS (klass),
 234       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_bye_ssrc),
 235       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 236       RTP_TYPE_SOURCE);
 237   /**
 238    * RTPSession::on-bye-timeout:
 239    * @session: the object which received the signal
 240    * @src: the RTPSource that timed out
 241    *
 242    * Notify of an SSRC that has timed out because of BYE
 243    */
 244   rtp_session_signals[SIGNAL_ON_BYE_TIMEOUT] =
 245       g_signal_new ("on-bye-timeout", G_TYPE_FROM_CLASS (klass),
 246       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_bye_timeout),
 247       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 248       RTP_TYPE_SOURCE);
 249   /**
 250    * RTPSession::on-timeout:
 251    * @session: the object which received the signal
 252    * @src: the RTPSource that timed out
 253    *
 254    * Notify of an SSRC that has timed out
 255    */
 256   rtp_session_signals[SIGNAL_ON_TIMEOUT] =
 257       g_signal_new ("on-timeout", G_TYPE_FROM_CLASS (klass),
 258       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_timeout),
 259       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 260       RTP_TYPE_SOURCE);
 261   /**
 262    * RTPSession::on-sender-timeout:
 263    * @session: the object which received the signal
 264    * @src: the RTPSource that timed out
 265    *
 266    * Notify of an SSRC that was a sender but timed out and became a receiver.
 267    */
 268   rtp_session_signals[SIGNAL_ON_SENDER_TIMEOUT] =
 269       g_signal_new ("on-sender-timeout", G_TYPE_FROM_CLASS (klass),
 270       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_sender_timeout),
 271       NULL, NULL, g_cclosure_marshal_VOID__OBJECT, G_TYPE_NONE, 1,
 272       RTP_TYPE_SOURCE);
 273
 274   /**
 275    * RTPSession::on-sending-rtcp
 276    * @session: the object which received the signal
 277    * @buffer: the #GstBuffer containing the RTCP packet about to be sent
 278    * @early: %TRUE if the packet is early, %FALSE if it is regular
 279    *
 280    * This signal is emitted before sending an RTCP packet, it can be used
 281    * to add extra RTCP Packets.
 282    *
 283    * Returns: %TRUE if the RTCP buffer should NOT be suppressed, %FALSE
 284    * if suppressing it is acceptable
 285    */
 286   rtp_session_signals[SIGNAL_ON_SENDING_RTCP] =
 287       g_signal_new ("on-sending-rtcp", G_TYPE_FROM_CLASS (klass),
 288       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_sending_rtcp),
 289       accumulate_trues, NULL, g_cclosure_marshal_generic, G_TYPE_BOOLEAN, 2,
 290       GST_TYPE_BUFFER | G_SIGNAL_TYPE_STATIC_SCOPE, G_TYPE_BOOLEAN);
 291
 292   /**
 293    * RTPSession::on-feedback-rtcp:
 294    * @session: the object which received the signal
 295    * @type: Type of RTCP packet, will be %GST_RTCP_TYPE_RTPFB or
 296    *  %GST_RTCP_TYPE_RTPFB
 297    * @fbtype: The type of RTCP FB packet, probably part of #GstRTCPFBType
 298    * @sender_ssrc: The SSRC of the sender
 299    * @media_ssrc: The SSRC of the media this refers to
 300    * @fci: a #GstBuffer with the FCI data from the FB packet or %NULL if
 301    * there was no FCI
 302    *
 303    * Notify that a RTCP feedback packet has been received
 304    */
 305   rtp_session_signals[SIGNAL_ON_FEEDBACK_RTCP] =
 306       g_signal_new ("on-feedback-rtcp", G_TYPE_FROM_CLASS (klass),
 307       G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (RTPSessionClass, on_feedback_rtcp),
 308       NULL, NULL, g_cclosure_marshal_generic, G_TYPE_NONE, 5, G_TYPE_UINT,
 309       G_TYPE_UINT, G_TYPE_UINT, G_TYPE_UINT, GST_TYPE_BUFFER);
 310
 311   /**
 312    * RTPSession::send-rtcp:
 313    * @session: the object which received the signal
 314    * @max_delay: The maximum delay after which the feedback will not be useful
 315    *  anymore
 316    *
 317    * Requests that the #RTPSession initiate a new RTCP packet as soon as
 318    * possible within the requested delay.
 319    */
 320   rtp_session_signals[SIGNAL_SEND_RTCP] =
 321       g_signal_new ("send-rtcp", G_TYPE_FROM_CLASS (klass),
 322       G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION,
 323       G_STRUCT_OFFSET (RTPSessionClass, send_rtcp), NULL, NULL,
 324       g_cclosure_marshal_generic, G_TYPE_NONE, 1, G_TYPE_UINT64);
 325
 326   g_object_class_install_property (gobject_class, PROP_INTERNAL_SSRC,
 327       g_param_spec_uint ("internal-ssrc", "Internal SSRC",
 328           "The internal SSRC used for the session (deprecated)",
 329           0, G_MAXUINT, 0, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 330
 331   g_object_class_install_property (gobject_class, PROP_INTERNAL_SOURCE,
 332       g_param_spec_object ("internal-source", "Internal Source",
 333           "The internal source element of the session (deprecated)",
 334           RTP_TYPE_SOURCE, G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
 335
 336   g_object_class_install_property (gobject_class, PROP_BANDWIDTH,
 337       g_param_spec_double ("bandwidth", "Bandwidth",
 338           "The bandwidth of the session (0 for auto-discover)",
 339           0.0, G_MAXDOUBLE, DEFAULT_BANDWIDTH,
 340           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 341
 342   g_object_class_install_property (gobject_class, PROP_RTCP_FRACTION,
 343       g_param_spec_double ("rtcp-fraction", "RTCP Fraction",
 344           "The fraction of the bandwidth used for RTCP (or as a real fraction of the RTP bandwidth if < 1)",
 345           0.0, G_MAXDOUBLE, DEFAULT_RTCP_FRACTION,
 346           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 347
 348   g_object_class_install_property (gobject_class, PROP_RTCP_RR_BANDWIDTH,
 349       g_param_spec_int ("rtcp-rr-bandwidth", "RTCP RR bandwidth",
 350           "The RTCP bandwidth used for receivers in bytes per second (-1 = default)",
 351           -1, G_MAXINT, DEFAULT_RTCP_RR_BANDWIDTH,
 352           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 353
 354   g_object_class_install_property (gobject_class, PROP_RTCP_RS_BANDWIDTH,
 355       g_param_spec_int ("rtcp-rs-bandwidth", "RTCP RS bandwidth",
 356           "The RTCP bandwidth used for senders in bytes per second (-1 = default)",
 357           -1, G_MAXINT, DEFAULT_RTCP_RS_BANDWIDTH,
 358           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 359
 360   g_object_class_install_property (gobject_class, PROP_RTCP_MTU,
 361       g_param_spec_uint ("rtcp-mtu", "RTCP MTU",
 362           "The maximum size of the RTCP packets",
 363           16, G_MAXINT16, DEFAULT_RTCP_MTU,
 364           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 365
 366   g_object_class_install_property (gobject_class, PROP_SDES,
 367       g_param_spec_boxed ("sdes", "SDES",
 368           "The SDES items of this session",
 369           GST_TYPE_STRUCTURE, G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 370
 371   g_object_class_install_property (gobject_class, PROP_NUM_SOURCES,
 372       g_param_spec_uint ("num-sources", "Num Sources",
 373           "The number of sources in the session", 0, G_MAXUINT,
 374           DEFAULT_NUM_SOURCES, G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
 375
 376   g_object_class_install_property (gobject_class, PROP_NUM_ACTIVE_SOURCES,
 377       g_param_spec_uint ("num-active-sources", "Num Active Sources",
 378           "The number of active sources in the session", 0, G_MAXUINT,
 379           DEFAULT_NUM_ACTIVE_SOURCES,
 380           G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
 381   /**
 382    * RTPSource::sources
 383    *
 384    * Get a GValue Array of all sources in the session.
 385    *
 386    * <example>
 387    * <title>Getting the #RTPSources of a session
 388    * <programlisting>
 389    * {
 390    *   GValueArray *arr;
 391    *   GValue *val;
 392    *   guint i;
 393    *
 394    *   g_object_get (sess, "sources", &arr, NULL);
 395    *
 396    *   for (i = 0; i < arr->n_values; i++) {
 397    *     RTPSource *source;
 398    *
 399    *     val = g_value_array_get_nth (arr, i);
 400    *     source = g_value_get_object (val);
 401    *   }
 402    *   g_value_array_free (arr);
 403    * }
 404    * </programlisting>
 405    * </example>
 406    */
 407   g_object_class_install_property (gobject_class, PROP_SOURCES,
 408       g_param_spec_boxed ("sources", "Sources",
 409           "An array of all known sources in the session",
 410           G_TYPE_VALUE_ARRAY, G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
 411
 412   g_object_class_install_property (gobject_class, PROP_FAVOR_NEW,
 413       g_param_spec_boolean ("favor-new", "Favor new sources",
 414           "Resolve SSRC conflict in favor of new sources", FALSE,
 415           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 416
 417   g_object_class_install_property (gobject_class, PROP_RTCP_MIN_INTERVAL,
 418       g_param_spec_uint64 ("rtcp-min-interval", "Minimum RTCP interval",
 419           "Minimum interval between Regular RTCP packet (in ns)",
 420           0, G_MAXUINT64, DEFAULT_RTCP_MIN_INTERVAL,
 421           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 422
 423   g_object_class_install_property (gobject_class,
 424       PROP_RTCP_FEEDBACK_RETENTION_WINDOW,
 425       g_param_spec_uint64 ("rtcp-feedback-retention-window",
 426           "RTCP Feedback retention window",
 427           "Duration during which RTCP Feedback packets are retained (in ns)",
 428           0, G_MAXUINT64, DEFAULT_RTCP_FEEDBACK_RETENTION_WINDOW,
 429           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 430
 431   g_object_class_install_property (gobject_class,
 432       PROP_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD,
 433       g_param_spec_uint ("rtcp-immediate-feedback-threshold",
 434           "RTCP Immediate Feedback threshold",
 435           "The maximum number of members of a RTP session for which immediate"
 436           " feedback is used",
 437           0, G_MAXUINT, DEFAULT_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD,
 438           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 439
 440   g_object_class_install_property (gobject_class, PROP_PROBATION,
 441       g_param_spec_uint ("probation", "Number of probations",
 442           "Consecutive packet sequence numbers to accept the source",
 443           0, G_MAXUINT, DEFAULT_PROBATION,
 444           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 445
 446   /**
 447    * RTPSession::stats:
 448    *
 449    * Various session statistics. This property returns a GstStructure
 450    * with name application/x-rtp-session-stats with the following fields:
 451    *
 452    *  "rtx-drop-count"  G_TYPE_UINT   The number of retransmission events
 453    *      dropped (due to bandwidth constraints)
 454    *  "sent-nack-count" G_TYPE_UINT   Number of NACKs sent
 455    *  "recv-nack-count" G_TYPE_UINT   Number of NACKs received
 456    *
 457    * Since: 1.4
 458    */
 459   g_object_class_install_property (gobject_class, PROP_STATS,
 460       g_param_spec_boxed ("stats", "Statistics",
 461           "Various statistics", GST_TYPE_STRUCTURE,
 462           G_PARAM_READABLE | G_PARAM_STATIC_STRINGS));
 463
 464   klass->get_source_by_ssrc =
 465       GST_DEBUG_FUNCPTR (rtp_session_get_source_by_ssrc);
 466   klass->send_rtcp = GST_DEBUG_FUNCPTR (rtp_session_send_rtcp);
 467
 468   GST_DEBUG_CATEGORY_INIT (rtp_session_debug, "rtpsession", 0, "RTP Session");
 469 }
 470
 471 static void
 472 rtp_session_init (RTPSession * sess)
 473 {
 474   gint i;
 475   gchar *str;
 476
 477   g_mutex_init (&sess->lock);
 478   sess->key = g_random_int ();
 479   sess->mask_idx = 0;
 480   sess->mask = 0;
 481
 482   for (i = 0; i < 32; i++) {
 483     sess->ssrcs[i] =
 484         g_hash_table_new_full (NULL, NULL, NULL,
 485         (GDestroyNotify) g_object_unref);
 486   }
 487
 488   rtp_stats_init_defaults (&sess->stats);
 489   INIT_AVG (sess->stats.avg_rtcp_packet_size, 100);
 490   rtp_stats_set_min_interval (&sess->stats,
 491       (gdouble) DEFAULT_RTCP_MIN_INTERVAL / GST_SECOND);
 492
 493   sess->recalc_bandwidth = TRUE;
 494   sess->bandwidth = DEFAULT_BANDWIDTH;
 495   sess->rtcp_bandwidth = DEFAULT_RTCP_FRACTION;
 496   sess->rtcp_rr_bandwidth = DEFAULT_RTCP_RR_BANDWIDTH;
 497   sess->rtcp_rs_bandwidth = DEFAULT_RTCP_RS_BANDWIDTH;
 498
 499   /* default UDP header length */
 500   sess->header_len = 28;
 501   sess->mtu = DEFAULT_RTCP_MTU;
 502
 503   sess->probation = DEFAULT_PROBATION;
 504
 505   /* some default SDES entries */
 506   sess->sdes = gst_structure_new_empty ("application/x-rtp-source-sdes");
 507
 508   /* we do not want to leak details like the username or hostname here */
 509   str = g_strdup_printf ("user%u@host-%x", g_random_int (), g_random_int ());
 510   gst_structure_set (sess->sdes, "cname", G_TYPE_STRING, str, NULL);
 511   g_free (str);
 512
 513 #if 0
 514   /* we do not want to leak the user's real name here */
 515   str = g_strdup_printf ("Anon%u", g_random_int ());
 516   gst_structure_set (sdes, "name", G_TYPE_STRING, str, NULL);
 517   g_free (str);
 518 #endif
 519
 520   gst_structure_set (sess->sdes, "tool", G_TYPE_STRING, "GStreamer", NULL);
 521
 522   /* this is the SSRC we suggest */
 523   sess->suggested_ssrc = rtp_session_create_new_ssrc (sess);
 524
 525   sess->first_rtcp = TRUE;
 526   sess->next_rtcp_check_time = GST_CLOCK_TIME_NONE;
 527
 528   sess->allow_early = TRUE;
 529   sess->next_early_rtcp_time = GST_CLOCK_TIME_NONE;
 530   sess->rtcp_feedback_retention_window = DEFAULT_RTCP_FEEDBACK_RETENTION_WINDOW;
 531   sess->rtcp_immediate_feedback_threshold =
 532       DEFAULT_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD;
 533
 534   sess->last_keyframe_request = GST_CLOCK_TIME_NONE;
 535
 536   sess->is_doing_ptp = TRUE;
 537 }
 538
 539 static void
 540 rtp_session_finalize (GObject * object)
 541 {
 542   RTPSession *sess;
 543   gint i;
 544
 545   sess = RTP_SESSION_CAST (object);
 546
 547   gst_structure_free (sess->sdes);
 548
 549   for (i = 0; i < 32; i++)
 550     g_hash_table_destroy (sess->ssrcs[i]);
 551
 552   g_mutex_clear (&sess->lock);
 553
 554   G_OBJECT_CLASS (rtp_session_parent_class)->finalize (object);
 555 }
 556
 557 static void
 558 copy_source (gpointer key, RTPSource * source, GValueArray * arr)
 559 {
 560   GValue value = { 0 };
 561
 562   g_value_init (&value, RTP_TYPE_SOURCE);
 563   g_value_take_object (&value, source);
 564   /* copies the value */
 565   g_value_array_append (arr, &value);
 566 }
 567
 568 static GValueArray *
 569 rtp_session_create_sources (RTPSession * sess)
 570 {
 571   GValueArray *res;
 572   guint size;
 573
 574   RTP_SESSION_LOCK (sess);
 575   /* get number of elements in the table */
 576   size = g_hash_table_size (sess->ssrcs[sess->mask_idx]);
 577   /* create the result value array */
 578   res = g_value_array_new (size);
 579
 580   /* and copy all values into the array */
 581   g_hash_table_foreach (sess->ssrcs[sess->mask_idx], (GHFunc) copy_source, res);
 582   RTP_SESSION_UNLOCK (sess);
 583
 584   return res;
 585 }
 586
 587 static GstStructure *
 588 rtp_session_create_stats (RTPSession * sess)
 589 {
 590   GstStructure *s;
 591
 592   s = gst_structure_new ("application/x-rtp-session-stats",
 593       "rtx-drop-count", G_TYPE_UINT, sess->stats.nacks_dropped,
 594       "sent-nack-count", G_TYPE_UINT, sess->stats.nacks_sent,
 595       "recv-nack-count", G_TYPE_UINT, sess->stats.nacks_received, NULL);
 596
 597   return s;
 598 }
 599
 600 static void
 601 rtp_session_set_property (GObject * object, guint prop_id,
 602     const GValue * value, GParamSpec * pspec)
 603 {
 604   RTPSession *sess;
 605
 606   sess = RTP_SESSION (object);
 607
 608   switch (prop_id) {
 609     case PROP_INTERNAL_SSRC:
 610       break;
 611     case PROP_BANDWIDTH:
 612       RTP_SESSION_LOCK (sess);
 613       sess->bandwidth = g_value_get_double (value);
 614       sess->recalc_bandwidth = TRUE;
 615       RTP_SESSION_UNLOCK (sess);
 616       break;
 617     case PROP_RTCP_FRACTION:
 618       RTP_SESSION_LOCK (sess);
 619       sess->rtcp_bandwidth = g_value_get_double (value);
 620       sess->recalc_bandwidth = TRUE;
 621       RTP_SESSION_UNLOCK (sess);
 622       break;
 623     case PROP_RTCP_RR_BANDWIDTH:
 624       RTP_SESSION_LOCK (sess);
 625       sess->rtcp_rr_bandwidth = g_value_get_int (value);
 626       sess->recalc_bandwidth = TRUE;
 627       RTP_SESSION_UNLOCK (sess);
 628       break;
 629     case PROP_RTCP_RS_BANDWIDTH:
 630       RTP_SESSION_LOCK (sess);
 631       sess->rtcp_rs_bandwidth = g_value_get_int (value);
 632       sess->recalc_bandwidth = TRUE;
 633       RTP_SESSION_UNLOCK (sess);
 634       break;
 635     case PROP_RTCP_MTU:
 636       sess->mtu = g_value_get_uint (value);
 637       break;
 638     case PROP_SDES:
 639       rtp_session_set_sdes_struct (sess, g_value_get_boxed (value));
 640       break;
 641     case PROP_FAVOR_NEW:
 642       sess->favor_new = g_value_get_boolean (value);
 643       break;
 644     case PROP_RTCP_MIN_INTERVAL:
 645       rtp_stats_set_min_interval (&sess->stats,
 646           (gdouble) g_value_get_uint64 (value) / GST_SECOND);
 647       /* trigger reconsideration */
 648       RTP_SESSION_LOCK (sess);
 649       sess->next_rtcp_check_time = 0;
 650       RTP_SESSION_UNLOCK (sess);
 651       if (sess->callbacks.reconsider)
 652         sess->callbacks.reconsider (sess, sess->reconsider_user_data);
 653       break;
 654     case PROP_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD:
 655       sess->rtcp_immediate_feedback_threshold = g_value_get_uint (value);
 656       break;
 657     case PROP_PROBATION:
 658       sess->probation = g_value_get_uint (value);
 659       break;
 660     default:
 661       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 662       break;
 663   }
 664 }
 665
 666 static void
 667 rtp_session_get_property (GObject * object, guint prop_id,
 668     GValue * value, GParamSpec * pspec)
 669 {
 670   RTPSession *sess;
 671
 672   sess = RTP_SESSION (object);
 673
 674   switch (prop_id) {
 675     case PROP_INTERNAL_SSRC:
 676       g_value_set_uint (value, rtp_session_suggest_ssrc (sess));
 677       break;
 678     case PROP_INTERNAL_SOURCE:
 679       /* FIXME, return a random source */
 680       g_value_set_object (value, NULL);
 681       break;
 682     case PROP_BANDWIDTH:
 683       g_value_set_double (value, sess->bandwidth);
 684       break;
 685     case PROP_RTCP_FRACTION:
 686       g_value_set_double (value, sess->rtcp_bandwidth);
 687       break;
 688     case PROP_RTCP_RR_BANDWIDTH:
 689       g_value_set_int (value, sess->rtcp_rr_bandwidth);
 690       break;
 691     case PROP_RTCP_RS_BANDWIDTH:
 692       g_value_set_int (value, sess->rtcp_rs_bandwidth);
 693       break;
 694     case PROP_RTCP_MTU:
 695       g_value_set_uint (value, sess->mtu);
 696       break;
 697     case PROP_SDES:
 698       g_value_take_boxed (value, rtp_session_get_sdes_struct (sess));
 699       break;
 700     case PROP_NUM_SOURCES:
 701       g_value_set_uint (value, rtp_session_get_num_sources (sess));
 702       break;
 703     case PROP_NUM_ACTIVE_SOURCES:
 704       g_value_set_uint (value, rtp_session_get_num_active_sources (sess));
 705       break;
 706     case PROP_SOURCES:
 707       g_value_take_boxed (value, rtp_session_create_sources (sess));
 708       break;
 709     case PROP_FAVOR_NEW:
 710       g_value_set_boolean (value, sess->favor_new);
 711       break;
 712     case PROP_RTCP_MIN_INTERVAL:
 713       g_value_set_uint64 (value, sess->stats.min_interval * GST_SECOND);
 714       break;
 715     case PROP_RTCP_IMMEDIATE_FEEDBACK_THRESHOLD:
 716       g_value_set_uint (value, sess->rtcp_immediate_feedback_threshold);
 717       break;
 718     case PROP_PROBATION:
 719       g_value_set_uint (value, sess->probation);
 720       break;
 721     case PROP_STATS:
 722       g_value_take_boxed (value, rtp_session_create_stats (sess));
 723       break;
 724     default:
 725       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 726       break;
 727   }
 728 }
 729
 730 static void
 731 on_new_ssrc (RTPSession * sess, RTPSource * source)
 732 {
 733   g_object_ref (source);
 734   RTP_SESSION_UNLOCK (sess);
 735   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_NEW_SSRC], 0, source);
 736   RTP_SESSION_LOCK (sess);
 737   g_object_unref (source);
 738 }
 739
 740 static void
 741 on_ssrc_collision (RTPSession * sess, RTPSource * source)
 742 {
 743   g_object_ref (source);
 744   RTP_SESSION_UNLOCK (sess);
 745   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_SSRC_COLLISION], 0,
 746       source);
 747   RTP_SESSION_LOCK (sess);
 748   g_object_unref (source);
 749 }
 750
 751 static void
 752 on_ssrc_validated (RTPSession * sess, RTPSource * source)
 753 {
 754   g_object_ref (source);
 755   RTP_SESSION_UNLOCK (sess);
 756   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_SSRC_VALIDATED], 0,
 757       source);
 758   RTP_SESSION_LOCK (sess);
 759   g_object_unref (source);
 760 }
 761
 762 static void
 763 on_ssrc_active (RTPSession * sess, RTPSource * source)
 764 {
 765   g_object_ref (source);
 766   RTP_SESSION_UNLOCK (sess);
 767   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_SSRC_ACTIVE], 0, source);
 768   RTP_SESSION_LOCK (sess);
 769   g_object_unref (source);
 770 }
 771
 772 static void
 773 on_ssrc_sdes (RTPSession * sess, RTPSource * source)
 774 {
 775   g_object_ref (source);
 776   GST_DEBUG ("SDES changed for SSRC %08x", source->ssrc);
 777   RTP_SESSION_UNLOCK (sess);
 778   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_SSRC_SDES], 0, source);
 779   RTP_SESSION_LOCK (sess);
 780   g_object_unref (source);
 781 }
 782
 783 static void
 784 on_bye_ssrc (RTPSession * sess, RTPSource * source)
 785 {
 786   g_object_ref (source);
 787   RTP_SESSION_UNLOCK (sess);
 788   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_BYE_SSRC], 0, source);
 789   RTP_SESSION_LOCK (sess);
 790   g_object_unref (source);
 791 }
 792
 793 static void
 794 on_bye_timeout (RTPSession * sess, RTPSource * source)
 795 {
 796   g_object_ref (source);
 797   RTP_SESSION_UNLOCK (sess);
 798   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_BYE_TIMEOUT], 0, source);
 799   RTP_SESSION_LOCK (sess);
 800   g_object_unref (source);
 801 }
 802
 803 static void
 804 on_timeout (RTPSession * sess, RTPSource * source)
 805 {
 806   g_object_ref (source);
 807   RTP_SESSION_UNLOCK (sess);
 808   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_TIMEOUT], 0, source);
 809   RTP_SESSION_LOCK (sess);
 810   g_object_unref (source);
 811 }
 812
 813 static void
 814 on_sender_timeout (RTPSession * sess, RTPSource * source)
 815 {
 816   g_object_ref (source);
 817   RTP_SESSION_UNLOCK (sess);
 818   g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_SENDER_TIMEOUT], 0,
 819       source);
 820   RTP_SESSION_LOCK (sess);
 821   g_object_unref (source);
 822 }
 823
 824 /**
 825  * rtp_session_new:
 826  *
 827  * Create a new session object.
 828  *
 829  * Returns: a new #RTPSession. g_object_unref() after usage.
 830  */
 831 RTPSession *
 832 rtp_session_new (void)
 833 {
 834   RTPSession *sess;
 835
 836   sess = g_object_new (RTP_TYPE_SESSION, NULL);
 837
 838   return sess;
 839 }
 840
 841 /**
 842  * rtp_session_set_callbacks:
 843  * @sess: an #RTPSession
 844  * @callbacks: callbacks to configure
 845  * @user_data: user data passed in the callbacks
 846  *
 847  * Configure a set of callbacks to be notified of actions.
 848  */
 849 void
 850 rtp_session_set_callbacks (RTPSession * sess, RTPSessionCallbacks * callbacks,
 851     gpointer user_data)
 852 {
 853   g_return_if_fail (RTP_IS_SESSION (sess));
 854
 855   if (callbacks->process_rtp) {
 856     sess->callbacks.process_rtp = callbacks->process_rtp;
 857     sess->process_rtp_user_data = user_data;
 858   }
 859   if (callbacks->send_rtp) {
 860     sess->callbacks.send_rtp = callbacks->send_rtp;
 861     sess->send_rtp_user_data = user_data;
 862   }
 863   if (callbacks->send_rtcp) {
 864     sess->callbacks.send_rtcp = callbacks->send_rtcp;
 865     sess->send_rtcp_user_data = user_data;
 866   }
 867   if (callbacks->sync_rtcp) {
 868     sess->callbacks.sync_rtcp = callbacks->sync_rtcp;
 869     sess->sync_rtcp_user_data = user_data;
 870   }
 871   if (callbacks->clock_rate) {
 872     sess->callbacks.clock_rate = callbacks->clock_rate;
 873     sess->clock_rate_user_data = user_data;
 874   }
 875   if (callbacks->reconsider) {
 876     sess->callbacks.reconsider = callbacks->reconsider;
 877     sess->reconsider_user_data = user_data;
 878   }
 879   if (callbacks->request_key_unit) {
 880     sess->callbacks.request_key_unit = callbacks->request_key_unit;
 881     sess->request_key_unit_user_data = user_data;
 882   }
 883   if (callbacks->request_time) {
 884     sess->callbacks.request_time = callbacks->request_time;
 885     sess->request_time_user_data = user_data;
 886   }
 887   if (callbacks->notify_nack) {
 888     sess->callbacks.notify_nack = callbacks->notify_nack;
 889     sess->notify_nack_user_data = user_data;
 890   }
 891 }
 892
 893 /**
 894  * rtp_session_set_process_rtp_callback:
 895  * @sess: an #RTPSession
 896  * @callback: callback to set
 897  * @user_data: user data passed in the callback
 898  *
 899  * Configure only the process_rtp callback to be notified of the process_rtp action.
 900  */
 901 void
 902 rtp_session_set_process_rtp_callback (RTPSession * sess,
 903     RTPSessionProcessRTP callback, gpointer user_data)
 904 {
 905   g_return_if_fail (RTP_IS_SESSION (sess));
 906
 907   sess->callbacks.process_rtp = callback;
 908   sess->process_rtp_user_data = user_data;
 909 }
 910
 911 /**
 912  * rtp_session_set_send_rtp_callback:
 913  * @sess: an #RTPSession
 914  * @callback: callback to set
 915  * @user_data: user data passed in the callback
 916  *
 917  * Configure only the send_rtp callback to be notified of the send_rtp action.
 918  */
 919 void
 920 rtp_session_set_send_rtp_callback (RTPSession * sess,
 921     RTPSessionSendRTP callback, gpointer user_data)
 922 {
 923   g_return_if_fail (RTP_IS_SESSION (sess));
 924
 925   sess->callbacks.send_rtp = callback;
 926   sess->send_rtp_user_data = user_data;
 927 }
 928
 929 /**
 930  * rtp_session_set_send_rtcp_callback:
 931  * @sess: an #RTPSession
 932  * @callback: callback to set
 933  * @user_data: user data passed in the callback
 934  *
 935  * Configure only the send_rtcp callback to be notified of the send_rtcp action.
 936  */
 937 void
 938 rtp_session_set_send_rtcp_callback (RTPSession * sess,
 939     RTPSessionSendRTCP callback, gpointer user_data)
 940 {
 941   g_return_if_fail (RTP_IS_SESSION (sess));
 942
 943   sess->callbacks.send_rtcp = callback;
 944   sess->send_rtcp_user_data = user_data;
 945 }
 946
 947 /**
 948  * rtp_session_set_sync_rtcp_callback:
 949  * @sess: an #RTPSession
 950  * @callback: callback to set
 951  * @user_data: user data passed in the callback
 952  *
 953  * Configure only the sync_rtcp callback to be notified of the sync_rtcp action.
 954  */
 955 void
 956 rtp_session_set_sync_rtcp_callback (RTPSession * sess,
 957     RTPSessionSyncRTCP callback, gpointer user_data)
 958 {
 959   g_return_if_fail (RTP_IS_SESSION (sess));
 960
 961   sess->callbacks.sync_rtcp = callback;
 962   sess->sync_rtcp_user_data = user_data;
 963 }
 964
 965 /**
 966  * rtp_session_set_clock_rate_callback:
 967  * @sess: an #RTPSession
 968  * @callback: callback to set
 969  * @user_data: user data passed in the callback
 970  *
 971  * Configure only the clock_rate callback to be notified of the clock_rate action.
 972  */
 973 void
 974 rtp_session_set_clock_rate_callback (RTPSession * sess,
 975     RTPSessionClockRate callback, gpointer user_data)
 976 {
 977   g_return_if_fail (RTP_IS_SESSION (sess));
 978
 979   sess->callbacks.clock_rate = callback;
 980   sess->clock_rate_user_data = user_data;
 981 }
 982
 983 /**
 984  * rtp_session_set_reconsider_callback:
 985  * @sess: an #RTPSession
 986  * @callback: callback to set
 987  * @user_data: user data passed in the callback
 988  *
 989  * Configure only the reconsider callback to be notified of the reconsider action.
 990  */
 991 void
 992 rtp_session_set_reconsider_callback (RTPSession * sess,
 993     RTPSessionReconsider callback, gpointer user_data)
 994 {
 995   g_return_if_fail (RTP_IS_SESSION (sess));
 996
 997   sess->callbacks.reconsider = callback;
 998   sess->reconsider_user_data = user_data;
 999 }
1000
1001 /**
1002  * rtp_session_set_request_time_callback:
1003  * @sess: an #RTPSession
1004  * @callback: callback to set
1005  * @user_data: user data passed in the callback
1006  *
1007  * Configure only the request_time callback
1008  */
1009 void
1010 rtp_session_set_request_time_callback (RTPSession * sess,
1011     RTPSessionRequestTime callback, gpointer user_data)
1012 {
1013   g_return_if_fail (RTP_IS_SESSION (sess));
1014
1015   sess->callbacks.request_time = callback;
1016   sess->request_time_user_data = user_data;
1017 }
1018
1019 /**
1020  * rtp_session_set_bandwidth:
1021  * @sess: an #RTPSession
1022  * @bandwidth: the bandwidth allocated
1023  *
1024  * Set the session bandwidth in bytes per second.
1025  */
1026 void
1027 rtp_session_set_bandwidth (RTPSession * sess, gdouble bandwidth)
1028 {
1029   g_return_if_fail (RTP_IS_SESSION (sess));
1030
1031   RTP_SESSION_LOCK (sess);
1032   sess->stats.bandwidth = bandwidth;
1033   RTP_SESSION_UNLOCK (sess);
1034 }
1035
1036 /**
1037  * rtp_session_get_bandwidth:
1038  * @sess: an #RTPSession
1039  *
1040  * Get the session bandwidth.
1041  *
1042  * Returns: the session bandwidth.
1043  */
1044 gdouble
1045 rtp_session_get_bandwidth (RTPSession * sess)
1046 {
1047   gdouble result;
1048
1049   g_return_val_if_fail (RTP_IS_SESSION (sess), 0);
1050
1051   RTP_SESSION_LOCK (sess);
1052   result = sess->stats.bandwidth;
1053   RTP_SESSION_UNLOCK (sess);
1054
1055   return result;
1056 }
1057
1058 /**
1059  * rtp_session_set_rtcp_fraction:
1060  * @sess: an #RTPSession
1061  * @bandwidth: the RTCP bandwidth
1062  *
1063  * Set the bandwidth in bytes per second that should be used for RTCP
1064  * messages.
1065  */
1066 void
1067 rtp_session_set_rtcp_fraction (RTPSession * sess, gdouble bandwidth)
1068 {
1069   g_return_if_fail (RTP_IS_SESSION (sess));
1070
1071   RTP_SESSION_LOCK (sess);
1072   sess->stats.rtcp_bandwidth = bandwidth;
1073   RTP_SESSION_UNLOCK (sess);
1074 }
1075
1076 /**
1077  * rtp_session_get_rtcp_fraction:
1078  * @sess: an #RTPSession
1079  *
1080  * Get the session bandwidth used for RTCP.
1081  *
1082  * Returns: The bandwidth used for RTCP messages.
1083  */
1084 gdouble
1085 rtp_session_get_rtcp_fraction (RTPSession * sess)
1086 {
1087   gdouble result;
1088
1089   g_return_val_if_fail (RTP_IS_SESSION (sess), 0.0);
1090
1091   RTP_SESSION_LOCK (sess);
1092   result = sess->stats.rtcp_bandwidth;
1093   RTP_SESSION_UNLOCK (sess);
1094
1095   return result;
1096 }
1097
1098 /**
1099  * rtp_session_get_sdes_struct:
1100  * @sess: an #RTSPSession
1101  *
1102  * Get the SDES data as a #GstStructure
1103  *
1104  * Returns: a GstStructure with SDES items for @sess. This function returns a
1105  * copy of the SDES structure, use gst_structure_free() after usage.
1106  */
1107 GstStructure *
1108 rtp_session_get_sdes_struct (RTPSession * sess)
1109 {
1110   GstStructure *result = NULL;
1111
1112   g_return_val_if_fail (RTP_IS_SESSION (sess), NULL);
1113
1114   RTP_SESSION_LOCK (sess);
1115   if (sess->sdes)
1116     result = gst_structure_copy (sess->sdes);
1117   RTP_SESSION_UNLOCK (sess);
1118
1119   return result;
1120 }
1121
1122 /**
1123  * rtp_session_set_sdes_struct:
1124  * @sess: an #RTSPSession
1125  * @sdes: a #GstStructure
1126  *
1127  * Set the SDES data as a #GstStructure. This function makes a copy of @sdes.
1128  */
1129 void
1130 rtp_session_set_sdes_struct (RTPSession * sess, const GstStructure * sdes)
1131 {
1132   g_return_if_fail (sdes);
1133   g_return_if_fail (RTP_IS_SESSION (sess));
1134
1135   RTP_SESSION_LOCK (sess);
1136   if (sess->sdes)
1137     gst_structure_free (sess->sdes);
1138   sess->sdes = gst_structure_copy (sdes);
1139   RTP_SESSION_UNLOCK (sess);
1140 }
1141
1142 static GstFlowReturn
1143 source_push_rtp (RTPSource * source, gpointer data, RTPSession * session)
1144 {
1145   GstFlowReturn result = GST_FLOW_OK;
1146
1147   if (source->internal) {
1148     GST_LOG ("source %08x pushed sender RTP packet", source->ssrc);
1149
1150     RTP_SESSION_UNLOCK (session);
1151
1152     if (session->callbacks.send_rtp)
1153       result =
1154           session->callbacks.send_rtp (session, source, data,
1155           session->send_rtp_user_data);
1156     else {
1157       gst_mini_object_unref (GST_MINI_OBJECT_CAST (data));
1158     }
1159   } else {
1160     GST_LOG ("source %08x pushed receiver RTP packet", source->ssrc);
1161     RTP_SESSION_UNLOCK (session);
1162
1163     if (session->callbacks.process_rtp)
1164       result =
1165           session->callbacks.process_rtp (session, source,
1166           GST_BUFFER_CAST (data), session->process_rtp_user_data);
1167     else
1168       gst_buffer_unref (GST_BUFFER_CAST (data));
1169   }
1170   RTP_SESSION_LOCK (session);
1171
1172   return result;
1173 }
1174
1175 static gint
1176 source_clock_rate (RTPSource * source, guint8 pt, RTPSession * session)
1177 {
1178   gint result;
1179
1180   RTP_SESSION_UNLOCK (session);
1181
1182   if (session->callbacks.clock_rate)
1183     result =
1184         session->callbacks.clock_rate (session, pt,
1185         session->clock_rate_user_data);
1186   else
1187     result = -1;
1188
1189   RTP_SESSION_LOCK (session);
1190
1191   GST_DEBUG ("got clock-rate %d for pt %d", result, pt);
1192
1193   return result;
1194 }
1195
1196 static RTPSourceCallbacks callbacks = {
1197   (RTPSourcePushRTP) source_push_rtp,
1198   (RTPSourceClockRate) source_clock_rate,
1199 };
1200
1201 static gboolean
1202 check_collision (RTPSession * sess, RTPSource * source,
1203     RTPPacketInfo * pinfo, gboolean rtp)
1204 {
1205   guint32 ssrc;
1206
1207   /* If we have no pinfo address, we can't do collision checking */
1208   if (!pinfo->address)
1209     return FALSE;
1210
1211   ssrc = rtp_source_get_ssrc (source);
1212
1213   if (!source->internal) {
1214     GSocketAddress *from;
1215
1216     /* This is not our local source, but lets check if two remote
1217      * source collide */
1218     if (rtp) {
1219       from = source->rtp_from;
1220     } else {
1221       from = source->rtcp_from;
1222     }
1223
1224     if (from) {
1225       if (__g_socket_address_equal (from, pinfo->address)) {
1226         /* Address is the same */
1227         return FALSE;
1228       } else {
1229         GST_LOG ("we have a third-party collision or loop ssrc:%x", ssrc);
1230         if (sess->favor_new) {
1231           if (rtp_source_find_conflicting_address (source,
1232                   pinfo->address, pinfo->current_time)) {
1233             gchar *buf1;
1234
1235             buf1 = __g_socket_address_to_string (pinfo->address);
1236             GST_LOG ("Known conflict on %x for %s, dropping packet", ssrc,
1237                 buf1);
1238             g_free (buf1);
1239
1240             return TRUE;
1241           } else {
1242             gchar *buf1, *buf2;
1243
1244             /* Current address is not a known conflict, lets assume this is
1245              * a new source. Save old address in possible conflict list
1246              */
1247             rtp_source_add_conflicting_address (source, from,
1248                 pinfo->current_time);
1249
1250             buf1 = __g_socket_address_to_string (from);
1251             buf2 = __g_socket_address_to_string (pinfo->address);
1252
1253             GST_DEBUG ("New conflict for ssrc %x, replacing %s with %s,"
1254                 " saving old as known conflict", ssrc, buf1, buf2);
1255
1256             if (rtp)
1257               rtp_source_set_rtp_from (source, pinfo->address);
1258             else
1259               rtp_source_set_rtcp_from (source, pinfo->address);
1260
1261             g_free (buf1);
1262             g_free (buf2);
1263
1264             return FALSE;
1265           }
1266         } else {
1267           /* Don't need to save old addresses, we ignore new sources */
1268           return TRUE;
1269         }
1270       }
1271     } else {
1272       /* We don't already have a from address for RTP, just set it */
1273       if (rtp)
1274         rtp_source_set_rtp_from (source, pinfo->address);
1275       else
1276         rtp_source_set_rtcp_from (source, pinfo->address);
1277       return FALSE;
1278     }
1279
1280     /* FIXME: Log 3rd party collision somehow
1281      * Maybe should be done in upper layer, only the SDES can tell us
1282      * if its a collision or a loop
1283      */
1284   } else {
1285     /* This is sending with our ssrc, is it an address we already know */
1286     if (rtp_source_find_conflicting_address (source, pinfo->address,
1287             pinfo->current_time)) {
1288       /* Its a known conflict, its probably a loop, not a collision
1289        * lets just drop the incoming packet
1290        */
1291       GST_DEBUG ("Our packets are being looped back to us, dropping");
1292     } else {
1293       /* Its a new collision, lets change our SSRC */
1294       rtp_source_add_conflicting_address (source, pinfo->address,
1295           pinfo->current_time);
1296
1297       GST_DEBUG ("Collision for SSRC %x", ssrc);
1298       /* mark the source BYE */
1299       rtp_source_mark_bye (source, "SSRC Collision");
1300       /* if we were suggesting this SSRC, change to something else */
1301       if (sess->suggested_ssrc == ssrc)
1302         sess->suggested_ssrc = rtp_session_create_new_ssrc (sess);
1303
1304       on_ssrc_collision (sess, source);
1305
1306       rtp_session_schedule_bye_locked (sess, pinfo->current_time);
1307     }
1308   }
1309
1310   return TRUE;
1311 }
1312
1313 typedef struct
1314 {
1315   gboolean is_doing_ptp;
1316   GSocketAddress *new_addr;
1317 } CompareAddrData;
1318
1319 /* check if the two given ip addr are the same (do not care about the port) */
1320 static gboolean
1321 ip_addr_equal (GSocketAddress * a, GSocketAddress * b)
1322 {
1323   return
1324       g_inet_address_equal (g_inet_socket_address_get_address
1325       (G_INET_SOCKET_ADDRESS (a)),
1326       g_inet_socket_address_get_address (G_INET_SOCKET_ADDRESS (b)));
1327 }
1328
1329 static void
1330 compare_rtp_source_addr (const gchar * key, RTPSource * source,
1331     CompareAddrData * data)
1332 {
1333   /* only compare ip addr of remote sources which are also not closing */
1334   if (!source->internal && !source->closing && source->rtp_from) {
1335     /* look for the first rtp source */
1336     if (!data->new_addr)
1337       data->new_addr = source->rtp_from;
1338     /* compare current ip addr with the first one */
1339     else
1340       data->is_doing_ptp &= ip_addr_equal (data->new_addr, source->rtp_from);
1341   }
1342 }
1343
1344 static void
1345 compare_rtcp_source_addr (const gchar * key, RTPSource * source,
1346     CompareAddrData * data)
1347 {
1348   /* only compare ip addr of remote sources which are also not closing */
1349   if (!source->internal && !source->closing && source->rtcp_from) {
1350     /* look for the first rtcp source */
1351     if (!data->new_addr)
1352       data->new_addr = source->rtcp_from;
1353     else
1354       /* compare current ip addr with the first one */
1355       data->is_doing_ptp &= ip_addr_equal (data->new_addr, source->rtcp_from);
1356   }
1357 }
1358
1359 /* loop over our non-internal source to know if the session
1360  * is doing point-to-point */
1361 static void
1362 session_update_ptp (RTPSession * sess)
1363 {
1364   /* to know if the session is doing point to point, the ip addr
1365    * of each non-internal (=remotes) source have to be compared
1366    * to each other.
1367    */
1368   gboolean is_doing_rtp_ptp = FALSE;
1369   gboolean is_doing_rtcp_ptp = FALSE;
1370   CompareAddrData data;
1371
1372   /* compare the first remote source's ip addr that receive rtp packets
1373    * with other remote rtp source.
1374    * it's enough because the session just needs to know if they are all
1375    * equals or not
1376    */
1377   data.is_doing_ptp = TRUE;
1378   data.new_addr = NULL;
1379   g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
1380       (GHFunc) compare_rtp_source_addr, (gpointer) & data);
1381   is_doing_rtp_ptp = data.is_doing_ptp;
1382
1383   /* same but about rtcp */
1384   data.is_doing_ptp = TRUE;
1385   data.new_addr = NULL;
1386   g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
1387       (GHFunc) compare_rtcp_source_addr, (gpointer) & data);
1388   is_doing_rtcp_ptp = data.is_doing_ptp;
1389
1390   /* the session is doing point-to-point if all rtp remote have the same
1391    * ip addr and if all rtcp remote sources have the same ip addr */
1392   sess->is_doing_ptp = is_doing_rtp_ptp && is_doing_rtcp_ptp;
1393
1394   GST_DEBUG ("doing point-to-point: %d", sess->is_doing_ptp);
1395 }
1396
1397 static void
1398 add_source (RTPSession * sess, RTPSource * src)
1399 {
1400   g_hash_table_insert (sess->ssrcs[sess->mask_idx],
1401       GINT_TO_POINTER (src->ssrc), src);
1402   /* report the new source ASAP */
1403   src->generation = sess->generation;
1404   /* we have one more source now */
1405   sess->total_sources++;
1406   if (RTP_SOURCE_IS_ACTIVE (src))
1407     sess->stats.active_sources++;
1408   if (src->internal) {
1409     sess->stats.internal_sources++;
1410     if (sess->suggested_ssrc != src->ssrc)
1411       sess->suggested_ssrc = src->ssrc;
1412   }
1413
1414   /* update point-to-point status */
1415   if (!src->internal)
1416     session_update_ptp (sess);
1417 }
1418
1419 static RTPSource *
1420 find_source (RTPSession * sess, guint32 ssrc)
1421 {
1422   return g_hash_table_lookup (sess->ssrcs[sess->mask_idx],
1423       GINT_TO_POINTER (ssrc));
1424 }
1425
1426 /* must be called with the session lock, the returned source needs to be
1427  * unreffed after usage. */
1428 static RTPSource *
1429 obtain_source (RTPSession * sess, guint32 ssrc, gboolean * created,
1430     RTPPacketInfo * pinfo, gboolean rtp)
1431 {
1432   RTPSource *source;
1433
1434   source = find_source (sess, ssrc);
1435   if (source == NULL) {
1436     /* make new Source in probation and insert */
1437     source = rtp_source_new (ssrc);
1438
1439     GST_DEBUG ("creating new source %08x %p", ssrc, source);
1440
1441     /* for RTP packets we need to set the source in probation. Receiving RTCP
1442      * packets of an SSRC, on the other hand, is a strong indication that we
1443      * are dealing with a valid source. */
1444     if (rtp)
1445       g_object_set (source, "probation", sess->probation, NULL);
1446     else
1447       g_object_set (source, "probation", 0, NULL);
1448
1449     /* store from address, if any */
1450     if (pinfo->address) {
1451       if (rtp)
1452         rtp_source_set_rtp_from (source, pinfo->address);
1453       else
1454         rtp_source_set_rtcp_from (source, pinfo->address);
1455     }
1456
1457     /* configure a callback on the source */
1458     rtp_source_set_callbacks (source, &callbacks, sess);
1459
1460     add_source (sess, source);
1461     *created = TRUE;
1462   } else {
1463     *created = FALSE;
1464     /* check for collision, this updates the address when not previously set */
1465     if (check_collision (sess, source, pinfo, rtp)) {
1466       return NULL;
1467     }
1468     /* Receiving RTCP packets of an SSRC is a strong indication that we
1469      * are dealing with a valid source. */
1470     if (!rtp)
1471       g_object_set (source, "probation", 0, NULL);
1472   }
1473   /* update last activity */
1474   source->last_activity = pinfo->current_time;
1475   if (rtp)
1476     source->last_rtp_activity = pinfo->current_time;
1477   g_object_ref (source);
1478
1479   return source;
1480 }
1481
1482 /* must be called with the session lock, the returned source needs to be
1483  * unreffed after usage. */
1484 static RTPSource *
1485 obtain_internal_source (RTPSession * sess, guint32 ssrc, gboolean * created)
1486 {
1487   RTPSource *source;
1488
1489   source = find_source (sess, ssrc);
1490   if (source == NULL) {
1491     /* make new internal Source and insert */
1492     source = rtp_source_new (ssrc);
1493
1494     GST_DEBUG ("creating new internal source %08x %p", ssrc, source);
1495
1496     source->validated = TRUE;
1497     source->internal = TRUE;
1498     source->probation = FALSE;
1499     rtp_source_set_sdes_struct (source, gst_structure_copy (sess->sdes));
1500     rtp_source_set_callbacks (source, &callbacks, sess);
1501
1502     add_source (sess, source);
1503     *created = TRUE;
1504   } else {
1505     *created = FALSE;
1506   }
1507   g_object_ref (source);
1508
1509   return source;
1510 }
1511
1512 /**
1513  * rtp_session_suggest_ssrc:
1514  * @sess: a #RTPSession
1515  *
1516  * Suggest an unused SSRC in @sess.
1517  *
1518  * Returns: a free unused SSRC
1519  */
1520 guint32
1521 rtp_session_suggest_ssrc (RTPSession * sess)
1522 {
1523   guint32 result;
1524
1525   g_return_val_if_fail (RTP_IS_SESSION (sess), 0);
1526
1527   RTP_SESSION_LOCK (sess);
1528   result = sess->suggested_ssrc;
1529   RTP_SESSION_UNLOCK (sess);
1530
1531   return result;
1532 }
1533
1534 /**
1535  * rtp_session_add_source:
1536  * @sess: a #RTPSession
1537  * @src: #RTPSource to add
1538  *
1539  * Add @src to @session.
1540  *
1541  * Returns: %TRUE on success, %FALSE if a source with the same SSRC already
1542  * existed in the session.
1543  */
1544 gboolean
1545 rtp_session_add_source (RTPSession * sess, RTPSource * src)
1546 {
1547   gboolean result = FALSE;
1548   RTPSource *find;
1549
1550   g_return_val_if_fail (RTP_IS_SESSION (sess), FALSE);
1551   g_return_val_if_fail (src != NULL, FALSE);
1552
1553   RTP_SESSION_LOCK (sess);
1554   find = find_source (sess, src->ssrc);
1555   if (find == NULL) {
1556     add_source (sess, src);
1557     result = TRUE;
1558   }
1559   RTP_SESSION_UNLOCK (sess);
1560
1561   return result;
1562 }
1563
1564 /**
1565  * rtp_session_get_num_sources:
1566  * @sess: an #RTPSession
1567  *
1568  * Get the number of sources in @sess.
1569  *
1570  * Returns: The number of sources in @sess.
1571  */
1572 guint
1573 rtp_session_get_num_sources (RTPSession * sess)
1574 {
1575   guint result;
1576
1577   g_return_val_if_fail (RTP_IS_SESSION (sess), FALSE);
1578
1579   RTP_SESSION_LOCK (sess);
1580   result = sess->total_sources;
1581   RTP_SESSION_UNLOCK (sess);
1582
1583   return result;
1584 }
1585
1586 /**
1587  * rtp_session_get_num_active_sources:
1588  * @sess: an #RTPSession
1589  *
1590  * Get the number of active sources in @sess. A source is considered active when
1591  * it has been validated and has not yet received a BYE RTCP message.
1592  *
1593  * Returns: The number of active sources in @sess.
1594  */
1595 guint
1596 rtp_session_get_num_active_sources (RTPSession * sess)
1597 {
1598   guint result;
1599
1600   g_return_val_if_fail (RTP_IS_SESSION (sess), 0);
1601
1602   RTP_SESSION_LOCK (sess);
1603   result = sess->stats.active_sources;
1604   RTP_SESSION_UNLOCK (sess);
1605
1606   return result;
1607 }
1608
1609 /**
1610  * rtp_session_get_source_by_ssrc:
1611  * @sess: an #RTPSession
1612  * @ssrc: an SSRC
1613  *
1614  * Find the source with @ssrc in @sess.
1615  *
1616  * Returns: a #RTPSource with SSRC @ssrc or NULL if the source was not found.
1617  * g_object_unref() after usage.
1618  */
1619 RTPSource *
1620 rtp_session_get_source_by_ssrc (RTPSession * sess, guint32 ssrc)
1621 {
1622   RTPSource *result;
1623
1624   g_return_val_if_fail (RTP_IS_SESSION (sess), NULL);
1625
1626   RTP_SESSION_LOCK (sess);
1627   result = find_source (sess, ssrc);
1628   if (result)
1629     g_object_ref (result);
1630   RTP_SESSION_UNLOCK (sess);
1631
1632   return result;
1633 }
1634
1635 /* should be called with the SESSION lock */
1636 static guint32
1637 rtp_session_create_new_ssrc (RTPSession * sess)
1638 {
1639   guint32 ssrc;
1640
1641   while (TRUE) {
1642     ssrc = g_random_int ();
1643
1644     /* see if it exists in the session, we're done if it doesn't */
1645     if (find_source (sess, ssrc) == NULL)
1646       break;
1647   }
1648   return ssrc;
1649 }
1650
1651
1652 /**
1653  * rtp_session_create_source:
1654  * @sess: an #RTPSession
1655  *
1656  * Create an #RTPSource for use in @sess. This function will create a source
1657  * with an ssrc that is currently not used by any participants in the session.
1658  *
1659  * Returns: an #RTPSource.
1660  */
1661 RTPSource *
1662 rtp_session_create_source (RTPSession * sess)
1663 {
1664   guint32 ssrc;
1665   RTPSource *source;
1666
1667   RTP_SESSION_LOCK (sess);
1668   ssrc = rtp_session_create_new_ssrc (sess);
1669   source = rtp_source_new (ssrc);
1670   rtp_source_set_callbacks (source, &callbacks, sess);
1671   /* we need an additional ref for the source in the hashtable */
1672   g_object_ref (source);
1673   add_source (sess, source);
1674   RTP_SESSION_UNLOCK (sess);
1675
1676   return source;
1677 }
1678
1679 static gboolean
1680 update_packet (GstBuffer ** buffer, guint idx, RTPPacketInfo * pinfo)
1681 {
1682   GstNetAddressMeta *meta;
1683
1684   /* get packet size including header overhead */
1685   pinfo->bytes += gst_buffer_get_size (*buffer) + pinfo->header_len;
1686   pinfo->packets++;
1687
1688   if (pinfo->rtp) {
1689     GstRTPBuffer rtp = { NULL };
1690
1691     if (!gst_rtp_buffer_map (*buffer, GST_MAP_READ, &rtp))
1692       goto invalid_packet;
1693
1694     pinfo->payload_len += gst_rtp_buffer_get_payload_len (&rtp);
1695     if (idx == 0) {
1696       gint i;
1697
1698       /* only keep info for first buffer */
1699       pinfo->ssrc = gst_rtp_buffer_get_ssrc (&rtp);
1700       pinfo->seqnum = gst_rtp_buffer_get_seq (&rtp);
1701       pinfo->pt = gst_rtp_buffer_get_payload_type (&rtp);
1702       pinfo->rtptime = gst_rtp_buffer_get_timestamp (&rtp);
1703       /* copy available csrc */
1704       pinfo->csrc_count = gst_rtp_buffer_get_csrc_count (&rtp);
1705       for (i = 0; i < pinfo->csrc_count; i++)
1706         pinfo->csrcs[i] = gst_rtp_buffer_get_csrc (&rtp, i);
1707     }
1708     gst_rtp_buffer_unmap (&rtp);
1709   }
1710
1711   if (idx == 0) {
1712     /* for netbuffer we can store the IP address to check for collisions */
1713     meta = gst_buffer_get_net_address_meta (*buffer);
1714     if (pinfo->address)
1715       g_object_unref (pinfo->address);
1716     if (meta) {
1717       pinfo->address = G_SOCKET_ADDRESS (g_object_ref (meta->addr));
1718     } else {
1719       pinfo->address = NULL;
1720     }
1721   }
1722   return TRUE;
1723
1724   /* ERRORS */
1725 invalid_packet:
1726   {
1727     GST_DEBUG ("invalid RTP packet received");
1728     return FALSE;
1729   }
1730 }
1731
1732 /* update the RTPPacketInfo structure with the current time and other bits
1733  * about the current buffer we are handling.
1734  * This function is typically called when a validated packet is received.
1735  * This function should be called with the SESSION_LOCK
1736  */
1737 static gboolean
1738 update_packet_info (RTPSession * sess, RTPPacketInfo * pinfo,
1739     gboolean send, gboolean rtp, gboolean is_list, gpointer data,
1740     GstClockTime current_time, GstClockTime running_time, guint64 ntpnstime)
1741 {
1742   gboolean res;
1743
1744   pinfo->send = send;
1745   pinfo->rtp = rtp;
1746   pinfo->is_list = is_list;
1747   pinfo->data = data;
1748   pinfo->current_time = current_time;
1749   pinfo->running_time = running_time;
1750   pinfo->ntpnstime = ntpnstime;
1751   pinfo->header_len = sess->header_len;
1752   pinfo->bytes = 0;
1753   pinfo->payload_len = 0;
1754   pinfo->packets = 0;
1755
1756   if (is_list) {
1757     GstBufferList *list = GST_BUFFER_LIST_CAST (data);
1758     res =
1759         gst_buffer_list_foreach (list, (GstBufferListFunc) update_packet,
1760         pinfo);
1761   } else {
1762     GstBuffer *buffer = GST_BUFFER_CAST (data);
1763     res = update_packet (&buffer, 0, pinfo);
1764   }
1765   return res;
1766 }
1767
1768 static void
1769 clean_packet_info (RTPPacketInfo * pinfo)
1770 {
1771   if (pinfo->address)
1772     g_object_unref (pinfo->address);
1773   if (pinfo->data) {
1774     gst_mini_object_unref (pinfo->data);
1775     pinfo->data = NULL;
1776   }
1777 }
1778
1779 static gboolean
1780 source_update_active (RTPSession * sess, RTPSource * source,
1781     gboolean prevactive)
1782 {
1783   gboolean active = RTP_SOURCE_IS_ACTIVE (source);
1784   guint32 ssrc = source->ssrc;
1785
1786   if (prevactive == active)
1787     return FALSE;
1788
1789   if (active) {
1790     sess->stats.active_sources++;
1791     GST_DEBUG ("source: %08x became active, %d active sources", ssrc,
1792         sess->stats.active_sources);
1793   } else {
1794     sess->stats.active_sources--;
1795     GST_DEBUG ("source: %08x became inactive, %d active sources", ssrc,
1796         sess->stats.active_sources);
1797   }
1798   return TRUE;
1799 }
1800
1801 static gboolean
1802 source_update_sender (RTPSession * sess, RTPSource * source,
1803     gboolean prevsender)
1804 {
1805   gboolean sender = RTP_SOURCE_IS_SENDER (source);
1806   guint32 ssrc = source->ssrc;
1807
1808   if (prevsender == sender)
1809     return FALSE;
1810
1811   if (sender) {
1812     sess->stats.sender_sources++;
1813     if (source->internal)
1814       sess->stats.internal_sender_sources++;
1815     GST_DEBUG ("source: %08x became sender, %d sender sources", ssrc,
1816         sess->stats.sender_sources);
1817   } else {
1818     sess->stats.sender_sources--;
1819     if (source->internal)
1820       sess->stats.internal_sender_sources--;
1821     GST_DEBUG ("source: %08x became non sender, %d sender sources", ssrc,
1822         sess->stats.sender_sources);
1823   }
1824   return TRUE;
1825 }
1826
1827 /**
1828  * rtp_session_process_rtp:
1829  * @sess: and #RTPSession
1830  * @buffer: an RTP buffer
1831  * @current_time: the current system time
1832  * @running_time: the running_time of @buffer
1833  *
1834  * Process an RTP buffer in the session manager. This function takes ownership
1835  * of @buffer.
1836  *
1837  * Returns: a #GstFlowReturn.
1838  */
1839 GstFlowReturn
1840 rtp_session_process_rtp (RTPSession * sess, GstBuffer * buffer,
1841     GstClockTime current_time, GstClockTime running_time, guint64 ntpnstime)
1842 {
1843   GstFlowReturn result;
1844   guint32 ssrc;
1845   RTPSource *source;
1846   gboolean created;
1847   gboolean prevsender, prevactive;
1848   RTPPacketInfo pinfo = { 0, };
1849   guint64 oldrate;
1850
1851   g_return_val_if_fail (RTP_IS_SESSION (sess), GST_FLOW_ERROR);
1852   g_return_val_if_fail (GST_IS_BUFFER (buffer), GST_FLOW_ERROR);
1853
1854   RTP_SESSION_LOCK (sess);
1855
1856   /* update pinfo stats */
1857   if (!update_packet_info (sess, &pinfo, FALSE, TRUE, FALSE, buffer,
1858           current_time, running_time, ntpnstime)) {
1859     GST_DEBUG ("invalid RTP packet received");
1860     RTP_SESSION_UNLOCK (sess);
1861     return rtp_session_process_rtcp (sess, buffer, current_time, ntpnstime);
1862   }
1863
1864   ssrc = pinfo.ssrc;
1865
1866   source = obtain_source (sess, ssrc, &created, &pinfo, TRUE);
1867   if (!source)
1868     goto collision;
1869
1870   prevsender = RTP_SOURCE_IS_SENDER (source);
1871   prevactive = RTP_SOURCE_IS_ACTIVE (source);
1872   oldrate = source->bitrate;
1873
1874   /* let source process the packet */
1875   result = rtp_source_process_rtp (source, &pinfo);
1876
1877   /* source became active */
1878   if (source_update_active (sess, source, prevactive))
1879     on_ssrc_validated (sess, source);
1880
1881   source_update_sender (sess, source, prevsender);
1882
1883   if (oldrate != source->bitrate)
1884     sess->recalc_bandwidth = TRUE;
1885
1886   if (created)
1887     on_new_ssrc (sess, source);
1888
1889   if (source->validated) {
1890     gboolean created;
1891     gint i;
1892
1893     /* for validated sources, we add the CSRCs as well */
1894     for (i = 0; i < pinfo.csrc_count; i++) {
1895       guint32 csrc;
1896       RTPSource *csrc_src;
1897
1898       csrc = pinfo.csrcs[i];
1899
1900       /* get source */
1901       csrc_src = obtain_source (sess, csrc, &created, &pinfo, TRUE);
1902       if (!csrc_src)
1903         continue;
1904
1905       if (created) {
1906         GST_DEBUG ("created new CSRC: %08x", csrc);
1907         rtp_source_set_as_csrc (csrc_src);
1908         source_update_active (sess, csrc_src, FALSE);
1909         on_new_ssrc (sess, csrc_src);
1910       }
1911       g_object_unref (csrc_src);
1912     }
1913   }
1914   g_object_unref (source);
1915
1916   RTP_SESSION_UNLOCK (sess);
1917
1918   clean_packet_info (&pinfo);
1919
1920   return result;
1921
1922   /* ERRORS */
1923 collision:
1924   {
1925     RTP_SESSION_UNLOCK (sess);
1926     clean_packet_info (&pinfo);
1927     GST_DEBUG ("ignoring packet because its collisioning");
1928     return GST_FLOW_OK;
1929   }
1930 }
1931
1932 static void
1933 rtp_session_process_rb (RTPSession * sess, RTPSource * source,
1934     GstRTCPPacket * packet, RTPPacketInfo * pinfo)
1935 {
1936   guint count, i;
1937
1938   count = gst_rtcp_packet_get_rb_count (packet);
1939   for (i = 0; i < count; i++) {
1940     guint32 ssrc, exthighestseq, jitter, lsr, dlsr;
1941     guint8 fractionlost;
1942     gint32 packetslost;
1943     RTPSource *src;
1944
1945     gst_rtcp_packet_get_rb (packet, i, &ssrc, &fractionlost,
1946         &packetslost, &exthighestseq, &jitter, &lsr, &dlsr);
1947
1948     GST_DEBUG ("RB %d: SSRC %08x, jitter %" G_GUINT32_FORMAT, i, ssrc, jitter);
1949
1950     /* find our own source */
1951     src = find_source (sess, ssrc);
1952     if (src == NULL)
1953       continue;
1954
1955     if (src->internal && RTP_SOURCE_IS_ACTIVE (src)) {
1956       /* only deal with report blocks for our session, we update the stats of
1957        * the sender of the RTCP message. We could also compare our stats against
1958        * the other sender to see if we are better or worse. */
1959       /* FIXME, need to keep track who the RB block is from */
1960       rtp_source_process_rb (source, pinfo->ntpnstime, fractionlost,
1961           packetslost, exthighestseq, jitter, lsr, dlsr);
1962     }
1963   }
1964   on_ssrc_active (sess, source);
1965 }
1966
1967 /* A Sender report contains statistics about how the sender is doing. This
1968  * includes timing informataion such as the relation between RTP and NTP
1969  * timestamps and the number of packets/bytes it sent to us.
1970  *
1971  * In this report is also included a set of report blocks related to how this
1972  * sender is receiving data (in case we (or somebody else) is also sending stuff
1973  * to it). This info includes the packet loss, jitter and seqnum. It also
1974  * contains information to calculate the round trip time (LSR/DLSR).
1975  */
1976 static void
1977 rtp_session_process_sr (RTPSession * sess, GstRTCPPacket * packet,
1978     RTPPacketInfo * pinfo, gboolean * do_sync)
1979 {
1980   guint32 senderssrc, rtptime, packet_count, octet_count;
1981   guint64 ntptime;
1982   RTPSource *source;
1983   gboolean created, prevsender;
1984
1985   gst_rtcp_packet_sr_get_sender_info (packet, &senderssrc, &ntptime, &rtptime,
1986       &packet_count, &octet_count);
1987
1988   GST_DEBUG ("got SR packet: SSRC %08x, time %" GST_TIME_FORMAT,
1989       senderssrc, GST_TIME_ARGS (pinfo->current_time));
1990
1991   source = obtain_source (sess, senderssrc, &created, pinfo, FALSE);
1992   if (!source)
1993     return;
1994
1995   /* skip non-bye packets for sources that are marked BYE */
1996   if (sess->scheduled_bye && RTP_SOURCE_IS_MARKED_BYE (source))
1997     goto out;
1998
1999   /* don't try to do lip-sync for sources that sent a BYE */
2000   if (RTP_SOURCE_IS_MARKED_BYE (source))
2001     *do_sync = FALSE;
2002   else
2003     *do_sync = TRUE;
2004
2005   prevsender = RTP_SOURCE_IS_SENDER (source);
2006
2007   /* first update the source */
2008   rtp_source_process_sr (source, pinfo->current_time, ntptime, rtptime,
2009       packet_count, octet_count);
2010
2011   source_update_sender (sess, source, prevsender);
2012
2013   if (created)
2014     on_new_ssrc (sess, source);
2015
2016   rtp_session_process_rb (sess, source, packet, pinfo);
2017
2018 out:
2019   g_object_unref (source);
2020 }
2021
2022 /* A receiver report contains statistics about how a receiver is doing. It
2023  * includes stuff like packet loss, jitter and the seqnum it received last. It
2024  * also contains info to calculate the round trip time.
2025  *
2026  * We are only interested in how the sender of this report is doing wrt to us.
2027  */
2028 static void
2029 rtp_session_process_rr (RTPSession * sess, GstRTCPPacket * packet,
2030     RTPPacketInfo * pinfo)
2031 {
2032   guint32 senderssrc;
2033   RTPSource *source;
2034   gboolean created;
2035
2036   senderssrc = gst_rtcp_packet_rr_get_ssrc (packet);
2037
2038   GST_DEBUG ("got RR packet: SSRC %08x", senderssrc);
2039
2040   source = obtain_source (sess, senderssrc, &created, pinfo, FALSE);
2041   if (!source)
2042     return;
2043
2044   /* skip non-bye packets for sources that are marked BYE */
2045   if (sess->scheduled_bye && RTP_SOURCE_IS_MARKED_BYE (source))
2046     goto out;
2047
2048   if (created)
2049     on_new_ssrc (sess, source);
2050
2051   rtp_session_process_rb (sess, source, packet, pinfo);
2052
2053 out:
2054   g_object_unref (source);
2055 }
2056
2057 /* Get SDES items and store them in the SSRC */
2058 static void
2059 rtp_session_process_sdes (RTPSession * sess, GstRTCPPacket * packet,
2060     RTPPacketInfo * pinfo)
2061 {
2062   guint items, i, j;
2063   gboolean more_items, more_entries;
2064
2065   items = gst_rtcp_packet_sdes_get_item_count (packet);
2066   GST_DEBUG ("got SDES packet with %d items", items);
2067
2068   more_items = gst_rtcp_packet_sdes_first_item (packet);
2069   i = 0;
2070   while (more_items) {
2071     guint32 ssrc;
2072     gboolean changed, created, prevactive;
2073     RTPSource *source;
2074     GstStructure *sdes;
2075
2076     ssrc = gst_rtcp_packet_sdes_get_ssrc (packet);
2077
2078     GST_DEBUG ("item %d, SSRC %08x", i, ssrc);
2079
2080     changed = FALSE;
2081
2082     /* find src, no probation when dealing with RTCP */
2083     source = obtain_source (sess, ssrc, &created, pinfo, FALSE);
2084     if (!source)
2085       return;
2086
2087     /* skip non-bye packets for sources that are marked BYE */
2088     if (sess->scheduled_bye && RTP_SOURCE_IS_MARKED_BYE (source))
2089       goto next;
2090
2091     sdes = gst_structure_new_empty ("application/x-rtp-source-sdes");
2092
2093     more_entries = gst_rtcp_packet_sdes_first_entry (packet);
2094     j = 0;
2095     while (more_entries) {
2096       GstRTCPSDESType type;
2097       guint8 len;
2098       guint8 *data;
2099       gchar *name;
2100       gchar *value;
2101
2102       gst_rtcp_packet_sdes_get_entry (packet, &type, &len, &data);
2103
2104       GST_DEBUG ("entry %d, type %d, len %d, data %.*s", j, type, len, len,
2105           data);
2106
2107       if (type == GST_RTCP_SDES_PRIV) {
2108         name = g_strndup ((const gchar *) &data[1], data[0]);
2109         len -= data[0] + 1;
2110         data += data[0] + 1;
2111       } else {
2112         name = g_strdup (gst_rtcp_sdes_type_to_name (type));
2113       }
2114
2115       value = g_strndup ((const gchar *) data, len);
2116
2117       gst_structure_set (sdes, name, G_TYPE_STRING, value, NULL);
2118
2119       g_free (name);
2120       g_free (value);
2121
2122       more_entries = gst_rtcp_packet_sdes_next_entry (packet);
2123       j++;
2124     }
2125
2126     /* takes ownership of sdes */
2127     changed = rtp_source_set_sdes_struct (source, sdes);
2128
2129     prevactive = RTP_SOURCE_IS_ACTIVE (source);
2130     source->validated = TRUE;
2131
2132     if (created)
2133       on_new_ssrc (sess, source);
2134
2135     /* source became active */
2136     if (source_update_active (sess, source, prevactive))
2137       on_ssrc_validated (sess, source);
2138
2139     if (changed)
2140       on_ssrc_sdes (sess, source);
2141
2142   next:
2143     g_object_unref (source);
2144
2145     more_items = gst_rtcp_packet_sdes_next_item (packet);
2146     i++;
2147   }
2148 }
2149
2150 /* BYE is sent when a client leaves the session
2151  */
2152 static void
2153 rtp_session_process_bye (RTPSession * sess, GstRTCPPacket * packet,
2154     RTPPacketInfo * pinfo)
2155 {
2156   guint count, i;
2157   gchar *reason;
2158   gboolean reconsider = FALSE;
2159
2160   reason = gst_rtcp_packet_bye_get_reason (packet);
2161   GST_DEBUG ("got BYE packet (reason: %s)", GST_STR_NULL (reason));
2162
2163   count = gst_rtcp_packet_bye_get_ssrc_count (packet);
2164   for (i = 0; i < count; i++) {
2165     guint32 ssrc;
2166     RTPSource *source;
2167     gboolean created, prevactive, prevsender;
2168     guint pmembers, members;
2169
2170     ssrc = gst_rtcp_packet_bye_get_nth_ssrc (packet, i);
2171     GST_DEBUG ("SSRC: %08x", ssrc);
2172
2173     /* find src and mark bye, no probation when dealing with RTCP */
2174     source = obtain_source (sess, ssrc, &created, pinfo, FALSE);
2175     if (!source)
2176       return;
2177
2178     if (source->internal) {
2179       /* our own source, something weird with this packet */
2180       g_object_unref (source);
2181       continue;
2182     }
2183
2184     /* store time for when we need to time out this source */
2185     source->bye_time = pinfo->current_time;
2186
2187     prevactive = RTP_SOURCE_IS_ACTIVE (source);
2188     prevsender = RTP_SOURCE_IS_SENDER (source);
2189
2190     /* mark the source BYE */
2191     rtp_source_mark_bye (source, reason);
2192
2193     pmembers = sess->stats.active_sources;
2194
2195     source_update_active (sess, source, prevactive);
2196     source_update_sender (sess, source, prevsender);
2197
2198     members = sess->stats.active_sources;
2199
2200     if (!sess->scheduled_bye && members < pmembers) {
2201       /* some members went away since the previous timeout estimate.
2202        * Perform reverse reconsideration but only when we are not scheduling a
2203        * BYE ourselves. */
2204       if (sess->next_rtcp_check_time != GST_CLOCK_TIME_NONE &&
2205           pinfo->current_time < sess->next_rtcp_check_time) {
2206         GstClockTime time_remaining;
2207
2208         time_remaining = sess->next_rtcp_check_time - pinfo->current_time;
2209         sess->next_rtcp_check_time =
2210             gst_util_uint64_scale (time_remaining, members, pmembers);
2211
2212         GST_DEBUG ("reverse reconsideration %" GST_TIME_FORMAT,
2213             GST_TIME_ARGS (sess->next_rtcp_check_time));
2214
2215         sess->next_rtcp_check_time += pinfo->current_time;
2216
2217         /* mark pending reconsider. We only want to signal the reconsideration
2218          * once after we handled all the source in the bye packet */
2219         reconsider = TRUE;
2220       }
2221     }
2222
2223     if (created)
2224       on_new_ssrc (sess, source);
2225
2226     on_bye_ssrc (sess, source);
2227
2228     g_object_unref (source);
2229   }
2230   if (reconsider) {
2231     RTP_SESSION_UNLOCK (sess);
2232     /* notify app of reconsideration */
2233     if (sess->callbacks.reconsider)
2234       sess->callbacks.reconsider (sess, sess->reconsider_user_data);
2235     RTP_SESSION_LOCK (sess);
2236   }
2237   g_free (reason);
2238 }
2239
2240 static void
2241 rtp_session_process_app (RTPSession * sess, GstRTCPPacket * packet,
2242     RTPPacketInfo * pinfo)
2243 {
2244   GST_DEBUG ("received APP");
2245 }
2246
2247 static gboolean
2248 rtp_session_request_local_key_unit (RTPSession * sess, RTPSource * src,
2249     gboolean fir, GstClockTime current_time)
2250 {
2251   guint32 round_trip = 0;
2252
2253   rtp_source_get_last_rb (src, NULL, NULL, NULL, NULL, NULL, NULL, &round_trip);
2254
2255   if (sess->last_keyframe_request != GST_CLOCK_TIME_NONE && round_trip) {
2256     GstClockTime round_trip_in_ns = gst_util_uint64_scale (round_trip,
2257         GST_SECOND, 65536);
2258
2259     if (current_time - sess->last_keyframe_request < 2 * round_trip_in_ns) {
2260       GST_DEBUG ("Ignoring %s request because one was send without one "
2261           "RTT (%" GST_TIME_FORMAT " < %" GST_TIME_FORMAT ")",
2262           fir ? "FIR" : "PLI",
2263           GST_TIME_ARGS (current_time - sess->last_keyframe_request),
2264           GST_TIME_ARGS (round_trip_in_ns));;
2265       return FALSE;
2266     }
2267   }
2268
2269   sess->last_keyframe_request = current_time;
2270
2271   GST_LOG ("received %s request from %X %p(%p)", fir ? "FIR" : "PLI",
2272       rtp_source_get_ssrc (src), sess->callbacks.process_rtp,
2273       sess->callbacks.request_key_unit);
2274
2275   RTP_SESSION_UNLOCK (sess);
2276   sess->callbacks.request_key_unit (sess, fir,
2277       sess->request_key_unit_user_data);
2278   RTP_SESSION_LOCK (sess);
2279
2280   return TRUE;
2281 }
2282
2283 static void
2284 rtp_session_process_pli (RTPSession * sess, guint32 sender_ssrc,
2285     guint32 media_ssrc, GstClockTime current_time)
2286 {
2287   RTPSource *src;
2288
2289   if (!sess->callbacks.request_key_unit)
2290     return;
2291
2292   src = find_source (sess, sender_ssrc);
2293   if (!src)
2294     return;
2295
2296   rtp_session_request_local_key_unit (sess, src, FALSE, current_time);
2297 }
2298
2299 static void
2300 rtp_session_process_fir (RTPSession * sess, guint32 sender_ssrc,
2301     guint8 * fci_data, guint fci_length, GstClockTime current_time)
2302 {
2303   RTPSource *src;
2304   guint32 ssrc;
2305   guint position = 0;
2306   gboolean our_request = FALSE;
2307
2308   if (!sess->callbacks.request_key_unit)
2309     return;
2310
2311   if (fci_length < 8)
2312     return;
2313
2314   src = find_source (sess, sender_ssrc);
2315
2316   /* Hack because Google fails to set the sender_ssrc correctly */
2317   if (!src && sender_ssrc == 1) {
2318     GHashTableIter iter;
2319
2320     /* we can't find the source if there are multiple */
2321     if (sess->stats.sender_sources > sess->stats.internal_sender_sources + 1)
2322       return;
2323
2324     g_hash_table_iter_init (&iter, sess->ssrcs[sess->mask_idx]);
2325     while (g_hash_table_iter_next (&iter, NULL, (gpointer *) & src)) {
2326       if (!src->internal && rtp_source_is_sender (src))
2327         break;
2328       src = NULL;
2329     }
2330   }
2331   if (!src)
2332     return;
2333
2334   for (position = 0; position < fci_length; position += 8) {
2335     guint8 *data = fci_data + position;
2336     RTPSource *own;
2337
2338     ssrc = GST_READ_UINT32_BE (data);
2339
2340     own = find_source (sess, ssrc);
2341     if (own->internal) {
2342       our_request = TRUE;
2343       break;
2344     }
2345   }
2346   if (!our_request)
2347     return;
2348
2349   rtp_session_request_local_key_unit (sess, src, TRUE, current_time);
2350 }
2351
2352 static void
2353 rtp_session_process_nack (RTPSession * sess, guint32 sender_ssrc,
2354     guint32 media_ssrc, guint8 * fci_data, guint fci_length,
2355     GstClockTime current_time)
2356 {
2357   if (!sess->callbacks.notify_nack)
2358     return;
2359
2360   while (fci_length > 0) {
2361     guint16 seqnum, blp;
2362
2363     seqnum = GST_READ_UINT16_BE (fci_data);
2364     blp = GST_READ_UINT16_BE (fci_data + 2);
2365
2366     GST_DEBUG ("NACK #%u, blp %04x", seqnum, blp);
2367
2368     RTP_SESSION_UNLOCK (sess);
2369     sess->callbacks.notify_nack (sess, seqnum, blp,
2370         sess->notify_nack_user_data);
2371     RTP_SESSION_LOCK (sess);
2372
2373     fci_data += 4;
2374     fci_length -= 4;
2375   }
2376 }
2377
2378 static void
2379 rtp_session_process_feedback (RTPSession * sess, GstRTCPPacket * packet,
2380     RTPPacketInfo * pinfo, GstClockTime current_time)
2381 {
2382   GstRTCPType type = gst_rtcp_packet_get_type (packet);
2383   GstRTCPFBType fbtype = gst_rtcp_packet_fb_get_type (packet);
2384   guint32 sender_ssrc = gst_rtcp_packet_fb_get_sender_ssrc (packet);
2385   guint32 media_ssrc = gst_rtcp_packet_fb_get_media_ssrc (packet);
2386   guint8 *fci_data = gst_rtcp_packet_fb_get_fci (packet);
2387   guint fci_length = 4 * gst_rtcp_packet_fb_get_fci_length (packet);
2388   RTPSource *src;
2389
2390   src = find_source (sess, media_ssrc);
2391
2392   /* skip non-bye packets for sources that are marked BYE */
2393   if (sess->scheduled_bye && src && RTP_SOURCE_IS_MARKED_BYE (src))
2394     return;
2395
2396   GST_DEBUG ("received feedback %d:%d from %08X about %08X with FCI of "
2397       "length %d", type, fbtype, sender_ssrc, media_ssrc, fci_length);
2398
2399   sess->stats.nacks_received++;
2400
2401   if (g_signal_has_handler_pending (sess,
2402           rtp_session_signals[SIGNAL_ON_FEEDBACK_RTCP], 0, TRUE)) {
2403     GstBuffer *fci_buffer = NULL;
2404
2405     if (fci_length > 0) {
2406       fci_buffer = gst_buffer_copy_region (packet->rtcp->buffer,
2407           GST_BUFFER_COPY_MEMORY, fci_data - packet->rtcp->map.data,
2408           fci_length);
2409       GST_BUFFER_TIMESTAMP (fci_buffer) = pinfo->running_time;
2410     }
2411
2412     RTP_SESSION_UNLOCK (sess);
2413     g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_FEEDBACK_RTCP], 0,
2414         type, fbtype, sender_ssrc, media_ssrc, fci_buffer);
2415     RTP_SESSION_LOCK (sess);
2416
2417     if (fci_buffer)
2418       gst_buffer_unref (fci_buffer);
2419   }
2420
2421   if (!src)
2422     return;
2423
2424   if (sess->rtcp_feedback_retention_window) {
2425     rtp_source_retain_rtcp_packet (src, packet, pinfo->running_time);
2426   }
2427
2428   if (src->internal ||
2429       /* PSFB FIR puts the media ssrc inside the FCI */
2430       (type == GST_RTCP_TYPE_PSFB && fbtype == GST_RTCP_PSFB_TYPE_FIR)) {
2431     switch (type) {
2432       case GST_RTCP_TYPE_PSFB:
2433         switch (fbtype) {
2434           case GST_RTCP_PSFB_TYPE_PLI:
2435             rtp_session_process_pli (sess, sender_ssrc, media_ssrc,
2436                 current_time);
2437             break;
2438           case GST_RTCP_PSFB_TYPE_FIR:
2439             rtp_session_process_fir (sess, sender_ssrc, fci_data, fci_length,
2440                 current_time);
2441             break;
2442           default:
2443             break;
2444         }
2445         break;
2446       case GST_RTCP_TYPE_RTPFB:
2447         switch (fbtype) {
2448           case GST_RTCP_RTPFB_TYPE_NACK:
2449             rtp_session_process_nack (sess, sender_ssrc, media_ssrc,
2450                 fci_data, fci_length, current_time);
2451             break;
2452           default:
2453             break;
2454         }
2455       default:
2456         break;
2457     }
2458   }
2459 }
2460
2461 /**
2462  * rtp_session_process_rtcp:
2463  * @sess: and #RTPSession
2464  * @buffer: an RTCP buffer
2465  * @current_time: the current system time
2466  * @ntpnstime: the current NTP time in nanoseconds
2467  *
2468  * Process an RTCP buffer in the session manager. This function takes ownership
2469  * of @buffer.
2470  *
2471  * Returns: a #GstFlowReturn.
2472  */
2473 GstFlowReturn
2474 rtp_session_process_rtcp (RTPSession * sess, GstBuffer * buffer,
2475     GstClockTime current_time, guint64 ntpnstime)
2476 {
2477   GstRTCPPacket packet;
2478   gboolean more, is_bye = FALSE, do_sync = FALSE;
2479   RTPPacketInfo pinfo = { 0, };
2480   GstFlowReturn result = GST_FLOW_OK;
2481   GstRTCPBuffer rtcp = { NULL, };
2482
2483   g_return_val_if_fail (RTP_IS_SESSION (sess), GST_FLOW_ERROR);
2484   g_return_val_if_fail (GST_IS_BUFFER (buffer), GST_FLOW_ERROR);
2485
2486   if (!gst_rtcp_buffer_validate (buffer))
2487     goto invalid_packet;
2488
2489   GST_DEBUG ("received RTCP packet");
2490
2491   RTP_SESSION_LOCK (sess);
2492   /* update pinfo stats */
2493   update_packet_info (sess, &pinfo, FALSE, FALSE, FALSE, buffer, current_time,
2494       -1, ntpnstime);
2495
2496   /* start processing the compound packet */
2497   gst_rtcp_buffer_map (buffer, GST_MAP_READ, &rtcp);
2498   more = gst_rtcp_buffer_get_first_packet (&rtcp, &packet);
2499   while (more) {
2500     GstRTCPType type;
2501
2502     type = gst_rtcp_packet_get_type (&packet);
2503
2504     switch (type) {
2505       case GST_RTCP_TYPE_SR:
2506         rtp_session_process_sr (sess, &packet, &pinfo, &do_sync);
2507         break;
2508       case GST_RTCP_TYPE_RR:
2509         rtp_session_process_rr (sess, &packet, &pinfo);
2510         break;
2511       case GST_RTCP_TYPE_SDES:
2512         rtp_session_process_sdes (sess, &packet, &pinfo);
2513         break;
2514       case GST_RTCP_TYPE_BYE:
2515         is_bye = TRUE;
2516         /* don't try to attempt lip-sync anymore for streams with a BYE */
2517         do_sync = FALSE;
2518         rtp_session_process_bye (sess, &packet, &pinfo);
2519         break;
2520       case GST_RTCP_TYPE_APP:
2521         rtp_session_process_app (sess, &packet, &pinfo);
2522         break;
2523       case GST_RTCP_TYPE_RTPFB:
2524       case GST_RTCP_TYPE_PSFB:
2525         rtp_session_process_feedback (sess, &packet, &pinfo, current_time);
2526         break;
2527       default:
2528         GST_WARNING ("got unknown RTCP packet");
2529         break;
2530     }
2531     more = gst_rtcp_packet_move_to_next (&packet);
2532   }
2533
2534   gst_rtcp_buffer_unmap (&rtcp);
2535
2536   /* if we are scheduling a BYE, we only want to count bye packets, else we
2537    * count everything */
2538   if (sess->scheduled_bye && is_bye) {
2539     sess->bye_stats.bye_members++;
2540     UPDATE_AVG (sess->bye_stats.avg_rtcp_packet_size, pinfo.bytes);
2541   }
2542
2543   /* keep track of average packet size */
2544   UPDATE_AVG (sess->stats.avg_rtcp_packet_size, pinfo.bytes);
2545
2546   GST_DEBUG ("%p, received RTCP packet, avg size %u, %u", &sess->stats,
2547       sess->stats.avg_rtcp_packet_size, pinfo.bytes);
2548   RTP_SESSION_UNLOCK (sess);
2549
2550   pinfo.data = NULL;
2551   clean_packet_info (&pinfo);
2552
2553   /* notify caller of sr packets in the callback */
2554   if (do_sync && sess->callbacks.sync_rtcp) {
2555     result = sess->callbacks.sync_rtcp (sess, buffer,
2556         sess->sync_rtcp_user_data);
2557   } else
2558     gst_buffer_unref (buffer);
2559
2560   return result;
2561
2562   /* ERRORS */
2563 invalid_packet:
2564   {
2565     GST_DEBUG ("invalid RTCP packet received");
2566     gst_buffer_unref (buffer);
2567     return GST_FLOW_OK;
2568   }
2569 }
2570
2571 /**
2572  * rtp_session_update_send_caps:
2573  * @sess: an #RTPSession
2574  * @caps: a #GstCaps
2575  *
2576  * Update the caps of the sender in the rtp session.
2577  */
2578 void
2579 rtp_session_update_send_caps (RTPSession * sess, GstCaps * caps)
2580 {
2581   GstStructure *s;
2582   guint ssrc;
2583
2584   g_return_if_fail (RTP_IS_SESSION (sess));
2585   g_return_if_fail (GST_IS_CAPS (caps));
2586
2587   GST_LOG ("received caps %" GST_PTR_FORMAT, caps);
2588
2589   s = gst_caps_get_structure (caps, 0);
2590
2591   if (gst_structure_get_uint (s, "ssrc", &ssrc)) {
2592     RTPSource *source;
2593     gboolean created;
2594
2595     RTP_SESSION_LOCK (sess);
2596     source = obtain_internal_source (sess, ssrc, &created);
2597     if (source) {
2598       rtp_source_update_caps (source, caps);
2599       g_object_unref (source);
2600     }
2601     RTP_SESSION_UNLOCK (sess);
2602   }
2603 }
2604
2605 /**
2606  * rtp_session_send_rtp:
2607  * @sess: an #RTPSession
2608  * @data: pointer to either an RTP buffer or a list of RTP buffers
2609  * @is_list: TRUE when @data is a buffer list
2610  * @current_time: the current system time
2611  * @running_time: the running time of @data
2612  *
2613  * Send the RTP buffer in the session manager. This function takes ownership of
2614  * @buffer.
2615  *
2616  * Returns: a #GstFlowReturn.
2617  */
2618 GstFlowReturn
2619 rtp_session_send_rtp (RTPSession * sess, gpointer data, gboolean is_list,
2620     GstClockTime current_time, GstClockTime running_time)
2621 {
2622   GstFlowReturn result;
2623   RTPSource *source;
2624   gboolean prevsender;
2625   guint64 oldrate;
2626   RTPPacketInfo pinfo = { 0, };
2627   gboolean created;
2628
2629   g_return_val_if_fail (RTP_IS_SESSION (sess), GST_FLOW_ERROR);
2630   g_return_val_if_fail (is_list || GST_IS_BUFFER (data), GST_FLOW_ERROR);
2631
2632   GST_LOG ("received RTP %s for sending", is_list ? "list" : "packet");
2633
2634   RTP_SESSION_LOCK (sess);
2635   if (!update_packet_info (sess, &pinfo, TRUE, TRUE, is_list, data,
2636           current_time, running_time, -1))
2637     goto invalid_packet;
2638
2639   source = obtain_internal_source (sess, pinfo.ssrc, &created);
2640
2641   /* update last activity */
2642   source->last_rtp_activity = current_time;
2643
2644   prevsender = RTP_SOURCE_IS_SENDER (source);
2645   oldrate = source->bitrate;
2646
2647   /* we use our own source to send */
2648   result = rtp_source_send_rtp (source, &pinfo);
2649
2650   source_update_sender (sess, source, prevsender);
2651
2652   if (oldrate != source->bitrate)
2653     sess->recalc_bandwidth = TRUE;
2654   RTP_SESSION_UNLOCK (sess);
2655
2656   g_object_unref (source);
2657   clean_packet_info (&pinfo);
2658
2659   return result;
2660
2661 invalid_packet:
2662   {
2663     gst_mini_object_unref (GST_MINI_OBJECT_CAST (data));
2664     RTP_SESSION_UNLOCK (sess);
2665     GST_DEBUG ("invalid RTP packet received");
2666     return GST_FLOW_OK;
2667   }
2668 }
2669
2670 static void
2671 add_bitrates (gpointer key, RTPSource * source, gdouble * bandwidth)
2672 {
2673   *bandwidth += source->bitrate;
2674 }
2675
2676 /* must be called with session lock */
2677 static GstClockTime
2678 calculate_rtcp_interval (RTPSession * sess, gboolean deterministic,
2679     gboolean first)
2680 {
2681   GstClockTime result;
2682   RTPSessionStats *stats;
2683
2684   /* recalculate bandwidth when it changed */
2685   if (sess->recalc_bandwidth) {
2686     gdouble bandwidth;
2687
2688     if (sess->bandwidth > 0)
2689       bandwidth = sess->bandwidth;
2690     else {
2691       /* If it is <= 0, then try to estimate the actual bandwidth */
2692       bandwidth = 0;
2693
2694       g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
2695           (GHFunc) add_bitrates, &bandwidth);
2696       bandwidth /= 8.0;
2697     }
2698     if (bandwidth < 8000)
2699       bandwidth = RTP_STATS_BANDWIDTH;
2700
2701     rtp_stats_set_bandwidths (&sess->stats, bandwidth,
2702         sess->rtcp_bandwidth, sess->rtcp_rs_bandwidth, sess->rtcp_rr_bandwidth);
2703
2704     sess->recalc_bandwidth = FALSE;
2705   }
2706
2707   if (sess->scheduled_bye) {
2708     stats = &sess->bye_stats;
2709     result = rtp_stats_calculate_bye_interval (stats);
2710   } else {
2711     stats = &sess->stats;
2712     result = rtp_stats_calculate_rtcp_interval (stats,
2713         stats->internal_sender_sources > 0, first);
2714   }
2715
2716   GST_DEBUG ("next deterministic interval: %" GST_TIME_FORMAT ", first %d",
2717       GST_TIME_ARGS (result), first);
2718
2719   if (!deterministic && result != GST_CLOCK_TIME_NONE)
2720     result = rtp_stats_add_rtcp_jitter (stats, result);
2721
2722   GST_DEBUG ("next interval: %" GST_TIME_FORMAT, GST_TIME_ARGS (result));
2723
2724   return result;
2725 }
2726
2727 static void
2728 source_mark_bye (const gchar * key, RTPSource * source, const gchar * reason)
2729 {
2730   if (source->internal)
2731     rtp_source_mark_bye (source, reason);
2732 }
2733
2734 /**
2735  * rtp_session_mark_all_bye:
2736  * @sess: an #RTPSession
2737  * @reason: a reason
2738  *
2739  * Mark all internal sources of the session as BYE with @reason.
2740  */
2741 void
2742 rtp_session_mark_all_bye (RTPSession * sess, const gchar * reason)
2743 {
2744   g_return_if_fail (RTP_IS_SESSION (sess));
2745
2746   RTP_SESSION_LOCK (sess);
2747   g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
2748       (GHFunc) source_mark_bye, (gpointer) reason);
2749   RTP_SESSION_UNLOCK (sess);
2750 }
2751
2752 /* Stop the current @sess and schedule a BYE message for the other members.
2753  * One must have the session lock to call this function
2754  */
2755 static GstFlowReturn
2756 rtp_session_schedule_bye_locked (RTPSession * sess, GstClockTime current_time)
2757 {
2758   GstFlowReturn result = GST_FLOW_OK;
2759   GstClockTime interval;
2760
2761   /* nothing to do it we already scheduled bye */
2762   if (sess->scheduled_bye)
2763     goto done;
2764
2765   /* we schedule BYE now */
2766   sess->scheduled_bye = TRUE;
2767   /* at least one member wants to send a BYE */
2768   memcpy (&sess->bye_stats, &sess->stats, sizeof (RTPSessionStats));
2769   INIT_AVG (sess->bye_stats.avg_rtcp_packet_size, 100);
2770   sess->bye_stats.bye_members = 1;
2771   sess->first_rtcp = TRUE;
2772   sess->allow_early = TRUE;
2773
2774   /* reschedule transmission */
2775   sess->last_rtcp_send_time = current_time;
2776   interval = calculate_rtcp_interval (sess, FALSE, TRUE);
2777
2778   if (interval != GST_CLOCK_TIME_NONE)
2779     sess->next_rtcp_check_time = current_time + interval;
2780   else
2781     sess->next_rtcp_check_time = GST_CLOCK_TIME_NONE;
2782
2783   GST_DEBUG ("Schedule BYE for %" GST_TIME_FORMAT ", %" GST_TIME_FORMAT,
2784       GST_TIME_ARGS (interval), GST_TIME_ARGS (sess->next_rtcp_check_time));
2785
2786   RTP_SESSION_UNLOCK (sess);
2787   /* notify app of reconsideration */
2788   if (sess->callbacks.reconsider)
2789     sess->callbacks.reconsider (sess, sess->reconsider_user_data);
2790   RTP_SESSION_LOCK (sess);
2791 done:
2792
2793   return result;
2794 }
2795
2796 /**
2797  * rtp_session_schedule_bye:
2798  * @sess: an #RTPSession
2799  * @current_time: the current system time
2800  *
2801  * Schedule a BYE message for all sources marked as BYE in @sess.
2802  *
2803  * Returns: a #GstFlowReturn.
2804  */
2805 GstFlowReturn
2806 rtp_session_schedule_bye (RTPSession * sess, GstClockTime current_time)
2807 {
2808   GstFlowReturn result = GST_FLOW_OK;
2809
2810   g_return_val_if_fail (RTP_IS_SESSION (sess), GST_FLOW_ERROR);
2811
2812   RTP_SESSION_LOCK (sess);
2813   result = rtp_session_schedule_bye_locked (sess, current_time);
2814   RTP_SESSION_UNLOCK (sess);
2815
2816   return result;
2817 }
2818
2819 /**
2820  * rtp_session_next_timeout:
2821  * @sess: an #RTPSession
2822  * @current_time: the current system time
2823  *
2824  * Get the next time we should perform session maintenance tasks.
2825  *
2826  * Returns: a time when rtp_session_on_timeout() should be called with the
2827  * current system time.
2828  */
2829 GstClockTime
2830 rtp_session_next_timeout (RTPSession * sess, GstClockTime current_time)
2831 {
2832   GstClockTime result, interval = 0;
2833
2834   g_return_val_if_fail (RTP_IS_SESSION (sess), GST_CLOCK_TIME_NONE);
2835
2836   RTP_SESSION_LOCK (sess);
2837
2838   if (GST_CLOCK_TIME_IS_VALID (sess->next_early_rtcp_time)) {
2839     GST_DEBUG ("have early rtcp time");
2840     result = sess->next_early_rtcp_time;
2841     goto early_exit;
2842   }
2843
2844   result = sess->next_rtcp_check_time;
2845
2846   GST_DEBUG ("current time: %" GST_TIME_FORMAT
2847       ", next time: %" GST_TIME_FORMAT,
2848       GST_TIME_ARGS (current_time), GST_TIME_ARGS (result));
2849
2850   if (result == GST_CLOCK_TIME_NONE || result < current_time) {
2851     GST_DEBUG ("take current time as base");
2852     /* our previous check time expired, start counting from the current time
2853      * again. */
2854     result = current_time;
2855   }
2856
2857   if (sess->scheduled_bye) {
2858     if (sess->bye_stats.active_sources >= 50) {
2859       GST_DEBUG ("reconsider BYE, more than 50 sources");
2860       /* reconsider BYE if members >= 50 */
2861       interval = calculate_rtcp_interval (sess, FALSE, TRUE);
2862     }
2863   } else {
2864     if (sess->first_rtcp) {
2865       GST_DEBUG ("first RTCP packet");
2866       /* we are called for the first time */
2867       interval = calculate_rtcp_interval (sess, FALSE, TRUE);
2868     } else if (sess->next_rtcp_check_time < current_time) {
2869       GST_DEBUG ("old check time expired, getting new timeout");
2870       /* get a new timeout when we need to */
2871       interval = calculate_rtcp_interval (sess, FALSE, FALSE);
2872     }
2873   }
2874
2875   if (interval != GST_CLOCK_TIME_NONE)
2876     result += interval;
2877   else
2878     result = GST_CLOCK_TIME_NONE;
2879
2880   sess->next_rtcp_check_time = result;
2881
2882 early_exit:
2883
2884   GST_DEBUG ("current time: %" GST_TIME_FORMAT
2885       ", next time: %" GST_TIME_FORMAT,
2886       GST_TIME_ARGS (current_time), GST_TIME_ARGS (result));
2887   RTP_SESSION_UNLOCK (sess);
2888
2889   return result;
2890 }
2891
2892 typedef struct
2893 {
2894   RTPSource *source;
2895   gboolean is_bye;
2896   GstBuffer *buffer;
2897 } ReportOutput;
2898
2899 typedef struct
2900 {
2901   GstRTCPBuffer rtcpbuf;
2902   RTPSession *sess;
2903   RTPSource *source;
2904   guint num_to_report;
2905   gboolean have_fir;
2906   gboolean have_pli;
2907   gboolean have_nack;
2908   GstBuffer *rtcp;
2909   GstClockTime current_time;
2910   guint64 ntpnstime;
2911   GstClockTime running_time;
2912   GstClockTime interval;
2913   GstRTCPPacket packet;
2914   gboolean has_sdes;
2915   gboolean is_early;
2916   gboolean may_suppress;
2917   GQueue output;
2918   guint nacked_seqnums;
2919 } ReportData;
2920
2921 static void
2922 session_start_rtcp (RTPSession * sess, ReportData * data)
2923 {
2924   GstRTCPPacket *packet = &data->packet;
2925   RTPSource *own = data->source;
2926   GstRTCPBuffer *rtcp = &data->rtcpbuf;
2927
2928   data->rtcp = gst_rtcp_buffer_new (sess->mtu);
2929   data->has_sdes = FALSE;
2930
2931   gst_rtcp_buffer_map (data->rtcp, GST_MAP_READWRITE, rtcp);
2932
2933   if (RTP_SOURCE_IS_SENDER (own)) {
2934     guint64 ntptime;
2935     guint32 rtptime;
2936     guint32 packet_count, octet_count;
2937
2938     /* we are a sender, create SR */
2939     GST_DEBUG ("create SR for SSRC %08x", own->ssrc);
2940     gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_SR, packet);
2941
2942     /* get latest stats */
2943     rtp_source_get_new_sr (own, data->ntpnstime, data->running_time,
2944         &ntptime, &rtptime, &packet_count, &octet_count);
2945     /* store stats */
2946     rtp_source_process_sr (own, data->current_time, ntptime, rtptime,
2947         packet_count, octet_count);
2948
2949     /* fill in sender report info */
2950     gst_rtcp_packet_sr_set_sender_info (packet, own->ssrc,
2951         ntptime, rtptime, packet_count, octet_count);
2952   } else {
2953     /* we are only receiver, create RR */
2954     GST_DEBUG ("create RR for SSRC %08x", own->ssrc);
2955     gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_RR, packet);
2956     gst_rtcp_packet_rr_set_ssrc (packet, own->ssrc);
2957   }
2958 }
2959
2960 /* construct a Sender or Receiver Report */
2961 static void
2962 session_report_blocks (const gchar * key, RTPSource * source, ReportData * data)
2963 {
2964   RTPSession *sess = data->sess;
2965   GstRTCPPacket *packet = &data->packet;
2966   guint8 fractionlost;
2967   gint32 packetslost;
2968   guint32 exthighestseq, jitter;
2969   guint32 lsr, dlsr;
2970
2971   /* don't report for sources in future generations */
2972   if (((gint16) (source->generation - sess->generation)) > 0) {
2973     GST_DEBUG ("source %08x generation %u > %u", source->ssrc,
2974         source->generation, sess->generation);
2975     return;
2976   }
2977
2978   /* only report about other sender */
2979   if (source == data->source)
2980     goto reported;
2981
2982   if (gst_rtcp_packet_get_rb_count (packet) == GST_RTCP_MAX_RB_COUNT) {
2983     GST_DEBUG ("max RB count reached");
2984     return;
2985   }
2986
2987   if (!RTP_SOURCE_IS_SENDER (source)) {
2988     GST_DEBUG ("source %08x not sender", source->ssrc);
2989     goto reported;
2990   }
2991
2992   GST_DEBUG ("create RB for SSRC %08x", source->ssrc);
2993
2994   /* get new stats */
2995   rtp_source_get_new_rb (source, data->current_time, &fractionlost,
2996       &packetslost, &exthighestseq, &jitter, &lsr, &dlsr);
2997
2998   /* store last generated RR packet */
2999   source->last_rr.is_valid = TRUE;
3000   source->last_rr.fractionlost = fractionlost;
3001   source->last_rr.packetslost = packetslost;
3002   source->last_rr.exthighestseq = exthighestseq;
3003   source->last_rr.jitter = jitter;
3004   source->last_rr.lsr = lsr;
3005   source->last_rr.dlsr = dlsr;
3006
3007   /* packet is not yet filled, add report block for this source. */
3008   gst_rtcp_packet_add_rb (packet, source->ssrc, fractionlost, packetslost,
3009       exthighestseq, jitter, lsr, dlsr);
3010
3011 reported:
3012   /* source is reported, move to next generation */
3013   source->generation = sess->generation + 1;
3014
3015   /* if we reported all sources in this generation, move to next */
3016   if (--data->num_to_report == 0) {
3017     sess->generation++;
3018     GST_DEBUG ("all reported, generation now %u", sess->generation);
3019   }
3020 }
3021
3022 /* construct FIR */
3023 static void
3024 session_add_fir (const gchar * key, RTPSource * source, ReportData * data)
3025 {
3026   GstRTCPPacket *packet = &data->packet;
3027   guint16 len;
3028   guint8 *fci_data;
3029
3030   if (!source->send_fir)
3031     return;
3032
3033   len = gst_rtcp_packet_fb_get_fci_length (packet);
3034   if (!gst_rtcp_packet_fb_set_fci_length (packet, len + 2))
3035     /* exit because the packet is full, will put next request in a
3036      * further packet */
3037     return;
3038
3039   fci_data = gst_rtcp_packet_fb_get_fci (packet) + (len * 4);
3040
3041   GST_WRITE_UINT32_BE (fci_data, source->ssrc);
3042   fci_data += 4;
3043   fci_data[0] = source->current_send_fir_seqnum;
3044   fci_data[1] = fci_data[2] = fci_data[3] = 0;
3045
3046   source->send_fir = FALSE;
3047 }
3048
3049 static void
3050 session_fir (RTPSession * sess, ReportData * data)
3051 {
3052   GstRTCPBuffer *rtcp = &data->rtcpbuf;
3053   GstRTCPPacket *packet = &data->packet;
3054
3055   if (!gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_PSFB, packet))
3056     return;
3057
3058   gst_rtcp_packet_fb_set_type (packet, GST_RTCP_PSFB_TYPE_FIR);
3059   gst_rtcp_packet_fb_set_sender_ssrc (packet, data->source->ssrc);
3060   gst_rtcp_packet_fb_set_media_ssrc (packet, 0);
3061
3062   g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
3063       (GHFunc) session_add_fir, data);
3064
3065   if (gst_rtcp_packet_fb_get_fci_length (packet) == 0)
3066     gst_rtcp_packet_remove (packet);
3067   else
3068     data->may_suppress = FALSE;
3069 }
3070
3071 static gboolean
3072 has_pli_compare_func (gconstpointer a, gconstpointer ignored)
3073 {
3074   GstRTCPPacket packet;
3075   GstRTCPBuffer rtcp = { NULL, };
3076   gboolean ret = FALSE;
3077
3078   gst_rtcp_buffer_map ((GstBuffer *) a, GST_MAP_READ, &rtcp);
3079
3080   if (gst_rtcp_buffer_get_first_packet (&rtcp, &packet)) {
3081     if (gst_rtcp_packet_get_type (&packet) == GST_RTCP_TYPE_PSFB &&
3082         gst_rtcp_packet_fb_get_type (&packet) == GST_RTCP_PSFB_TYPE_PLI)
3083       ret = TRUE;
3084   }
3085
3086   gst_rtcp_buffer_unmap (&rtcp);
3087
3088   return ret;
3089 }
3090
3091 /* construct PLI */
3092 static void
3093 session_pli (const gchar * key, RTPSource * source, ReportData * data)
3094 {
3095   GstRTCPBuffer *rtcp = &data->rtcpbuf;
3096   GstRTCPPacket *packet = &data->packet;
3097
3098   if (!source->send_pli)
3099     return;
3100
3101   if (rtp_source_has_retained (source, has_pli_compare_func, NULL))
3102     return;
3103
3104   if (!gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_PSFB, packet))
3105     /* exit because the packet is full, will put next request in a
3106      * further packet */
3107     return;
3108
3109   gst_rtcp_packet_fb_set_type (packet, GST_RTCP_PSFB_TYPE_PLI);
3110   gst_rtcp_packet_fb_set_sender_ssrc (packet, data->source->ssrc);
3111   gst_rtcp_packet_fb_set_media_ssrc (packet, source->ssrc);
3112
3113   source->send_pli = FALSE;
3114   data->may_suppress = FALSE;
3115 }
3116
3117 /* construct NACK */
3118 static void
3119 session_nack (const gchar * key, RTPSource * source, ReportData * data)
3120 {
3121   GstRTCPBuffer *rtcp = &data->rtcpbuf;
3122   GstRTCPPacket *packet = &data->packet;
3123   guint32 *nacks;
3124   guint n_nacks, i;
3125   guint8 *fci_data;
3126
3127   if (!source->send_nack)
3128     return;
3129
3130   if (!gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_RTPFB, packet))
3131     /* exit because the packet is full, will put next request in a
3132      * further packet */
3133     return;
3134
3135   gst_rtcp_packet_fb_set_type (packet, GST_RTCP_RTPFB_TYPE_NACK);
3136   gst_rtcp_packet_fb_set_sender_ssrc (packet, data->source->ssrc);
3137   gst_rtcp_packet_fb_set_media_ssrc (packet, source->ssrc);
3138
3139   nacks = rtp_source_get_nacks (source, &n_nacks);
3140   GST_DEBUG ("%u NACKs", n_nacks);
3141   if (!gst_rtcp_packet_fb_set_fci_length (packet, n_nacks))
3142     return;
3143
3144   fci_data = gst_rtcp_packet_fb_get_fci (packet);
3145   for (i = 0; i < n_nacks; i++) {
3146     GST_WRITE_UINT32_BE (fci_data, nacks[i]);
3147     fci_data += 4;
3148     data->nacked_seqnums++;
3149   }
3150
3151   rtp_source_clear_nacks (source);
3152   data->may_suppress = FALSE;
3153 }
3154
3155 /* perform cleanup of sources that timed out */
3156 static void
3157 session_cleanup (const gchar * key, RTPSource * source, ReportData * data)
3158 {
3159   gboolean remove = FALSE;
3160   gboolean byetimeout = FALSE;
3161   gboolean sendertimeout = FALSE;
3162   gboolean is_sender, is_active;
3163   RTPSession *sess = data->sess;
3164   GstClockTime interval, binterval;
3165   GstClockTime btime;
3166
3167   GST_DEBUG ("look at %08x, generation %u", source->ssrc, source->generation);
3168
3169   /* check for outdated collisions */
3170   if (source->internal) {
3171     GST_DEBUG ("Timing out collisions for %x", source->ssrc);
3172     rtp_source_timeout (source, data->current_time,
3173         /* "a relatively long time" -- RFC 3550 section 8.2 */
3174         RTP_STATS_MIN_INTERVAL * GST_SECOND * 10,
3175         data->running_time - sess->rtcp_feedback_retention_window);
3176   }
3177
3178   /* nothing else to do when without RTCP */
3179   if (data->interval == GST_CLOCK_TIME_NONE)
3180     return;
3181
3182   is_sender = RTP_SOURCE_IS_SENDER (source);
3183   is_active = RTP_SOURCE_IS_ACTIVE (source);
3184
3185   /* our own rtcp interval may have been forced low by secondary configuration,
3186    * while sender side may still operate with higher interval,
3187    * so do not just take our interval to decide on timing out sender,
3188    * but take (if data->interval <= 5 * GST_SECOND):
3189    *   interval = CLAMP (sender_interval, data->interval, 5 * GST_SECOND)
3190    * where sender_interval is difference between last 2 received RTCP reports
3191    */
3192   if (data->interval >= 5 * GST_SECOND || source->internal) {
3193     binterval = data->interval;
3194   } else {
3195     GST_LOG ("prev_rtcp %" GST_TIME_FORMAT ", last_rtcp %" GST_TIME_FORMAT,
3196         GST_TIME_ARGS (source->stats.prev_rtcptime),
3197         GST_TIME_ARGS (source->stats.last_rtcptime));
3198     /* if not received enough yet, fallback to larger default */
3199     if (source->stats.last_rtcptime > source->stats.prev_rtcptime)
3200       binterval = source->stats.last_rtcptime - source->stats.prev_rtcptime;
3201     else
3202       binterval = 5 * GST_SECOND;
3203     binterval = CLAMP (binterval, data->interval, 5 * GST_SECOND);
3204   }
3205   GST_LOG ("timeout base interval %" GST_TIME_FORMAT,
3206       GST_TIME_ARGS (binterval));
3207
3208   if (!source->internal) {
3209     if (source->marked_bye) {
3210       /* if we received a BYE from the source, remove the source after some
3211        * time. */
3212       if (data->current_time > source->bye_time &&
3213           data->current_time - source->bye_time > sess->stats.bye_timeout) {
3214         GST_DEBUG ("removing BYE source %08x", source->ssrc);
3215         remove = TRUE;
3216         byetimeout = TRUE;
3217       }
3218     }
3219     /* sources that were inactive for more than 5 times the deterministic reporting
3220      * interval get timed out. the min timeout is 5 seconds. */
3221     /* mind old time that might pre-date last time going to PLAYING */
3222     btime = MAX (source->last_activity, sess->start_time);
3223     if (data->current_time > btime) {
3224       interval = MAX (binterval * 5, 5 * GST_SECOND);
3225       if (data->current_time - btime > interval) {
3226         GST_DEBUG ("removing timeout source %08x, last %" GST_TIME_FORMAT,
3227             source->ssrc, GST_TIME_ARGS (btime));
3228         remove = TRUE;
3229       }
3230     }
3231   }
3232
3233   /* senders that did not send for a long time become a receiver, this also
3234    * holds for our own sources. */
3235   if (is_sender) {
3236     /* mind old time that might pre-date last time going to PLAYING */
3237     btime = MAX (source->last_rtp_activity, sess->start_time);
3238     if (data->current_time > btime) {
3239       interval = MAX (binterval * 2, 5 * GST_SECOND);
3240       if (data->current_time - btime > interval) {
3241         if (source->internal && source->sent_bye) {
3242           /* an internal source is BYE and stopped sending RTP, remove */
3243           GST_DEBUG ("internal BYE source %08x timed out, last %"
3244               GST_TIME_FORMAT, source->ssrc, GST_TIME_ARGS (btime));
3245           remove = TRUE;
3246         } else {
3247           GST_DEBUG ("sender source %08x timed out and became receiver, last %"
3248               GST_TIME_FORMAT, source->ssrc, GST_TIME_ARGS (btime));
3249           sendertimeout = TRUE;
3250         }
3251       }
3252     }
3253   }
3254
3255   if (remove) {
3256     sess->total_sources--;
3257     if (is_sender) {
3258       sess->stats.sender_sources--;
3259       if (source->internal)
3260         sess->stats.internal_sender_sources--;
3261     }
3262     if (is_active)
3263       sess->stats.active_sources--;
3264
3265     if (source->internal)
3266       sess->stats.internal_sources--;
3267
3268     if (byetimeout)
3269       on_bye_timeout (sess, source);
3270     else
3271       on_timeout (sess, source);
3272   } else {
3273     if (sendertimeout) {
3274       source->is_sender = FALSE;
3275       sess->stats.sender_sources--;
3276       if (source->internal)
3277         sess->stats.internal_sender_sources--;
3278
3279       on_sender_timeout (sess, source);
3280     }
3281     /* count how many source to report in this generation */
3282     if (((gint16) (source->generation - sess->generation)) <= 0)
3283       data->num_to_report++;
3284   }
3285   source->closing = remove;
3286 }
3287
3288 static void
3289 session_sdes (RTPSession * sess, ReportData * data)
3290 {
3291   GstRTCPPacket *packet = &data->packet;
3292   const GstStructure *sdes;
3293   gint i, n_fields;
3294   GstRTCPBuffer *rtcp = &data->rtcpbuf;
3295
3296   /* add SDES packet */
3297   gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_SDES, packet);
3298
3299   gst_rtcp_packet_sdes_add_item (packet, data->source->ssrc);
3300
3301   sdes = rtp_source_get_sdes_struct (data->source);
3302
3303   /* add all fields in the structure, the order is not important. */
3304   n_fields = gst_structure_n_fields (sdes);
3305   for (i = 0; i < n_fields; ++i) {
3306     const gchar *field;
3307     const gchar *value;
3308     GstRTCPSDESType type;
3309
3310     field = gst_structure_nth_field_name (sdes, i);
3311     if (field == NULL)
3312       continue;
3313     value = gst_structure_get_string (sdes, field);
3314     if (value == NULL)
3315       continue;
3316     type = gst_rtcp_sdes_name_to_type (field);
3317
3318     /* Early packets are minimal and only include the CNAME */
3319     if (data->is_early && type != GST_RTCP_SDES_CNAME)
3320       continue;
3321
3322     if (type > GST_RTCP_SDES_END && type < GST_RTCP_SDES_PRIV) {
3323       gst_rtcp_packet_sdes_add_entry (packet, type, strlen (value),
3324           (const guint8 *) value);
3325     } else if (type == GST_RTCP_SDES_PRIV) {
3326       gsize prefix_len;
3327       gsize value_len;
3328       gsize data_len;
3329       guint8 data[256];
3330
3331       /* don't accept entries that are too big */
3332       prefix_len = strlen (field);
3333       if (prefix_len > 255)
3334         continue;
3335       value_len = strlen (value);
3336       if (value_len > 255)
3337         continue;
3338       data_len = 1 + prefix_len + value_len;
3339       if (data_len > 255)
3340         continue;
3341
3342       data[0] = prefix_len;
3343       memcpy (&data[1], field, prefix_len);
3344       memcpy (&data[1 + prefix_len], value, value_len);
3345
3346       gst_rtcp_packet_sdes_add_entry (packet, type, data_len, data);
3347     }
3348   }
3349
3350   data->has_sdes = TRUE;
3351 }
3352
3353 /* schedule a BYE packet */
3354 static void
3355 make_source_bye (RTPSession * sess, RTPSource * source, ReportData * data)
3356 {
3357   GstRTCPPacket *packet = &data->packet;
3358   GstRTCPBuffer *rtcp = &data->rtcpbuf;
3359
3360   /* add SDES */
3361   session_sdes (sess, data);
3362   /* add a BYE packet */
3363   gst_rtcp_buffer_add_packet (rtcp, GST_RTCP_TYPE_BYE, packet);
3364   gst_rtcp_packet_bye_add_ssrc (packet, source->ssrc);
3365   if (source->bye_reason)
3366     gst_rtcp_packet_bye_set_reason (packet, source->bye_reason);
3367
3368   /* we have a BYE packet now */
3369   source->sent_bye = TRUE;
3370 }
3371
3372 static gboolean
3373 is_rtcp_time (RTPSession * sess, GstClockTime current_time, ReportData * data)
3374 {
3375   GstClockTime new_send_time, elapsed;
3376   GstClockTime interval;
3377   RTPSessionStats *stats;
3378
3379   if (sess->scheduled_bye)
3380     stats = &sess->bye_stats;
3381   else
3382     stats = &sess->stats;
3383
3384   if (GST_CLOCK_TIME_IS_VALID (sess->next_early_rtcp_time))
3385     data->is_early = TRUE;
3386   else
3387     data->is_early = FALSE;
3388
3389   if (data->is_early && sess->next_early_rtcp_time < current_time) {
3390     GST_DEBUG ("early feedback %" GST_TIME_FORMAT " < now %"
3391         GST_TIME_FORMAT, GST_TIME_ARGS (sess->next_early_rtcp_time),
3392         GST_TIME_ARGS (current_time));
3393     goto early;
3394   }
3395
3396   /* no need to check yet */
3397   if (sess->next_rtcp_check_time == GST_CLOCK_TIME_NONE ||
3398       sess->next_rtcp_check_time > current_time) {
3399     GST_DEBUG ("no check time yet, next %" GST_TIME_FORMAT " > now %"
3400         GST_TIME_FORMAT, GST_TIME_ARGS (sess->next_rtcp_check_time),
3401         GST_TIME_ARGS (current_time));
3402     return FALSE;
3403   }
3404
3405 early:
3406   /* get elapsed time since we last reported */
3407   elapsed = current_time - sess->last_rtcp_send_time;
3408
3409   /* take interval and add jitter */
3410   interval = data->interval;
3411   if (interval != GST_CLOCK_TIME_NONE)
3412     interval = rtp_stats_add_rtcp_jitter (stats, interval);
3413
3414   /* perform forward reconsideration */
3415   if (interval != GST_CLOCK_TIME_NONE) {
3416     GST_DEBUG ("forward reconsideration %" GST_TIME_FORMAT ", elapsed %"
3417         GST_TIME_FORMAT, GST_TIME_ARGS (interval), GST_TIME_ARGS (elapsed));
3418     new_send_time = interval + sess->last_rtcp_send_time;
3419   } else {
3420     new_send_time = sess->last_rtcp_send_time;
3421   }
3422
3423   if (!data->is_early) {
3424     /* check if reconsideration */
3425     if (new_send_time == GST_CLOCK_TIME_NONE || current_time < new_send_time) {
3426       GST_DEBUG ("reconsider RTCP for %" GST_TIME_FORMAT,
3427           GST_TIME_ARGS (new_send_time));
3428       /* store new check time */
3429       sess->next_rtcp_check_time = new_send_time;
3430       return FALSE;
3431     }
3432     sess->next_rtcp_check_time = current_time + interval;
3433   } else if (interval != GST_CLOCK_TIME_NONE) {
3434     /* Apply the rules from RFC 4585 section 3.5.3 */
3435     if (stats->min_interval != 0 && !sess->first_rtcp) {
3436       GstClockTime T_rr_current_interval =
3437           g_random_double_range (0.5, 1.5) * stats->min_interval;
3438
3439       /* This will caused the RTCP to be suppressed if no FB packets are added */
3440       if (sess->last_rtcp_send_time + T_rr_current_interval > new_send_time) {
3441         GST_DEBUG ("RTCP packet could be suppressed min: %" GST_TIME_FORMAT
3442             " last: %" GST_TIME_FORMAT
3443             " + T_rr_current_interval: %" GST_TIME_FORMAT
3444             " >  new_send_time: %" GST_TIME_FORMAT,
3445             GST_TIME_ARGS (stats->min_interval),
3446             GST_TIME_ARGS (sess->last_rtcp_send_time),
3447             GST_TIME_ARGS (T_rr_current_interval),
3448             GST_TIME_ARGS (new_send_time));
3449         data->may_suppress = TRUE;
3450       }
3451     }
3452   }
3453
3454   GST_DEBUG ("can send RTCP now, next interval %" GST_TIME_FORMAT,
3455       GST_TIME_ARGS (new_send_time));
3456
3457   return TRUE;
3458 }
3459
3460 static void
3461 clone_ssrcs_hashtable (gchar * key, RTPSource * source, GHashTable * hash_table)
3462 {
3463   g_hash_table_insert (hash_table, key, g_object_ref (source));
3464 }
3465
3466 static gboolean
3467 remove_closing_sources (const gchar * key, RTPSource * source,
3468     ReportData * data)
3469 {
3470   if (source->closing)
3471     return TRUE;
3472
3473   if (source->send_fir)
3474     data->have_fir = TRUE;
3475   if (source->send_pli)
3476     data->have_pli = TRUE;
3477   if (source->send_nack)
3478     data->have_nack = TRUE;
3479
3480   return FALSE;
3481 }
3482
3483 static void
3484 generate_rtcp (const gchar * key, RTPSource * source, ReportData * data)
3485 {
3486   RTPSession *sess = data->sess;
3487   gboolean is_bye = FALSE;
3488   ReportOutput *output;
3489
3490   /* only generate RTCP for active internal sources */
3491   if (!source->internal || source->sent_bye)
3492     return;
3493
3494   /* ignore other sources when we do the timeout after a scheduled BYE */
3495   if (sess->scheduled_bye && !source->marked_bye)
3496     return;
3497
3498   data->source = source;
3499
3500   /* open packet */
3501   session_start_rtcp (sess, data);
3502
3503   if (source->marked_bye) {
3504     /* send BYE */
3505     make_source_bye (sess, source, data);
3506     is_bye = TRUE;
3507   } else if (!data->is_early) {
3508     /* loop over all known sources and add report blocks. If we are early, we
3509      * just make a minimal RTCP packet and skip this step */
3510     g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
3511         (GHFunc) session_report_blocks, data);
3512   }
3513   if (!data->has_sdes)
3514     session_sdes (sess, data);
3515
3516   if (data->have_fir)
3517     session_fir (sess, data);
3518
3519   if (data->have_pli)
3520     g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
3521         (GHFunc) session_pli, data);
3522
3523   if (data->have_nack)
3524     g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
3525         (GHFunc) session_nack, data);
3526
3527   gst_rtcp_buffer_unmap (&data->rtcpbuf);
3528
3529   output = g_slice_new (ReportOutput);
3530   output->source = g_object_ref (source);
3531   output->is_bye = is_bye;
3532   output->buffer = data->rtcp;
3533   /* queue the RTCP packet to push later */
3534   g_queue_push_tail (&data->output, output);
3535 }
3536
3537 /**
3538  * rtp_session_on_timeout:
3539  * @sess: an #RTPSession
3540  * @current_time: the current system time
3541  * @ntpnstime: the current NTP time in nanoseconds
3542  * @running_time: the current running_time of the pipeline
3543  *
3544  * Perform maintenance actions after the timeout obtained with
3545  * rtp_session_next_timeout() expired.
3546  *
3547  * This function will perform timeouts of receivers and senders, send a BYE
3548  * packet or generate RTCP packets with current session stats.
3549  *
3550  * This function can call the #RTPSessionSendRTCP callback, possibly multiple
3551  * times, for each packet that should be processed.
3552  *
3553  * Returns: a #GstFlowReturn.
3554  */
3555 GstFlowReturn
3556 rtp_session_on_timeout (RTPSession * sess, GstClockTime current_time,
3557     guint64 ntpnstime, GstClockTime running_time)
3558 {
3559   GstFlowReturn result = GST_FLOW_OK;
3560   ReportData data = { GST_RTCP_BUFFER_INIT };
3561   GHashTable *table_copy;
3562   ReportOutput *output;
3563
3564   g_return_val_if_fail (RTP_IS_SESSION (sess), GST_FLOW_ERROR);
3565
3566   GST_DEBUG ("reporting at %" GST_TIME_FORMAT ", NTP time %" GST_TIME_FORMAT
3567       ", running-time %" GST_TIME_FORMAT, GST_TIME_ARGS (current_time),
3568       GST_TIME_ARGS (ntpnstime), GST_TIME_ARGS (running_time));
3569
3570   data.sess = sess;
3571   data.current_time = current_time;
3572   data.ntpnstime = ntpnstime;
3573   data.running_time = running_time;
3574   data.num_to_report = 0;
3575   data.may_suppress = FALSE;
3576   data.nacked_seqnums = 0;
3577   g_queue_init (&data.output);
3578
3579   RTP_SESSION_LOCK (sess);
3580   /* get a new interval, we need this for various cleanups etc */
3581   data.interval = calculate_rtcp_interval (sess, TRUE, sess->first_rtcp);
3582
3583   GST_DEBUG ("interval %" GST_TIME_FORMAT, GST_TIME_ARGS (data.interval));
3584
3585   /* we need an internal source now */
3586   if (sess->stats.internal_sources == 0) {
3587     RTPSource *source;
3588     gboolean created;
3589
3590     source = obtain_internal_source (sess, sess->suggested_ssrc, &created);
3591     g_object_unref (source);
3592   }
3593
3594   /* Make a local copy of the hashtable. We need to do this because the
3595    * cleanup stage below releases the session lock. */
3596   table_copy = g_hash_table_new_full (NULL, NULL, NULL,
3597       (GDestroyNotify) g_object_unref);
3598   g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
3599       (GHFunc) clone_ssrcs_hashtable, table_copy);
3600
3601   /* Clean up the session, mark the source for removing, this might release the
3602    * session lock. */
3603   g_hash_table_foreach (table_copy, (GHFunc) session_cleanup, &data);
3604   g_hash_table_destroy (table_copy);
3605
3606   /* Now remove the marked sources */
3607   g_hash_table_foreach_remove (sess->ssrcs[sess->mask_idx],
3608       (GHRFunc) remove_closing_sources, &data);
3609
3610   /* update point-to-point status */
3611   session_update_ptp (sess);
3612
3613   /* see if we need to generate SR or RR packets */
3614   if (!is_rtcp_time (sess, current_time, &data))
3615     goto done;
3616
3617   GST_DEBUG ("doing RTCP generation %u for %u sources, early %d",
3618       sess->generation, data.num_to_report, data.is_early);
3619
3620   /* generate RTCP for all internal sources */
3621   g_hash_table_foreach (sess->ssrcs[sess->mask_idx],
3622       (GHFunc) generate_rtcp, &data);
3623
3624   /* we keep track of the last report time in order to timeout inactive
3625    * receivers or senders */
3626   if (!data.is_early && !data.may_suppress)
3627     sess->last_rtcp_send_time = data.current_time;
3628   sess->first_rtcp = FALSE;
3629   sess->next_early_rtcp_time = GST_CLOCK_TIME_NONE;
3630   sess->scheduled_bye = FALSE;
3631
3632 done:
3633   RTP_SESSION_UNLOCK (sess);
3634
3635   /* push out the RTCP packets */
3636   while ((output = g_queue_pop_head (&data.output))) {
3637     gboolean do_not_suppress;
3638     GstBuffer *buffer = output->buffer;
3639     RTPSource *source = output->source;
3640
3641     /* Give the user a change to add its own packet */
3642     g_signal_emit (sess, rtp_session_signals[SIGNAL_ON_SENDING_RTCP], 0,
3643         buffer, data.is_early, &do_not_suppress);
3644
3645     if (sess->callbacks.send_rtcp && (do_not_suppress || !data.may_suppress)) {
3646       guint packet_size;
3647
3648       packet_size = gst_buffer_get_size (buffer) + sess->header_len;
3649
3650       UPDATE_AVG (sess->stats.avg_rtcp_packet_size, packet_size);
3651       GST_DEBUG ("%p, sending RTCP packet, avg size %u, %u", &sess->stats,
3652           sess->stats.avg_rtcp_packet_size, packet_size);
3653       result =
3654           sess->callbacks.send_rtcp (sess, source, buffer, output->is_bye,
3655           sess->send_rtcp_user_data);
3656       sess->stats.nacks_sent += data.nacked_seqnums;
3657     } else {
3658       GST_DEBUG ("freeing packet callback: %p"
3659           " do_not_suppress: %d may_suppress: %d",
3660           sess->callbacks.send_rtcp, do_not_suppress, data.may_suppress);
3661       sess->stats.nacks_dropped += data.nacked_seqnums;
3662       gst_buffer_unref (buffer);
3663     }
3664     g_object_unref (source);
3665     g_slice_free (ReportOutput, output);
3666   }
3667   return result;
3668 }
3669
3670 /**
3671  * rtp_session_request_early_rtcp:
3672  * @sess: an #RTPSession
3673  * @current_time: the current system time
3674  * @max_delay: maximum delay
3675  *
3676  * Request transmission of early RTCP
3677  */
3678 void
3679 rtp_session_request_early_rtcp (RTPSession * sess, GstClockTime current_time,
3680     GstClockTime max_delay)
3681 {
3682   GstClockTime T_dither_max;
3683
3684   /* Implements the algorithm described in RFC 4585 section 3.5.2 */
3685
3686   RTP_SESSION_LOCK (sess);
3687
3688   /* Check if already requested */
3689   /*  RFC 4585 section 3.5.2 step 2 */
3690   if (GST_CLOCK_TIME_IS_VALID (sess->next_early_rtcp_time)) {
3691     GST_LOG_OBJECT (sess, "already have next early rtcp time");
3692     goto dont_send;
3693   }
3694
3695   if (!GST_CLOCK_TIME_IS_VALID (sess->next_rtcp_check_time)) {
3696     GST_LOG_OBJECT (sess, "no next RTCP check time");
3697     goto dont_send;
3698   }
3699
3700   /* Ignore the request a scheduled packet will be in time anyway */
3701   if (current_time + max_delay > sess->next_rtcp_check_time) {
3702     GST_LOG_OBJECT (sess, "next scheduled time is soon %" GST_TIME_FORMAT " + %"
3703         GST_TIME_FORMAT " > %" GST_TIME_FORMAT,
3704         GST_TIME_ARGS (current_time),
3705         GST_TIME_ARGS (max_delay), GST_TIME_ARGS (sess->next_rtcp_check_time));
3706     goto dont_send;
3707   }
3708
3709   /*  RFC 4585 section 3.5.2 step 2b */
3710   /* If the total sources is <=2, then there is only us and one peer */
3711   /* When there is one auxiliary stream the session can still do point
3712    * to point.
3713    */
3714   if (sess->is_doing_ptp) {
3715     T_dither_max = 0;
3716   } else {
3717     /* Divide by 2 because l = 0.5 */
3718     T_dither_max = sess->next_rtcp_check_time - sess->last_rtcp_send_time;
3719     T_dither_max /= 2;
3720   }
3721
3722   /*  RFC 4585 section 3.5.2 step 3 */
3723   if (current_time + T_dither_max > sess->next_rtcp_check_time) {
3724     GST_LOG_OBJECT (sess, "don't send because of dither");
3725     goto dont_send;
3726   }
3727
3728   /*  RFC 4585 section 3.5.2 step 4
3729    * Don't send if allow_early is FALSE, but not if we are in
3730    * immediate mode, meaning we are part of a group of at most the
3731    * application-specific threshold.
3732    */
3733   if (sess->total_sources > sess->rtcp_immediate_feedback_threshold &&
3734       sess->allow_early == FALSE) {
3735     GST_LOG_OBJECT (sess, "can't allow early feedback");
3736     goto dont_send;
3737   }
3738
3739   if (T_dither_max) {
3740     /* Schedule an early transmission later */
3741     sess->next_early_rtcp_time = g_random_double () * T_dither_max +
3742         current_time;
3743   } else {
3744     /* If no dithering, schedule it for NOW */
3745     sess->next_early_rtcp_time = current_time;
3746   }
3747
3748   GST_LOG_OBJECT (sess, "next early RTCP time %" GST_TIME_FORMAT,
3749       GST_TIME_ARGS (sess->next_early_rtcp_time));
3750   RTP_SESSION_UNLOCK (sess);
3751
3752   /* notify app of need to send packet early
3753    * and therefore of timeout change */
3754   if (sess->callbacks.reconsider)
3755     sess->callbacks.reconsider (sess, sess->reconsider_user_data);
3756
3757   return;
3758
3759 dont_send:
3760
3761   RTP_SESSION_UNLOCK (sess);
3762 }
3763
3764 static void
3765 rtp_session_send_rtcp (RTPSession * sess, GstClockTime max_delay)
3766 {
3767   GstClockTime now;
3768
3769   if (!sess->callbacks.send_rtcp)
3770     return;
3771
3772   now = sess->callbacks.request_time (sess, sess->request_time_user_data);
3773
3774   rtp_session_request_early_rtcp (sess, now, max_delay);
3775 }
3776
3777 gboolean
3778 rtp_session_request_key_unit (RTPSession * sess, guint32 ssrc,
3779     gboolean fir, gint count)
3780 {
3781   RTPSource *src;
3782
3783   RTP_SESSION_LOCK (sess);
3784   src = find_source (sess, ssrc);
3785   if (!src)
3786     goto no_source;
3787
3788   if (fir) {
3789     src->send_pli = FALSE;
3790     src->send_fir = TRUE;
3791
3792     if (count == -1 || count != src->last_fir_count)
3793       src->current_send_fir_seqnum++;
3794     src->last_fir_count = count;
3795   } else if (!src->send_fir) {
3796     src->send_pli = TRUE;
3797   }
3798   RTP_SESSION_UNLOCK (sess);
3799
3800   rtp_session_send_rtcp (sess, 200 * GST_MSECOND);
3801
3802   return TRUE;
3803
3804   /* ERRORS */
3805 no_source:
3806   {
3807     RTP_SESSION_UNLOCK (sess);
3808     return FALSE;
3809   }
3810 }
3811
3812 /**
3813  * rtp_session_request_nack:
3814  * @sess: a #RTPSession
3815  * @ssrc: the SSRC
3816  * @seqnum: the missing seqnum
3817  * @max_delay: max delay to request NACK
3818  *
3819  * Request scheduling of a NACK feedback packet for @seqnum in @ssrc.
3820  *
3821  * Returns: %TRUE if the NACK feedback could be scheduled
3822  */
3823 gboolean
3824 rtp_session_request_nack (RTPSession * sess, guint32 ssrc, guint16 seqnum,
3825     GstClockTime max_delay)
3826 {
3827   RTPSource *source;
3828
3829   RTP_SESSION_LOCK (sess);
3830   source = find_source (sess, ssrc);
3831   if (source == NULL)
3832     goto no_source;
3833
3834   GST_DEBUG ("request NACK for %08x, #%u", ssrc, seqnum);
3835   rtp_source_register_nack (source, seqnum);
3836   RTP_SESSION_UNLOCK (sess);
3837
3838   rtp_session_send_rtcp (sess, max_delay);
3839
3840   return TRUE;
3841
3842   /* ERRORS */
3843 no_source:
3844   {
3845     RTP_SESSION_UNLOCK (sess);
3846     return FALSE;
3847   }
3848 }