wined3d: Use struct opengl_funcs for storing GL extension pointers.
[wine] / dlls / quartz / mpegsplit.c
1 /*
2  * MPEG Splitter Filter
3  *
4  * Copyright 2003 Robert Shearman
5  * Copyright 2004-2005 Christian Costa
6  * Copyright 2007 Chris Robinson
7  * Copyright 2008 Maarten Lankhorst
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * This library 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 GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with this library; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22  */
23
24 #include <assert.h>
25 #include <math.h>
26
27 #include "quartz_private.h"
28 #include "pin.h"
29
30 #include "uuids.h"
31 #include "mmreg.h"
32 #include "mmsystem.h"
33
34 #include "winternl.h"
35
36 #include "wine/unicode.h"
37 #include "wine/debug.h"
38
39 #include "parser.h"
40
41 WINE_DEFAULT_DEBUG_CHANNEL(quartz);
42
43 #define SEQUENCE_HEADER_CODE     0xB3
44 #define PACK_START_CODE          0xBA
45
46 #define SYSTEM_START_CODE        0xBB
47 #define AUDIO_ELEMENTARY_STREAM  0xC0
48 #define VIDEO_ELEMENTARY_STREAM  0xE0
49
50 #define MPEG_SYSTEM_HEADER 3
51 #define MPEG_VIDEO_HEADER 2
52 #define MPEG_AUDIO_HEADER 1
53 #define MPEG_NO_HEADER 0
54
55 typedef struct MPEGSplitterImpl
56 {
57     ParserImpl Parser;
58     LONGLONG EndOfFile;
59     LONGLONG position;
60     DWORD begin_offset;
61     BYTE header[4];
62
63     /* Whether we just seeked (or started playing) */
64     BOOL seek;
65 } MPEGSplitterImpl;
66
67 static inline MPEGSplitterImpl *impl_from_IMediaSeeking( IMediaSeeking *iface )
68 {
69     return CONTAINING_RECORD(iface, MPEGSplitterImpl, Parser.sourceSeeking.IMediaSeeking_iface);
70 }
71
72 static int MPEGSplitter_head_check(const BYTE *header)
73 {
74     /* If this is a possible start code, check for a system or video header */
75     if (header[0] == 0 && header[1] == 0 && header[2] == 1)
76     {
77         /* Check if we got a system or elementary stream start code */
78         if (header[3] == PACK_START_CODE ||
79             header[3] == VIDEO_ELEMENTARY_STREAM ||
80             header[3] == AUDIO_ELEMENTARY_STREAM)
81             return MPEG_SYSTEM_HEADER;
82
83         /* Check for a MPEG video sequence start code */
84         if (header[3] == SEQUENCE_HEADER_CODE)
85             return MPEG_VIDEO_HEADER;
86     }
87
88     /* This should give a good guess if we have an MPEG audio header */
89     if(header[0] == 0xff && ((header[1]>>5)&0x7) == 0x7 &&
90        ((header[1]>>1)&0x3) != 0 && ((header[2]>>4)&0xf) != 0xf &&
91        ((header[2]>>2)&0x3) != 0x3)
92         return MPEG_AUDIO_HEADER;
93
94     /* Nothing yet.. */
95     return MPEG_NO_HEADER;
96 }
97
98 static const WCHAR wszAudioStream[] = {'A','u','d','i','o',0};
99 static const WCHAR wszVideoStream[] = {'V','i','d','e','o',0};
100
101 static const DWORD freqs[10] = { 44100, 48000, 32000, 22050, 24000, 16000, 11025, 12000,  8000, 0 };
102
103 static const DWORD tabsel_123[2][3][16] = {
104     { {0,32,64,96,128,160,192,224,256,288,320,352,384,416,448,},
105       {0,32,48,56, 64, 80, 96,112,128,160,192,224,256,320,384,},
106       {0,32,40,48, 56, 64, 80, 96,112,128,160,192,224,256,320,} },
107
108     { {0,32,48,56,64,80,96,112,128,144,160,176,192,224,256,},
109       {0,8,16,24,32,40,48,56,64,80,96,112,128,144,160,},
110       {0,8,16,24,32,40,48,56,64,80,96,112,128,144,160,} }
111 };
112
113 static HRESULT parse_header(BYTE *header, LONGLONG *plen, LONGLONG *pduration)
114 {
115     int bitrate_index, freq_index, lsf = 1, mpeg1, layer, padding, bitrate, length;
116     LONGLONG duration;
117
118     if (!(header[0] == 0xff && ((header[1]>>5)&0x7) == 0x7 &&
119           ((header[1]>>1)&0x3) != 0 && ((header[2]>>4)&0xf) != 0xf &&
120           ((header[2]>>2)&0x3) != 0x3))
121     {
122         FIXME("Not a valid header: %02x:%02x:%02x:%02x\n", header[0], header[1], header[2], header[3]);
123         return E_INVALIDARG;
124     }
125
126     mpeg1 = (header[1]>>4)&0x1;
127     if (mpeg1)
128         lsf = ((header[1]>>3)&0x1)^1;
129
130     layer = 4-((header[1]>>1)&0x3);
131     bitrate_index = ((header[2]>>4)&0xf);
132     freq_index = ((header[2]>>2)&0x3) + (mpeg1?(lsf*3):6);
133     padding = ((header[2]>>1)&0x1);
134
135     bitrate = tabsel_123[lsf][layer-1][bitrate_index] * 1000;
136     if (!bitrate)
137     {
138         FIXME("Not a valid header: %02x:%02x:%02x:%02x\n", header[0], header[1], header[2], header[3]);
139         return E_INVALIDARG;
140     }
141
142     if (layer == 1)
143         length = 4 * (12 * bitrate / freqs[freq_index] + padding);
144     else if (layer == 2)
145         length = 144 * bitrate / freqs[freq_index] + padding;
146     else if (layer == 3)
147         length = 144 * bitrate / (freqs[freq_index]<<lsf) + padding;
148     else
149     {
150         ERR("Impossible layer %d\n", layer);
151         return E_INVALIDARG;
152     }
153
154     duration = (ULONGLONG)10000000 * (ULONGLONG)(length) / (ULONGLONG)(bitrate/8);
155     *plen = length;
156     if (pduration)
157         *pduration += duration;
158     return S_OK;
159 }
160
161 static HRESULT FillBuffer(MPEGSplitterImpl *This, IMediaSample *pCurrentSample)
162 {
163     Parser_OutputPin * pOutputPin = unsafe_impl_Parser_OutputPin_from_IPin(This->Parser.ppPins[1]);
164     LONGLONG length = 0;
165     LONGLONG pos = BYTES_FROM_MEDIATIME(This->Parser.pInputPin->rtNext);
166     LONGLONG time = This->position, rtstop, rtstart;
167     HRESULT hr;
168     BYTE *fbuf = NULL;
169     DWORD len = IMediaSample_GetActualDataLength(pCurrentSample);
170
171     TRACE("Source length: %u\n", len);
172     IMediaSample_GetPointer(pCurrentSample, &fbuf);
173
174     /* Find the next valid header.. it <SHOULD> be right here */
175     hr = parse_header(fbuf, &length, &This->position);
176     assert(hr == S_OK);
177     IMediaSample_SetActualDataLength(pCurrentSample, length);
178
179     /* Queue the next sample */
180     if (length + 4 == len)
181     {
182         PullPin *pin = This->Parser.pInputPin;
183         LONGLONG stop = BYTES_FROM_MEDIATIME(pin->rtStop);
184
185         hr = S_OK;
186         memcpy(This->header, fbuf + length, 4);
187         while (FAILED(hr = parse_header(This->header, &length, NULL)))
188         {
189             memmove(This->header, This->header+1, 3);
190             if (pos + 4 >= stop)
191                 break;
192             IAsyncReader_SyncRead(pin->pReader, ++pos, 1, This->header + 3);
193         }
194         pin->rtNext = MEDIATIME_FROM_BYTES(pos);
195
196         if (SUCCEEDED(hr))
197         {
198             /* Remove 4 for the last header, which should hopefully work */
199             IMediaSample *sample = NULL;
200             LONGLONG rtSampleStart = pin->rtNext - MEDIATIME_FROM_BYTES(4);
201             LONGLONG rtSampleStop = rtSampleStart + MEDIATIME_FROM_BYTES(length + 4);
202
203             if (rtSampleStop > pin->rtStop)
204                 rtSampleStop = MEDIATIME_FROM_BYTES(ALIGNUP(BYTES_FROM_MEDIATIME(pin->rtStop), pin->cbAlign));
205
206             hr = IMemAllocator_GetBuffer(pin->pAlloc, &sample, NULL, NULL, 0);
207             if (SUCCEEDED(hr))
208             {
209                 IMediaSample_SetTime(sample, &rtSampleStart, &rtSampleStop);
210                 IMediaSample_SetPreroll(sample, 0);
211                 IMediaSample_SetDiscontinuity(sample, 0);
212                 IMediaSample_SetSyncPoint(sample, 1);
213                 hr = IAsyncReader_Request(pin->pReader, sample, 0);
214                 if (SUCCEEDED(hr))
215                 {
216                     pin->rtCurrent = rtSampleStart;
217                     pin->rtNext = rtSampleStop;
218                 }
219                 else
220                     IMediaSample_Release(sample);
221             }
222             if (FAILED(hr))
223                 FIXME("o_Ox%08x\n", hr);
224         }
225     }
226     /* If not, we're presumably at the end of file */
227
228     TRACE("Media time : %u.%03u\n", (DWORD)(This->position/10000000), (DWORD)((This->position/10000)%1000));
229
230     if (IMediaSample_IsDiscontinuity(pCurrentSample) == S_OK) {
231         IPin *victim;
232         EnterCriticalSection(&This->Parser.filter.csFilter);
233         pOutputPin->pin.pin.tStart = time;
234         pOutputPin->pin.pin.dRate = This->Parser.sourceSeeking.dRate;
235         hr = IPin_ConnectedTo(&pOutputPin->pin.pin.IPin_iface, &victim);
236         if (hr == S_OK)
237         {
238             hr = IPin_NewSegment(victim, time, This->Parser.sourceSeeking.llStop,
239                                  This->Parser.sourceSeeking.dRate);
240             if (hr != S_OK)
241                 FIXME("NewSegment returns %08x\n", hr);
242             IPin_Release(victim);
243         }
244         LeaveCriticalSection(&This->Parser.filter.csFilter);
245         if (hr != S_OK)
246             return hr;
247     }
248     rtstart = (double)(time - pOutputPin->pin.pin.tStart) / pOutputPin->pin.pin.dRate;
249     rtstop = (double)(This->position - pOutputPin->pin.pin.tStart) / pOutputPin->pin.pin.dRate;
250     IMediaSample_SetTime(pCurrentSample, &rtstart, &rtstop);
251     IMediaSample_SetMediaTime(pCurrentSample, &time, &This->position);
252
253     hr = BaseOutputPinImpl_Deliver(&pOutputPin->pin, pCurrentSample);
254
255     if (hr != S_OK)
256     {
257         if (hr != S_FALSE)
258             TRACE("Error sending sample (%x)\n", hr);
259         else
260             TRACE("S_FALSE (%d), holding\n", IMediaSample_GetActualDataLength(pCurrentSample));
261     }
262
263     return hr;
264 }
265
266
267 static HRESULT MPEGSplitter_process_sample(LPVOID iface, IMediaSample * pSample, DWORD_PTR cookie)
268 {
269     MPEGSplitterImpl *This = iface;
270     BYTE *pbSrcStream;
271     DWORD cbSrcStream = 0;
272     REFERENCE_TIME tStart, tStop, tAviStart = This->position;
273     HRESULT hr;
274
275     hr = IMediaSample_GetTime(pSample, &tStart, &tStop);
276     if (SUCCEEDED(hr))
277     {
278         cbSrcStream = IMediaSample_GetActualDataLength(pSample);
279         hr = IMediaSample_GetPointer(pSample, &pbSrcStream);
280     }
281
282     /* Flush occurring */
283     if (cbSrcStream == 0)
284     {
285         FIXME(".. Why do I need you?\n");
286         return S_OK;
287     }
288
289     /* trace removed for performance reasons */
290     /* TRACE("(%p), %llu -> %llu\n", pSample, tStart, tStop); */
291
292     /* Now, try to find a new header */
293     hr = FillBuffer(This, pSample);
294     if (hr != S_OK)
295     {
296         WARN("Failed with hres: %08x!\n", hr);
297
298         /* Unset progression if denied! */
299         if (hr == VFW_E_WRONG_STATE || hr == S_FALSE)
300         {
301             memcpy(This->header, pbSrcStream, 4);
302             This->Parser.pInputPin->rtCurrent = tStart;
303             This->position = tAviStart;
304         }
305     }
306
307     if (BYTES_FROM_MEDIATIME(tStop) >= This->EndOfFile || This->position >= This->Parser.sourceSeeking.llStop)
308     {
309         unsigned int i;
310
311         TRACE("End of file reached\n");
312
313         for (i = 0; i < This->Parser.cStreams; i++)
314         {
315             IPin* ppin;
316
317             hr = IPin_ConnectedTo(This->Parser.ppPins[i+1], &ppin);
318             if (SUCCEEDED(hr))
319             {
320                 hr = IPin_EndOfStream(ppin);
321                 IPin_Release(ppin);
322             }
323             if (FAILED(hr))
324                 WARN("Error sending EndOfStream to pin %u (%x)\n", i, hr);
325         }
326
327         /* Force the pullpin thread to stop */
328         hr = S_FALSE;
329     }
330
331     return hr;
332 }
333
334
335 static HRESULT MPEGSplitter_query_accept(LPVOID iface, const AM_MEDIA_TYPE *pmt)
336 {
337     if (!IsEqualIID(&pmt->majortype, &MEDIATYPE_Stream))
338         return S_FALSE;
339
340     if (IsEqualIID(&pmt->subtype, &MEDIASUBTYPE_MPEG1Audio))
341         return S_OK;
342
343     if (IsEqualIID(&pmt->subtype, &MEDIASUBTYPE_MPEG1Video))
344         FIXME("MPEG-1 video streams not yet supported.\n");
345     else if (IsEqualIID(&pmt->subtype, &MEDIASUBTYPE_MPEG1System))
346         FIXME("MPEG-1 system streams not yet supported.\n");
347     else if (IsEqualIID(&pmt->subtype, &MEDIASUBTYPE_MPEG1VideoCD))
348         FIXME("MPEG-1 VideoCD streams not yet supported.\n");
349     else FIXME("%s\n", debugstr_guid(&pmt->subtype));
350
351     return S_FALSE;
352 }
353
354
355 static HRESULT MPEGSplitter_init_audio(MPEGSplitterImpl *This, const BYTE *header, PIN_INFO *ppiOutput, AM_MEDIA_TYPE *pamt)
356 {
357     WAVEFORMATEX *format;
358     int bitrate_index;
359     int freq_index;
360     int mode_ext;
361     int emphasis;
362     int lsf = 1;
363     int mpeg1;
364     int layer;
365     int mode;
366
367     ZeroMemory(pamt, sizeof(*pamt));
368     ppiOutput->dir = PINDIR_OUTPUT;
369     ppiOutput->pFilter = (IBaseFilter*)This;
370     wsprintfW(ppiOutput->achName, wszAudioStream);
371
372     pamt->formattype = FORMAT_WaveFormatEx;
373     pamt->majortype = MEDIATYPE_Audio;
374     pamt->subtype = MEDIASUBTYPE_MPEG1AudioPayload;
375
376     pamt->lSampleSize = 0;
377     pamt->bFixedSizeSamples = FALSE;
378     pamt->bTemporalCompression = 0;
379
380     mpeg1 = (header[1]>>4)&0x1;
381     if (mpeg1)
382         lsf = ((header[1]>>3)&0x1)^1;
383
384     layer         = 4-((header[1]>>1)&0x3);
385     bitrate_index =   ((header[2]>>4)&0xf);
386     freq_index    =   ((header[2]>>2)&0x3) + (mpeg1?(lsf*3):6);
387     mode          =   ((header[3]>>6)&0x3);
388     mode_ext      =   ((header[3]>>4)&0x3);
389     emphasis      =   ((header[3]>>0)&0x3);
390
391     if (!bitrate_index)
392     {
393         /* Set to highest bitrate so samples will fit in for sure */
394         FIXME("Variable-bitrate audio not fully supported.\n");
395         bitrate_index = 15;
396     }
397
398     pamt->cbFormat = ((layer==3)? sizeof(MPEGLAYER3WAVEFORMAT) :
399                                   sizeof(MPEG1WAVEFORMAT));
400     pamt->pbFormat = CoTaskMemAlloc(pamt->cbFormat);
401     if (!pamt->pbFormat)
402         return E_OUTOFMEMORY;
403     ZeroMemory(pamt->pbFormat, pamt->cbFormat);
404     format = (WAVEFORMATEX*)pamt->pbFormat;
405
406     format->wFormatTag      = ((layer == 3) ? WAVE_FORMAT_MPEGLAYER3 :
407                                               WAVE_FORMAT_MPEG);
408     format->nChannels       = ((mode == 3) ? 1 : 2);
409     format->nSamplesPerSec  = freqs[freq_index];
410     format->nAvgBytesPerSec = tabsel_123[lsf][layer-1][bitrate_index] * 1000 / 8;
411
412     if (layer == 3)
413         format->nBlockAlign = format->nAvgBytesPerSec * 8 * 144 /
414                               (format->nSamplesPerSec<<lsf) + 1;
415     else if (layer == 2)
416         format->nBlockAlign = format->nAvgBytesPerSec * 8 * 144 /
417                               format->nSamplesPerSec + 1;
418     else
419         format->nBlockAlign = 4 * (format->nAvgBytesPerSec * 8 * 12 / format->nSamplesPerSec + 1);
420
421     format->wBitsPerSample = 0;
422
423     if (layer == 3)
424     {
425         MPEGLAYER3WAVEFORMAT *mp3format = (MPEGLAYER3WAVEFORMAT*)format;
426
427         format->cbSize = MPEGLAYER3_WFX_EXTRA_BYTES;
428
429         mp3format->wID = MPEGLAYER3_ID_MPEG;
430         mp3format->fdwFlags = MPEGLAYER3_FLAG_PADDING_ON;
431         mp3format->nBlockSize = format->nBlockAlign;
432         mp3format->nFramesPerBlock = 1;
433
434         /* Beware the evil magic numbers. This struct is apparently horribly
435          * under-documented, and the only references I could find had it being
436          * set to this with no real explanation. It works fine though, so I'm
437          * not complaining (yet).
438          */
439         mp3format->nCodecDelay = 1393;
440     }
441     else
442     {
443         MPEG1WAVEFORMAT *mpgformat = (MPEG1WAVEFORMAT*)format;
444
445         format->cbSize = 22;
446
447         mpgformat->fwHeadLayer   = ((layer == 1) ? ACM_MPEG_LAYER1 :
448                                     ((layer == 2) ? ACM_MPEG_LAYER2 :
449                                      ACM_MPEG_LAYER3));
450         mpgformat->dwHeadBitrate = format->nAvgBytesPerSec * 8;
451         mpgformat->fwHeadMode    = ((mode == 3) ? ACM_MPEG_SINGLECHANNEL :
452                                     ((mode == 2) ? ACM_MPEG_DUALCHANNEL :
453                                      ((mode == 1) ? ACM_MPEG_JOINTSTEREO :
454                                       ACM_MPEG_STEREO)));
455         mpgformat->fwHeadModeExt = ((mode == 1) ? 0x0F : (1<<mode_ext));
456         mpgformat->wHeadEmphasis = emphasis + 1;
457         mpgformat->fwHeadFlags   = ACM_MPEG_ID_MPEG1;
458     }
459     pamt->subtype.Data1 = format->wFormatTag;
460
461     TRACE("MPEG audio stream detected:\n"
462           "\tLayer %d (%#x)\n"
463           "\tFrequency: %d\n"
464           "\tChannels: %d (%d)\n"
465           "\tBytesPerSec: %d\n",
466           layer, format->wFormatTag, format->nSamplesPerSec,
467           format->nChannels, mode, format->nAvgBytesPerSec);
468
469     dump_AM_MEDIA_TYPE(pamt);
470
471     return S_OK;
472 }
473
474
475 static HRESULT MPEGSplitter_pre_connect(IPin *iface, IPin *pConnectPin, ALLOCATOR_PROPERTIES *props)
476 {
477     PullPin *pPin = impl_PullPin_from_IPin(iface);
478     MPEGSplitterImpl *This = (MPEGSplitterImpl*)pPin->pin.pinInfo.pFilter;
479     HRESULT hr;
480     LONGLONG pos = 0; /* in bytes */
481     BYTE header[10];
482     int streamtype = 0;
483     LONGLONG total, avail;
484     AM_MEDIA_TYPE amt;
485     PIN_INFO piOutput;
486
487     IAsyncReader_Length(pPin->pReader, &total, &avail);
488     This->EndOfFile = total;
489
490     hr = IAsyncReader_SyncRead(pPin->pReader, pos, 4, header);
491     if (SUCCEEDED(hr))
492         pos += 4;
493
494     /* Skip ID3 v2 tag, if any */
495     if (SUCCEEDED(hr) && !memcmp("ID3", header, 3))
496     do {
497         UINT length = 0;
498         hr = IAsyncReader_SyncRead(pPin->pReader, pos, 6, header + 4);
499         if (FAILED(hr))
500             break;
501         pos += 6;
502         TRACE("Found ID3 v2.%d.%d\n", header[3], header[4]);
503         if(header[3] <= 4 && header[4] != 0xff &&
504            (header[5]&0x0f) == 0 && (header[6]&0x80) == 0 &&
505            (header[7]&0x80) == 0 && (header[8]&0x80) == 0 &&
506            (header[9]&0x80) == 0)
507         {
508             length = (header[6]<<21) | (header[7]<<14) |
509                      (header[8]<< 7) | (header[9]    );
510             if((header[5]&0x10))
511                 length += 10;
512             TRACE("Length: %u\n", length);
513         }
514         pos += length;
515
516         /* Read the real header for the mpeg splitter */
517         hr = IAsyncReader_SyncRead(pPin->pReader, pos, 4, header);
518         if (SUCCEEDED(hr))
519             pos += 4;
520         TRACE("%x:%x:%x:%x\n", header[0], header[1], header[2], header[3]);
521     } while (0);
522
523     while(SUCCEEDED(hr) && !(streamtype=MPEGSplitter_head_check(header)))
524     {
525         TRACE("%x:%x:%x:%x\n", header[0], header[1], header[2], header[3]);
526         /* No valid header yet; shift by a byte and check again */
527         memmove(header, header+1, 3);
528         hr = IAsyncReader_SyncRead(pPin->pReader, pos++, 1, header + 3);
529     }
530     if (FAILED(hr))
531         return hr;
532     pos -= 4;
533     This->begin_offset = pos;
534     memcpy(This->header, header, 4);
535
536     switch(streamtype)
537     {
538         case MPEG_AUDIO_HEADER:
539         {
540             LONGLONG duration = 0;
541             WAVEFORMATEX *format;
542
543             hr = MPEGSplitter_init_audio(This, header, &piOutput, &amt);
544             if (SUCCEEDED(hr))
545             {
546                 format = (WAVEFORMATEX*)amt.pbFormat;
547
548                 props->cbAlign = 1;
549                 props->cbPrefix = 0;
550                 /* Make the output buffer a multiple of the frame size */
551                 props->cbBuffer = 0x4000 / format->nBlockAlign *
552                                  format->nBlockAlign;
553                 props->cBuffers = 3;
554                 hr = Parser_AddPin(&(This->Parser), &piOutput, props, &amt);
555             }
556
557             if (FAILED(hr))
558             {
559                 if (amt.pbFormat)
560                     CoTaskMemFree(amt.pbFormat);
561                 ERR("Could not create pin for MPEG audio stream (%x)\n", hr);
562                 break;
563             }
564
565             /* Check for idv1 tag, and remove it from stream if found */
566             hr = IAsyncReader_SyncRead(pPin->pReader, This->EndOfFile-128, 3, header);
567             if (FAILED(hr))
568                 break;
569             if (!strncmp((char*)header, "TAG", 3))
570                 This->EndOfFile -= 128;
571             This->Parser.pInputPin->rtStop = MEDIATIME_FROM_BYTES(This->EndOfFile);
572             This->Parser.pInputPin->rtStart = This->Parser.pInputPin->rtCurrent = MEDIATIME_FROM_BYTES(This->begin_offset);
573
574             duration = (This->EndOfFile-This->begin_offset) * 10000000 / format->nAvgBytesPerSec;
575             TRACE("Duration: %d seconds\n", (DWORD)(duration / 10000000));
576
577             This->Parser.sourceSeeking.llCurrent = 0;
578             This->Parser.sourceSeeking.llDuration = duration;
579             This->Parser.sourceSeeking.llStop = duration;
580             break;
581         }
582         case MPEG_VIDEO_HEADER:
583             FIXME("MPEG video processing not yet supported!\n");
584             hr = E_FAIL;
585             break;
586         case MPEG_SYSTEM_HEADER:
587             FIXME("MPEG system streams not yet supported!\n");
588             hr = E_FAIL;
589             break;
590
591         default:
592             break;
593     }
594     This->position = 0;
595
596     return hr;
597 }
598
599 static HRESULT MPEGSplitter_cleanup(LPVOID iface)
600 {
601     MPEGSplitterImpl *This = iface;
602
603     TRACE("(%p)\n", This);
604
605     return S_OK;
606 }
607
608 static HRESULT WINAPI MPEGSplitter_seek(IMediaSeeking *iface)
609 {
610     MPEGSplitterImpl *This = impl_from_IMediaSeeking(iface);
611     PullPin *pPin = This->Parser.pInputPin;
612     LONGLONG newpos, timepos, bytepos;
613     HRESULT hr = E_INVALIDARG;
614     BYTE header[4];
615
616     newpos = This->Parser.sourceSeeking.llCurrent;
617     if (This->position/1000000 == newpos/1000000)
618     {
619         TRACE("Requesting position %x%08x same as current position %x%08x\n", (DWORD)(newpos>>32), (DWORD)newpos, (DWORD)(This->position>>32), (DWORD)This->position);
620         return S_OK;
621     }
622
623     bytepos = This->begin_offset;
624     timepos = 0;
625     /* http://mpgedit.org/mpgedit/mpeg_format/mpeghdr.htm has a whole read up on audio headers */
626     while (bytepos + 3 < This->EndOfFile)
627     {
628         LONGLONG duration = timepos;
629         LONGLONG length = 0;
630         hr = IAsyncReader_SyncRead(pPin->pReader, bytepos, 4, header);
631         if (hr != S_OK)
632             break;
633         while ((hr=parse_header(header, &length, &duration)) != S_OK &&
634                bytepos + 4 < This->EndOfFile)
635         {
636             /* No valid header yet; shift by a byte and check again */
637             memmove(header, header+1, 3);
638             hr = IAsyncReader_SyncRead(pPin->pReader, ++bytepos + 3, 1, header + 3);
639             if (hr != S_OK)
640                 break;
641         }
642         if (hr != S_OK || duration > newpos)
643             break;
644         bytepos += length;
645         timepos = duration;
646     }
647
648     if (SUCCEEDED(hr))
649     {
650         PullPin *pin = This->Parser.pInputPin;
651
652         TRACE("Moving sound to %08u bytes!\n", (DWORD)bytepos);
653
654         EnterCriticalSection(&pin->thread_lock);
655         IPin_BeginFlush(&pin->pin.IPin_iface);
656
657         /* Make sure this is done while stopped, BeginFlush takes care of this */
658         EnterCriticalSection(&This->Parser.filter.csFilter);
659         memcpy(This->header, header, 4);
660
661         pin->rtStart = pin->rtCurrent = MEDIATIME_FROM_BYTES(bytepos);
662         pin->rtStop = MEDIATIME_FROM_BYTES((REFERENCE_TIME)This->EndOfFile);
663         This->seek = TRUE;
664         This->position = newpos;
665         LeaveCriticalSection(&This->Parser.filter.csFilter);
666
667         TRACE("Done flushing\n");
668         IPin_EndFlush(&pin->pin.IPin_iface);
669         LeaveCriticalSection(&pin->thread_lock);
670     }
671     return hr;
672 }
673
674 static HRESULT MPEGSplitter_disconnect(LPVOID iface)
675 {
676     /* TODO: Find memory leaks etc */
677     return S_OK;
678 }
679
680 static HRESULT MPEGSplitter_first_request(LPVOID iface)
681 {
682     MPEGSplitterImpl *This = iface;
683     PullPin *pin = This->Parser.pInputPin;
684     HRESULT hr;
685     LONGLONG length;
686     IMediaSample *sample;
687
688     TRACE("Seeking? %d\n", This->seek);
689
690     hr = parse_header(This->header, &length, NULL);
691     assert(hr == S_OK);
692
693     if (pin->rtCurrent >= pin->rtStop)
694     {
695         /* Last sample has already been queued, request nothing more */
696         FIXME("Done!\n");
697         return S_OK;
698     }
699
700     hr = IMemAllocator_GetBuffer(pin->pAlloc, &sample, NULL, NULL, 0);
701
702     pin->rtNext = pin->rtCurrent;
703     if (SUCCEEDED(hr))
704     {
705         LONGLONG rtSampleStart = pin->rtNext;
706         /* Add 4 for the next header, which should hopefully work */
707         LONGLONG rtSampleStop = rtSampleStart + MEDIATIME_FROM_BYTES(length + 4);
708
709         if (rtSampleStop > pin->rtStop)
710             rtSampleStop = MEDIATIME_FROM_BYTES(ALIGNUP(BYTES_FROM_MEDIATIME(pin->rtStop), pin->cbAlign));
711
712         hr = IMediaSample_SetTime(sample, &rtSampleStart, &rtSampleStop);
713
714         IMediaSample_SetPreroll(sample, FALSE);
715         IMediaSample_SetDiscontinuity(sample, TRUE);
716         IMediaSample_SetSyncPoint(sample, 1);
717         This->seek = 0;
718
719         hr = IAsyncReader_Request(pin->pReader, sample, 0);
720         if (SUCCEEDED(hr))
721         {
722             pin->rtCurrent = pin->rtNext;
723             pin->rtNext = rtSampleStop;
724         }
725         else
726             IMediaSample_Release(sample);
727     }
728     if (FAILED(hr))
729         ERR("Horsemen of the apocalypse came to bring error 0x%08x\n", hr);
730
731     return hr;
732 }
733
734 static const IBaseFilterVtbl MPEGSplitter_Vtbl =
735 {
736     Parser_QueryInterface,
737     Parser_AddRef,
738     Parser_Release,
739     Parser_GetClassID,
740     Parser_Stop,
741     Parser_Pause,
742     Parser_Run,
743     Parser_GetState,
744     Parser_SetSyncSource,
745     Parser_GetSyncSource,
746     Parser_EnumPins,
747     Parser_FindPin,
748     Parser_QueryFilterInfo,
749     Parser_JoinFilterGraph,
750     Parser_QueryVendorInfo
751 };
752
753 HRESULT MPEGSplitter_create(IUnknown * pUnkOuter, LPVOID * ppv)
754 {
755     MPEGSplitterImpl *This;
756     HRESULT hr = E_FAIL;
757
758     TRACE("(%p, %p)\n", pUnkOuter, ppv);
759
760     *ppv = NULL;
761
762     if (pUnkOuter)
763         return CLASS_E_NOAGGREGATION;
764
765     This = CoTaskMemAlloc(sizeof(MPEGSplitterImpl));
766     if (!This)
767         return E_OUTOFMEMORY;
768
769     ZeroMemory(This, sizeof(MPEGSplitterImpl));
770     hr = Parser_Create(&(This->Parser), &MPEGSplitter_Vtbl, &CLSID_MPEG1Splitter, MPEGSplitter_process_sample, MPEGSplitter_query_accept, MPEGSplitter_pre_connect, MPEGSplitter_cleanup, MPEGSplitter_disconnect, MPEGSplitter_first_request, NULL, NULL, MPEGSplitter_seek, NULL);
771     if (FAILED(hr))
772     {
773         CoTaskMemFree(This);
774         return hr;
775     }
776     This->seek = 1;
777
778     /* Note: This memory is managed by the parser filter once created */
779     *ppv = This;
780
781     return hr;
782 }