git.sesse.net Git - vlc/blob - src/misc/block.c

   1 /*****************************************************************************
   2  * block.c: Data blocks management functions
   3  *****************************************************************************
   4  * Copyright (C) 2003-2004 the VideoLAN team
   5  * $Id$
   6  *
   7  * Authors: Laurent Aimar <fenrir@videolan.org>
   8  *
   9  * This program is free software; you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 2 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  22  *****************************************************************************/
  23
  24 /*****************************************************************************
  25  * Preamble
  26  *****************************************************************************/
  27 #ifdef HAVE_CONFIG_H
  28 # include "config.h"
  29 #endif
  30
  31 #include <vlc/vlc.h>
  32 #include "vlc_block.h"
  33
  34 /*****************************************************************************
  35  * Block functions.
  36  *****************************************************************************/
  37 /* private */
  38 struct block_sys_t
  39 {
  40     block_t     self;
  41     size_t      i_allocated_buffer;
  42     uint8_t     p_allocated_buffer[0];
  43 };
  44
  45 #ifndef NDEBUG
  46 static void BlockNoRelease( block_t *b )
  47 {
  48     fprintf( stderr, "block %p has no release callback! This is a bug!\n", b );
  49     abort();
  50 }
  51 #endif
  52
  53 void block_Init( block_t *restrict b, void *buf, size_t size )
  54 {
  55     /* Fill all fields to their default */
  56     b->p_next = b->p_prev = NULL;
  57     b->i_flags = 0;
  58     b->i_pts = b->i_dts = b->i_length = 0;
  59     b->i_rate = 0;
  60     b->p_buffer = buf;
  61     b->i_buffer = size;
  62 #ifndef NDEBUG
  63     b->pf_release = BlockNoRelease;
  64 #endif
  65 }
  66
  67 static void BlockRelease( block_t *p_block )
  68 {
  69     free( p_block );
  70 }
  71
  72 /* Memory alignment */
  73 #define BLOCK_ALIGN        16
  74 /* Initial size of reserved header and footer */
  75 #define BLOCK_PADDING_SIZE 32
  76 /* Maximum size of reserved footer before we release with realloc() */
  77 #define BLOCK_WASTE_SIZE   2048
  78
  79 block_t *block_Alloc( size_t i_size )
  80 {
  81     /* We do only one malloc
  82      * TODO: bench if doing 2 malloc but keeping a pool of buffer is better
  83      * TODO: use memalign
  84      * 16 -> align on 16
  85      * 2 * BLOCK_PADDING_SIZE -> pre + post padding
  86      */
  87     const size_t i_alloc = i_size + 2 * BLOCK_PADDING_SIZE + BLOCK_ALIGN;
  88     block_sys_t *p_sys = malloc( sizeof( *p_sys ) + i_alloc );
  89
  90     if( p_sys == NULL )
  91         return NULL;
  92
  93     /* Fill opaque data */
  94     p_sys->i_allocated_buffer = i_alloc;
  95
  96     block_Init( &p_sys->self, p_sys->p_allocated_buffer + BLOCK_PADDING_SIZE
  97                 + BLOCK_ALIGN
  98                 - ((uintptr_t)p_sys->p_allocated_buffer % BLOCK_ALIGN),
  99                 i_size );
 100     p_sys->self.pf_release    = BlockRelease;
 101
 102     return &p_sys->self;
 103 }
 104
 105 block_t *block_Realloc( block_t *p_block, ssize_t i_prebody, size_t i_body )
 106 {
 107     block_sys_t *p_sys = (block_sys_t *)p_block;
 108     ssize_t i_buffer_size;
 109
 110     if( p_block->pf_release != BlockRelease )
 111     {
 112         /* Special case when pf_release if overloaded
 113          * TODO if used one day, then implement it in a smarter way */
 114         block_t *p_dup = block_Duplicate( p_block );
 115         block_Release( p_block );
 116         if( !p_dup )
 117             return NULL;
 118
 119         p_block = p_dup;
 120     }
 121
 122     i_buffer_size = i_prebody + i_body;
 123
 124     if( i_buffer_size <= 0 )
 125     {
 126         block_Release( p_block );
 127         return NULL;
 128     }
 129
 130     /* Adjust reserved header if there is enough room */
 131     if( p_block->p_buffer - i_prebody > p_sys->p_allocated_buffer &&
 132         p_block->p_buffer - i_prebody < p_sys->p_allocated_buffer +
 133         p_sys->i_allocated_buffer )
 134     {
 135         p_block->p_buffer -= i_prebody;
 136         p_block->i_buffer += i_prebody;
 137         i_prebody = 0;
 138     }
 139
 140     /* Adjust payload size if there is enough room */
 141     if( p_block->p_buffer + i_body < p_sys->p_allocated_buffer +
 142         p_sys->i_allocated_buffer )
 143     {
 144         p_block->i_buffer = i_buffer_size;
 145         i_body = 0;
 146     }
 147
 148     /* Not enough room, reallocate the buffer */
 149     if( i_body > 0 || i_prebody > 0 )
 150     {
 151         /* FIXME: this is really dumb, we should use realloc() */
 152         block_t *p_rea = block_New( NULL, i_buffer_size );
 153
 154         if( p_rea )
 155         {
 156             p_rea->i_dts     = p_block->i_dts;
 157             p_rea->i_pts     = p_block->i_pts;
 158             p_rea->i_flags   = p_block->i_flags;
 159             p_rea->i_length  = p_block->i_length;
 160             p_rea->i_rate    = p_block->i_rate;
 161             p_rea->i_samples = p_block->i_samples;
 162
 163             memcpy( p_rea->p_buffer + i_prebody, p_block->p_buffer,
 164                     __MIN( p_block->i_buffer, p_rea->i_buffer - i_prebody ) );
 165         }
 166
 167         block_Release( p_block );
 168
 169         return p_rea;
 170     }
 171
 172     /* We have a very large reserved footer now? Release some of it. */
 173     if ((p_sys->p_allocated_buffer + p_sys->i_allocated_buffer) -
 174         (p_block->p_buffer + p_block->i_buffer) > BLOCK_WASTE_SIZE)
 175     {
 176         const size_t news = p_block->i_buffer + 2 * BLOCK_PADDING_SIZE + 16;
 177         block_sys_t *newb = realloc (p_sys, sizeof (*p_sys) + news);
 178
 179         if (newb != NULL)
 180         {
 181             p_sys = newb;
 182             p_sys->i_allocated_buffer = news;
 183             p_block = &p_sys->self;
 184             p_block->p_buffer = p_sys->p_allocated_buffer + BLOCK_PADDING_SIZE
 185                 + BLOCK_ALIGN
 186                 - ((uintptr_t)p_sys->p_allocated_buffer % BLOCK_ALIGN);
 187         }
 188     }
 189
 190     return p_block;
 191 }
 192
 193 #ifdef HAVE_MMAP
 194 # include <sys/mman.h>
 195
 196 typedef struct block_mmap_t
 197 {
 198     block_t     self;
 199     void       *base_addr;
 200     size_t      length;
 201 } block_mmap_t;
 202
 203 static void block_mmap_Release (block_t *block)
 204 {
 205     block_mmap_t *p_sys = (block_mmap_t *)block;
 206
 207     munmap (p_sys->base_addr, p_sys->length);
 208     free (p_sys);
 209 }
 210
 211 block_t *block_mmap_Alloc (void *addr, size_t length)
 212 {
 213     if (addr == MAP_FAILED)
 214         return NULL;
 215
 216     block_mmap_t *block = malloc (sizeof (*block));
 217     if (block == NULL)
 218     {
 219         munmap (addr, length);
 220         return NULL;
 221     }
 222
 223     block_Init (&block->self, (uint8_t *)addr, length);
 224     block->self.pf_release = block_mmap_Release;
 225     block->base_addr = addr;
 226     block->length = length;
 227     return &block->self;
 228 }
 229 #endif
 230
 231 /*****************************************************************************
 232  * block_fifo_t management
 233  *****************************************************************************/
 234 struct block_fifo_t
 235 {
 236     vlc_mutex_t         lock;                         /* fifo data lock */
 237     vlc_cond_t          wait;         /* fifo data conditional variable */
 238
 239     block_t             *p_first;
 240     block_t             **pp_last;
 241     size_t              i_depth;
 242     size_t              i_size;
 243     vlc_bool_t          b_force_wake;
 244 };
 245
 246 block_fifo_t *__block_FifoNew( vlc_object_t *p_obj )
 247 {
 248     (void)p_obj;
 249
 250     block_fifo_t *p_fifo;
 251
 252     p_fifo = malloc( sizeof( block_fifo_t ) );
 253     if( !p_fifo ) return NULL;
 254     vlc_mutex_init( p_obj, &p_fifo->lock );
 255     vlc_cond_init( p_obj, &p_fifo->wait );
 256     p_fifo->p_first = NULL;
 257     p_fifo->pp_last = &p_fifo->p_first;
 258     p_fifo->i_depth = p_fifo->i_size = 0;
 259     p_fifo->b_force_wake = VLC_FALSE;
 260
 261     return p_fifo;
 262 }
 263
 264 void block_FifoRelease( block_fifo_t *p_fifo )
 265 {
 266     block_FifoEmpty( p_fifo );
 267     vlc_cond_destroy( &p_fifo->wait );
 268     vlc_mutex_destroy( &p_fifo->lock );
 269     free( p_fifo );
 270 }
 271
 272 void block_FifoEmpty( block_fifo_t *p_fifo )
 273 {
 274     block_t *b;
 275
 276     vlc_mutex_lock( &p_fifo->lock );
 277     for( b = p_fifo->p_first; b != NULL; )
 278     {
 279         block_t *p_next;
 280
 281         p_next = b->p_next;
 282         block_Release( b );
 283         b = p_next;
 284     }
 285
 286     p_fifo->i_depth = p_fifo->i_size = 0;
 287     p_fifo->p_first = NULL;
 288     p_fifo->pp_last = &p_fifo->p_first;
 289     vlc_mutex_unlock( &p_fifo->lock );
 290 }
 291
 292 size_t block_FifoPut( block_fifo_t *p_fifo, block_t *p_block )
 293 {
 294     size_t i_size = 0;
 295     vlc_mutex_lock( &p_fifo->lock );
 296
 297     do
 298     {
 299         i_size += p_block->i_buffer;
 300
 301         *p_fifo->pp_last = p_block;
 302         p_fifo->pp_last = &p_block->p_next;
 303         p_fifo->i_depth++;
 304         p_fifo->i_size += p_block->i_buffer;
 305
 306         p_block = p_block->p_next;
 307
 308     } while( p_block );
 309
 310     /* warn there is data in this fifo */
 311     vlc_cond_signal( &p_fifo->wait );
 312     vlc_mutex_unlock( &p_fifo->lock );
 313
 314     return i_size;
 315 }
 316
 317 void block_FifoWake( block_fifo_t *p_fifo )
 318 {
 319     vlc_mutex_lock( &p_fifo->lock );
 320     if( p_fifo->p_first == NULL )
 321         p_fifo->b_force_wake = VLC_TRUE;
 322     vlc_cond_signal( &p_fifo->wait );
 323     vlc_mutex_unlock( &p_fifo->lock );
 324 }
 325
 326 block_t *block_FifoGet( block_fifo_t *p_fifo )
 327 {
 328     block_t *b;
 329
 330     vlc_mutex_lock( &p_fifo->lock );
 331
 332     /* Remember vlc_cond_wait() may cause spurious wakeups
 333      * (on both Win32 and POSIX) */
 334     while( ( p_fifo->p_first == NULL ) && !p_fifo->b_force_wake )
 335     {
 336         vlc_cond_wait( &p_fifo->wait, &p_fifo->lock );
 337     }
 338
 339     b = p_fifo->p_first;
 340
 341     p_fifo->b_force_wake = VLC_FALSE;
 342     if( b == NULL )
 343     {
 344         /* Forced wakeup */
 345         vlc_mutex_unlock( &p_fifo->lock );
 346         return NULL;
 347     }
 348
 349     p_fifo->p_first = b->p_next;
 350     p_fifo->i_depth--;
 351     p_fifo->i_size -= b->i_buffer;
 352
 353     if( p_fifo->p_first == NULL )
 354     {
 355         p_fifo->pp_last = &p_fifo->p_first;
 356     }
 357
 358     vlc_mutex_unlock( &p_fifo->lock );
 359
 360     b->p_next = NULL;
 361     return b;
 362 }
 363
 364 block_t *block_FifoShow( block_fifo_t *p_fifo )
 365 {
 366     block_t *b;
 367
 368     vlc_mutex_lock( &p_fifo->lock );
 369
 370     if( p_fifo->p_first == NULL )
 371     {
 372         vlc_cond_wait( &p_fifo->wait, &p_fifo->lock );
 373     }
 374
 375     b = p_fifo->p_first;
 376
 377     vlc_mutex_unlock( &p_fifo->lock );
 378
 379     return( b );
 380 }
 381
 382 size_t block_FifoSize( const block_fifo_t *p_fifo )
 383 {
 384     return p_fifo->i_size;
 385 }
 386
 387 size_t block_FifoCount( const block_fifo_t *p_fifo )
 388 {
 389     return p_fifo->i_depth;
 390 }