Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 1 | module RTP_Emulation { |
| 2 | |
| 3 | /* Functionalities that we want this module to imeplement: |
| 4 | * * act as a RTP source that generates a RTP Stream |
| 5 | * * act asaa RTP sink that consumes a RTP Stream |
| 6 | * |
| 7 | * for all of the above, we want to be able to |
| 8 | * * specify the payload type |
| 9 | * * specify the interval / sample rate |
| 10 | * * create drop-outs in the stream |
| 11 | * * detect reordered or lost frames |
| 12 | * * validate if the size of the frames matches epectations |
| 13 | * * play back real audio (at least some tones?) |
| 14 | * * enable/disable generation/verification of RTCP |
| 15 | */ |
| 16 | |
Harald Welte | a4ca446 | 2018-02-09 00:17:14 +0100 | [diff] [blame] | 17 | /* Ideas: |
| 18 | |
| 19 | * each component consists of transmitter and receiver |
| 20 | * transmitters and receivers can be operated as tuple? |
| 21 | * high-level operation |
| 22 | ** set-up config at transmitter + receiver |
| 23 | ** transmit sequence of payloads |
| 24 | ** verify receiption of those payloads |
| 25 | * can operate full-duplex/bi-directional as needed |
| 26 | |
| 27 | * transmitter |
| 28 | ** trigger transmission of n number of packets |
| 29 | ** transmit them at normal ptime interval |
| 30 | ** payload size configurable |
| 31 | ** payload contents PRBS or the like |
| 32 | |
| 33 | * receiver |
| 34 | ** count number of related packets at receiver |
| 35 | ** check received payload type |
| 36 | ** check received timestamp increments |
| 37 | ** check received seq_nr increments |
| 38 | ** (optionally) check for SSRC |
| 39 | ** (optionally) check for payload size |
| 40 | ** (optionally) check for payload contents |
| 41 | |
| 42 | * later |
| 43 | ** how to test transcoding? |
| 44 | ** how to test pure play-out endpoints (rx only)? |
| 45 | ** how to test "Rx from wrong IP/port" scenarios? |
| 46 | ** how to test RTCP? |
| 47 | ** maybe keep ports un-connected to show wrong src -lrt |
| 48 | |
| 49 | */ |
| 50 | |
| 51 | |
| 52 | |
| 53 | |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 54 | import from General_Types all; |
| 55 | import from Osmocom_Types all; |
| 56 | import from IPL4asp_Types all; |
| 57 | import from RTP_Types all; |
| 58 | import from RTP_CodecPort all; |
| 59 | import from RTP_CodecPort_CtrlFunct all; |
| 60 | |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 61 | import from IuUP_Types all; |
| 62 | import from IuUP_Emulation all; |
| 63 | |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 64 | type component RTP_Emulation_CT { |
| 65 | /* down-facing ports for RTP and RTCP codec ports on top of IPL4asp */ |
| 66 | port RTP_CODEC_PT RTP; |
| 67 | var integer g_rtp_conn_id := -1; |
| 68 | port RTP_CODEC_PT RTCP; |
| 69 | var integer g_rtcp_conn_id := -1; |
| 70 | |
| 71 | /* user-facing port for controlling the binding */ |
| 72 | port RTPEM_CTRL_PT CTRL; |
| 73 | |
| 74 | /* configurable by user, should be fixed */ |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 75 | var RtpemConfig g_cfg := c_RtpemDefaultCfg; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 76 | |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 77 | /* statistics */ |
| 78 | var RtpemStats g_stats_rtp := c_RtpemStatsReset; |
| 79 | var RtpemStats g_stats_rtcp := c_RtpemStatsReset; |
| 80 | |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 81 | var HostName g_remote_host; |
| 82 | var PortNumber g_remote_port; |
| 83 | var HostName g_local_host; |
| 84 | var PortNumber g_local_port; |
| 85 | |
| 86 | /* state variables, change over time */ |
| 87 | var boolean g_rx_enabled := false; |
| 88 | var LIN2_BO_LAST g_tx_next_seq := 0; |
| 89 | var uint32_t g_tx_next_ts := 0; |
| 90 | |
| 91 | var INT7b g_rx_payload_type := 0; |
| 92 | var LIN2_BO_LAST g_rx_last_seq; |
| 93 | var uint32_t g_rx_last_ts; |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 94 | |
| 95 | var IuUP_Entity g_iuup_ent; // := valueof(t_IuUP_Entity(1)); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 96 | } |
| 97 | |
| 98 | type enumerated RtpemMode { |
| 99 | RTPEM_MODE_NONE, |
| 100 | RTPEM_MODE_TXONLY, |
| 101 | RTPEM_MODE_RXONLY, |
| 102 | RTPEM_MODE_BIDIR |
| 103 | }; |
| 104 | |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 105 | type record RtpemStats { |
| 106 | /* number of packets transmitted */ |
| 107 | integer num_pkts_tx, |
| 108 | /* number of RTP payload bytes transmitted */ |
| 109 | integer bytes_payload_tx, |
| 110 | |
| 111 | /* number of packets received */ |
| 112 | integer num_pkts_rx, |
| 113 | /* number of RTP payload bytes received */ |
| 114 | integer bytes_payload_rx, |
| 115 | /* number of packets received out-of-sequence */ |
| 116 | integer num_pkts_rx_err_seq, |
| 117 | /* number of packets received wrong timestamp */ |
| 118 | integer num_pkts_rx_err_ts, |
| 119 | /* number of packets received during Rx disable */ |
| 120 | integer num_pkts_rx_err_disabled |
| 121 | } |
| 122 | |
| 123 | const RtpemStats c_RtpemStatsReset := { |
| 124 | num_pkts_tx := 0, |
| 125 | bytes_payload_tx := 0, |
| 126 | num_pkts_rx := 0, |
| 127 | bytes_payload_rx := 0, |
| 128 | num_pkts_rx_err_seq := 0, |
| 129 | num_pkts_rx_err_ts := 0, |
| 130 | num_pkts_rx_err_disabled := 0 |
| 131 | } |
| 132 | |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 133 | type record RtpemConfig { |
| 134 | INT7b tx_payload_type, |
| 135 | integer tx_samplerate_hz, |
| 136 | integer tx_duration_ms, |
| 137 | BIT32_BO_LAST tx_ssrc, |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 138 | octetstring tx_fixed_payload optional, |
| 139 | boolean iuup_mode, |
| 140 | boolean iuup_tx_init |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 141 | }; |
| 142 | |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 143 | const RtpemConfig c_RtpemDefaultCfg := { |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 144 | tx_payload_type := 0, |
| 145 | tx_samplerate_hz := 8000, |
| 146 | tx_duration_ms := 20, |
| 147 | tx_ssrc := '11011110101011011011111011101111'B, |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 148 | tx_fixed_payload := '01020304'O, |
| 149 | iuup_mode := false, |
| 150 | iuup_tx_init := true |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 151 | } |
| 152 | |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 153 | signature RTPEM_bind(in HostName local_host, inout PortNumber local_port); |
| 154 | signature RTPEM_connect(in HostName remote_host, in PortNumber remote_port); |
| 155 | signature RTPEM_mode(in RtpemMode mode); |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 156 | signature RTPEM_configure(in RtpemConfig cfg); |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 157 | signature RTPEM_stats_get(out RtpemStats stats, in boolean rtcp); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 158 | |
| 159 | type port RTPEM_CTRL_PT procedure { |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 160 | inout RTPEM_bind, RTPEM_connect, RTPEM_mode, RTPEM_configure, RTPEM_stats_get; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 161 | } with { extension "internal" }; |
| 162 | |
Harald Welte | 1af4033 | 2018-03-29 08:50:33 +0200 | [diff] [blame] | 163 | function f_rtpem_bind(RTPEM_CTRL_PT pt, in HostName local_host, inout PortNumber local_port) { |
| 164 | pt.call(RTPEM_bind:{local_host, local_port}) { |
| 165 | [] pt.getreply(RTPEM_bind:{local_host, ?}) -> param (local_port) {}; |
| 166 | } |
| 167 | } |
| 168 | function f_rtpem_connect(RTPEM_CTRL_PT pt, in HostName remote_host, in PortNumber remote_port) { |
| 169 | pt.call(RTPEM_connect:{remote_host, remote_port}) { |
| 170 | [] pt.getreply(RTPEM_connect:{remote_host, remote_port}) {}; |
| 171 | } |
| 172 | } |
| 173 | function f_rtpem_mode(RTPEM_CTRL_PT pt, in RtpemMode mode) { |
| 174 | pt.call(RTPEM_mode:{mode}) { |
| 175 | [] pt.getreply(RTPEM_mode:{mode}) {}; |
| 176 | } |
| 177 | } |
| 178 | function f_rtpem_configure(RTPEM_CTRL_PT pt, in RtpemConfig cfg) { |
| 179 | pt.call(RTPEM_configure:{cfg}) { |
| 180 | [] pt.getreply(RTPEM_configure:{cfg}) {}; |
| 181 | } |
| 182 | } |
| 183 | function f_rtpem_stats_get(RTPEM_CTRL_PT pt, boolean rtcp := false) return RtpemStats { |
| 184 | var RtpemStats stats; |
| 185 | pt.call(RTPEM_stats_get:{-, rtcp}) { |
| 186 | [] pt.getreply(RTPEM_stats_get:{?, rtcp}) -> param(stats) {}; |
| 187 | } |
| 188 | return stats; |
| 189 | } |
| 190 | |
Philipp Maier | 2321ef9 | 2018-06-27 17:52:04 +0200 | [diff] [blame] | 191 | function f_rtpem_stats_compare_value(integer a, integer b, integer tolerance := 0) return boolean { |
| 192 | var integer temp; |
Harald Welte | 5c49ba4 | 2018-03-29 08:51:20 +0200 | [diff] [blame] | 193 | |
Philipp Maier | 2321ef9 | 2018-06-27 17:52:04 +0200 | [diff] [blame] | 194 | temp := (a - b) |
| 195 | if (temp < 0) { |
| 196 | temp := -temp; |
| 197 | } |
| 198 | |
| 199 | if (temp > tolerance) { |
Harald Welte | 5c49ba4 | 2018-03-29 08:51:20 +0200 | [diff] [blame] | 200 | return false; |
| 201 | } |
Philipp Maier | 2321ef9 | 2018-06-27 17:52:04 +0200 | [diff] [blame] | 202 | |
Harald Welte | 5c49ba4 | 2018-03-29 08:51:20 +0200 | [diff] [blame] | 203 | return true; |
| 204 | } |
Harald Welte | 1af4033 | 2018-03-29 08:50:33 +0200 | [diff] [blame] | 205 | |
Philipp Maier | 2321ef9 | 2018-06-27 17:52:04 +0200 | [diff] [blame] | 206 | /* Cross-compare two rtpem-statistics. The transmission statistics on the a side |
| 207 | * must match the reception statistics on the other side and vice versa. The |
| 208 | * user may also supply a tolerance value (number of packets) when deviations |
| 209 | * are acceptable */ |
| 210 | function f_rtpem_stats_compare(RtpemStats a, RtpemStats b, integer tolerance := 0) return boolean { |
| 211 | var integer plen; |
| 212 | |
| 213 | log("stats A: ", a); |
| 214 | log("stats B: ", b); |
| 215 | log("tolerance: ", tolerance, " packets"); |
| 216 | |
| 217 | if (f_rtpem_stats_compare_value(a.num_pkts_tx, b.num_pkts_rx, tolerance) == false) { |
| 218 | return false; |
| 219 | } |
| 220 | |
| 221 | if (f_rtpem_stats_compare_value(a.num_pkts_rx, b.num_pkts_tx, tolerance) == false) { |
| 222 | return false; |
| 223 | } |
| 224 | |
| 225 | if(a.num_pkts_tx > 0) { |
| 226 | plen := a.bytes_payload_tx / a.num_pkts_tx; |
| 227 | } else { |
| 228 | plen := 0; |
| 229 | } |
| 230 | |
| 231 | if (f_rtpem_stats_compare_value(a.bytes_payload_tx, b.bytes_payload_rx, tolerance * plen) == false) { |
| 232 | return false; |
| 233 | } |
| 234 | |
| 235 | if (f_rtpem_stats_compare_value(a.bytes_payload_rx, b.bytes_payload_tx, tolerance * plen) == false) { |
| 236 | return false; |
| 237 | } |
| 238 | |
| 239 | return true; |
| 240 | } |
Harald Welte | 1af4033 | 2018-03-29 08:50:33 +0200 | [diff] [blame] | 241 | |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 242 | template PDU_RTP ts_RTP(BIT32_BO_LAST ssrc, INT7b pt, LIN2_BO_LAST seq, uint32_t ts, |
| 243 | octetstring payload, BIT1 marker := '0'B) := { |
| 244 | version := 2, |
| 245 | padding_ind := '0'B, |
| 246 | extension_ind := '0'B, |
| 247 | CSRC_count := 0, |
| 248 | marker_bit := marker, |
| 249 | payload_type := pt, |
| 250 | sequence_number := seq, |
Harald Welte | 8a4d395 | 2017-12-24 21:30:23 +0100 | [diff] [blame] | 251 | time_stamp := int2bit(ts, 32), |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 252 | SSRC_id := ssrc, |
| 253 | CSRCs := omit, |
| 254 | ext_header := omit, |
| 255 | data := payload |
| 256 | } |
| 257 | |
| 258 | private function f_tx_rtp(octetstring payload, BIT1 marker := '0'B) runs on RTP_Emulation_CT { |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 259 | if (g_cfg.iuup_mode) { |
| 260 | payload := f_IuUP_Em_tx_encap(g_iuup_ent, payload); |
| 261 | } |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 262 | var PDU_RTP rtp := valueof(ts_RTP(g_cfg.tx_ssrc, g_cfg.tx_payload_type, g_tx_next_seq, |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 263 | g_tx_next_ts, payload, marker)); |
| 264 | RTP.send(t_RTP_Send(g_rtp_conn_id, RTP_messages_union:{rtp:=rtp})); |
| 265 | /* increment sequence + timestamp for next transmit */ |
| 266 | g_tx_next_seq := g_tx_next_seq + 1; |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 267 | g_tx_next_ts := g_tx_next_ts + (g_cfg.tx_samplerate_hz / (1000 / g_cfg.tx_duration_ms)); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 268 | } |
| 269 | |
| 270 | function f_main() runs on RTP_Emulation_CT |
| 271 | { |
| 272 | var Result res; |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 273 | var boolean is_rtcp |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 274 | |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 275 | timer T_transmit := int2float(g_cfg.tx_duration_ms)/1000.0; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 276 | var RTP_RecvFrom rx_rtp; |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 277 | var RtpemConfig cfg; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 278 | var template RTP_RecvFrom tr := { |
| 279 | connId := ?, |
| 280 | remName := ?, |
| 281 | remPort := ?, |
| 282 | locName := ?, |
| 283 | locPort := ?, |
| 284 | msg := ? |
| 285 | }; |
| 286 | var template RTP_RecvFrom tr_rtp := tr; |
| 287 | var template RTP_RecvFrom tr_rtcp := tr; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 288 | tr_rtp.msg := { rtp := ? }; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 289 | tr_rtcp.msg := { rtcp := ? }; |
| 290 | |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 291 | g_iuup_ent := valueof(t_IuUP_Entity(g_cfg.iuup_tx_init)); |
| 292 | |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 293 | while (true) { |
| 294 | alt { |
| 295 | /* control procedures (calls) from the user */ |
| 296 | [] CTRL.getcall(RTPEM_bind:{?,?}) -> param(g_local_host, g_local_port) { |
| 297 | if (g_local_port rem 2 == 1) { |
| 298 | //CTRL.raise(RTPEM_bind, "Local Port is not an even port number!"); |
| 299 | log("Local Port is not an even port number!"); |
| 300 | continue; |
| 301 | } |
| 302 | res := RTP_CodecPort_CtrlFunct.f_IPL4_listen(RTP, g_local_host, |
| 303 | g_local_port, {udp:={}}); |
Harald Welte | 9220f63 | 2018-05-23 20:27:02 +0200 | [diff] [blame] | 304 | if (not ispresent(res.connId)) { |
| 305 | setverdict(fail, "Could not listen on RTP socket, check your configuration"); |
| 306 | self.stop; |
| 307 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 308 | g_rtp_conn_id := res.connId; |
Harald Welte | 9774e7a | 2018-03-29 08:49:38 +0200 | [diff] [blame] | 309 | tr_rtp.connId := g_rtp_conn_id; |
Harald Welte | 98eb1bf | 2018-04-02 18:18:44 +0200 | [diff] [blame] | 310 | res := RTP_CodecPort_CtrlFunct.f_IPL4_listen(RTCP, g_local_host, |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 311 | g_local_port+1, {udp:={}}); |
Harald Welte | 9220f63 | 2018-05-23 20:27:02 +0200 | [diff] [blame] | 312 | if (not ispresent(res.connId)) { |
| 313 | setverdict(fail, "Could not listen on RTCP socket, check your configuration"); |
| 314 | self.stop; |
| 315 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 316 | g_rtcp_conn_id := res.connId; |
Harald Welte | 9774e7a | 2018-03-29 08:49:38 +0200 | [diff] [blame] | 317 | tr_rtcp.connId := g_rtcp_conn_id; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 318 | CTRL.reply(RTPEM_bind:{g_local_host, g_local_port}); |
| 319 | } |
| 320 | [] CTRL.getcall(RTPEM_connect:{?,?}) -> param (g_remote_host, g_remote_port) { |
| 321 | if (g_remote_port rem 2 == 1) { |
| 322 | //CTRL.raise(RTPEM_connect, "Remote Port is not an even number!"); |
| 323 | log("Remote Port is not an even number!"); |
| 324 | continue; |
| 325 | } |
| 326 | res := RTP_CodecPort_CtrlFunct.f_IPL4_connect(RTP, g_remote_host, |
| 327 | g_remote_port, |
| 328 | g_local_host, g_local_port, |
| 329 | g_rtp_conn_id, {udp:={}}); |
Harald Welte | 9220f63 | 2018-05-23 20:27:02 +0200 | [diff] [blame] | 330 | if (not ispresent(res.connId)) { |
| 331 | setverdict(fail, "Could not connect to RTP socket, check your configuration"); |
| 332 | self.stop; |
| 333 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 334 | res := RTP_CodecPort_CtrlFunct.f_IPL4_connect(RTCP, g_remote_host, |
| 335 | g_remote_port+1, |
| 336 | g_local_host, g_local_port+1, |
| 337 | g_rtcp_conn_id, {udp:={}}); |
Harald Welte | 9220f63 | 2018-05-23 20:27:02 +0200 | [diff] [blame] | 338 | if (not ispresent(res.connId)) { |
| 339 | setverdict(fail, "Could not connect to RTCP socket, check your configuration"); |
| 340 | self.stop; |
| 341 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 342 | CTRL.reply(RTPEM_connect:{g_remote_host, g_remote_port}); |
| 343 | } |
| 344 | [] CTRL.getcall(RTPEM_mode:{RTPEM_MODE_NONE}) { |
| 345 | T_transmit.stop; |
| 346 | g_rx_enabled := false; |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 347 | CTRL.reply(RTPEM_mode:{RTPEM_MODE_NONE}); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 348 | } |
| 349 | [] CTRL.getcall(RTPEM_mode:{RTPEM_MODE_TXONLY}) { |
| 350 | /* start transmit timer */ |
| 351 | T_transmit.start; |
| 352 | g_rx_enabled := false; |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 353 | CTRL.reply(RTPEM_mode:{RTPEM_MODE_TXONLY}); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 354 | } |
| 355 | [] CTRL.getcall(RTPEM_mode:{RTPEM_MODE_RXONLY}) { |
| 356 | |
| 357 | T_transmit.stop; |
| 358 | if (g_rx_enabled == false) { |
| 359 | /* flush queues */ |
| 360 | RTP.clear; |
| 361 | RTCP.clear; |
| 362 | g_rx_enabled := true; |
| 363 | } |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 364 | CTRL.reply(RTPEM_mode:{RTPEM_MODE_RXONLY}); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 365 | } |
| 366 | [] CTRL.getcall(RTPEM_mode:{RTPEM_MODE_BIDIR}) { |
| 367 | T_transmit.start; |
| 368 | if (g_rx_enabled == false) { |
| 369 | /* flush queues */ |
| 370 | RTP.clear; |
| 371 | RTCP.clear; |
| 372 | g_rx_enabled := true; |
| 373 | } |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 374 | CTRL.reply(RTPEM_mode:{RTPEM_MODE_BIDIR}); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 375 | } |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 376 | [] CTRL.getcall(RTPEM_configure:{?}) -> param (cfg) { |
| 377 | g_cfg := cfg; |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 378 | g_iuup_ent.cfg.active_init := g_cfg.iuup_tx_init; |
| 379 | CTRL.reply(RTPEM_configure:{cfg}); |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 380 | } |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 381 | [] CTRL.getcall(RTPEM_stats_get:{?, ?}) -> param (is_rtcp) { |
| 382 | if (is_rtcp) { |
| 383 | CTRL.reply(RTPEM_stats_get:{g_stats_rtcp, is_rtcp}); |
| 384 | } else { |
| 385 | CTRL.reply(RTPEM_stats_get:{g_stats_rtp, is_rtcp}); |
| 386 | } |
| 387 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 388 | |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 389 | |
| 390 | |
| 391 | /* simply ignore any RTTP/RTP if receiver not enabled */ |
| 392 | [g_rx_enabled==false] RTP.receive(tr_rtp) { |
| 393 | g_stats_rtp.num_pkts_rx_err_disabled := g_stats_rtp.num_pkts_rx_err_disabled+1; |
| 394 | } |
Harald Welte | 98eb1bf | 2018-04-02 18:18:44 +0200 | [diff] [blame] | 395 | [g_rx_enabled==false] RTCP.receive(tr_rtcp) { |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 396 | g_stats_rtcp.num_pkts_rx_err_disabled := g_stats_rtcp.num_pkts_rx_err_disabled+1; |
| 397 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 398 | |
| 399 | /* process received RTCP/RTP if receiver enabled */ |
| 400 | [g_rx_enabled] RTP.receive(tr_rtp) -> value rx_rtp { |
Harald Welte | 8d3ea0e | 2018-03-29 08:50:18 +0200 | [diff] [blame] | 401 | //log("RX RTP: ", rx_rtp); |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 402 | /* increment counters */ |
| 403 | g_stats_rtp.num_pkts_rx := g_stats_rtp.num_pkts_rx+1; |
| 404 | g_stats_rtp.bytes_payload_rx := g_stats_rtp.bytes_payload_rx + |
| 405 | lengthof(rx_rtp.msg.rtp.data); |
Harald Welte | 8098164 | 2017-12-24 23:59:47 +0100 | [diff] [blame] | 406 | if (g_cfg.iuup_mode) { |
| 407 | rx_rtp.msg.rtp.data := f_IuUP_Em_rx_decaps(g_iuup_ent, rx_rtp.msg.rtp.data); |
| 408 | } |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 409 | } |
| 410 | [g_rx_enabled] RTCP.receive(tr_rtcp) -> value rx_rtp { |
Harald Welte | 8d3ea0e | 2018-03-29 08:50:18 +0200 | [diff] [blame] | 411 | //log("RX RTCP: ", rx_rtp); |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 412 | g_stats_rtcp.num_pkts_rx := g_stats_rtcp.num_pkts_rx+1; |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 413 | } |
| 414 | |
| 415 | /* transmit if timer has expired */ |
| 416 | [] T_transmit.timeout { |
| 417 | /* send one RTP frame, re-start timer */ |
Harald Welte | 3f6f48f | 2017-12-24 21:48:33 +0100 | [diff] [blame] | 418 | f_tx_rtp(g_cfg.tx_fixed_payload); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 419 | T_transmit.start; |
Harald Welte | cb8b427 | 2018-03-28 19:57:58 +0200 | [diff] [blame] | 420 | /* update counters */ |
| 421 | g_stats_rtp.num_pkts_tx := g_stats_rtp.num_pkts_tx+1; |
| 422 | g_stats_rtp.bytes_payload_tx := g_stats_rtp.bytes_payload_tx + |
| 423 | lengthof(g_cfg.tx_fixed_payload); |
Harald Welte | 067d66e | 2017-12-13 17:24:03 +0100 | [diff] [blame] | 424 | } |
| 425 | |
| 426 | /* fail on any unexpected messages */ |
| 427 | [] RTP.receive { |
| 428 | setverdict(fail, "Received unexpected type from RTP"); |
| 429 | } |
| 430 | [] RTCP.receive { |
| 431 | setverdict(fail, "Received unexpected type from RTCP"); |
| 432 | } |
| 433 | } |
| 434 | } |
| 435 | } |
| 436 | |
| 437 | |
| 438 | } |