loco: return meaningful error codes.
[ffmpeg.git] / libavformat / aviobuf.c
1 /*
2  * buffered I/O
3  * Copyright (c) 2000,2001 Fabrice Bellard
4  *
5  * This file is part of Libav.
6  *
7  * Libav 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  * Libav 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 Libav; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20  */
21
22 #include "libavutil/crc.h"
23 #include "libavutil/dict.h"
24 #include "libavutil/intreadwrite.h"
25 #include "libavutil/log.h"
26 #include "libavutil/opt.h"
27 #include "avformat.h"
28 #include "avio.h"
29 #include "avio_internal.h"
30 #include "internal.h"
31 #include "url.h"
32 #include <stdarg.h>
33
34 #define IO_BUFFER_SIZE 32768
35
36 /**
37  * Do seeks within this distance ahead of the current buffer by skipping
38  * data instead of calling the protocol seek function, for seekable
39  * protocols.
40  */
41 #define SHORT_SEEK_THRESHOLD 4096
42
43 static void *ffio_url_child_next(void *obj, void *prev)
44 {
45     AVIOContext *s = obj;
46     return prev ? NULL : s->opaque;
47 }
48
49 static const AVClass *ffio_url_child_class_next(const AVClass *prev)
50 {
51     return prev ? NULL : &ffurl_context_class;
52 }
53
54 static const AVOption ffio_url_options[] = {
55     { NULL },
56 };
57
58 const AVClass ffio_url_class = {
59     .class_name = "AVIOContext",
60     .item_name  = av_default_item_name,
61     .version    = LIBAVUTIL_VERSION_INT,
62     .option     = ffio_url_options,
63     .child_next = ffio_url_child_next,
64     .child_class_next = ffio_url_child_class_next,
65 };
66
67 static void fill_buffer(AVIOContext *s);
68 static int url_resetbuf(AVIOContext *s, int flags);
69
70 int ffio_init_context(AVIOContext *s,
71                   unsigned char *buffer,
72                   int buffer_size,
73                   int write_flag,
74                   void *opaque,
75                   int (*read_packet)(void *opaque, uint8_t *buf, int buf_size),
76                   int (*write_packet)(void *opaque, uint8_t *buf, int buf_size),
77                   int64_t (*seek)(void *opaque, int64_t offset, int whence))
78 {
79     s->buffer      = buffer;
80     s->buffer_size = buffer_size;
81     s->buf_ptr     = buffer;
82     s->opaque      = opaque;
83
84     url_resetbuf(s, write_flag ? AVIO_FLAG_WRITE : AVIO_FLAG_READ);
85
86     s->write_packet    = write_packet;
87     s->read_packet     = read_packet;
88     s->seek            = seek;
89     s->pos             = 0;
90     s->must_flush      = 0;
91     s->eof_reached     = 0;
92     s->error           = 0;
93     s->seekable        = AVIO_SEEKABLE_NORMAL;
94     s->max_packet_size = 0;
95     s->update_checksum = NULL;
96
97     if (!read_packet && !write_flag) {
98         s->pos     = buffer_size;
99         s->buf_end = s->buffer + buffer_size;
100     }
101     s->read_pause = NULL;
102     s->read_seek  = NULL;
103
104     return 0;
105 }
106
107 AVIOContext *avio_alloc_context(
108                   unsigned char *buffer,
109                   int buffer_size,
110                   int write_flag,
111                   void *opaque,
112                   int (*read_packet)(void *opaque, uint8_t *buf, int buf_size),
113                   int (*write_packet)(void *opaque, uint8_t *buf, int buf_size),
114                   int64_t (*seek)(void *opaque, int64_t offset, int whence))
115 {
116     AVIOContext *s = av_mallocz(sizeof(AVIOContext));
117     if (!s)
118         return NULL;
119     ffio_init_context(s, buffer, buffer_size, write_flag, opaque,
120                   read_packet, write_packet, seek);
121     return s;
122 }
123
124 static void flush_buffer(AVIOContext *s)
125 {
126     if (s->buf_ptr > s->buffer) {
127         if (s->write_packet && !s->error) {
128             int ret = s->write_packet(s->opaque, s->buffer,
129                                       s->buf_ptr - s->buffer);
130             if (ret < 0) {
131                 s->error = ret;
132             }
133         }
134         if (s->update_checksum) {
135             s->checksum     = s->update_checksum(s->checksum, s->checksum_ptr,
136                                                  s->buf_ptr - s->checksum_ptr);
137             s->checksum_ptr = s->buffer;
138         }
139         s->pos += s->buf_ptr - s->buffer;
140     }
141     s->buf_ptr = s->buffer;
142 }
143
144 void avio_w8(AVIOContext *s, int b)
145 {
146     *s->buf_ptr++ = b;
147     if (s->buf_ptr >= s->buf_end)
148         flush_buffer(s);
149 }
150
151 void ffio_fill(AVIOContext *s, int b, int count)
152 {
153     while (count > 0) {
154         int len = FFMIN(s->buf_end - s->buf_ptr, count);
155         memset(s->buf_ptr, b, len);
156         s->buf_ptr += len;
157
158         if (s->buf_ptr >= s->buf_end)
159             flush_buffer(s);
160
161         count -= len;
162     }
163 }
164
165 void avio_write(AVIOContext *s, const unsigned char *buf, int size)
166 {
167     while (size > 0) {
168         int len = FFMIN(s->buf_end - s->buf_ptr, size);
169         memcpy(s->buf_ptr, buf, len);
170         s->buf_ptr += len;
171
172         if (s->buf_ptr >= s->buf_end)
173             flush_buffer(s);
174
175         buf += len;
176         size -= len;
177     }
178 }
179
180 void avio_flush(AVIOContext *s)
181 {
182     flush_buffer(s);
183     s->must_flush = 0;
184 }
185
186 int64_t avio_seek(AVIOContext *s, int64_t offset, int whence)
187 {
188     int64_t offset1;
189     int64_t pos;
190     int force = whence & AVSEEK_FORCE;
191     whence &= ~AVSEEK_FORCE;
192
193     if(!s)
194         return AVERROR(EINVAL);
195
196     pos = s->pos - (s->write_flag ? 0 : (s->buf_end - s->buffer));
197
198     if (whence != SEEK_CUR && whence != SEEK_SET)
199         return AVERROR(EINVAL);
200
201     if (whence == SEEK_CUR) {
202         offset1 = pos + (s->buf_ptr - s->buffer);
203         if (offset == 0)
204             return offset1;
205         offset += offset1;
206     }
207     offset1 = offset - pos;
208     if (!s->must_flush &&
209         offset1 >= 0 && offset1 <= (s->buf_end - s->buffer)) {
210         /* can do the seek inside the buffer */
211         s->buf_ptr = s->buffer + offset1;
212     } else if ((!s->seekable ||
213                offset1 <= s->buf_end + SHORT_SEEK_THRESHOLD - s->buffer) &&
214                !s->write_flag && offset1 >= 0 &&
215               (whence != SEEK_END || force)) {
216         while(s->pos < offset && !s->eof_reached)
217             fill_buffer(s);
218         if (s->eof_reached)
219             return AVERROR_EOF;
220         s->buf_ptr = s->buf_end + offset - s->pos;
221     } else {
222         int64_t res;
223
224         if (s->write_flag) {
225             flush_buffer(s);
226             s->must_flush = 1;
227         }
228         if (!s->seek)
229             return AVERROR(EPIPE);
230         if ((res = s->seek(s->opaque, offset, SEEK_SET)) < 0)
231             return res;
232         if (!s->write_flag)
233             s->buf_end = s->buffer;
234         s->buf_ptr = s->buffer;
235         s->pos = offset;
236     }
237     s->eof_reached = 0;
238     return offset;
239 }
240
241 int64_t avio_size(AVIOContext *s)
242 {
243     int64_t size;
244
245     if (!s)
246         return AVERROR(EINVAL);
247
248     if (!s->seek)
249         return AVERROR(ENOSYS);
250     size = s->seek(s->opaque, 0, AVSEEK_SIZE);
251     if (size < 0) {
252         if ((size = s->seek(s->opaque, -1, SEEK_END)) < 0)
253             return size;
254         size++;
255         s->seek(s->opaque, s->pos, SEEK_SET);
256     }
257     return size;
258 }
259
260 void avio_wl32(AVIOContext *s, unsigned int val)
261 {
262     avio_w8(s, val);
263     avio_w8(s, val >> 8);
264     avio_w8(s, val >> 16);
265     avio_w8(s, val >> 24);
266 }
267
268 void avio_wb32(AVIOContext *s, unsigned int val)
269 {
270     avio_w8(s, val >> 24);
271     avio_w8(s, val >> 16);
272     avio_w8(s, val >> 8);
273     avio_w8(s, val);
274 }
275
276 int avio_put_str(AVIOContext *s, const char *str)
277 {
278     int len = 1;
279     if (str) {
280         len += strlen(str);
281         avio_write(s, (const unsigned char *) str, len);
282     } else
283         avio_w8(s, 0);
284     return len;
285 }
286
287 int avio_put_str16le(AVIOContext *s, const char *str)
288 {
289     const uint8_t *q = str;
290     int ret = 0;
291
292     while (*q) {
293         uint32_t ch;
294         uint16_t tmp;
295
296         GET_UTF8(ch, *q++, break;)
297         PUT_UTF16(ch, tmp, avio_wl16(s, tmp); ret += 2;)
298     }
299     avio_wl16(s, 0);
300     ret += 2;
301     return ret;
302 }
303
304 int ff_get_v_length(uint64_t val)
305 {
306     int i = 1;
307
308     while (val >>= 7)
309         i++;
310
311     return i;
312 }
313
314 void ff_put_v(AVIOContext *bc, uint64_t val)
315 {
316     int i = ff_get_v_length(val);
317
318     while (--i > 0)
319         avio_w8(bc, 128 | (val >> (7 * i)));
320
321     avio_w8(bc, val & 127);
322 }
323
324 void avio_wl64(AVIOContext *s, uint64_t val)
325 {
326     avio_wl32(s, (uint32_t)(val & 0xffffffff));
327     avio_wl32(s, (uint32_t)(val >> 32));
328 }
329
330 void avio_wb64(AVIOContext *s, uint64_t val)
331 {
332     avio_wb32(s, (uint32_t)(val >> 32));
333     avio_wb32(s, (uint32_t)(val & 0xffffffff));
334 }
335
336 void avio_wl16(AVIOContext *s, unsigned int val)
337 {
338     avio_w8(s, val);
339     avio_w8(s, val >> 8);
340 }
341
342 void avio_wb16(AVIOContext *s, unsigned int val)
343 {
344     avio_w8(s, val >> 8);
345     avio_w8(s, val);
346 }
347
348 void avio_wl24(AVIOContext *s, unsigned int val)
349 {
350     avio_wl16(s, val & 0xffff);
351     avio_w8(s, val >> 16);
352 }
353
354 void avio_wb24(AVIOContext *s, unsigned int val)
355 {
356     avio_wb16(s, val >> 8);
357     avio_w8(s, val);
358 }
359
360 /* Input stream */
361
362 static void fill_buffer(AVIOContext *s)
363 {
364     uint8_t *dst        = !s->max_packet_size &&
365                           s->buf_end - s->buffer < s->buffer_size ?
366                           s->buf_end : s->buffer;
367     int len             = s->buffer_size - (dst - s->buffer);
368     int max_buffer_size = s->max_packet_size ?
369                           s->max_packet_size : IO_BUFFER_SIZE;
370
371     /* can't fill the buffer without read_packet, just set EOF if appropriate */
372     if (!s->read_packet && s->buf_ptr >= s->buf_end)
373         s->eof_reached = 1;
374
375     /* no need to do anything if EOF already reached */
376     if (s->eof_reached)
377         return;
378
379     if (s->update_checksum && dst == s->buffer) {
380         if (s->buf_end > s->checksum_ptr)
381             s->checksum = s->update_checksum(s->checksum, s->checksum_ptr,
382                                              s->buf_end - s->checksum_ptr);
383         s->checksum_ptr = s->buffer;
384     }
385
386     /* make buffer smaller in case it ended up large after probing */
387     if (s->buffer_size > max_buffer_size) {
388         ffio_set_buf_size(s, max_buffer_size);
389
390         s->checksum_ptr = dst = s->buffer;
391         len = s->buffer_size;
392     }
393
394     if (s->read_packet)
395         len = s->read_packet(s->opaque, dst, len);
396     else
397         len = 0;
398     if (len <= 0) {
399         /* do not modify buffer if EOF reached so that a seek back can
400            be done without rereading data */
401         s->eof_reached = 1;
402         if (len < 0)
403             s->error = len;
404     } else {
405         s->pos += len;
406         s->buf_ptr = dst;
407         s->buf_end = dst + len;
408     }
409 }
410
411 unsigned long ff_crc04C11DB7_update(unsigned long checksum, const uint8_t *buf,
412                                     unsigned int len)
413 {
414     return av_crc(av_crc_get_table(AV_CRC_32_IEEE), checksum, buf, len);
415 }
416
417 unsigned long ffio_get_checksum(AVIOContext *s)
418 {
419     s->checksum = s->update_checksum(s->checksum, s->checksum_ptr,
420                                      s->buf_ptr - s->checksum_ptr);
421     s->update_checksum = NULL;
422     return s->checksum;
423 }
424
425 void ffio_init_checksum(AVIOContext *s,
426                    unsigned long (*update_checksum)(unsigned long c, const uint8_t *p, unsigned int len),
427                    unsigned long checksum)
428 {
429     s->update_checksum = update_checksum;
430     if (s->update_checksum) {
431         s->checksum     = checksum;
432         s->checksum_ptr = s->buf_ptr;
433     }
434 }
435
436 /* XXX: put an inline version */
437 int avio_r8(AVIOContext *s)
438 {
439     if (s->buf_ptr >= s->buf_end)
440         fill_buffer(s);
441     if (s->buf_ptr < s->buf_end)
442         return *s->buf_ptr++;
443     return 0;
444 }
445
446 int avio_read(AVIOContext *s, unsigned char *buf, int size)
447 {
448     int len, size1;
449
450     size1 = size;
451     while (size > 0) {
452         len = s->buf_end - s->buf_ptr;
453         if (len > size)
454             len = size;
455         if (len == 0 || s->write_flag) {
456             if(size > s->buffer_size && !s->update_checksum){
457                 if(s->read_packet)
458                     len = s->read_packet(s->opaque, buf, size);
459                 if (len <= 0) {
460                     /* do not modify buffer if EOF reached so that a seek back can
461                     be done without rereading data */
462                     s->eof_reached = 1;
463                     if(len<0)
464                         s->error= len;
465                     break;
466                 } else {
467                     s->pos += len;
468                     size -= len;
469                     buf += len;
470                     s->buf_ptr = s->buffer;
471                     s->buf_end = s->buffer/* + len*/;
472                 }
473             } else {
474                 fill_buffer(s);
475                 len = s->buf_end - s->buf_ptr;
476                 if (len == 0)
477                     break;
478             }
479         } else {
480             memcpy(buf, s->buf_ptr, len);
481             buf += len;
482             s->buf_ptr += len;
483             size -= len;
484         }
485     }
486     if (size1 == size) {
487         if (s->error)         return s->error;
488         if (s->eof_reached)   return AVERROR_EOF;
489     }
490     return size1 - size;
491 }
492
493 int ffio_read_partial(AVIOContext *s, unsigned char *buf, int size)
494 {
495     int len;
496
497     if (size < 0)
498         return -1;
499
500     if (s->read_packet && s->write_flag) {
501         len = s->read_packet(s->opaque, buf, size);
502         if (len > 0)
503             s->pos += len;
504         return len;
505     }
506
507     len = s->buf_end - s->buf_ptr;
508     if (len == 0) {
509         /* Reset the buf_end pointer to the start of the buffer, to make sure
510          * the fill_buffer call tries to read as much data as fits into the
511          * full buffer, instead of just what space is left after buf_end.
512          * This avoids returning partial packets at the end of the buffer,
513          * for packet based inputs.
514          */
515         s->buf_end = s->buf_ptr = s->buffer;
516         fill_buffer(s);
517         len = s->buf_end - s->buf_ptr;
518     }
519     if (len > size)
520         len = size;
521     memcpy(buf, s->buf_ptr, len);
522     s->buf_ptr += len;
523     if (!len) {
524         if (s->error)         return s->error;
525         if (s->eof_reached)   return AVERROR_EOF;
526     }
527     return len;
528 }
529
530 unsigned int avio_rl16(AVIOContext *s)
531 {
532     unsigned int val;
533     val = avio_r8(s);
534     val |= avio_r8(s) << 8;
535     return val;
536 }
537
538 unsigned int avio_rl24(AVIOContext *s)
539 {
540     unsigned int val;
541     val = avio_rl16(s);
542     val |= avio_r8(s) << 16;
543     return val;
544 }
545
546 unsigned int avio_rl32(AVIOContext *s)
547 {
548     unsigned int val;
549     val = avio_rl16(s);
550     val |= avio_rl16(s) << 16;
551     return val;
552 }
553
554 uint64_t avio_rl64(AVIOContext *s)
555 {
556     uint64_t val;
557     val = (uint64_t)avio_rl32(s);
558     val |= (uint64_t)avio_rl32(s) << 32;
559     return val;
560 }
561
562 unsigned int avio_rb16(AVIOContext *s)
563 {
564     unsigned int val;
565     val = avio_r8(s) << 8;
566     val |= avio_r8(s);
567     return val;
568 }
569
570 unsigned int avio_rb24(AVIOContext *s)
571 {
572     unsigned int val;
573     val = avio_rb16(s) << 8;
574     val |= avio_r8(s);
575     return val;
576 }
577 unsigned int avio_rb32(AVIOContext *s)
578 {
579     unsigned int val;
580     val = avio_rb16(s) << 16;
581     val |= avio_rb16(s);
582     return val;
583 }
584
585 int ff_get_line(AVIOContext *s, char *buf, int maxlen)
586 {
587     int i = 0;
588     char c;
589
590     do {
591         c = avio_r8(s);
592         if (c && i < maxlen-1)
593             buf[i++] = c;
594     } while (c != '\n' && c);
595
596     buf[i] = 0;
597     return i;
598 }
599
600 int avio_get_str(AVIOContext *s, int maxlen, char *buf, int buflen)
601 {
602     int i;
603
604     if (buflen <= 0)
605         return AVERROR(EINVAL);
606     // reserve 1 byte for terminating 0
607     buflen = FFMIN(buflen - 1, maxlen);
608     for (i = 0; i < buflen; i++)
609         if (!(buf[i] = avio_r8(s)))
610             return i + 1;
611     buf[i] = 0;
612     for (; i < maxlen; i++)
613         if (!avio_r8(s))
614             return i + 1;
615     return maxlen;
616 }
617
618 #define GET_STR16(type, read) \
619     int avio_get_str16 ##type(AVIOContext *pb, int maxlen, char *buf, int buflen)\
620 {\
621     char* q = buf;\
622     int ret = 0;\
623     if (buflen <= 0) \
624         return AVERROR(EINVAL); \
625     while (ret + 1 < maxlen) {\
626         uint8_t tmp;\
627         uint32_t ch;\
628         GET_UTF16(ch, (ret += 2) <= maxlen ? read(pb) : 0, break;)\
629         if (!ch)\
630             break;\
631         PUT_UTF8(ch, tmp, if (q - buf < buflen - 1) *q++ = tmp;)\
632     }\
633     *q = 0;\
634     return ret;\
635 }\
636
637 GET_STR16(le, avio_rl16)
638 GET_STR16(be, avio_rb16)
639
640 #undef GET_STR16
641
642 uint64_t avio_rb64(AVIOContext *s)
643 {
644     uint64_t val;
645     val = (uint64_t)avio_rb32(s) << 32;
646     val |= (uint64_t)avio_rb32(s);
647     return val;
648 }
649
650 uint64_t ffio_read_varlen(AVIOContext *bc){
651     uint64_t val = 0;
652     int tmp;
653
654     do{
655         tmp = avio_r8(bc);
656         val= (val<<7) + (tmp&127);
657     }while(tmp&128);
658     return val;
659 }
660
661 int ffio_fdopen(AVIOContext **s, URLContext *h)
662 {
663     uint8_t *buffer;
664     int buffer_size, max_packet_size;
665
666     max_packet_size = h->max_packet_size;
667     if (max_packet_size) {
668         buffer_size = max_packet_size; /* no need to bufferize more than one packet */
669     } else {
670         buffer_size = IO_BUFFER_SIZE;
671     }
672     buffer = av_malloc(buffer_size);
673     if (!buffer)
674         return AVERROR(ENOMEM);
675
676     *s = avio_alloc_context(buffer, buffer_size, h->flags & AVIO_FLAG_WRITE, h,
677                             ffurl_read, ffurl_write, ffurl_seek);
678     if (!*s) {
679         av_free(buffer);
680         return AVERROR(ENOMEM);
681     }
682     (*s)->seekable = h->is_streamed ? 0 : AVIO_SEEKABLE_NORMAL;
683     (*s)->max_packet_size = max_packet_size;
684     if(h->prot) {
685         (*s)->read_pause = (int (*)(void *, int))h->prot->url_read_pause;
686         (*s)->read_seek  = (int64_t (*)(void *, int, int64_t, int))h->prot->url_read_seek;
687     }
688     (*s)->av_class = &ffio_url_class;
689     return 0;
690 }
691
692 int ffio_set_buf_size(AVIOContext *s, int buf_size)
693 {
694     uint8_t *buffer;
695     buffer = av_malloc(buf_size);
696     if (!buffer)
697         return AVERROR(ENOMEM);
698
699     av_free(s->buffer);
700     s->buffer = buffer;
701     s->buffer_size = buf_size;
702     s->buf_ptr = buffer;
703     url_resetbuf(s, s->write_flag ? AVIO_FLAG_WRITE : AVIO_FLAG_READ);
704     return 0;
705 }
706
707 static int url_resetbuf(AVIOContext *s, int flags)
708 {
709     assert(flags == AVIO_FLAG_WRITE || flags == AVIO_FLAG_READ);
710
711     if (flags & AVIO_FLAG_WRITE) {
712         s->buf_end = s->buffer + s->buffer_size;
713         s->write_flag = 1;
714     } else {
715         s->buf_end = s->buffer;
716         s->write_flag = 0;
717     }
718     return 0;
719 }
720
721 int ffio_rewind_with_probe_data(AVIOContext *s, unsigned char *buf, int buf_size)
722 {
723     int64_t buffer_start;
724     int buffer_size;
725     int overlap, new_size, alloc_size;
726
727     if (s->write_flag)
728         return AVERROR(EINVAL);
729
730     buffer_size = s->buf_end - s->buffer;
731
732     /* the buffers must touch or overlap */
733     if ((buffer_start = s->pos - buffer_size) > buf_size)
734         return AVERROR(EINVAL);
735
736     overlap = buf_size - buffer_start;
737     new_size = buf_size + buffer_size - overlap;
738
739     alloc_size = FFMAX(s->buffer_size, new_size);
740     if (alloc_size > buf_size)
741         if (!(buf = av_realloc(buf, alloc_size)))
742             return AVERROR(ENOMEM);
743
744     if (new_size > buf_size) {
745         memcpy(buf + buf_size, s->buffer + overlap, buffer_size - overlap);
746         buf_size = new_size;
747     }
748
749     av_free(s->buffer);
750     s->buf_ptr = s->buffer = buf;
751     s->buffer_size = alloc_size;
752     s->pos = buf_size;
753     s->buf_end = s->buf_ptr + buf_size;
754     s->eof_reached = 0;
755     s->must_flush = 0;
756
757     return 0;
758 }
759
760 int avio_open(AVIOContext **s, const char *filename, int flags)
761 {
762     return avio_open2(s, filename, flags, NULL, NULL);
763 }
764
765 int avio_open2(AVIOContext **s, const char *filename, int flags,
766                const AVIOInterruptCB *int_cb, AVDictionary **options)
767 {
768     URLContext *h;
769     int err;
770
771     err = ffurl_open(&h, filename, flags, int_cb, options);
772     if (err < 0)
773         return err;
774     err = ffio_fdopen(s, h);
775     if (err < 0) {
776         ffurl_close(h);
777         return err;
778     }
779     return 0;
780 }
781
782 int avio_close(AVIOContext *s)
783 {
784     URLContext *h;
785
786     if (!s)
787         return 0;
788
789     avio_flush(s);
790     h = s->opaque;
791     av_freep(&s->buffer);
792     av_free(s);
793     return ffurl_close(h);
794 }
795
796 int avio_closep(AVIOContext **s)
797 {
798     int ret = avio_close(*s);
799     *s = NULL;
800     return ret;
801 }
802
803 int avio_printf(AVIOContext *s, const char *fmt, ...)
804 {
805     va_list ap;
806     char buf[4096];
807     int ret;
808
809     va_start(ap, fmt);
810     ret = vsnprintf(buf, sizeof(buf), fmt, ap);
811     va_end(ap);
812     avio_write(s, buf, strlen(buf));
813     return ret;
814 }
815
816 int avio_pause(AVIOContext *s, int pause)
817 {
818     if (!s->read_pause)
819         return AVERROR(ENOSYS);
820     return s->read_pause(s->opaque, pause);
821 }
822
823 int64_t avio_seek_time(AVIOContext *s, int stream_index,
824                        int64_t timestamp, int flags)
825 {
826     URLContext *h = s->opaque;
827     int64_t ret;
828     if (!s->read_seek)
829         return AVERROR(ENOSYS);
830     ret = s->read_seek(h, stream_index, timestamp, flags);
831     if (ret >= 0) {
832         int64_t pos;
833         s->buf_ptr = s->buf_end; // Flush buffer
834         pos = s->seek(h, 0, SEEK_CUR);
835         if (pos >= 0)
836             s->pos = pos;
837         else if (pos != AVERROR(ENOSYS))
838             ret = pos;
839     }
840     return ret;
841 }
842
843 /* output in a dynamic buffer */
844
845 typedef struct DynBuffer {
846     int pos, size, allocated_size;
847     uint8_t *buffer;
848     int io_buffer_size;
849     uint8_t io_buffer[1];
850 } DynBuffer;
851
852 static int dyn_buf_write(void *opaque, uint8_t *buf, int buf_size)
853 {
854     DynBuffer *d = opaque;
855     unsigned new_size, new_allocated_size;
856
857     /* reallocate buffer if needed */
858     new_size = d->pos + buf_size;
859     new_allocated_size = d->allocated_size;
860     if (new_size < d->pos || new_size > INT_MAX/2)
861         return -1;
862     while (new_size > new_allocated_size) {
863         if (!new_allocated_size)
864             new_allocated_size = new_size;
865         else
866             new_allocated_size += new_allocated_size / 2 + 1;
867     }
868
869     if (new_allocated_size > d->allocated_size) {
870         d->buffer = av_realloc(d->buffer, new_allocated_size);
871         if(d->buffer == NULL)
872              return AVERROR(ENOMEM);
873         d->allocated_size = new_allocated_size;
874     }
875     memcpy(d->buffer + d->pos, buf, buf_size);
876     d->pos = new_size;
877     if (d->pos > d->size)
878         d->size = d->pos;
879     return buf_size;
880 }
881
882 static int dyn_packet_buf_write(void *opaque, uint8_t *buf, int buf_size)
883 {
884     unsigned char buf1[4];
885     int ret;
886
887     /* packetized write: output the header */
888     AV_WB32(buf1, buf_size);
889     ret = dyn_buf_write(opaque, buf1, 4);
890     if (ret < 0)
891         return ret;
892
893     /* then the data */
894     return dyn_buf_write(opaque, buf, buf_size);
895 }
896
897 static int64_t dyn_buf_seek(void *opaque, int64_t offset, int whence)
898 {
899     DynBuffer *d = opaque;
900
901     if (whence == SEEK_CUR)
902         offset += d->pos;
903     else if (whence == SEEK_END)
904         offset += d->size;
905     if (offset < 0 || offset > 0x7fffffffLL)
906         return -1;
907     d->pos = offset;
908     return 0;
909 }
910
911 static int url_open_dyn_buf_internal(AVIOContext **s, int max_packet_size)
912 {
913     DynBuffer *d;
914     unsigned io_buffer_size = max_packet_size ? max_packet_size : 1024;
915
916     if (sizeof(DynBuffer) + io_buffer_size < io_buffer_size)
917         return -1;
918     d = av_mallocz(sizeof(DynBuffer) + io_buffer_size);
919     if (!d)
920         return AVERROR(ENOMEM);
921     d->io_buffer_size = io_buffer_size;
922     *s = avio_alloc_context(d->io_buffer, d->io_buffer_size, 1, d, NULL,
923                             max_packet_size ? dyn_packet_buf_write : dyn_buf_write,
924                             max_packet_size ? NULL : dyn_buf_seek);
925     if(!*s) {
926         av_free(d);
927         return AVERROR(ENOMEM);
928     }
929     (*s)->max_packet_size = max_packet_size;
930     return 0;
931 }
932
933 int avio_open_dyn_buf(AVIOContext **s)
934 {
935     return url_open_dyn_buf_internal(s, 0);
936 }
937
938 int ffio_open_dyn_packet_buf(AVIOContext **s, int max_packet_size)
939 {
940     if (max_packet_size <= 0)
941         return -1;
942     return url_open_dyn_buf_internal(s, max_packet_size);
943 }
944
945 int avio_close_dyn_buf(AVIOContext *s, uint8_t **pbuffer)
946 {
947     DynBuffer *d = s->opaque;
948     int size;
949     static const char padbuf[FF_INPUT_BUFFER_PADDING_SIZE] = {0};
950     int padding = 0;
951
952     /* don't attempt to pad fixed-size packet buffers */
953     if (!s->max_packet_size) {
954         avio_write(s, padbuf, sizeof(padbuf));
955         padding = FF_INPUT_BUFFER_PADDING_SIZE;
956     }
957
958     avio_flush(s);
959
960     *pbuffer = d->buffer;
961     size = d->size;
962     av_free(d);
963     av_free(s);
964     return size - padding;
965 }