AVPacket.pos
[ffmpeg.git] / libavformat / psxstr.c
1 /*
2  * Sony Playstation (PSX) STR File Demuxer
3  * Copyright (c) 2003 The ffmpeg Project
4  *
5  * This library is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Lesser General Public
7  * License as published by the Free Software Foundation; either
8  * version 2 of the License, or (at your option) any later version.
9  *
10  * This library is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * Lesser General Public License for more details.
14  *
15  * You should have received a copy of the GNU Lesser General Public
16  * License along with this library; if not, write to the Free Software
17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18  */
19
20 /**
21  * @file psxstr.c
22  * PSX STR file demuxer
23  * by Mike Melanson (melanson@pcisys.net)
24  * This module handles streams that have been ripped from Sony Playstation
25  * CD games. This demuxer can handle either raw STR files (which are just
26  * concatenations of raw compact disc sectors) or STR files with 0x2C-byte
27  * RIFF headers, followed by CD sectors.
28  */
29
30 #include "avformat.h"
31
32 //#define PRINTSTUFF
33
34 #define RIFF_TAG MKTAG('R', 'I', 'F', 'F')
35 #define CDXA_TAG MKTAG('C', 'D', 'X', 'A')
36
37 #define RAW_CD_SECTOR_SIZE 2352
38 #define RAW_CD_SECTOR_DATA_SIZE 2304
39 #define VIDEO_DATA_CHUNK_SIZE 0x7E0
40 #define VIDEO_DATA_HEADER_SIZE 0x38
41 #define RIFF_HEADER_SIZE 0x2C
42
43 #define CDXA_TYPE_MASK     0x0E
44 #define CDXA_TYPE_DATA     0x08
45 #define CDXA_TYPE_AUDIO    0x04
46 #define CDXA_TYPE_VIDEO    0x02
47
48 #define STR_MAGIC (0x80010160)
49
50 typedef struct StrChannel {
51
52     int type;
53 #define STR_AUDIO 0
54 #define STR_VIDEO 1
55
56     /* video parameters */
57     int width;
58     int height;
59     int video_stream_index;
60
61     /* audio parameters */
62     int sample_rate;
63     int channels;
64     int bits;
65     int audio_stream_index;
66 } StrChannel;
67
68 typedef struct StrDemuxContext {
69
70     /* a STR file can contain up to 32 channels of data */
71     StrChannel channels[32];
72
73     /* only decode the first audio and video channels encountered */
74     int video_channel;
75     int audio_channel;
76
77     int64_t pts;
78
79     unsigned char *video_chunk;
80     AVPacket tmp_pkt;
81 } StrDemuxContext;
82
83 const static char sync_header[12] = {0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x00};
84
85 static int str_probe(AVProbeData *p)
86 {
87     int start;
88
89     /* need at least 0x38 bytes to validate */
90     if (p->buf_size < 0x38)
91         return 0;
92
93     if ((LE_32(&p->buf[0]) == RIFF_TAG) &&
94         (LE_32(&p->buf[8]) == CDXA_TAG)) {
95
96         /* RIFF header seen; skip 0x2C bytes */
97         start = RIFF_HEADER_SIZE;
98     } else
99         start = 0;
100
101     /* look for CD sync header (00, 0xFF x 10, 00) */
102     if (memcmp(p->buf+start,sync_header,sizeof(sync_header)))
103         return 0;
104
105     /* MPEG files (like those ripped from VCDs) can also look like this;
106      * only return half certainty */
107     return 50;
108 }
109
110 #if 0
111 static void dump(unsigned char *buf,size_t len)
112 {
113     int i;
114     for(i=0;i<len;i++) {
115         if ((i&15)==0) av_log(NULL, AV_LOG_DEBUG, "%04x  ",i);
116         av_log(NULL, AV_LOG_DEBUG, "%02x ",buf[i]);
117         if ((i&15)==15) av_log(NULL, AV_LOG_DEBUG, "\n");
118     }
119     av_log(NULL, AV_LOG_DEBUG, "\n");
120 }
121 #endif
122
123 static int str_read_header(AVFormatContext *s,
124                            AVFormatParameters *ap)
125 {
126     ByteIOContext *pb = &s->pb;
127     StrDemuxContext *str = (StrDemuxContext *)s->priv_data;
128     AVStream *st;
129     unsigned char sector[RAW_CD_SECTOR_SIZE];
130     int start;
131     int i;
132     int channel;
133
134     /* initialize context members */
135     str->pts = 0;
136     str->audio_channel = -1;  /* assume to audio or video */
137     str->video_channel = -1;
138     str->video_chunk = NULL;
139
140
141     /* skip over any RIFF header */
142     if (get_buffer(pb, sector, RIFF_HEADER_SIZE) != RIFF_HEADER_SIZE)
143         return AVERROR_IO;
144     if (LE_32(&sector[0]) == RIFF_TAG)
145         start = RIFF_HEADER_SIZE;
146     else
147         start = 0;
148
149     url_fseek(pb, start, SEEK_SET);
150
151     /* check through the first 32 sectors for individual channels */
152     for (i = 0; i < 32; i++) {
153         if (get_buffer(pb, sector, RAW_CD_SECTOR_SIZE) != RAW_CD_SECTOR_SIZE)
154             return AVERROR_IO;
155
156 //printf("%02x %02x %02x %02x\n",sector[0x10],sector[0x11],sector[0x12],sector[0x13]);
157
158         channel = sector[0x11];
159         if (channel >= 32)
160             return AVERROR_INVALIDDATA;
161
162         switch (sector[0x12] & CDXA_TYPE_MASK) {
163
164         case CDXA_TYPE_DATA:
165         case CDXA_TYPE_VIDEO:
166             /* check if this channel gets to be the dominant video channel */
167             if (str->video_channel == -1) {
168                 /* qualify the magic number */
169                 if (LE_32(&sector[0x18]) != STR_MAGIC)
170                     break;
171                 str->video_channel = channel;
172                 str->channels[channel].type = STR_VIDEO;
173                 str->channels[channel].width = LE_16(&sector[0x28]);
174                 str->channels[channel].height = LE_16(&sector[0x2A]);
175
176                 /* allocate a new AVStream */
177                 st = av_new_stream(s, 0);
178                 if (!st)
179                     return AVERROR_NOMEM;
180                 /* set the pts reference (1 pts = 1/90000) */
181                 av_set_pts_info(st, 33, 1, 90000);
182
183                 str->channels[channel].video_stream_index = st->index;
184
185                 st->codec.codec_type = CODEC_TYPE_VIDEO;
186                 st->codec.codec_id = CODEC_ID_MDEC; 
187                 st->codec.codec_tag = 0;  /* no fourcc */
188                 st->codec.width = str->channels[channel].width;
189                 st->codec.height = str->channels[channel].height;
190             }
191             break;
192
193         case CDXA_TYPE_AUDIO:
194             /* check if this channel gets to be the dominant audio channel */
195             if (str->audio_channel == -1) {
196                 int fmt;
197                 str->audio_channel = channel;
198                 str->channels[channel].type = STR_AUDIO;
199                 str->channels[channel].channels = 
200                     (sector[0x13] & 0x01) ? 2 : 1;
201                 str->channels[channel].sample_rate = 
202                     (sector[0x13] & 0x04) ? 18900 : 37800;
203                 str->channels[channel].bits = 
204                     (sector[0x13] & 0x10) ? 8 : 4;
205
206                 /* allocate a new AVStream */
207                 st = av_new_stream(s, 0);
208                 if (!st)
209                     return AVERROR_NOMEM;
210                 av_set_pts_info(st, 33, 1, 90000);
211
212                 str->channels[channel].audio_stream_index = st->index;
213
214                 fmt = sector[0x13];
215                 st->codec.codec_type = CODEC_TYPE_AUDIO;
216                 st->codec.codec_id = CODEC_ID_ADPCM_XA; 
217                 st->codec.codec_tag = 0;  /* no fourcc */
218                 st->codec.channels = (fmt&1)?2:1;
219                 st->codec.sample_rate = (fmt&4)?18900:37800;
220             //    st->codec.bit_rate = 0; //FIXME;
221                 st->codec.block_align = 128;
222             }
223             break;
224
225         default:
226             /* ignore */
227             break;
228         }
229     }
230
231 if (str->video_channel != -1)
232   av_log (s, AV_LOG_DEBUG, " video channel = %d, %d x %d %d\n", str->video_channel,
233     str->channels[str->video_channel].width,
234     str->channels[str->video_channel].height,str->channels[str->video_channel].video_stream_index);
235 if (str->audio_channel != -1)
236    av_log (s, AV_LOG_DEBUG, " audio channel = %d, %d Hz, %d channels, %d bits/sample %d\n", 
237     str->audio_channel,
238     str->channels[str->audio_channel].sample_rate,
239     str->channels[str->audio_channel].channels,
240     str->channels[str->audio_channel].bits,str->channels[str->audio_channel].audio_stream_index);
241
242     /* back to the start */
243     url_fseek(pb, start, SEEK_SET);
244
245     return 0;
246 }
247
248 static int str_read_packet(AVFormatContext *s,
249                            AVPacket *ret_pkt)
250 {
251     ByteIOContext *pb = &s->pb;
252     StrDemuxContext *str = (StrDemuxContext *)s->priv_data;
253     unsigned char sector[RAW_CD_SECTOR_SIZE];
254     int channel;
255     int packet_read = 0;
256     int ret = 0;
257     AVPacket *pkt;
258
259     while (!packet_read) {
260
261         if (get_buffer(pb, sector, RAW_CD_SECTOR_SIZE) != RAW_CD_SECTOR_SIZE)
262             return AVERROR_IO;
263
264         channel = sector[0x11];
265         if (channel >= 32)
266             return AVERROR_INVALIDDATA;
267
268         switch (sector[0x12] & CDXA_TYPE_MASK) {
269
270         case CDXA_TYPE_DATA:
271         case CDXA_TYPE_VIDEO:
272             /* check if this the video channel we care about */
273             if (channel == str->video_channel) {
274
275                 int current_sector = LE_16(&sector[0x1C]);
276                 int sector_count   = LE_16(&sector[0x1E]);
277                 int frame_size = LE_32(&sector[0x24]);
278                 int bytes_to_copy;
279 //        printf("%d %d %d\n",current_sector,sector_count,frame_size);
280                 /* if this is the first sector of the frame, allocate a pkt */
281                 pkt = &str->tmp_pkt;
282                 if (current_sector == 0) {
283                     if (av_new_packet(pkt, frame_size))
284                         return AVERROR_IO;
285
286                     pkt->pos= url_ftell(pb) - RAW_CD_SECTOR_SIZE;
287                     pkt->stream_index = 
288                         str->channels[channel].video_stream_index;
289                //     pkt->pts = str->pts;
290
291                     /* if there is no audio, adjust the pts after every video
292                      * frame; assume 15 fps */
293                    if (str->audio_channel != -1)
294                        str->pts += (90000 / 15);
295                 }
296
297                 /* load all the constituent chunks in the video packet */
298                 bytes_to_copy = frame_size - current_sector*VIDEO_DATA_CHUNK_SIZE;
299                 if (bytes_to_copy>0) {
300                     if (bytes_to_copy>VIDEO_DATA_CHUNK_SIZE) bytes_to_copy=VIDEO_DATA_CHUNK_SIZE;
301                     memcpy(pkt->data + current_sector*VIDEO_DATA_CHUNK_SIZE,
302                         sector + VIDEO_DATA_HEADER_SIZE, bytes_to_copy);
303                 }
304                 if (current_sector == sector_count-1) {
305                     *ret_pkt = *pkt;
306                     return 0;
307                 }
308
309             }
310             break;
311
312         case CDXA_TYPE_AUDIO:
313 #ifdef PRINTSTUFF
314 printf (" dropping audio sector\n");
315 #endif
316 #if 1
317             /* check if this the video channel we care about */
318             if (channel == str->audio_channel) {
319                 pkt = ret_pkt;
320                 if (av_new_packet(pkt, 2304))
321                     return AVERROR_IO;
322                 memcpy(pkt->data,sector+24,2304);
323
324                 pkt->stream_index = 
325                     str->channels[channel].audio_stream_index;
326                 //pkt->pts = str->pts;
327                 return 0;
328             }
329 #endif
330             break;
331         default:
332             /* drop the sector and move on */
333 #ifdef PRINTSTUFF
334 printf (" dropping other sector\n");
335 #endif
336             break;
337         }
338
339         if (url_feof(pb))
340             return AVERROR_IO;
341     }
342
343     return ret;
344 }
345
346 static int str_read_close(AVFormatContext *s)
347 {
348     StrDemuxContext *str = (StrDemuxContext *)s->priv_data;
349
350     av_free(str->video_chunk);
351
352     return 0;
353 }
354
355 static AVInputFormat str_iformat = {
356     "psxstr",
357     "Sony Playstation STR format",
358     sizeof(StrDemuxContext),
359     str_probe,
360     str_read_header,
361     str_read_packet,
362     str_read_close,
363 };
364
365 int str_init(void)
366 {
367     av_register_input_format(&str_iformat);
368     return 0;
369 }