libmpdemux/demux_y4m.c

   1 /*
   2  * Y4M file parser
   3  * copyright (c) 2001 Rik Snel
   4  * (using yuv4mpeg*.[ch] from mjpeg.sourceforge.net)
   5  * (derived from demux_viv.c)
   6  * older YUV4MPEG (used by xawtv) support by Alex Beregszaszi
   7  *
   8  * This file is part of MPlayer.
   9  *
  10  * MPlayer is free software; you can redistribute it and/or modify
  11  * it under the terms of the GNU General Public License as published by
  12  * the Free Software Foundation; either version 2 of the License, or
  13  * (at your option) any later version.
  14  *
  15  * MPlayer is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18  * GNU General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU General Public License along
  21  * with MPlayer; if not, write to the Free Software Foundation, Inc.,
  22  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  23  */
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <unistd.h>
  28 #include <string.h> /* strtok */
  29
  30 #include "config.h"
  31 #include "mp_msg.h"
  32 #include "help_mp.h"
  33 #include "yuv4mpeg.h"
  34
  35 //#include "stream/stream.h"
  36 #include "demuxer.h"
  37 #include "stheader.h"
  38
  39 typedef struct {
  40     int framenum;
  41     y4m_stream_info_t* si;
  42     int is_older;
  43 } y4m_priv_t;
  44
  45 static int y4m_check_file(demuxer_t* demuxer){
  46     int orig_pos = stream_tell(demuxer->stream);
  47     char buf[10];
  48     y4m_priv_t* priv;
  49
  50     mp_msg(MSGT_DEMUX, MSGL_V, "Checking for YUV4MPEG2\n");
  51
  52     if(stream_read(demuxer->stream, buf, 9)!=9)
  53         return 0;
  54
  55     buf[9] = 0;
  56
  57     if (strncmp("YUV4MPEG2", buf, 9) && strncmp("YUV4MPEG ", buf, 9)) {
  58             return 0;
  59     }
  60
  61     demuxer->priv = malloc(sizeof(y4m_priv_t));
  62     priv = demuxer->priv;
  63
  64     priv->is_older = 0;
  65
  66     if (!strncmp("YUV4MPEG ", buf, 9))
  67     {
  68         mp_msg(MSGT_DEMUX, MSGL_V, "Found older YUV4MPEG format (used by xawtv)\n");
  69         priv->is_older = 1;
  70     }
  71
  72     mp_msg(MSGT_DEMUX,MSGL_DBG2,"Success: YUV4MPEG2\n");
  73
  74     stream_seek(demuxer->stream, orig_pos);
  75
  76     return DEMUXER_TYPE_Y4M;
  77 }
  78
  79 static void read_streaminfo(demuxer_t *demuxer);
  80
  81 // return value:
  82 //     0 = EOF or no stream found
  83 //     1 = successfully read a packet
  84 static int demux_y4m_fill_buffer(demuxer_t *demux, demux_stream_t *dsds) {
  85   demux_stream_t *ds=demux->video;
  86   demux_packet_t *dp;
  87   y4m_priv_t *priv=demux->priv;
  88   y4m_frame_info_t fi;
  89   unsigned char *buf[3];
  90   int err, size;
  91   int nextc;
  92
  93   nextc = stream_read_char(demux->stream);
  94   stream_skip(demux->stream, -1);
  95   if (nextc == 'Y') {
  96     read_streaminfo(demux);
  97     demux->seekable = 0;
  98   }
  99
 100   y4m_init_frame_info(&fi);
 101
 102   demux->filepos=stream_tell(demux->stream);
 103
 104   size = ((sh_video_t*)ds->sh)->disp_w*((sh_video_t*)ds->sh)->disp_h;
 105
 106   dp = new_demux_packet(3*size/2);
 107
 108   /* swap U and V components */
 109   buf[0] = dp->buffer;
 110   buf[1] = dp->buffer + 5*size/4;
 111   buf[2] = dp->buffer + size;
 112
 113   if (priv->is_older)
 114   {
 115     int c;
 116
 117     c = stream_read_char(demux->stream); /* F */
 118     if (c == -256)
 119         return 0; /* EOF */
 120     if (c != 'F')
 121     {
 122         mp_msg(MSGT_DEMUX, MSGL_V, "Bad frame at %d\n", (int)stream_tell(demux->stream)-1);
 123         return 0;
 124     }
 125     stream_skip(demux->stream, 5); /* RAME\n */
 126     stream_read(demux->stream, buf[0], size);
 127     stream_read(demux->stream, buf[1], size/4);
 128     stream_read(demux->stream, buf[2], size/4);
 129   }
 130   else
 131   {
 132     if ((err=y4m_read_frame(demux->stream, priv->si, &fi, buf)) != Y4M_OK) {
 133       mp_msg(MSGT_DEMUX, MSGL_V, "error reading frame %s\n", y4m_strerr(err));
 134       return 0;
 135     }
 136   }
 137
 138   /* This seems to be the right way to calculate the presentation time stamp */
 139   dp->pts=(float)priv->framenum/((sh_video_t*)ds->sh)->fps;
 140   priv->framenum++;
 141   dp->pos=demux->filepos;
 142   dp->flags=0;
 143   ds_add_packet(ds, dp);
 144
 145   return 1;
 146 }
 147
 148 static void read_streaminfo(demuxer_t *demuxer)
 149 {
 150     y4m_priv_t *priv = demuxer->priv;
 151     sh_video_t *sh = demuxer->video->sh;
 152     y4m_ratio_t ratio;
 153     int err;
 154
 155     if (priv->is_older)
 156     {
 157         char buf[4];
 158         int frame_rate_code;
 159
 160         stream_skip(demuxer->stream, 8); /* YUV4MPEG */
 161         stream_skip(demuxer->stream, 1); /* space */
 162         stream_read(demuxer->stream, (char *)&buf[0], 3);
 163         buf[3] = 0;
 164         sh->disp_w = atoi(buf);
 165         stream_skip(demuxer->stream, 1); /* space */
 166         stream_read(demuxer->stream, (char *)&buf[0], 3);
 167         buf[3] = 0;
 168         sh->disp_h = atoi(buf);
 169         stream_skip(demuxer->stream, 1); /* space */
 170         stream_read(demuxer->stream, (char *)&buf[0], 1);
 171         buf[1] = 0;
 172         frame_rate_code = atoi(buf);
 173         stream_skip(demuxer->stream, 1); /* new-line */
 174
 175         if (!sh->fps)
 176         {
 177             /* values from xawtv */
 178             switch(frame_rate_code)
 179             {
 180                 case 1:
 181                     sh->fps = 23.976f;
 182                     break;
 183                 case 2:
 184                     sh->fps = 24.0f;
 185                     break;
 186                 case 3:
 187                     sh->fps = 25.0f;
 188                     break;
 189                 case 4:
 190                     sh->fps = 29.97f;
 191                     break;
 192                 case 5:
 193                     sh->fps = 30.0f;
 194                     break;
 195                 case 6:
 196                     sh->fps = 50.0f;
 197                     break;
 198                 case 7:
 199                     sh->fps = 59.94f;
 200                     break;
 201                 case 8:
 202                     sh->fps = 60.0f;
 203                     break;
 204                 default:
 205                     sh->fps = 25.0f;
 206             }
 207         }
 208         sh->frametime = 1.0f/sh->fps;
 209     }
 210     else
 211     {
 212         y4m_init_stream_info(priv->si);
 213         if ((err=y4m_read_stream_header(demuxer->stream, priv->si)) != Y4M_OK)
 214             mp_msg(MSGT_DEMUXER, MSGL_FATAL, "error parsing YUV4MPEG header: %s\n", y4m_strerr(err));
 215
 216         if(!sh->fps) {
 217             ratio = y4m_si_get_framerate(priv->si);
 218             if (ratio.d != 0)
 219                 sh->fps=(float)ratio.n/(float)ratio.d;
 220             else
 221                 sh->fps=15.0f;
 222         }
 223         sh->frametime=1.0f/sh->fps;
 224
 225         ratio = y4m_si_get_sampleaspect(priv->si);
 226
 227         sh->disp_w = y4m_si_get_width(priv->si);
 228         sh->disp_h = y4m_si_get_height(priv->si);
 229
 230         if (ratio.d != 0 && ratio.n != 0)
 231             sh->aspect = (float)(sh->disp_w*ratio.n)/(float)(sh->disp_h*ratio.d);
 232
 233         demuxer->seekable = 0;
 234     }
 235
 236     sh->format = mmioFOURCC('Y', 'V', '1', '2');
 237
 238     sh->bih->biSize=40;
 239     sh->bih->biWidth = sh->disp_w;
 240     sh->bih->biHeight = sh->disp_h;
 241     sh->bih->biPlanes=3;
 242     sh->bih->biBitCount=12;
 243     sh->bih->biCompression=sh->format;
 244     sh->bih->biSizeImage=sh->bih->biWidth*sh->bih->biHeight*3/2; /* YV12 */
 245
 246     mp_msg(MSGT_DEMUX, MSGL_INFO, "YUV4MPEG2 Video stream %d size: display: %dx%d, codec: %ux%u\n",
 247             demuxer->video->id, sh->disp_w, sh->disp_h, sh->bih->biWidth,
 248             sh->bih->biHeight);
 249 }
 250
 251 static demuxer_t* demux_open_y4m(demuxer_t* demuxer){
 252     y4m_priv_t* priv = demuxer->priv;
 253     sh_video_t* sh=new_sh_video(demuxer,0);
 254
 255     priv->framenum = 0;
 256     priv->si = malloc(sizeof(y4m_stream_info_t));
 257
 258     sh->bih=calloc(1, sizeof(BITMAPINFOHEADER));
 259
 260     demuxer->video->sh=sh;
 261     sh->ds=demuxer->video;
 262     demuxer->video->id=0;
 263
 264     read_streaminfo(demuxer);
 265
 266     return demuxer;
 267 }
 268
 269 static void demux_seek_y4m(demuxer_t *demuxer, float rel_seek_secs, float audio_delay, int flags) {
 270     sh_video_t* sh = demuxer->video->sh;
 271     y4m_priv_t* priv = demuxer->priv;
 272     int rel_seek_frames = sh->fps*rel_seek_secs;
 273     int size = 3*sh->disp_w*sh->disp_h/2;
 274     off_t curr_pos = stream_tell(demuxer->stream);
 275
 276     if (priv->framenum + rel_seek_frames < 0) rel_seek_frames = -priv->framenum;
 277
 278     //printf("seektoframe=%d rel_seek_secs=%f seektooffset=%ld\n", priv->framenum + rel_seek_frames, rel_seek_secs, curr_pos + rel_seek_frames*(size+6));
 279     //printf("framenum=%d, curr_pos=%ld, currpos/(size+6)=%f\n", priv->framenum, curr_pos, (float)curr_pos/(float)(size+6));
 280     priv->framenum += rel_seek_frames;
 281
 282     if (priv->is_older) {
 283         /* Well this is easy: every frame takes up size+6 bytes
 284          * in the stream and we may assume that the stream pointer
 285          * is always at the beginning of a frame.
 286          * framenum is the number of the frame that is about to be
 287          * demuxed (counting from ONE (see demux_open_y4m)) */
 288         stream_seek(demuxer->stream, curr_pos + rel_seek_frames*(size+6));
 289     } else {
 290             /* should never come here, because seeking for YUV4MPEG2
 291              * is disabled. */
 292             mp_msg(MSGT_DEMUX, MSGL_WARN, "Seeking for YUV4MPEG2 not yet implemented!\n");
 293     }
 294 }
 295
 296 static void demux_close_y4m(demuxer_t *demuxer)
 297 {
 298     y4m_priv_t* priv = demuxer->priv;
 299
 300     if(!priv)
 301       return;
 302     if (!priv->is_older)
 303         y4m_fini_stream_info(((y4m_priv_t*)demuxer->priv)->si);
 304     free(((y4m_priv_t*)demuxer->priv)->si);
 305     free(demuxer->priv);
 306     return;
 307 }
 308
 309
 310 const demuxer_desc_t demuxer_desc_y4m = {
 311   "YUV4MPEG2 demuxer",
 312   "y4m",
 313   "YUV4MPEG2",
 314   "Rik snel",
 315   "",
 316   DEMUXER_TYPE_Y4M,
 317   1, // safe autodetect
 318   y4m_check_file,
 319   demux_y4m_fill_buffer,
 320   demux_open_y4m,
 321   demux_close_y4m,
 322   demux_seek_y4m,
 323   NULL
 324 };