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