47378146feccff914659c286dc2b4088cb3155d2
[ffmpeg.git] / libavformat / rtsp.c
1 /*
2  * RTSP/SDP client
3  * Copyright (c) 2002 Fabrice Bellard
4  *
5  * This file is part of FFmpeg.
6  *
7  * FFmpeg is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * FFmpeg is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with FFmpeg; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20  */
21
22 /* needed by inet_aton() */
23 #define _SVID_SOURCE
24
25 #include "libavutil/avstring.h"
26 #include "libavutil/intreadwrite.h"
27 #include "avformat.h"
28
29 #include <sys/time.h>
30 #if HAVE_SYS_SELECT_H
31 #include <sys/select.h>
32 #endif
33 #include <strings.h>
34 #include "network.h"
35 #include "rtsp.h"
36
37 #include "rtpdec.h"
38 #include "rdt.h"
39 #include "rtp_asf.h"
40
41 //#define DEBUG
42 //#define DEBUG_RTP_TCP
43
44 static int rtsp_read_play(AVFormatContext *s);
45
46 #if LIBAVFORMAT_VERSION_INT < (53 << 16)
47 int rtsp_default_protocols = (1 << RTSP_LOWER_TRANSPORT_UDP);
48 #endif
49
50 static int rtsp_probe(AVProbeData *p)
51 {
52     if (av_strstart(p->filename, "rtsp:", NULL))
53         return AVPROBE_SCORE_MAX;
54     return 0;
55 }
56
57 #define SPACE_CHARS " \t\r\n"
58 #define redir_isspace(c) strchr(SPACE_CHARS, c)
59 static void skip_spaces(const char **pp)
60 {
61     const char *p;
62     p = *pp;
63     while (redir_isspace(*p))
64         p++;
65     *pp = p;
66 }
67
68 static void get_word_until_chars(char *buf, int buf_size,
69                                  const char *sep, const char **pp)
70 {
71     const char *p;
72     char *q;
73
74     p = *pp;
75     skip_spaces(&p);
76     q = buf;
77     while (!strchr(sep, *p) && *p != '\0') {
78         if ((q - buf) < buf_size - 1)
79             *q++ = *p;
80         p++;
81     }
82     if (buf_size > 0)
83         *q = '\0';
84     *pp = p;
85 }
86
87 static void get_word_sep(char *buf, int buf_size, const char *sep,
88                          const char **pp)
89 {
90     if (**pp == '/') (*pp)++;
91     get_word_until_chars(buf, buf_size, sep, pp);
92 }
93
94 static void get_word(char *buf, int buf_size, const char **pp)
95 {
96     get_word_until_chars(buf, buf_size, SPACE_CHARS, pp);
97 }
98
99 /* parse the rtpmap description: <codec_name>/<clock_rate>[/<other
100    params>] */
101 static int sdp_parse_rtpmap(AVCodecContext *codec, RTSPStream *rtsp_st, int payload_type, const char *p)
102 {
103     char buf[256];
104     int i;
105     AVCodec *c;
106     const char *c_name;
107
108     /* Loop into AVRtpDynamicPayloadTypes[] and AVRtpPayloadTypes[] and
109        see if we can handle this kind of payload */
110     get_word_sep(buf, sizeof(buf), "/", &p);
111     if (payload_type >= RTP_PT_PRIVATE) {
112         RTPDynamicProtocolHandler *handler= RTPFirstDynamicPayloadHandler;
113         while(handler) {
114             if (!strcasecmp(buf, handler->enc_name) && (codec->codec_type == handler->codec_type)) {
115                 codec->codec_id = handler->codec_id;
116                 rtsp_st->dynamic_handler= handler;
117                 if(handler->open) {
118                     rtsp_st->dynamic_protocol_context= handler->open();
119                 }
120                 break;
121             }
122             handler= handler->next;
123         }
124     } else {
125         /* We are in a standard case ( from http://www.iana.org/assignments/rtp-parameters) */
126         /* search into AVRtpPayloadTypes[] */
127         codec->codec_id = ff_rtp_codec_id(buf, codec->codec_type);
128     }
129
130     c = avcodec_find_decoder(codec->codec_id);
131     if (c && c->name)
132         c_name = c->name;
133     else
134         c_name = (char *)NULL;
135
136     if (c_name) {
137         get_word_sep(buf, sizeof(buf), "/", &p);
138         i = atoi(buf);
139         switch (codec->codec_type) {
140             case CODEC_TYPE_AUDIO:
141                 av_log(codec, AV_LOG_DEBUG, " audio codec set to : %s\n", c_name);
142                 codec->sample_rate = RTSP_DEFAULT_AUDIO_SAMPLERATE;
143                 codec->channels = RTSP_DEFAULT_NB_AUDIO_CHANNELS;
144                 if (i > 0) {
145                     codec->sample_rate = i;
146                     get_word_sep(buf, sizeof(buf), "/", &p);
147                     i = atoi(buf);
148                     if (i > 0)
149                         codec->channels = i;
150                     // TODO: there is a bug here; if it is a mono stream, and less than 22000Hz, faad upconverts to stereo and twice the
151                     //  frequency.  No problem, but the sample rate is being set here by the sdp line.  Upcoming patch forthcoming. (rdm)
152                 }
153                 av_log(codec, AV_LOG_DEBUG, " audio samplerate set to : %i\n", codec->sample_rate);
154                 av_log(codec, AV_LOG_DEBUG, " audio channels set to : %i\n", codec->channels);
155                 break;
156             case CODEC_TYPE_VIDEO:
157                 av_log(codec, AV_LOG_DEBUG, " video codec set to : %s\n", c_name);
158                 break;
159             default:
160                 break;
161         }
162         return 0;
163     }
164
165     return -1;
166 }
167
168 /* return the length and optionnaly the data */
169 static int hex_to_data(uint8_t *data, const char *p)
170 {
171     int c, len, v;
172
173     len = 0;
174     v = 1;
175     for(;;) {
176         skip_spaces(&p);
177         if (*p == '\0')
178             break;
179         c = toupper((unsigned char)*p++);
180         if (c >= '0' && c <= '9')
181             c = c - '0';
182         else if (c >= 'A' && c <= 'F')
183             c = c - 'A' + 10;
184         else
185             break;
186         v = (v << 4) | c;
187         if (v & 0x100) {
188             if (data)
189                 data[len] = v;
190             len++;
191             v = 1;
192         }
193     }
194     return len;
195 }
196
197 static void sdp_parse_fmtp_config(AVCodecContext *codec, char *attr, char *value)
198 {
199     switch (codec->codec_id) {
200         case CODEC_ID_MPEG4:
201         case CODEC_ID_AAC:
202             if (!strcmp(attr, "config")) {
203                 /* decode the hexa encoded parameter */
204                 int len = hex_to_data(NULL, value);
205                 codec->extradata = av_mallocz(len + FF_INPUT_BUFFER_PADDING_SIZE);
206                 if (!codec->extradata)
207                     return;
208                 codec->extradata_size = len;
209                 hex_to_data(codec->extradata, value);
210             }
211             break;
212         default:
213             break;
214     }
215     return;
216 }
217
218 typedef struct {
219     const char *str;
220     uint16_t type;
221     uint32_t offset;
222 } AttrNameMap;
223
224 /* All known fmtp parmeters and the corresping RTPAttrTypeEnum */
225 #define ATTR_NAME_TYPE_INT 0
226 #define ATTR_NAME_TYPE_STR 1
227 static const AttrNameMap attr_names[]=
228 {
229     {"SizeLength",       ATTR_NAME_TYPE_INT, offsetof(RTPPayloadData, sizelength)},
230     {"IndexLength",      ATTR_NAME_TYPE_INT, offsetof(RTPPayloadData, indexlength)},
231     {"IndexDeltaLength", ATTR_NAME_TYPE_INT, offsetof(RTPPayloadData, indexdeltalength)},
232     {"profile-level-id", ATTR_NAME_TYPE_INT, offsetof(RTPPayloadData, profile_level_id)},
233     {"StreamType",       ATTR_NAME_TYPE_INT, offsetof(RTPPayloadData, streamtype)},
234     {"mode",             ATTR_NAME_TYPE_STR, offsetof(RTPPayloadData, mode)},
235     {NULL, -1, -1},
236 };
237
238 /** parse the attribute line from the fmtp a line of an sdp resonse.  This is broken out as a function
239 * because it is used in rtp_h264.c, which is forthcoming.
240 */
241 int rtsp_next_attr_and_value(const char **p, char *attr, int attr_size, char *value, int value_size)
242 {
243     skip_spaces(p);
244     if(**p)
245     {
246         get_word_sep(attr, attr_size, "=", p);
247         if (**p == '=')
248             (*p)++;
249         get_word_sep(value, value_size, ";", p);
250         if (**p == ';')
251             (*p)++;
252         return 1;
253     }
254     return 0;
255 }
256
257 /* parse a SDP line and save stream attributes */
258 static void sdp_parse_fmtp(AVStream *st, const char *p)
259 {
260     char attr[256];
261     char value[4096];
262     int i;
263
264     RTSPStream *rtsp_st = st->priv_data;
265     AVCodecContext *codec = st->codec;
266     RTPPayloadData *rtp_payload_data = &rtsp_st->rtp_payload_data;
267
268     /* loop on each attribute */
269     while(rtsp_next_attr_and_value(&p, attr, sizeof(attr), value, sizeof(value)))
270     {
271         /* grab the codec extra_data from the config parameter of the fmtp line */
272         sdp_parse_fmtp_config(codec, attr, value);
273         /* Looking for a known attribute */
274         for (i = 0; attr_names[i].str; ++i) {
275             if (!strcasecmp(attr, attr_names[i].str)) {
276                 if (attr_names[i].type == ATTR_NAME_TYPE_INT)
277                     *(int *)((char *)rtp_payload_data + attr_names[i].offset) = atoi(value);
278                 else if (attr_names[i].type == ATTR_NAME_TYPE_STR)
279                     *(char **)((char *)rtp_payload_data + attr_names[i].offset) = av_strdup(value);
280             }
281         }
282     }
283 }
284
285 /** Parse a string \p in the form of Range:npt=xx-xx, and determine the start
286  *  and end time.
287  *  Used for seeking in the rtp stream.
288  */
289 static void rtsp_parse_range_npt(const char *p, int64_t *start, int64_t *end)
290 {
291     char buf[256];
292
293     skip_spaces(&p);
294     if (!av_stristart(p, "npt=", &p))
295         return;
296
297     *start = AV_NOPTS_VALUE;
298     *end = AV_NOPTS_VALUE;
299
300     get_word_sep(buf, sizeof(buf), "-", &p);
301     *start = parse_date(buf, 1);
302     if (*p == '-') {
303         p++;
304         get_word_sep(buf, sizeof(buf), "-", &p);
305         *end = parse_date(buf, 1);
306     }
307 //    av_log(NULL, AV_LOG_DEBUG, "Range Start: %lld\n", *start);
308 //    av_log(NULL, AV_LOG_DEBUG, "Range End: %lld\n", *end);
309 }
310
311 typedef struct SDPParseState {
312     /* SDP only */
313     struct in_addr default_ip;
314     int default_ttl;
315     int skip_media; ///< set if an unknown m= line occurs
316 } SDPParseState;
317
318 static void sdp_parse_line(AVFormatContext *s, SDPParseState *s1,
319                            int letter, const char *buf)
320 {
321     RTSPState *rt = s->priv_data;
322     char buf1[64], st_type[64];
323     const char *p;
324     enum CodecType codec_type;
325     int payload_type, i;
326     AVStream *st;
327     RTSPStream *rtsp_st;
328     struct in_addr sdp_ip;
329     int ttl;
330
331 #ifdef DEBUG
332     printf("sdp: %c='%s'\n", letter, buf);
333 #endif
334
335     p = buf;
336     if (s1->skip_media && letter != 'm')
337         return;
338     switch(letter) {
339     case 'c':
340         get_word(buf1, sizeof(buf1), &p);
341         if (strcmp(buf1, "IN") != 0)
342             return;
343         get_word(buf1, sizeof(buf1), &p);
344         if (strcmp(buf1, "IP4") != 0)
345             return;
346         get_word_sep(buf1, sizeof(buf1), "/", &p);
347         if (inet_aton(buf1, &sdp_ip) == 0)
348             return;
349         ttl = 16;
350         if (*p == '/') {
351             p++;
352             get_word_sep(buf1, sizeof(buf1), "/", &p);
353             ttl = atoi(buf1);
354         }
355         if (s->nb_streams == 0) {
356             s1->default_ip = sdp_ip;
357             s1->default_ttl = ttl;
358         } else {
359             st = s->streams[s->nb_streams - 1];
360             rtsp_st = st->priv_data;
361             rtsp_st->sdp_ip = sdp_ip;
362             rtsp_st->sdp_ttl = ttl;
363         }
364         break;
365     case 's':
366         av_metadata_set(&s->metadata, "title", p);
367         break;
368     case 'i':
369         if (s->nb_streams == 0) {
370             av_metadata_set(&s->metadata, "comment", p);
371             break;
372         }
373         break;
374     case 'm':
375         /* new stream */
376         s1->skip_media = 0;
377         get_word(st_type, sizeof(st_type), &p);
378         if (!strcmp(st_type, "audio")) {
379             codec_type = CODEC_TYPE_AUDIO;
380         } else if (!strcmp(st_type, "video")) {
381             codec_type = CODEC_TYPE_VIDEO;
382         } else if (!strcmp(st_type, "application")) {
383             codec_type = CODEC_TYPE_DATA;
384         } else {
385             s1->skip_media = 1;
386             return;
387         }
388         rtsp_st = av_mallocz(sizeof(RTSPStream));
389         if (!rtsp_st)
390             return;
391         rtsp_st->stream_index = -1;
392         dynarray_add(&rt->rtsp_streams, &rt->nb_rtsp_streams, rtsp_st);
393
394         rtsp_st->sdp_ip = s1->default_ip;
395         rtsp_st->sdp_ttl = s1->default_ttl;
396
397         get_word(buf1, sizeof(buf1), &p); /* port */
398         rtsp_st->sdp_port = atoi(buf1);
399
400         get_word(buf1, sizeof(buf1), &p); /* protocol (ignored) */
401
402         /* XXX: handle list of formats */
403         get_word(buf1, sizeof(buf1), &p); /* format list */
404         rtsp_st->sdp_payload_type = atoi(buf1);
405
406         if (!strcmp(ff_rtp_enc_name(rtsp_st->sdp_payload_type), "MP2T")) {
407             /* no corresponding stream */
408         } else {
409             st = av_new_stream(s, 0);
410             if (!st)
411                 return;
412             st->priv_data = rtsp_st;
413             rtsp_st->stream_index = st->index;
414             st->codec->codec_type = codec_type;
415             if (rtsp_st->sdp_payload_type < RTP_PT_PRIVATE) {
416                 /* if standard payload type, we can find the codec right now */
417                 ff_rtp_get_codec_info(st->codec, rtsp_st->sdp_payload_type);
418             }
419         }
420         /* put a default control url */
421         av_strlcpy(rtsp_st->control_url, s->filename, sizeof(rtsp_st->control_url));
422         break;
423     case 'a':
424         if (av_strstart(p, "control:", &p) && s->nb_streams > 0) {
425             char proto[32];
426             /* get the control url */
427             st = s->streams[s->nb_streams - 1];
428             rtsp_st = st->priv_data;
429
430             /* XXX: may need to add full url resolution */
431             url_split(proto, sizeof(proto), NULL, 0, NULL, 0, NULL, NULL, 0, p);
432             if (proto[0] == '\0') {
433                 /* relative control URL */
434                 av_strlcat(rtsp_st->control_url, "/", sizeof(rtsp_st->control_url));
435                 av_strlcat(rtsp_st->control_url, p,   sizeof(rtsp_st->control_url));
436             } else {
437                 av_strlcpy(rtsp_st->control_url, p,   sizeof(rtsp_st->control_url));
438             }
439         } else if (av_strstart(p, "rtpmap:", &p) && s->nb_streams > 0) {
440             /* NOTE: rtpmap is only supported AFTER the 'm=' tag */
441             get_word(buf1, sizeof(buf1), &p);
442             payload_type = atoi(buf1);
443             st = s->streams[s->nb_streams - 1];
444             rtsp_st = st->priv_data;
445             sdp_parse_rtpmap(st->codec, rtsp_st, payload_type, p);
446         } else if (av_strstart(p, "fmtp:", &p)) {
447             /* NOTE: fmtp is only supported AFTER the 'a=rtpmap:xxx' tag */
448             get_word(buf1, sizeof(buf1), &p);
449             payload_type = atoi(buf1);
450             for(i = 0; i < s->nb_streams;i++) {
451                 st = s->streams[i];
452                 rtsp_st = st->priv_data;
453                 if (rtsp_st->sdp_payload_type == payload_type) {
454                     if(rtsp_st->dynamic_handler && rtsp_st->dynamic_handler->parse_sdp_a_line) {
455                         if(!rtsp_st->dynamic_handler->parse_sdp_a_line(s, i, rtsp_st->dynamic_protocol_context, buf)) {
456                             sdp_parse_fmtp(st, p);
457                         }
458                     } else {
459                         sdp_parse_fmtp(st, p);
460                     }
461                 }
462             }
463         } else if(av_strstart(p, "framesize:", &p)) {
464             // let dynamic protocol handlers have a stab at the line.
465             get_word(buf1, sizeof(buf1), &p);
466             payload_type = atoi(buf1);
467             for(i = 0; i < s->nb_streams;i++) {
468                 st = s->streams[i];
469                 rtsp_st = st->priv_data;
470                 if (rtsp_st->sdp_payload_type == payload_type) {
471                     if(rtsp_st->dynamic_handler && rtsp_st->dynamic_handler->parse_sdp_a_line) {
472                         rtsp_st->dynamic_handler->parse_sdp_a_line(s, i, rtsp_st->dynamic_protocol_context, buf);
473                     }
474                 }
475             }
476         } else if(av_strstart(p, "range:", &p)) {
477             int64_t start, end;
478
479             // this is so that seeking on a streamed file can work.
480             rtsp_parse_range_npt(p, &start, &end);
481             s->start_time= start;
482             s->duration= (end==AV_NOPTS_VALUE)?AV_NOPTS_VALUE:end-start; // AV_NOPTS_VALUE means live broadcast (and can't seek)
483         } else if (av_strstart(p, "IsRealDataType:integer;",&p)) {
484             if (atoi(p) == 1)
485                 rt->transport = RTSP_TRANSPORT_RDT;
486         } else {
487             if (rt->server_type == RTSP_SERVER_WMS)
488                 ff_wms_parse_sdp_a_line(s, p);
489             if (s->nb_streams > 0) {
490                 if (rt->server_type == RTSP_SERVER_REAL)
491                     ff_real_parse_sdp_a_line(s, s->nb_streams - 1, p);
492
493                 rtsp_st = s->streams[s->nb_streams - 1]->priv_data;
494                 if (rtsp_st->dynamic_handler &&
495                     rtsp_st->dynamic_handler->parse_sdp_a_line)
496                     rtsp_st->dynamic_handler->parse_sdp_a_line(s, s->nb_streams - 1,
497                         rtsp_st->dynamic_protocol_context, buf);
498             }
499         }
500         break;
501     }
502 }
503
504 static int sdp_parse(AVFormatContext *s, const char *content)
505 {
506     const char *p;
507     int letter;
508     /* Some SDP lines, particularly for Realmedia or ASF RTSP streams,
509      * contain long SDP lines containing complete ASF Headers (several
510      * kB) or arrays of MDPR (RM stream descriptor) headers plus
511      * "rulebooks" describing their properties. Therefore, the SDP line
512      * buffer is large. */
513     char buf[8192], *q;
514     SDPParseState sdp_parse_state, *s1 = &sdp_parse_state;
515
516     memset(s1, 0, sizeof(SDPParseState));
517     p = content;
518     for(;;) {
519         skip_spaces(&p);
520         letter = *p;
521         if (letter == '\0')
522             break;
523         p++;
524         if (*p != '=')
525             goto next_line;
526         p++;
527         /* get the content */
528         q = buf;
529         while (*p != '\n' && *p != '\r' && *p != '\0') {
530             if ((q - buf) < sizeof(buf) - 1)
531                 *q++ = *p;
532             p++;
533         }
534         *q = '\0';
535         sdp_parse_line(s, s1, letter, buf);
536     next_line:
537         while (*p != '\n' && *p != '\0')
538             p++;
539         if (*p == '\n')
540             p++;
541     }
542     return 0;
543 }
544
545 static void rtsp_parse_range(int *min_ptr, int *max_ptr, const char **pp)
546 {
547     const char *p;
548     int v;
549
550     p = *pp;
551     skip_spaces(&p);
552     v = strtol(p, (char **)&p, 10);
553     if (*p == '-') {
554         p++;
555         *min_ptr = v;
556         v = strtol(p, (char **)&p, 10);
557         *max_ptr = v;
558     } else {
559         *min_ptr = v;
560         *max_ptr = v;
561     }
562     *pp = p;
563 }
564
565 /* XXX: only one transport specification is parsed */
566 static void rtsp_parse_transport(RTSPMessageHeader *reply, const char *p)
567 {
568     char transport_protocol[16];
569     char profile[16];
570     char lower_transport[16];
571     char parameter[16];
572     RTSPTransportField *th;
573     char buf[256];
574
575     reply->nb_transports = 0;
576
577     for(;;) {
578         skip_spaces(&p);
579         if (*p == '\0')
580             break;
581
582         th = &reply->transports[reply->nb_transports];
583
584         get_word_sep(transport_protocol, sizeof(transport_protocol),
585                      "/", &p);
586         if (*p == '/')
587             p++;
588         if (!strcasecmp (transport_protocol, "rtp")) {
589             get_word_sep(profile, sizeof(profile), "/;,", &p);
590             lower_transport[0] = '\0';
591             /* rtp/avp/<protocol> */
592             if (*p == '/') {
593                 p++;
594                 get_word_sep(lower_transport, sizeof(lower_transport),
595                              ";,", &p);
596             }
597             th->transport = RTSP_TRANSPORT_RTP;
598         } else if (!strcasecmp (transport_protocol, "x-pn-tng") ||
599                    !strcasecmp (transport_protocol, "x-real-rdt")) {
600             /* x-pn-tng/<protocol> */
601             get_word_sep(lower_transport, sizeof(lower_transport), "/;,", &p);
602             profile[0] = '\0';
603             th->transport = RTSP_TRANSPORT_RDT;
604         }
605         if (!strcasecmp(lower_transport, "TCP"))
606             th->lower_transport = RTSP_LOWER_TRANSPORT_TCP;
607         else
608             th->lower_transport = RTSP_LOWER_TRANSPORT_UDP;
609
610         if (*p == ';')
611             p++;
612         /* get each parameter */
613         while (*p != '\0' && *p != ',') {
614             get_word_sep(parameter, sizeof(parameter), "=;,", &p);
615             if (!strcmp(parameter, "port")) {
616                 if (*p == '=') {
617                     p++;
618                     rtsp_parse_range(&th->port_min, &th->port_max, &p);
619                 }
620             } else if (!strcmp(parameter, "client_port")) {
621                 if (*p == '=') {
622                     p++;
623                     rtsp_parse_range(&th->client_port_min,
624                                      &th->client_port_max, &p);
625                 }
626             } else if (!strcmp(parameter, "server_port")) {
627                 if (*p == '=') {
628                     p++;
629                     rtsp_parse_range(&th->server_port_min,
630                                      &th->server_port_max, &p);
631                 }
632             } else if (!strcmp(parameter, "interleaved")) {
633                 if (*p == '=') {
634                     p++;
635                     rtsp_parse_range(&th->interleaved_min,
636                                      &th->interleaved_max, &p);
637                 }
638             } else if (!strcmp(parameter, "multicast")) {
639                 if (th->lower_transport == RTSP_LOWER_TRANSPORT_UDP)
640                     th->lower_transport = RTSP_LOWER_TRANSPORT_UDP_MULTICAST;
641             } else if (!strcmp(parameter, "ttl")) {
642                 if (*p == '=') {
643                     p++;
644                     th->ttl = strtol(p, (char **)&p, 10);
645                 }
646             } else if (!strcmp(parameter, "destination")) {
647                 struct in_addr ipaddr;
648
649                 if (*p == '=') {
650                     p++;
651                     get_word_sep(buf, sizeof(buf), ";,", &p);
652                     if (inet_aton(buf, &ipaddr))
653                         th->destination = ntohl(ipaddr.s_addr);
654                 }
655             }
656             while (*p != ';' && *p != '\0' && *p != ',')
657                 p++;
658             if (*p == ';')
659                 p++;
660         }
661         if (*p == ',')
662             p++;
663
664         reply->nb_transports++;
665     }
666 }
667
668 void rtsp_parse_line(RTSPMessageHeader *reply, const char *buf)
669 {
670     const char *p;
671
672     /* NOTE: we do case independent match for broken servers */
673     p = buf;
674     if (av_stristart(p, "Session:", &p)) {
675         get_word_sep(reply->session_id, sizeof(reply->session_id), ";", &p);
676     } else if (av_stristart(p, "Content-Length:", &p)) {
677         reply->content_length = strtol(p, NULL, 10);
678     } else if (av_stristart(p, "Transport:", &p)) {
679         rtsp_parse_transport(reply, p);
680     } else if (av_stristart(p, "CSeq:", &p)) {
681         reply->seq = strtol(p, NULL, 10);
682     } else if (av_stristart(p, "Range:", &p)) {
683         rtsp_parse_range_npt(p, &reply->range_start, &reply->range_end);
684     } else if (av_stristart(p, "RealChallenge1:", &p)) {
685         skip_spaces(&p);
686         av_strlcpy(reply->real_challenge, p, sizeof(reply->real_challenge));
687     } else if (av_stristart(p, "Server:", &p)) {
688         skip_spaces(&p);
689         av_strlcpy(reply->server, p, sizeof(reply->server));
690     }
691 }
692
693 static int url_readbuf(URLContext *h, unsigned char *buf, int size)
694 {
695     int ret, len;
696
697     len = 0;
698     while (len < size) {
699         ret = url_read(h, buf+len, size-len);
700         if (ret < 1)
701             return ret;
702         len += ret;
703     }
704     return len;
705 }
706
707 /* skip a RTP/TCP interleaved packet */
708 static void rtsp_skip_packet(AVFormatContext *s)
709 {
710     RTSPState *rt = s->priv_data;
711     int ret, len, len1;
712     uint8_t buf[1024];
713
714     ret = url_readbuf(rt->rtsp_hd, buf, 3);
715     if (ret != 3)
716         return;
717     len = AV_RB16(buf + 1);
718 #ifdef DEBUG
719     printf("skipping RTP packet len=%d\n", len);
720 #endif
721     /* skip payload */
722     while (len > 0) {
723         len1 = len;
724         if (len1 > sizeof(buf))
725             len1 = sizeof(buf);
726         ret = url_readbuf(rt->rtsp_hd, buf, len1);
727         if (ret != len1)
728             return;
729         len -= len1;
730     }
731 }
732
733 /**
734  * Read a RTSP message from the server, or prepare to read data
735  * packets if we're reading data interleaved over the TCP/RTSP
736  * connection as well.
737  *
738  * @param s RTSP demuxer context
739  * @param reply pointer where the RTSP message header will be stored
740  * @param content_ptr pointer where the RTSP message body, if any, will
741  *                    be stored (length is in \p reply)
742  * @param return_on_interleaved_data whether the function may return if we
743  *                   encounter a data marker ('$'), which precedes data
744  *                   packets over interleaved TCP/RTSP connections. If this
745  *                   is set, this function will return 1 after encountering
746  *                   a '$'. If it is not set, the function will skip any
747  *                   data packets (if they are encountered), until a reply
748  *                   has been fully parsed. If no more data is available
749  *                   without parsing a reply, it will return an error.
750  *
751  * @returns 1 if a data packets is ready to be received, -1 on error,
752  *          and 0 on success.
753  */
754 static int
755 rtsp_read_reply (AVFormatContext *s, RTSPMessageHeader *reply,
756                  unsigned char **content_ptr, int return_on_interleaved_data)
757 {
758     RTSPState *rt = s->priv_data;
759     char buf[4096], buf1[1024], *q;
760     unsigned char ch;
761     const char *p;
762     int ret, content_length, line_count = 0;
763     unsigned char *content = NULL;
764
765     memset(reply, 0, sizeof(*reply));
766
767     /* parse reply (XXX: use buffers) */
768     rt->last_reply[0] = '\0';
769     for(;;) {
770         q = buf;
771         for(;;) {
772             ret = url_readbuf(rt->rtsp_hd, &ch, 1);
773 #ifdef DEBUG_RTP_TCP
774             printf("ret=%d c=%02x [%c]\n", ret, ch, ch);
775 #endif
776             if (ret != 1)
777                 return -1;
778             if (ch == '\n')
779                 break;
780             if (ch == '$') {
781                 /* XXX: only parse it if first char on line ? */
782                 if (return_on_interleaved_data) {
783                     return 1;
784                 } else
785                 rtsp_skip_packet(s);
786             } else if (ch != '\r') {
787                 if ((q - buf) < sizeof(buf) - 1)
788                     *q++ = ch;
789             }
790         }
791         *q = '\0';
792 #ifdef DEBUG
793         printf("line='%s'\n", buf);
794 #endif
795         /* test if last line */
796         if (buf[0] == '\0')
797             break;
798         p = buf;
799         if (line_count == 0) {
800             /* get reply code */
801             get_word(buf1, sizeof(buf1), &p);
802             get_word(buf1, sizeof(buf1), &p);
803             reply->status_code = atoi(buf1);
804         } else {
805             rtsp_parse_line(reply, p);
806             av_strlcat(rt->last_reply, p,    sizeof(rt->last_reply));
807             av_strlcat(rt->last_reply, "\n", sizeof(rt->last_reply));
808         }
809         line_count++;
810     }
811
812     if (rt->session_id[0] == '\0' && reply->session_id[0] != '\0')
813         av_strlcpy(rt->session_id, reply->session_id, sizeof(rt->session_id));
814
815     content_length = reply->content_length;
816     if (content_length > 0) {
817         /* leave some room for a trailing '\0' (useful for simple parsing) */
818         content = av_malloc(content_length + 1);
819         (void)url_readbuf(rt->rtsp_hd, content, content_length);
820         content[content_length] = '\0';
821     }
822     if (content_ptr)
823         *content_ptr = content;
824     else
825         av_free(content);
826
827     return 0;
828 }
829
830 static void rtsp_send_cmd(AVFormatContext *s,
831                           const char *cmd, RTSPMessageHeader *reply,
832                           unsigned char **content_ptr)
833 {
834     RTSPState *rt = s->priv_data;
835     char buf[4096], buf1[1024];
836
837     rt->seq++;
838     av_strlcpy(buf, cmd, sizeof(buf));
839     snprintf(buf1, sizeof(buf1), "CSeq: %d\r\n", rt->seq);
840     av_strlcat(buf, buf1, sizeof(buf));
841     if (rt->session_id[0] != '\0' && !strstr(cmd, "\nIf-Match:")) {
842         snprintf(buf1, sizeof(buf1), "Session: %s\r\n", rt->session_id);
843         av_strlcat(buf, buf1, sizeof(buf));
844     }
845     av_strlcat(buf, "\r\n", sizeof(buf));
846 #ifdef DEBUG
847     printf("Sending:\n%s--\n", buf);
848 #endif
849     url_write(rt->rtsp_hd, buf, strlen(buf));
850
851     rtsp_read_reply(s, reply, content_ptr, 0);
852 }
853
854
855 /* close and free RTSP streams */
856 static void rtsp_close_streams(RTSPState *rt)
857 {
858     int i;
859     RTSPStream *rtsp_st;
860
861     for(i=0;i<rt->nb_rtsp_streams;i++) {
862         rtsp_st = rt->rtsp_streams[i];
863         if (rtsp_st) {
864             if (rtsp_st->transport_priv) {
865                 if (rt->transport == RTSP_TRANSPORT_RDT)
866                     ff_rdt_parse_close(rtsp_st->transport_priv);
867                 else
868                     rtp_parse_close(rtsp_st->transport_priv);
869             }
870             if (rtsp_st->rtp_handle)
871                 url_close(rtsp_st->rtp_handle);
872             if (rtsp_st->dynamic_handler && rtsp_st->dynamic_protocol_context)
873                 rtsp_st->dynamic_handler->close(rtsp_st->dynamic_protocol_context);
874         }
875     }
876     av_free(rt->rtsp_streams);
877     if (rt->asf_ctx) {
878         av_close_input_stream (rt->asf_ctx);
879         rt->asf_ctx = NULL;
880     }
881 }
882
883 static int
884 rtsp_open_transport_ctx(AVFormatContext *s, RTSPStream *rtsp_st)
885 {
886     RTSPState *rt = s->priv_data;
887     AVStream *st = NULL;
888
889     /* open the RTP context */
890     if (rtsp_st->stream_index >= 0)
891         st = s->streams[rtsp_st->stream_index];
892     if (!st)
893         s->ctx_flags |= AVFMTCTX_NOHEADER;
894
895     if (rt->transport == RTSP_TRANSPORT_RDT)
896         rtsp_st->transport_priv = ff_rdt_parse_open(s, st->index,
897                                             rtsp_st->dynamic_protocol_context,
898                                             rtsp_st->dynamic_handler);
899     else
900         rtsp_st->transport_priv = rtp_parse_open(s, st, rtsp_st->rtp_handle,
901                                          rtsp_st->sdp_payload_type,
902                                          &rtsp_st->rtp_payload_data);
903
904     if (!rtsp_st->transport_priv) {
905          return AVERROR(ENOMEM);
906     } else if (rt->transport != RTSP_TRANSPORT_RDT) {
907         if(rtsp_st->dynamic_handler) {
908             rtp_parse_set_dynamic_protocol(rtsp_st->transport_priv,
909                                            rtsp_st->dynamic_protocol_context,
910                                            rtsp_st->dynamic_handler);
911         }
912     }
913
914     return 0;
915 }
916
917 /**
918  * @returns 0 on success, <0 on error, 1 if protocol is unavailable.
919  */
920 static int
921 make_setup_request (AVFormatContext *s, const char *host, int port,
922                     int lower_transport, const char *real_challenge)
923 {
924     RTSPState *rt = s->priv_data;
925     int rtx, j, i, err, interleave = 0;
926     RTSPStream *rtsp_st;
927     RTSPMessageHeader reply1, *reply = &reply1;
928     char cmd[2048];
929     const char *trans_pref;
930
931     if (rt->transport == RTSP_TRANSPORT_RDT)
932         trans_pref = "x-pn-tng";
933     else
934         trans_pref = "RTP/AVP";
935
936     /* for each stream, make the setup request */
937     /* XXX: we assume the same server is used for the control of each
938        RTSP stream */
939
940     for(j = RTSP_RTP_PORT_MIN, i = 0; i < rt->nb_rtsp_streams; ++i) {
941         char transport[2048];
942
943         /**
944          * WMS serves all UDP data over a single connection, the RTX, which
945          * isn't necessarily the first in the SDP but has to be the first
946          * to be set up, else the second/third SETUP will fail with a 461.
947          */
948         if (lower_transport == RTSP_LOWER_TRANSPORT_UDP &&
949              rt->server_type == RTSP_SERVER_WMS) {
950             if (i == 0) {
951                 /* rtx first */
952                 for (rtx = 0; rtx < rt->nb_rtsp_streams; rtx++) {
953                     int len = strlen(rt->rtsp_streams[rtx]->control_url);
954                     if (len >= 4 &&
955                         !strcmp(rt->rtsp_streams[rtx]->control_url + len - 4, "/rtx"))
956                         break;
957                 }
958                 if (rtx == rt->nb_rtsp_streams)
959                     return -1; /* no RTX found */
960                 rtsp_st = rt->rtsp_streams[rtx];
961             } else
962                 rtsp_st = rt->rtsp_streams[i > rtx ? i : i - 1];
963         } else
964             rtsp_st = rt->rtsp_streams[i];
965
966         /* RTP/UDP */
967         if (lower_transport == RTSP_LOWER_TRANSPORT_UDP) {
968             char buf[256];
969
970             if (rt->server_type == RTSP_SERVER_WMS && i > 1) {
971                 port = reply->transports[0].client_port_min;
972                 goto have_port;
973             }
974
975             /* first try in specified port range */
976             if (RTSP_RTP_PORT_MIN != 0) {
977                 while(j <= RTSP_RTP_PORT_MAX) {
978                     snprintf(buf, sizeof(buf), "rtp://%s?localport=%d", host, j);
979                     j += 2; /* we will use two port by rtp stream (rtp and rtcp) */
980                     if (url_open(&rtsp_st->rtp_handle, buf, URL_RDWR) == 0) {
981                         goto rtp_opened;
982                     }
983                 }
984             }
985
986 /*            then try on any port
987 **            if (url_open(&rtsp_st->rtp_handle, "rtp://", URL_RDONLY) < 0) {
988 **                err = AVERROR_INVALIDDATA;
989 **                goto fail;
990 **            }
991 */
992
993         rtp_opened:
994             port = rtp_get_local_port(rtsp_st->rtp_handle);
995         have_port:
996             snprintf(transport, sizeof(transport) - 1,
997                      "%s/UDP;", trans_pref);
998             if (rt->server_type != RTSP_SERVER_REAL)
999                 av_strlcat(transport, "unicast;", sizeof(transport));
1000             av_strlcatf(transport, sizeof(transport),
1001                      "client_port=%d", port);
1002             if (rt->transport == RTSP_TRANSPORT_RTP &&
1003                 !(rt->server_type == RTSP_SERVER_WMS && i > 0))
1004                 av_strlcatf(transport, sizeof(transport), "-%d", port + 1);
1005         }
1006
1007         /* RTP/TCP */
1008         else if (lower_transport == RTSP_LOWER_TRANSPORT_TCP) {
1009             /** For WMS streams, the application streams are only used for
1010              * UDP. When trying to set it up for TCP streams, the server
1011              * will return an error. Therefore, we skip those streams. */
1012             if (rt->server_type == RTSP_SERVER_WMS &&
1013                 s->streams[rtsp_st->stream_index]->codec->codec_type == CODEC_TYPE_DATA)
1014                 continue;
1015             snprintf(transport, sizeof(transport) - 1,
1016                      "%s/TCP;", trans_pref);
1017             if (rt->server_type == RTSP_SERVER_WMS)
1018                 av_strlcat(transport, "unicast;", sizeof(transport));
1019             av_strlcatf(transport, sizeof(transport),
1020                         "interleaved=%d-%d",
1021                         interleave, interleave + 1);
1022             interleave += 2;
1023         }
1024
1025         else if (lower_transport == RTSP_LOWER_TRANSPORT_UDP_MULTICAST) {
1026             snprintf(transport, sizeof(transport) - 1,
1027                      "%s/UDP;multicast", trans_pref);
1028         }
1029         if (rt->server_type == RTSP_SERVER_REAL ||
1030             rt->server_type == RTSP_SERVER_WMS)
1031             av_strlcat(transport, ";mode=play", sizeof(transport));
1032         snprintf(cmd, sizeof(cmd),
1033                  "SETUP %s RTSP/1.0\r\n"
1034                  "Transport: %s\r\n",
1035                  rtsp_st->control_url, transport);
1036         if (i == 0 && rt->server_type == RTSP_SERVER_REAL) {
1037             char real_res[41], real_csum[9];
1038             ff_rdt_calc_response_and_checksum(real_res, real_csum,
1039                                               real_challenge);
1040             av_strlcatf(cmd, sizeof(cmd),
1041                         "If-Match: %s\r\n"
1042                         "RealChallenge2: %s, sd=%s\r\n",
1043                         rt->session_id, real_res, real_csum);
1044         }
1045         rtsp_send_cmd(s, cmd, reply, NULL);
1046         if (reply->status_code == 461 /* Unsupported protocol */ && i == 0) {
1047             err = 1;
1048             goto fail;
1049         } else if (reply->status_code != RTSP_STATUS_OK ||
1050                    reply->nb_transports != 1) {
1051             err = AVERROR_INVALIDDATA;
1052             goto fail;
1053         }
1054
1055         /* XXX: same protocol for all streams is required */
1056         if (i > 0) {
1057             if (reply->transports[0].lower_transport != rt->lower_transport ||
1058                 reply->transports[0].transport != rt->transport) {
1059                 err = AVERROR_INVALIDDATA;
1060                 goto fail;
1061             }
1062         } else {
1063             rt->lower_transport = reply->transports[0].lower_transport;
1064             rt->transport = reply->transports[0].transport;
1065         }
1066
1067         /* close RTP connection if not choosen */
1068         if (reply->transports[0].lower_transport != RTSP_LOWER_TRANSPORT_UDP &&
1069             (lower_transport == RTSP_LOWER_TRANSPORT_UDP)) {
1070             url_close(rtsp_st->rtp_handle);
1071             rtsp_st->rtp_handle = NULL;
1072         }
1073
1074         switch(reply->transports[0].lower_transport) {
1075         case RTSP_LOWER_TRANSPORT_TCP:
1076             rtsp_st->interleaved_min = reply->transports[0].interleaved_min;
1077             rtsp_st->interleaved_max = reply->transports[0].interleaved_max;
1078             break;
1079
1080         case RTSP_LOWER_TRANSPORT_UDP:
1081             {
1082                 char url[1024];
1083
1084                 /* XXX: also use address if specified */
1085                 snprintf(url, sizeof(url), "rtp://%s:%d",
1086                          host, reply->transports[0].server_port_min);
1087                 if (!(rt->server_type == RTSP_SERVER_WMS && i > 1) &&
1088                     rtp_set_remote_url(rtsp_st->rtp_handle, url) < 0) {
1089                     err = AVERROR_INVALIDDATA;
1090                     goto fail;
1091                 }
1092             }
1093             break;
1094         case RTSP_LOWER_TRANSPORT_UDP_MULTICAST:
1095             {
1096                 char url[1024];
1097                 struct in_addr in;
1098
1099                 in.s_addr = htonl(reply->transports[0].destination);
1100                 snprintf(url, sizeof(url), "rtp://%s:%d?ttl=%d",
1101                          inet_ntoa(in),
1102                          reply->transports[0].port_min,
1103                          reply->transports[0].ttl);
1104                 if (url_open(&rtsp_st->rtp_handle, url, URL_RDWR) < 0) {
1105                     err = AVERROR_INVALIDDATA;
1106                     goto fail;
1107                 }
1108             }
1109             break;
1110         }
1111
1112         if ((err = rtsp_open_transport_ctx(s, rtsp_st)))
1113             goto fail;
1114     }
1115
1116     if (rt->server_type == RTSP_SERVER_REAL)
1117         rt->need_subscription = 1;
1118
1119     return 0;
1120
1121 fail:
1122     for (i=0; i<rt->nb_rtsp_streams; i++) {
1123         if (rt->rtsp_streams[i]->rtp_handle) {
1124             url_close(rt->rtsp_streams[i]->rtp_handle);
1125             rt->rtsp_streams[i]->rtp_handle = NULL;
1126         }
1127     }
1128     return err;
1129 }
1130
1131 static int rtsp_read_header(AVFormatContext *s,
1132                             AVFormatParameters *ap)
1133 {
1134     RTSPState *rt = s->priv_data;
1135     char host[1024], path[1024], tcpname[1024], cmd[2048], *option_list, *option;
1136     URLContext *rtsp_hd;
1137     int port, ret, err;
1138     RTSPMessageHeader reply1, *reply = &reply1;
1139     unsigned char *content = NULL;
1140     int lower_transport_mask = 0;
1141     char real_challenge[64];
1142
1143     /* extract hostname and port */
1144     url_split(NULL, 0, NULL, 0,
1145               host, sizeof(host), &port, path, sizeof(path), s->filename);
1146     if (port < 0)
1147         port = RTSP_DEFAULT_PORT;
1148
1149     /* search for options */
1150     option_list = strchr(path, '?');
1151     if (option_list) {
1152         /* remove the options from the path */
1153         *option_list++ = 0;
1154         while(option_list) {
1155             /* move the option pointer */
1156             option = option_list;
1157             option_list = strchr(option_list, '&');
1158             if (option_list)
1159                 *(option_list++) = 0;
1160             /* handle the options */
1161             if (strcmp(option, "udp") == 0)
1162                 lower_transport_mask = (1<< RTSP_LOWER_TRANSPORT_UDP);
1163             else if (strcmp(option, "multicast") == 0)
1164                 lower_transport_mask = (1<< RTSP_LOWER_TRANSPORT_UDP_MULTICAST);
1165             else if (strcmp(option, "tcp") == 0)
1166                 lower_transport_mask = (1<< RTSP_LOWER_TRANSPORT_TCP);
1167         }
1168     }
1169
1170     if (!lower_transport_mask)
1171         lower_transport_mask = (1 << RTSP_LOWER_TRANSPORT_NB) - 1;
1172
1173     /* open the tcp connexion */
1174     snprintf(tcpname, sizeof(tcpname), "tcp://%s:%d", host, port);
1175     if (url_open(&rtsp_hd, tcpname, URL_RDWR) < 0)
1176         return AVERROR(EIO);
1177     rt->rtsp_hd = rtsp_hd;
1178     rt->seq = 0;
1179
1180     /* request options supported by the server; this also detects server type */
1181     for (rt->server_type = RTSP_SERVER_RTP;;) {
1182         snprintf(cmd, sizeof(cmd),
1183                  "OPTIONS %s RTSP/1.0\r\n", s->filename);
1184         if (rt->server_type == RTSP_SERVER_REAL)
1185             av_strlcat(cmd,
1186                        /**
1187                         * The following entries are required for proper
1188                         * streaming from a Realmedia server. They are
1189                         * interdependent in some way although we currently
1190                         * don't quite understand how. Values were copied
1191                         * from mplayer SVN r23589.
1192                         * @param CompanyID is a 16-byte ID in base64
1193                         * @param ClientChallenge is a 16-byte ID in hex
1194                         */
1195                        "ClientChallenge: 9e26d33f2984236010ef6253fb1887f7\r\n"
1196                        "PlayerStarttime: [28/03/2003:22:50:23 00:00]\r\n"
1197                        "CompanyID: KnKV4M4I/B2FjJ1TToLycw==\r\n"
1198                        "GUID: 00000000-0000-0000-0000-000000000000\r\n",
1199                        sizeof(cmd));
1200         rtsp_send_cmd(s, cmd, reply, NULL);
1201         if (reply->status_code != RTSP_STATUS_OK) {
1202             err = AVERROR_INVALIDDATA;
1203             goto fail;
1204         }
1205
1206         /* detect server type if not standard-compliant RTP */
1207         if (rt->server_type != RTSP_SERVER_REAL && reply->real_challenge[0]) {
1208             rt->server_type = RTSP_SERVER_REAL;
1209             continue;
1210         } else if (!strncasecmp(reply->server, "WMServer/", 9)) {
1211             rt->server_type = RTSP_SERVER_WMS;
1212         } else if (rt->server_type == RTSP_SERVER_REAL) {
1213             strcpy(real_challenge, reply->real_challenge);
1214         }
1215         break;
1216     }
1217
1218     /* describe the stream */
1219     snprintf(cmd, sizeof(cmd),
1220              "DESCRIBE %s RTSP/1.0\r\n"
1221              "Accept: application/sdp\r\n",
1222              s->filename);
1223     if (rt->server_type == RTSP_SERVER_REAL) {
1224         /**
1225          * The Require: attribute is needed for proper streaming from
1226          * Realmedia servers.
1227          */
1228         av_strlcat(cmd,
1229                    "Require: com.real.retain-entity-for-setup\r\n",
1230                    sizeof(cmd));
1231     }
1232     rtsp_send_cmd(s, cmd, reply, &content);
1233     if (!content) {
1234         err = AVERROR_INVALIDDATA;
1235         goto fail;
1236     }
1237     if (reply->status_code != RTSP_STATUS_OK) {
1238         err = AVERROR_INVALIDDATA;
1239         goto fail;
1240     }
1241
1242     /* now we got the SDP description, we parse it */
1243     ret = sdp_parse(s, (const char *)content);
1244     av_freep(&content);
1245     if (ret < 0) {
1246         err = AVERROR_INVALIDDATA;
1247         goto fail;
1248     }
1249
1250     do {
1251         int lower_transport = ff_log2_tab[lower_transport_mask & ~(lower_transport_mask - 1)];
1252
1253         err = make_setup_request(s, host, port, lower_transport,
1254                                  rt->server_type == RTSP_SERVER_REAL ?
1255                                      real_challenge : NULL);
1256         if (err < 0)
1257             goto fail;
1258         lower_transport_mask &= ~(1 << lower_transport);
1259         if (lower_transport_mask == 0 && err == 1) {
1260             err = AVERROR(FF_NETERROR(EPROTONOSUPPORT));
1261             goto fail;
1262         }
1263     } while (err);
1264
1265     rt->state = RTSP_STATE_IDLE;
1266     rt->seek_timestamp = 0; /* default is to start stream at position
1267                                zero */
1268     if (ap->initial_pause) {
1269         /* do not start immediately */
1270     } else {
1271         if (rtsp_read_play(s) < 0) {
1272             err = AVERROR_INVALIDDATA;
1273             goto fail;
1274         }
1275     }
1276     return 0;
1277  fail:
1278     rtsp_close_streams(rt);
1279     av_freep(&content);
1280     url_close(rt->rtsp_hd);
1281     return err;
1282 }
1283
1284 static int tcp_read_packet(AVFormatContext *s, RTSPStream **prtsp_st,
1285                            uint8_t *buf, int buf_size)
1286 {
1287     RTSPState *rt = s->priv_data;
1288     int id, len, i, ret;
1289     RTSPStream *rtsp_st;
1290
1291 #ifdef DEBUG_RTP_TCP
1292     printf("tcp_read_packet:\n");
1293 #endif
1294  redo:
1295     for(;;) {
1296         RTSPMessageHeader reply;
1297
1298         ret = rtsp_read_reply(s, &reply, NULL, 1);
1299         if (ret == -1)
1300             return -1;
1301         if (ret == 1) /* received '$' */
1302             break;
1303         /* XXX: parse message */
1304     }
1305     ret = url_readbuf(rt->rtsp_hd, buf, 3);
1306     if (ret != 3)
1307         return -1;
1308     id = buf[0];
1309     len = AV_RB16(buf + 1);
1310 #ifdef DEBUG_RTP_TCP
1311     printf("id=%d len=%d\n", id, len);
1312 #endif
1313     if (len > buf_size || len < 12)
1314         goto redo;
1315     /* get the data */
1316     ret = url_readbuf(rt->rtsp_hd, buf, len);
1317     if (ret != len)
1318         return -1;
1319     if (rt->transport == RTSP_TRANSPORT_RDT &&
1320         ff_rdt_parse_header(buf, len, &id, NULL, NULL, NULL, NULL) < 0)
1321         return -1;
1322
1323     /* find the matching stream */
1324     for(i = 0; i < rt->nb_rtsp_streams; i++) {
1325         rtsp_st = rt->rtsp_streams[i];
1326         if (id >= rtsp_st->interleaved_min &&
1327             id <= rtsp_st->interleaved_max)
1328             goto found;
1329     }
1330     goto redo;
1331  found:
1332     *prtsp_st = rtsp_st;
1333     return len;
1334 }
1335
1336 static int udp_read_packet(AVFormatContext *s, RTSPStream **prtsp_st,
1337                            uint8_t *buf, int buf_size)
1338 {
1339     RTSPState *rt = s->priv_data;
1340     RTSPStream *rtsp_st;
1341     fd_set rfds;
1342     int fd, fd_max, n, i, ret, tcp_fd;
1343     struct timeval tv;
1344
1345     for(;;) {
1346         if (url_interrupt_cb())
1347             return AVERROR(EINTR);
1348         FD_ZERO(&rfds);
1349         tcp_fd = fd_max = url_get_file_handle(rt->rtsp_hd);
1350         FD_SET(tcp_fd, &rfds);
1351         for(i = 0; i < rt->nb_rtsp_streams; i++) {
1352             rtsp_st = rt->rtsp_streams[i];
1353             if (rtsp_st->rtp_handle) {
1354                 /* currently, we cannot probe RTCP handle because of
1355                  * blocking restrictions */
1356                 fd = url_get_file_handle(rtsp_st->rtp_handle);
1357                 if (fd > fd_max)
1358                     fd_max = fd;
1359                 FD_SET(fd, &rfds);
1360             }
1361         }
1362         tv.tv_sec = 0;
1363         tv.tv_usec = 100 * 1000;
1364         n = select(fd_max + 1, &rfds, NULL, NULL, &tv);
1365         if (n > 0) {
1366             for(i = 0; i < rt->nb_rtsp_streams; i++) {
1367                 rtsp_st = rt->rtsp_streams[i];
1368                 if (rtsp_st->rtp_handle) {
1369                     fd = url_get_file_handle(rtsp_st->rtp_handle);
1370                     if (FD_ISSET(fd, &rfds)) {
1371                         ret = url_read(rtsp_st->rtp_handle, buf, buf_size);
1372                         if (ret > 0) {
1373                             *prtsp_st = rtsp_st;
1374                             return ret;
1375                         }
1376                     }
1377                 }
1378             }
1379             if (FD_ISSET(tcp_fd, &rfds)) {
1380                 RTSPMessageHeader reply;
1381
1382                 rtsp_read_reply(s, &reply, NULL, 0);
1383                 /* XXX: parse message */
1384             }
1385         }
1386     }
1387 }
1388
1389 static int rtsp_read_packet(AVFormatContext *s,
1390                             AVPacket *pkt)
1391 {
1392     RTSPState *rt = s->priv_data;
1393     RTSPStream *rtsp_st;
1394     int ret, len;
1395     uint8_t buf[10 * RTP_MAX_PACKET_LENGTH];
1396
1397     if (rt->server_type == RTSP_SERVER_REAL) {
1398         int i;
1399         RTSPMessageHeader reply1, *reply = &reply1;
1400         enum AVDiscard cache[MAX_STREAMS];
1401         char cmd[1024];
1402
1403         for (i = 0; i < s->nb_streams; i++)
1404             cache[i] = s->streams[i]->discard;
1405
1406         if (!rt->need_subscription) {
1407             if (memcmp (cache, rt->real_setup_cache,
1408                         sizeof(enum AVDiscard) * s->nb_streams)) {
1409                 av_strlcatf(cmd, sizeof(cmd),
1410                             "SET_PARAMETER %s RTSP/1.0\r\n"
1411                             "Unsubscribe: %s\r\n",
1412                             s->filename, rt->last_subscription);
1413                 rtsp_send_cmd(s, cmd, reply, NULL);
1414                 if (reply->status_code != RTSP_STATUS_OK)
1415                     return AVERROR_INVALIDDATA;
1416                 rt->need_subscription = 1;
1417             }
1418         }
1419
1420         if (rt->need_subscription) {
1421             int r, rule_nr, first = 1;
1422
1423             memcpy(rt->real_setup_cache, cache,
1424                    sizeof(enum AVDiscard) * s->nb_streams);
1425             rt->last_subscription[0] = 0;
1426
1427             snprintf(cmd, sizeof(cmd),
1428                      "SET_PARAMETER %s RTSP/1.0\r\n"
1429                      "Subscribe: ",
1430                      s->filename);
1431             for (i = 0; i < rt->nb_rtsp_streams; i++) {
1432                 rule_nr = 0;
1433                 for (r = 0; r < s->nb_streams; r++) {
1434                     if (s->streams[r]->priv_data == rt->rtsp_streams[i]) {
1435                         if (s->streams[r]->discard != AVDISCARD_ALL) {
1436                             if (!first)
1437                                 av_strlcat(rt->last_subscription, ",",
1438                                            sizeof(rt->last_subscription));
1439                             ff_rdt_subscribe_rule(
1440                                 rt->last_subscription,
1441                                 sizeof(rt->last_subscription), i, rule_nr);
1442                             first = 0;
1443                         }
1444                         rule_nr++;
1445                     }
1446                 }
1447             }
1448             av_strlcatf(cmd, sizeof(cmd), "%s\r\n", rt->last_subscription);
1449             rtsp_send_cmd(s, cmd, reply, NULL);
1450             if (reply->status_code != RTSP_STATUS_OK)
1451                 return AVERROR_INVALIDDATA;
1452             rt->need_subscription = 0;
1453
1454             if (rt->state == RTSP_STATE_PLAYING)
1455                 rtsp_read_play (s);
1456         }
1457     }
1458
1459     /* get next frames from the same RTP packet */
1460     if (rt->cur_transport_priv) {
1461         if (rt->transport == RTSP_TRANSPORT_RDT)
1462             ret = ff_rdt_parse_packet(rt->cur_transport_priv, pkt, NULL, 0);
1463         else
1464             ret = rtp_parse_packet(rt->cur_transport_priv, pkt, NULL, 0);
1465         if (ret == 0) {
1466             rt->cur_transport_priv = NULL;
1467             return 0;
1468         } else if (ret == 1) {
1469             return 0;
1470         } else {
1471             rt->cur_transport_priv = NULL;
1472         }
1473     }
1474
1475     /* read next RTP packet */
1476  redo:
1477     switch(rt->lower_transport) {
1478     default:
1479     case RTSP_LOWER_TRANSPORT_TCP:
1480         len = tcp_read_packet(s, &rtsp_st, buf, sizeof(buf));
1481         break;
1482     case RTSP_LOWER_TRANSPORT_UDP:
1483     case RTSP_LOWER_TRANSPORT_UDP_MULTICAST:
1484         len = udp_read_packet(s, &rtsp_st, buf, sizeof(buf));
1485         if (len >=0 && rtsp_st->transport_priv && rt->transport == RTSP_TRANSPORT_RTP)
1486             rtp_check_and_send_back_rr(rtsp_st->transport_priv, len);
1487         break;
1488     }
1489     if (len < 0)
1490         return len;
1491     if (rt->transport == RTSP_TRANSPORT_RDT)
1492         ret = ff_rdt_parse_packet(rtsp_st->transport_priv, pkt, buf, len);
1493     else
1494         ret = rtp_parse_packet(rtsp_st->transport_priv, pkt, buf, len);
1495     if (ret < 0)
1496         goto redo;
1497     if (ret == 1) {
1498         /* more packets may follow, so we save the RTP context */
1499         rt->cur_transport_priv = rtsp_st->transport_priv;
1500     }
1501     return 0;
1502 }
1503
1504 static int rtsp_read_play(AVFormatContext *s)
1505 {
1506     RTSPState *rt = s->priv_data;
1507     RTSPMessageHeader reply1, *reply = &reply1;
1508     char cmd[1024];
1509
1510     av_log(s, AV_LOG_DEBUG, "hello state=%d\n", rt->state);
1511
1512     if (!(rt->server_type == RTSP_SERVER_REAL && rt->need_subscription)) {
1513         if (rt->state == RTSP_STATE_PAUSED) {
1514             snprintf(cmd, sizeof(cmd),
1515                      "PLAY %s RTSP/1.0\r\n",
1516                      s->filename);
1517         } else {
1518             snprintf(cmd, sizeof(cmd),
1519                      "PLAY %s RTSP/1.0\r\n"
1520                      "Range: npt=%0.3f-\r\n",
1521                      s->filename,
1522                      (double)rt->seek_timestamp / AV_TIME_BASE);
1523         }
1524         rtsp_send_cmd(s, cmd, reply, NULL);
1525         if (reply->status_code != RTSP_STATUS_OK) {
1526             return -1;
1527         }
1528     }
1529     rt->state = RTSP_STATE_PLAYING;
1530     return 0;
1531 }
1532
1533 /* pause the stream */
1534 static int rtsp_read_pause(AVFormatContext *s)
1535 {
1536     RTSPState *rt = s->priv_data;
1537     RTSPMessageHeader reply1, *reply = &reply1;
1538     char cmd[1024];
1539
1540     rt = s->priv_data;
1541
1542     if (rt->state != RTSP_STATE_PLAYING)
1543         return 0;
1544     else if (!(rt->server_type == RTSP_SERVER_REAL && rt->need_subscription)) {
1545         snprintf(cmd, sizeof(cmd),
1546                  "PAUSE %s RTSP/1.0\r\n",
1547                  s->filename);
1548         rtsp_send_cmd(s, cmd, reply, NULL);
1549         if (reply->status_code != RTSP_STATUS_OK) {
1550             return -1;
1551         }
1552     }
1553     rt->state = RTSP_STATE_PAUSED;
1554     return 0;
1555 }
1556
1557 static int rtsp_read_seek(AVFormatContext *s, int stream_index,
1558                           int64_t timestamp, int flags)
1559 {
1560     RTSPState *rt = s->priv_data;
1561
1562     rt->seek_timestamp = av_rescale_q(timestamp, s->streams[stream_index]->time_base, AV_TIME_BASE_Q);
1563     switch(rt->state) {
1564     default:
1565     case RTSP_STATE_IDLE:
1566         break;
1567     case RTSP_STATE_PLAYING:
1568         if (rtsp_read_play(s) != 0)
1569             return -1;
1570         break;
1571     case RTSP_STATE_PAUSED:
1572         rt->state = RTSP_STATE_IDLE;
1573         break;
1574     }
1575     return 0;
1576 }
1577
1578 static int rtsp_read_close(AVFormatContext *s)
1579 {
1580     RTSPState *rt = s->priv_data;
1581     RTSPMessageHeader reply1, *reply = &reply1;
1582     char cmd[1024];
1583
1584 #if 0
1585     /* NOTE: it is valid to flush the buffer here */
1586     if (rt->lower_transport == RTSP_LOWER_TRANSPORT_TCP) {
1587         url_fclose(&rt->rtsp_gb);
1588     }
1589 #endif
1590     snprintf(cmd, sizeof(cmd),
1591              "TEARDOWN %s RTSP/1.0\r\n",
1592              s->filename);
1593     rtsp_send_cmd(s, cmd, reply, NULL);
1594
1595     rtsp_close_streams(rt);
1596     url_close(rt->rtsp_hd);
1597     return 0;
1598 }
1599
1600 #if CONFIG_RTSP_DEMUXER
1601 AVInputFormat rtsp_demuxer = {
1602     "rtsp",
1603     NULL_IF_CONFIG_SMALL("RTSP input format"),
1604     sizeof(RTSPState),
1605     rtsp_probe,
1606     rtsp_read_header,
1607     rtsp_read_packet,
1608     rtsp_read_close,
1609     rtsp_read_seek,
1610     .flags = AVFMT_NOFILE,
1611     .read_play = rtsp_read_play,
1612     .read_pause = rtsp_read_pause,
1613 };
1614 #endif
1615
1616 static int sdp_probe(AVProbeData *p1)
1617 {
1618     const char *p = p1->buf, *p_end = p1->buf + p1->buf_size;
1619
1620     /* we look for a line beginning "c=IN IP4" */
1621     while (p < p_end && *p != '\0') {
1622         if (p + sizeof("c=IN IP4") - 1 < p_end && av_strstart(p, "c=IN IP4", NULL))
1623             return AVPROBE_SCORE_MAX / 2;
1624
1625         while(p < p_end - 1 && *p != '\n') p++;
1626         if (++p >= p_end)
1627             break;
1628         if (*p == '\r')
1629             p++;
1630     }
1631     return 0;
1632 }
1633
1634 #define SDP_MAX_SIZE 8192
1635
1636 static int sdp_read_header(AVFormatContext *s,
1637                            AVFormatParameters *ap)
1638 {
1639     RTSPState *rt = s->priv_data;
1640     RTSPStream *rtsp_st;
1641     int size, i, err;
1642     char *content;
1643     char url[1024];
1644
1645     /* read the whole sdp file */
1646     /* XXX: better loading */
1647     content = av_malloc(SDP_MAX_SIZE);
1648     size = get_buffer(s->pb, content, SDP_MAX_SIZE - 1);
1649     if (size <= 0) {
1650         av_free(content);
1651         return AVERROR_INVALIDDATA;
1652     }
1653     content[size] ='\0';
1654
1655     sdp_parse(s, content);
1656     av_free(content);
1657
1658     /* open each RTP stream */
1659     for(i=0;i<rt->nb_rtsp_streams;i++) {
1660         rtsp_st = rt->rtsp_streams[i];
1661
1662         snprintf(url, sizeof(url), "rtp://%s:%d?localport=%d&ttl=%d",
1663                  inet_ntoa(rtsp_st->sdp_ip),
1664                  rtsp_st->sdp_port,
1665                  rtsp_st->sdp_port,
1666                  rtsp_st->sdp_ttl);
1667         if (url_open(&rtsp_st->rtp_handle, url, URL_RDWR) < 0) {
1668             err = AVERROR_INVALIDDATA;
1669             goto fail;
1670         }
1671         if ((err = rtsp_open_transport_ctx(s, rtsp_st)))
1672             goto fail;
1673     }
1674     return 0;
1675  fail:
1676     rtsp_close_streams(rt);
1677     return err;
1678 }
1679
1680 static int sdp_read_packet(AVFormatContext *s,
1681                             AVPacket *pkt)
1682 {
1683     return rtsp_read_packet(s, pkt);
1684 }
1685
1686 static int sdp_read_close(AVFormatContext *s)
1687 {
1688     RTSPState *rt = s->priv_data;
1689     rtsp_close_streams(rt);
1690     return 0;
1691 }
1692
1693 #if CONFIG_SDP_DEMUXER
1694 AVInputFormat sdp_demuxer = {
1695     "sdp",
1696     NULL_IF_CONFIG_SMALL("SDP"),
1697     sizeof(RTSPState),
1698     sdp_probe,
1699     sdp_read_header,
1700     sdp_read_packet,
1701     sdp_read_close,
1702 };
1703 #endif
1704
1705 #if CONFIG_REDIR_DEMUXER
1706 /* dummy redirector format (used directly in av_open_input_file now) */
1707 static int redir_probe(AVProbeData *pd)
1708 {
1709     const char *p;
1710     p = pd->buf;
1711     skip_spaces(&p);
1712     if (av_strstart(p, "http://", NULL) ||
1713         av_strstart(p, "rtsp://", NULL))
1714         return AVPROBE_SCORE_MAX;
1715     return 0;
1716 }
1717
1718 static int redir_read_header(AVFormatContext *s, AVFormatParameters *ap)
1719 {
1720     char buf[4096], *q;
1721     int c;
1722     AVFormatContext *ic = NULL;
1723     ByteIOContext *f = s->pb;
1724
1725     /* parse each URL and try to open it */
1726     c = url_fgetc(f);
1727     while (c != URL_EOF) {
1728         /* skip spaces */
1729         for(;;) {
1730             if (!redir_isspace(c))
1731                 break;
1732             c = url_fgetc(f);
1733         }
1734         if (c == URL_EOF)
1735             break;
1736         /* record url */
1737         q = buf;
1738         for(;;) {
1739             if (c == URL_EOF || redir_isspace(c))
1740                 break;
1741             if ((q - buf) < sizeof(buf) - 1)
1742                 *q++ = c;
1743             c = url_fgetc(f);
1744         }
1745         *q = '\0';
1746         //printf("URL='%s'\n", buf);
1747         /* try to open the media file */
1748         if (av_open_input_file(&ic, buf, NULL, 0, NULL) == 0)
1749             break;
1750     }
1751     if (!ic)
1752         return AVERROR(EIO);
1753
1754     *s = *ic;
1755     url_fclose(f);
1756
1757     return 0;
1758 }
1759
1760 AVInputFormat redir_demuxer = {
1761     "redir",
1762     NULL_IF_CONFIG_SMALL("Redirector format"),
1763     0,
1764     redir_probe,
1765     redir_read_header,
1766     NULL,
1767     NULL,
1768 };
1769 #endif