plugins/elements/gstfilesrc.c

   1 /* GStreamer
   2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
   3  *                    2000 Wim Taymans <wtay@chello.be>
   4  *
   5  * gstfilesrc.c:
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Library General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2 of the License, or (at your option) any later version.
  11  *
  12  * This library 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  * Library General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Library General Public
  18  * License along with this library; if not, write to the
  19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20  * Boston, MA 02111-1307, USA.
  21  */
  22
  23 #ifdef HAVE_CONFIG_H
  24 #  include "config.h"
  25 #endif
  26
  27 #include <gst/gst.h>
  28 #include "gstfilesrc.h"
  29
  30 #include <stdio.h>
  31 #include <sys/stat.h>
  32 #include <fcntl.h>
  33 #include <unistd.h>
  34 #ifdef HAVE_MMAP
  35 #include <sys/mman.h>
  36 #endif
  37 #include <errno.h>
  38 #include <string.h>
  39
  40 #include "../gst-i18n-lib.h"
  41
  42
  43 /**********************************************************************
  44  * GStreamer Default File Source
  45  * Theory of Operation
  46  *
  47  * This source uses mmap(2) to efficiently load data from a file.
  48  * To do this without seriously polluting the applications' memory
  49  * space, it must do so in smaller chunks, say 1-4MB at a time.
  50  * Buffers are then subdivided from these mmap'd chunks, to directly
  51  * make use of the mmap.
  52  *
  53  * To handle refcounting so that the mmap can be freed at the appropriate
  54  * time, a buffer will be created for each mmap'd region, and all new
  55  * buffers will be sub-buffers of this top-level buffer.  As they are
  56  * freed, the refcount goes down on the mmap'd buffer and its free()
  57  * function is called, which will call munmap(2) on itself.
  58  *
  59  * If a buffer happens to cross the boundaries of an mmap'd region, we
  60  * have to decide whether it's more efficient to copy the data into a
  61  * new buffer, or mmap() just that buffer.  There will have to be a
  62  * breakpoint size to determine which will be done.  The mmap() size
  63  * has a lot to do with this as well, because you end up in double-
  64  * jeopardy: the larger the outgoing buffer, the more data to copy when
  65  * it overlaps, *and* the more frequently you'll have buffers that *do*
  66  * overlap.
  67  *
  68  * Seeking is another tricky aspect to do efficiently.  The initial
  69  * implementation of this source won't make use of these features, however.
  70  * The issue is that if an application seeks backwards in a file, *and*
  71  * that region of the file is covered by an mmap that hasn't been fully
  72  * deallocated, we really should re-use it.  But keeping track of these
  73  * regions is tricky because we have to lock the structure that holds
  74  * them.  We need to settle on a locking primitive (GMutex seems to be
  75  * a really good option...), then we can do that.
  76  */
  77
  78
  79 GST_DEBUG_CATEGORY_STATIC (gst_filesrc_debug);
  80 #define GST_CAT_DEFAULT gst_filesrc_debug
  81
  82 GstElementDetails gst_filesrc_details = GST_ELEMENT_DETAILS ("File Source",
  83     "Source/File",
  84     "Read from arbitrary point in a file",
  85     "Erik Walthinsen <omega@cse.ogi.edu>");
  86
  87 #define DEFAULT_BLOCKSIZE       4*1024
  88 #define DEFAULT_MMAPSIZE        4*1024*1024
  89
  90 /* FileSrc signals and args */
  91 enum
  92 {
  93   /* FILL ME */
  94   LAST_SIGNAL
  95 };
  96
  97 enum
  98 {
  99   ARG_0,
 100   ARG_LOCATION,
 101   ARG_FD,
 102   ARG_BLOCKSIZE,
 103   ARG_MMAPSIZE,
 104   ARG_TOUCH
 105 };
 106
 107 static const GstEventMask *
 108 gst_filesrc_get_event_mask (GstPad * pad)
 109 {
 110   static const GstEventMask masks[] = {
 111     {GST_EVENT_SEEK, GST_SEEK_METHOD_CUR |
 112           GST_SEEK_METHOD_SET | GST_SEEK_METHOD_END | GST_SEEK_FLAG_FLUSH},
 113     {GST_EVENT_FLUSH, 0},
 114     {GST_EVENT_SIZE, 0},
 115     {0, 0}
 116   };
 117
 118   return masks;
 119 }
 120
 121 static const GstQueryType *
 122 gst_filesrc_get_query_types (GstPad * pad)
 123 {
 124   static const GstQueryType types[] = {
 125     GST_QUERY_TOTAL,
 126     GST_QUERY_POSITION,
 127     0
 128   };
 129
 130   return types;
 131 }
 132
 133 static const GstFormat *
 134 gst_filesrc_get_formats (GstPad * pad)
 135 {
 136   static const GstFormat formats[] = {
 137     GST_FORMAT_BYTES,
 138     0,
 139   };
 140
 141   return formats;
 142 }
 143
 144 static void gst_filesrc_dispose (GObject * object);
 145
 146 static void gst_filesrc_set_property (GObject * object, guint prop_id,
 147     const GValue * value, GParamSpec * pspec);
 148 static void gst_filesrc_get_property (GObject * object, guint prop_id,
 149     GValue * value, GParamSpec * pspec);
 150
 151 static gboolean gst_filesrc_check_filesize (GstFileSrc * src);
 152 static GstData *gst_filesrc_get (GstPad * pad);
 153 static gboolean gst_filesrc_srcpad_event (GstPad * pad, GstEvent * event);
 154 static gboolean gst_filesrc_srcpad_query (GstPad * pad, GstQueryType type,
 155     GstFormat * format, gint64 * value);
 156
 157 static GstElementStateReturn gst_filesrc_change_state (GstElement * element);
 158
 159 static void gst_filesrc_uri_handler_init (gpointer g_iface,
 160     gpointer iface_data);
 161
 162 static void
 163 _do_init (GType filesrc_type)
 164 {
 165   static const GInterfaceInfo urihandler_info = {
 166     gst_filesrc_uri_handler_init,
 167     NULL,
 168     NULL
 169   };
 170
 171   g_type_add_interface_static (filesrc_type, GST_TYPE_URI_HANDLER,
 172       &urihandler_info);
 173   GST_DEBUG_CATEGORY_INIT (gst_filesrc_debug, "filesrc", 0, "filesrc element");
 174 }
 175
 176 GST_BOILERPLATE_FULL (GstFileSrc, gst_filesrc, GstElement, GST_TYPE_ELEMENT,
 177     _do_init);
 178
 179 static void
 180 gst_filesrc_base_init (gpointer g_class)
 181 {
 182   GstElementClass *gstelement_class = GST_ELEMENT_CLASS (g_class);
 183
 184   gst_element_class_set_details (gstelement_class, &gst_filesrc_details);
 185 }
 186 static void
 187 gst_filesrc_class_init (GstFileSrcClass * klass)
 188 {
 189   GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
 190   GstElementClass *gstelement_class = GST_ELEMENT_CLASS (klass);
 191
 192   gobject_class = (GObjectClass *) klass;
 193
 194
 195   g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_FD,
 196       g_param_spec_int ("fd", "File-descriptor",
 197           "File-descriptor for the file being mmap()d", 0, G_MAXINT, 0,
 198           G_PARAM_READABLE));
 199   g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_LOCATION,
 200       g_param_spec_string ("location", "File Location",
 201           "Location of the file to read", NULL, G_PARAM_READWRITE));
 202   g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_BLOCKSIZE,
 203       g_param_spec_ulong ("blocksize", "Block size",
 204           "Size in bytes to read per buffer", 1, G_MAXULONG, DEFAULT_BLOCKSIZE,
 205           G_PARAM_READWRITE));
 206   g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_MMAPSIZE,
 207       g_param_spec_ulong ("mmapsize", "mmap() Block Size",
 208           "Size in bytes of mmap()d regions", 0, G_MAXULONG, DEFAULT_MMAPSIZE,
 209           G_PARAM_READWRITE));
 210   g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_TOUCH,
 211       g_param_spec_boolean ("touch", "Touch read data",
 212           "Touch data to force disk read", FALSE, G_PARAM_READWRITE));
 213
 214   gobject_class->dispose = gst_filesrc_dispose;
 215   gobject_class->set_property = gst_filesrc_set_property;
 216   gobject_class->get_property = gst_filesrc_get_property;
 217
 218   gstelement_class->change_state = gst_filesrc_change_state;
 219 }
 220
 221 static void
 222 gst_filesrc_init (GstFileSrc * src)
 223 {
 224   src->srcpad = gst_pad_new ("src", GST_PAD_SRC);
 225   gst_pad_set_get_function (src->srcpad, gst_filesrc_get);
 226   gst_pad_set_event_function (src->srcpad, gst_filesrc_srcpad_event);
 227   gst_pad_set_event_mask_function (src->srcpad, gst_filesrc_get_event_mask);
 228   gst_pad_set_query_function (src->srcpad, gst_filesrc_srcpad_query);
 229   gst_pad_set_query_type_function (src->srcpad, gst_filesrc_get_query_types);
 230   gst_pad_set_formats_function (src->srcpad, gst_filesrc_get_formats);
 231   gst_element_add_pad (GST_ELEMENT (src), src->srcpad);
 232
 233 #ifdef HAVE_MMAP
 234   src->pagesize = getpagesize ();
 235 #endif
 236
 237   src->filename = NULL;
 238   src->fd = 0;
 239   src->filelen = 0;
 240   src->uri = NULL;
 241
 242   src->curoffset = 0;
 243   src->block_size = DEFAULT_BLOCKSIZE;
 244   src->touch = FALSE;
 245
 246   src->mapbuf = NULL;
 247   src->mapsize = DEFAULT_MMAPSIZE;      /* default is 4MB */
 248
 249   src->seek_happened = FALSE;
 250 }
 251
 252 static void
 253 gst_filesrc_dispose (GObject * object)
 254 {
 255   GstFileSrc *src;
 256
 257   src = GST_FILESRC (object);
 258
 259   g_free (src->filename);
 260   g_free (src->uri);
 261
 262   /* dispose may be called multiple times */
 263   src->filename = NULL;
 264   src->uri = NULL;
 265
 266   G_OBJECT_CLASS (parent_class)->dispose (object);
 267 }
 268
 269 static gboolean
 270 gst_filesrc_set_location (GstFileSrc * src, const gchar * location)
 271 {
 272   /* the element must be stopped in order to do this */
 273   if (GST_STATE (src) != GST_STATE_READY && GST_STATE (src) != GST_STATE_NULL)
 274     return FALSE;
 275
 276   g_free (src->filename);
 277   g_free (src->uri);
 278
 279   /* clear the filename if we get a NULL (is that possible?) */
 280   if (location == NULL) {
 281     src->filename = NULL;
 282     src->uri = NULL;
 283   } else {
 284     src->filename = g_strdup (location);
 285     src->uri = gst_uri_construct ("file", src->filename);
 286   }
 287   g_object_notify (G_OBJECT (src), "location");
 288   gst_uri_handler_new_uri (GST_URI_HANDLER (src), src->uri);
 289
 290   return TRUE;
 291 }
 292
 293 static void
 294 gst_filesrc_set_property (GObject * object, guint prop_id, const GValue * value,
 295     GParamSpec * pspec)
 296 {
 297   GstFileSrc *src;
 298
 299   /* it's not null if we got it, but it might not be ours */
 300   g_return_if_fail (GST_IS_FILESRC (object));
 301
 302   src = GST_FILESRC (object);
 303
 304   switch (prop_id) {
 305     case ARG_LOCATION:
 306       gst_filesrc_set_location (src, g_value_get_string (value));
 307       break;
 308     case ARG_BLOCKSIZE:
 309       src->block_size = g_value_get_ulong (value);
 310       g_object_notify (G_OBJECT (src), "blocksize");
 311       break;
 312     case ARG_MMAPSIZE:
 313       if ((src->mapsize % src->pagesize) == 0) {
 314         src->mapsize = g_value_get_ulong (value);
 315         g_object_notify (G_OBJECT (src), "mmapsize");
 316       } else {
 317         GST_INFO_OBJECT (src,
 318             "invalid mapsize, must be a multiple of pagesize, which is %d",
 319             src->pagesize);
 320       }
 321       break;
 322     case ARG_TOUCH:
 323       src->touch = g_value_get_boolean (value);
 324       g_object_notify (G_OBJECT (src), "touch");
 325       break;
 326     default:
 327       break;
 328   }
 329 }
 330
 331 static void
 332 gst_filesrc_get_property (GObject * object, guint prop_id, GValue * value,
 333     GParamSpec * pspec)
 334 {
 335   GstFileSrc *src;
 336
 337   /* it's not null if we got it, but it might not be ours */
 338   g_return_if_fail (GST_IS_FILESRC (object));
 339
 340   src = GST_FILESRC (object);
 341
 342   switch (prop_id) {
 343     case ARG_LOCATION:
 344       g_value_set_string (value, src->filename);
 345       break;
 346     case ARG_FD:
 347       g_value_set_int (value, src->fd);
 348       break;
 349     case ARG_BLOCKSIZE:
 350       g_value_set_ulong (value, src->block_size);
 351       break;
 352     case ARG_MMAPSIZE:
 353       g_value_set_ulong (value, src->mapsize);
 354       break;
 355     case ARG_TOUCH:
 356       g_value_set_boolean (value, src->touch);
 357       break;
 358     default:
 359       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 360       break;
 361   }
 362 }
 363
 364 #ifdef HAVE_MMAP
 365 static void
 366 gst_filesrc_free_parent_mmap (GstBuffer * buf)
 367 {
 368   GST_LOG ("freeing mmap()d buffer at %" G_GUINT64_FORMAT "+%u",
 369       GST_BUFFER_OFFSET (buf), GST_BUFFER_SIZE (buf));
 370
 371 #ifdef MADV_DONTNEED
 372   /* madvise to tell the kernel what to do with it */
 373   madvise (GST_BUFFER_DATA (buf), GST_BUFFER_SIZE (buf), MADV_DONTNEED);
 374 #endif
 375   /* now unmap the memory */
 376   munmap (GST_BUFFER_DATA (buf), GST_BUFFER_MAXSIZE (buf));
 377   /* cast to unsigned long, since there's no gportable way to print
 378    * guint64 as hex */
 379   GST_LOG ("unmapped region %08lx+%08lx at %p",
 380       (unsigned long) GST_BUFFER_OFFSET (buf),
 381       (unsigned long) GST_BUFFER_MAXSIZE (buf), GST_BUFFER_DATA (buf));
 382
 383   GST_BUFFER_DATA (buf) = NULL;
 384 }
 385 #endif
 386
 387 #ifdef HAVE_MMAP
 388 static GstBuffer *
 389 gst_filesrc_map_region (GstFileSrc * src, off_t offset, size_t size)
 390 {
 391   GstBuffer *buf;
 392   gint retval;
 393   void *mmapregion;
 394
 395   g_return_val_if_fail (offset >= 0, NULL);
 396
 397   GST_LOG_OBJECT (src, "mapping region %08llx+%08lx from file into memory",
 398       offset, (unsigned long) size);
 399   mmapregion = mmap (NULL, size, PROT_READ, MAP_SHARED, src->fd, offset);
 400
 401   if (mmapregion == NULL) {
 402     GST_ELEMENT_ERROR (src, RESOURCE, TOO_LAZY, (NULL), ("mmap call failed."));
 403     return NULL;
 404   } else if (mmapregion == MAP_FAILED) {
 405     GST_WARNING_OBJECT (src, "mmap (0x%08lx, %d, 0x%llx) failed: %s",
 406         (unsigned long) size, src->fd, offset, strerror (errno));
 407     return NULL;
 408   }
 409   GST_LOG_OBJECT (src, "mapped region %08lx+%08lx from file into memory at %p",
 410       (unsigned long) offset, (unsigned long) size, mmapregion);
 411
 412   /* time to allocate a new mapbuf */
 413   buf = gst_buffer_new ();
 414   /* mmap() the data into this new buffer */
 415   GST_BUFFER_DATA (buf) = mmapregion;
 416
 417 #ifdef MADV_SEQUENTIAL
 418   /* madvise to tell the kernel what to do with it */
 419   retval =
 420       madvise (GST_BUFFER_DATA (buf), GST_BUFFER_SIZE (buf), MADV_SEQUENTIAL);
 421 #endif
 422   /* fill in the rest of the fields */
 423   GST_BUFFER_FLAG_SET (buf, GST_BUFFER_READONLY);
 424   GST_BUFFER_FLAG_SET (buf, GST_BUFFER_ORIGINAL);
 425   GST_BUFFER_SIZE (buf) = size;
 426   GST_BUFFER_MAXSIZE (buf) = size;
 427   GST_BUFFER_OFFSET (buf) = offset;
 428   GST_BUFFER_OFFSET_END (buf) = offset + size;
 429   GST_BUFFER_TIMESTAMP (buf) = GST_CLOCK_TIME_NONE;
 430   GST_BUFFER_PRIVATE (buf) = src;
 431   GST_BUFFER_FREE_DATA_FUNC (buf) = gst_filesrc_free_parent_mmap;
 432
 433   return buf;
 434 }
 435 #endif
 436
 437 #ifdef HAVE_MMAP
 438 static GstBuffer *
 439 gst_filesrc_map_small_region (GstFileSrc * src, off_t offset, size_t size)
 440 {
 441   size_t mapsize;
 442   off_t mod, mapbase;
 443   GstBuffer *map;
 444
 445 /*  printf("attempting to map a small buffer at %d+%d\n",offset,size); */
 446
 447   /* if the offset starts at a non-page boundary, we have to special case */
 448   if ((mod = offset % src->pagesize)) {
 449     GstBuffer *ret;
 450
 451     mapbase = offset - mod;
 452     mapsize =
 453         ((size + mod + src->pagesize - 1) / src->pagesize) * src->pagesize;
 454 /*    printf("not on page boundaries, resizing map to %d+%d\n",mapbase,mapsize);*/
 455     map = gst_filesrc_map_region (src, mapbase, mapsize);
 456     if (map == NULL)
 457       return NULL;
 458
 459     ret = gst_buffer_create_sub (map, offset - mapbase, size);
 460     GST_BUFFER_OFFSET (ret) = GST_BUFFER_OFFSET (map) + offset - mapbase;
 461
 462     gst_buffer_unref (map);
 463
 464     return ret;
 465   }
 466
 467   return gst_filesrc_map_region (src, offset, size);
 468 }
 469 #endif
 470
 471 #ifdef HAVE_MMAP
 472 /**
 473  * gst_filesrc_get_mmap:
 474  * @pad: #GstPad to push a buffer from
 475  *
 476  * Push a new buffer from the filesrc at the current offset.
 477  */
 478 static GstBuffer *
 479 gst_filesrc_get_mmap (GstFileSrc * src)
 480 {
 481   GstBuffer *buf = NULL;
 482   size_t readsize, mapsize;
 483   off_t readend, mapstart, mapend;
 484   int i;
 485
 486   /* calculate end pointers so we don't have to do so repeatedly later */
 487   readsize = src->block_size;
 488   readend = src->curoffset + src->block_size;   /* note this is the byte *after* the read */
 489   mapstart = GST_BUFFER_OFFSET (src->mapbuf);
 490   mapsize = GST_BUFFER_SIZE (src->mapbuf);
 491   mapend = mapstart + mapsize;  /* note this is the byte *after* the map */
 492
 493   /* check to see if we're going to overflow the end of the file */
 494   if (readend > src->filelen) {
 495     if (!gst_filesrc_check_filesize (src) || readend > src->filelen) {
 496       readsize = src->filelen - src->curoffset;
 497       readend = src->curoffset + readsize;
 498     }
 499   }
 500
 501   GST_LOG ("attempting to read %08lx, %08lx, %08lx, %08lx",
 502       (unsigned long) readsize, (unsigned long) readend,
 503       (unsigned long) mapstart, (unsigned long) mapend);
 504
 505   /* if the start is past the mapstart */
 506   if (src->curoffset >= mapstart) {
 507     /* if the end is before the mapend, the buffer is in current mmap region... */
 508     /* ('cause by definition if readend is in the buffer, so's readstart) */
 509     if (readend <= mapend) {
 510       GST_LOG_OBJECT (src,
 511           "read buf %llu+%d lives in current mapbuf %lld+%d, creating subbuffer of mapbuf",
 512           src->curoffset, (int) readsize, mapstart, mapsize);
 513       buf =
 514           gst_buffer_create_sub (src->mapbuf, src->curoffset - mapstart,
 515           readsize);
 516       GST_BUFFER_OFFSET (buf) = src->curoffset;
 517
 518       /* if the start actually is within the current mmap region, map an overlap buffer */
 519     } else if (src->curoffset < mapend) {
 520       GST_LOG_OBJECT (src,
 521           "read buf %llu+%d starts in mapbuf %d+%d but ends outside, creating new mmap",
 522           (unsigned long long) src->curoffset, (gint) readsize, (gint) mapstart,
 523           (gint) mapsize);
 524       buf = gst_filesrc_map_small_region (src, src->curoffset, readsize);
 525       if (buf == NULL)
 526         return NULL;
 527     }
 528
 529     /* the only other option is that buffer is totally outside, which means we search for it */
 530
 531     /* now we can assume that the start is *before* the current mmap region */
 532     /* if the readend is past mapstart, we have two options */
 533   } else if (readend >= mapstart) {
 534     /* either the read buffer overlaps the start of the mmap region */
 535     /* or the read buffer fully contains the current mmap region    */
 536     /* either way, it's really not relevant, we just create a new region anyway */
 537     GST_LOG_OBJECT (src,
 538         "read buf %llu+%d starts before mapbuf %d+%d, but overlaps it",
 539         (unsigned long long) src->curoffset, (gint) readsize, (gint) mapstart,
 540         (gint) mapsize);
 541     buf = gst_filesrc_map_small_region (src, src->curoffset, readsize);
 542     if (buf == NULL)
 543       return NULL;
 544   }
 545
 546   /* then deal with the case where the read buffer is totally outside */
 547   if (buf == NULL) {
 548     /* first check to see if there's a map that covers the right region already */
 549     GST_LOG_OBJECT (src, "searching for mapbuf to cover %llu+%d",
 550         src->curoffset, (int) readsize);
 551
 552     /* if the read buffer crosses a mmap region boundary, create a one-off region */
 553     if ((src->curoffset / src->mapsize) != (readend / src->mapsize)) {
 554       GST_LOG_OBJECT (src,
 555           "read buf %llu+%d crosses a %d-byte boundary, creating a one-off",
 556           src->curoffset, (int) readsize, (int) src->mapsize);
 557       buf = gst_filesrc_map_small_region (src, src->curoffset, readsize);
 558       if (buf == NULL)
 559         return NULL;
 560
 561       /* otherwise we will create a new mmap region and set it to the default */
 562     } else {
 563       size_t mapsize;
 564
 565       off_t nextmap = src->curoffset - (src->curoffset % src->mapsize);
 566
 567       GST_LOG_OBJECT (src,
 568           "read buf %llu+%d in new mapbuf at %llu+%d, mapping and subbuffering",
 569           src->curoffset, readsize, nextmap, src->mapsize);
 570       /* first, we're done with the old mapbuf */
 571       gst_buffer_unref (src->mapbuf);
 572       mapsize = src->mapsize;
 573
 574       /* double the mapsize as long as the readsize is smaller */
 575       while (readsize - (src->curoffset - nextmap) > mapsize) {
 576         GST_LOG_OBJECT (src, "readsize smaller then mapsize %08x %d",
 577             readsize, (int) mapsize);
 578         mapsize <<= 1;
 579       }
 580       /* create a new one */
 581       src->mapbuf = gst_filesrc_map_region (src, nextmap, mapsize);
 582       if (src->mapbuf == NULL)
 583         return NULL;
 584
 585       /* subbuffer it */
 586       buf =
 587           gst_buffer_create_sub (src->mapbuf, src->curoffset - nextmap,
 588           readsize);
 589       GST_BUFFER_OFFSET (buf) =
 590           GST_BUFFER_OFFSET (src->mapbuf) + src->curoffset - nextmap;
 591     }
 592   }
 593
 594   /* if we need to touch the buffer (to bring it into memory), do so */
 595   if (src->touch) {
 596     volatile guchar *p = GST_BUFFER_DATA (buf), c;
 597
 598     for (i = 0; i < GST_BUFFER_SIZE (buf); i += src->pagesize)
 599       c = p[i];
 600   }
 601
 602   /* we're done, return the buffer */
 603   g_assert (src->curoffset == GST_BUFFER_OFFSET (buf));
 604   src->curoffset += GST_BUFFER_SIZE (buf);
 605   return buf;
 606 }
 607 #endif
 608
 609 static GstBuffer *
 610 gst_filesrc_get_read (GstFileSrc * src)
 611 {
 612   GstBuffer *buf = NULL;
 613   size_t readsize;
 614   int ret;
 615
 616   readsize = src->block_size;
 617   if (src->curoffset + readsize > src->filelen) {
 618     if (!gst_filesrc_check_filesize (src)
 619         || src->curoffset + readsize > src->filelen) {
 620       readsize = src->filelen - src->curoffset;
 621     }
 622   }
 623
 624   buf = gst_buffer_new_and_alloc (readsize);
 625   g_return_val_if_fail (buf != NULL, NULL);
 626
 627   ret = read (src->fd, GST_BUFFER_DATA (buf), readsize);
 628   if (ret < 0) {
 629     GST_ELEMENT_ERROR (src, RESOURCE, READ, (NULL), GST_ERROR_SYSTEM);
 630     return NULL;
 631   }
 632   if (ret < readsize) {
 633     GST_ELEMENT_ERROR (src, RESOURCE, READ, (NULL),
 634         ("unexpected end of file."));
 635     return NULL;
 636   }
 637
 638   GST_BUFFER_SIZE (buf) = readsize;
 639   GST_BUFFER_MAXSIZE (buf) = readsize;
 640   GST_BUFFER_OFFSET (buf) = src->curoffset;
 641   GST_BUFFER_OFFSET_END (buf) = src->curoffset + readsize;
 642   src->curoffset += readsize;
 643
 644   return buf;
 645 }
 646
 647 static GstData *
 648 gst_filesrc_get (GstPad * pad)
 649 {
 650   GstFileSrc *src;
 651
 652   g_return_val_if_fail (pad != NULL, NULL);
 653   src = GST_FILESRC (gst_pad_get_parent (pad));
 654   g_return_val_if_fail (GST_FLAG_IS_SET (src, GST_FILESRC_OPEN), NULL);
 655
 656   /* check for flush */
 657   if (src->need_flush) {
 658     src->need_flush = FALSE;
 659     GST_DEBUG_OBJECT (src, "sending flush");
 660     return GST_DATA (gst_event_new_flush ());
 661   }
 662   /* check for seek */
 663   if (src->seek_happened) {
 664     GstEvent *event;
 665
 666     src->seek_happened = FALSE;
 667     GST_DEBUG_OBJECT (src, "sending discont");
 668     event =
 669         gst_event_new_discontinuous (FALSE, GST_FORMAT_BYTES, src->curoffset,
 670         NULL);
 671     return GST_DATA (event);
 672   }
 673
 674   /* check for EOF */
 675   g_assert (src->curoffset <= src->filelen);
 676   if (src->curoffset == src->filelen) {
 677     if (!gst_filesrc_check_filesize (src) || src->curoffset >= src->filelen) {
 678       GST_DEBUG_OBJECT (src, "eos %" G_GINT64_FORMAT " %" G_GINT64_FORMAT,
 679           src->curoffset, src->filelen);
 680       gst_element_set_eos (GST_ELEMENT (src));
 681       return GST_DATA (gst_event_new (GST_EVENT_EOS));
 682     }
 683   }
 684 #ifdef HAVE_MMAP
 685   if (src->using_mmap) {
 686     return GST_DATA (gst_filesrc_get_mmap (src));
 687   } else {
 688     return GST_DATA (gst_filesrc_get_read (src));
 689   }
 690 #else
 691   return GST_DATA (gst_filesrc_get_read (src));
 692 #endif
 693 }
 694
 695 /* TRUE if the filesize of the file was updated */
 696 static gboolean
 697 gst_filesrc_check_filesize (GstFileSrc * src)
 698 {
 699   struct stat stat_results;
 700
 701   g_return_val_if_fail (GST_FLAG_IS_SET (src, GST_FILESRC_OPEN), FALSE);
 702
 703   fstat (src->fd, &stat_results);
 704   GST_DEBUG_OBJECT (src,
 705       "checked filesize on %s (was %" G_GUINT64_FORMAT ", is %" G_GUINT64_FORMAT
 706       ")", src->filename, src->filelen, (guint64) stat_results.st_size);
 707   if (src->filelen == (guint64) stat_results.st_size)
 708     return FALSE;
 709   src->filelen = stat_results.st_size;
 710   return TRUE;
 711 }
 712
 713 /* open the file and mmap it, necessary to go to READY state */
 714 static gboolean
 715 gst_filesrc_open_file (GstFileSrc * src)
 716 {
 717   g_return_val_if_fail (!GST_FLAG_IS_SET (src, GST_FILESRC_OPEN), FALSE);
 718
 719   if (src->filename == NULL || src->filename[0] == '\0') {
 720     GST_ELEMENT_ERROR (src, RESOURCE, NOT_FOUND,
 721         (_("No file name specified for reading.")), (NULL));
 722     return FALSE;
 723   }
 724
 725
 726   GST_INFO_OBJECT (src, "opening file %s", src->filename);
 727
 728   /* open the file */
 729   src->fd = open (src->filename, O_RDONLY);
 730   if (src->fd < 0) {
 731     if (errno == ENOENT)
 732       GST_ELEMENT_ERROR (src, RESOURCE, NOT_FOUND, (NULL), (NULL));
 733     else
 734       GST_ELEMENT_ERROR (src, RESOURCE, OPEN_READ,
 735           (_("Could not open file \"%s\" for reading."), src->filename),
 736           GST_ERROR_SYSTEM);
 737     return FALSE;
 738   } else {
 739     /* check if it is a regular file, otherwise bail out */
 740     struct stat stat_results;
 741
 742     fstat (src->fd, &stat_results);
 743
 744     if (!S_ISREG (stat_results.st_mode)) {
 745       GST_ELEMENT_ERROR (src, RESOURCE, OPEN_READ,
 746           (_("File \"%s\" isn't a regular file."), src->filename), (NULL));
 747       close (src->fd);
 748       return FALSE;
 749     }
 750
 751     /* find the file length */
 752     src->filelen = stat_results.st_size;
 753
 754     src->using_mmap = FALSE;
 755 #ifdef HAVE_MMAP
 756     /* allocate the first mmap'd region */
 757     src->mapbuf = gst_filesrc_map_region (src, 0, src->mapsize);
 758     if (src->mapbuf != NULL) {
 759       src->using_mmap = TRUE;
 760     }
 761 #endif
 762
 763
 764     src->curoffset = 0;
 765
 766     GST_FLAG_SET (src, GST_FILESRC_OPEN);
 767   }
 768   return TRUE;
 769 }
 770
 771 /* unmap and close the file */
 772 static void
 773 gst_filesrc_close_file (GstFileSrc * src)
 774 {
 775   g_return_if_fail (GST_FLAG_IS_SET (src, GST_FILESRC_OPEN));
 776
 777   /* close the file */
 778   close (src->fd);
 779
 780   /* zero out a lot of our state */
 781   src->fd = 0;
 782   src->filelen = 0;
 783   src->curoffset = 0;
 784
 785   if (src->mapbuf) {
 786     gst_buffer_unref (src->mapbuf);
 787     src->mapbuf = NULL;
 788   }
 789
 790   GST_FLAG_UNSET (src, GST_FILESRC_OPEN);
 791 }
 792
 793
 794 static GstElementStateReturn
 795 gst_filesrc_change_state (GstElement * element)
 796 {
 797   GstFileSrc *src = GST_FILESRC (element);
 798
 799   switch (GST_STATE_TRANSITION (element)) {
 800     case GST_STATE_NULL_TO_READY:
 801       break;
 802     case GST_STATE_READY_TO_NULL:
 803       break;
 804     case GST_STATE_READY_TO_PAUSED:
 805       if (!GST_FLAG_IS_SET (element, GST_FILESRC_OPEN)) {
 806         if (!gst_filesrc_open_file (GST_FILESRC (element)))
 807           return GST_STATE_FAILURE;
 808       }
 809       break;
 810     case GST_STATE_PAUSED_TO_READY:
 811       if (GST_FLAG_IS_SET (element, GST_FILESRC_OPEN))
 812         gst_filesrc_close_file (GST_FILESRC (element));
 813       src->seek_happened = TRUE;
 814       break;
 815     default:
 816       break;
 817   }
 818
 819   if (GST_ELEMENT_CLASS (parent_class)->change_state)
 820     return GST_ELEMENT_CLASS (parent_class)->change_state (element);
 821
 822   return GST_STATE_SUCCESS;
 823 }
 824
 825 static gboolean
 826 gst_filesrc_srcpad_query (GstPad * pad, GstQueryType type,
 827     GstFormat * format, gint64 * value)
 828 {
 829   GstFileSrc *src = GST_FILESRC (GST_PAD_PARENT (pad));
 830
 831   switch (type) {
 832     case GST_QUERY_TOTAL:
 833       if (*format != GST_FORMAT_BYTES) {
 834         return FALSE;
 835       }
 836       gst_filesrc_check_filesize (src);
 837       *value = src->filelen;
 838       break;
 839     case GST_QUERY_POSITION:
 840       switch (*format) {
 841         case GST_FORMAT_BYTES:
 842           *value = src->curoffset;
 843           break;
 844         case GST_FORMAT_PERCENT:
 845           if (src->filelen == 0)
 846             return FALSE;
 847           *value = src->curoffset * GST_FORMAT_PERCENT_MAX / src->filelen;
 848           break;
 849         default:
 850           return FALSE;
 851       }
 852       break;
 853     default:
 854       return FALSE;
 855       break;
 856   }
 857   return TRUE;
 858 }
 859
 860 static gboolean
 861 gst_filesrc_srcpad_event (GstPad * pad, GstEvent * event)
 862 {
 863   GstFileSrc *src = GST_FILESRC (GST_PAD_PARENT (pad));
 864
 865   GST_DEBUG_OBJECT (src, "event %d", GST_EVENT_TYPE (event));
 866
 867   switch (GST_EVENT_TYPE (event)) {
 868     case GST_EVENT_SEEK:
 869     {
 870       gint64 offset;
 871
 872       if (GST_EVENT_SEEK_FORMAT (event) != GST_FORMAT_BYTES) {
 873         goto error;
 874       }
 875
 876       offset = GST_EVENT_SEEK_OFFSET (event);
 877
 878       switch (GST_EVENT_SEEK_METHOD (event)) {
 879         case GST_SEEK_METHOD_SET:
 880           if (offset < 0 ||
 881               (offset > src->filelen && (!gst_filesrc_check_filesize (src)
 882                       || offset > src->filelen))) {
 883             goto error;
 884           }
 885           src->curoffset = offset;
 886           GST_DEBUG_OBJECT (src, "seek set pending to %" G_GINT64_FORMAT,
 887               src->curoffset);
 888           break;
 889         case GST_SEEK_METHOD_CUR:
 890           if (offset + src->curoffset > src->filelen)
 891             if (!gst_filesrc_check_filesize (src)
 892                 || offset + src->curoffset > src->filelen)
 893               goto error;
 894           src->curoffset += offset;
 895           GST_DEBUG_OBJECT (src, "seek cur pending to %" G_GINT64_FORMAT,
 896               src->curoffset);
 897           break;
 898         case GST_SEEK_METHOD_END:
 899           if (ABS (offset) > src->filelen) {
 900             if (!gst_filesrc_check_filesize (src)
 901                 || ABS (offset) > src->filelen)
 902               goto error;
 903             goto error;
 904           }
 905           src->curoffset = src->filelen - ABS (offset);
 906           GST_DEBUG_OBJECT (src, "seek end pending to %" G_GINT64_FORMAT,
 907               src->curoffset);
 908           break;
 909         default:
 910           goto error;
 911           break;
 912       }
 913       src->seek_happened = TRUE;
 914       src->need_flush = GST_EVENT_SEEK_FLAGS (event) & GST_SEEK_FLAG_FLUSH;
 915       break;
 916     }
 917     case GST_EVENT_SIZE:
 918       if (GST_EVENT_SIZE_FORMAT (event) != GST_FORMAT_BYTES) {
 919         goto error;
 920       }
 921       src->block_size = GST_EVENT_SIZE_VALUE (event);
 922       g_object_notify (G_OBJECT (src), "blocksize");
 923       break;
 924     case GST_EVENT_FLUSH:
 925       src->need_flush = TRUE;
 926       break;
 927     default:
 928       goto error;
 929       break;
 930   }
 931   gst_event_unref (event);
 932   return TRUE;
 933
 934 error:
 935   gst_event_unref (event);
 936   return FALSE;
 937 }
 938
 939 /*** GSTURIHANDLER INTERFACE *************************************************/
 940
 941 static guint
 942 gst_filesrc_uri_get_type (void)
 943 {
 944   return GST_URI_SRC;
 945 }
 946 static gchar **
 947 gst_filesrc_uri_get_protocols (void)
 948 {
 949   static gchar *protocols[] = { "file", NULL };
 950
 951   return protocols;
 952 }
 953 static const gchar *
 954 gst_filesrc_uri_get_uri (GstURIHandler * handler)
 955 {
 956   GstFileSrc *src = GST_FILESRC (handler);
 957
 958   return src->uri;
 959 }
 960
 961 static gboolean
 962 gst_filesrc_uri_set_uri (GstURIHandler * handler, const gchar * uri)
 963 {
 964   gchar *protocol, *location;
 965   gboolean ret;
 966   GstFileSrc *src = GST_FILESRC (handler);
 967
 968   protocol = gst_uri_get_protocol (uri);
 969   if (strcmp (protocol, "file") != 0) {
 970     g_free (protocol);
 971     return FALSE;
 972   }
 973   g_free (protocol);
 974   location = gst_uri_get_location (uri);
 975   ret = gst_filesrc_set_location (src, location);
 976   g_free (location);
 977
 978   return ret;
 979 }
 980
 981 static void
 982 gst_filesrc_uri_handler_init (gpointer g_iface, gpointer iface_data)
 983 {
 984   GstURIHandlerInterface *iface = (GstURIHandlerInterface *) g_iface;
 985
 986   iface->get_type = gst_filesrc_uri_get_type;
 987   iface->get_protocols = gst_filesrc_uri_get_protocols;
 988   iface->get_uri = gst_filesrc_uri_get_uri;
 989   iface->set_uri = gst_filesrc_uri_set_uri;
 990 }