dxva2: log the adapter Ids as hexademical
[vlc.git] / modules / demux / sid.cpp
1 /**
2  * @file sid.cpp
3  * @brief Sidplay demux module for VLC media player
4  */
5 /*****************************************************************************
6  * Copyright © 2010 Rémi Denis-Courmont
7  * Copyright © 2010 Alan Fischer <alan@lightningtoads.com>
8  *
9  * This program is free software; you can redistribute it and/or modify it
10  * under the terms of the GNU Lesser General Public License as published by
11  * the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public License
20  * along with this program; if not, write to the Free Software Foundation,
21  * Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
22  *****************************************************************************/
23
24 /*****************************************************************************
25  * NOTA BENE: this module requires the linking against a library which is
26  * known to require licensing under the GNU General Public License version 2
27  * (or later). Therefore, the result of compiling this module will normally
28  * be subject to the terms of that later license.
29  *****************************************************************************/
30
31
32 #ifdef HAVE_CONFIG_H
33 # include <config.h>
34 #endif
35
36 #include <vlc_common.h>
37 #include <vlc_input.h>
38 #include <vlc_demux.h>
39 #include <vlc_plugin.h>
40
41 #include <limits.h>
42
43 #include <sidplay/sidplay2.h>
44 #include <sidplay/builders/resid.h>
45
46 #include <new>
47
48 static int  Open (vlc_object_t *);
49 static void Close (vlc_object_t *);
50
51 vlc_module_begin ()
52     set_shortname ("sid")
53     set_description ( N_("C64 sid demuxer") )
54     set_category (CAT_INPUT)
55     set_subcategory (SUBCAT_INPUT_DEMUX)
56     set_capability ("demux", 100)
57     set_callbacks (Open, Close)
58 vlc_module_end ()
59
60 struct demux_sys_t
61 {
62     sidplay2 *player;
63     sid2_config_t config;
64     sid2_info_t info;
65     SidTune *tune;
66     SidTuneInfo tuneInfo;
67
68     int bytes_per_frame;
69     int block_size;
70     es_out_id_t *es;
71     date_t pts;
72
73     int last_title;
74     bool title_changed;
75 };
76
77
78 static int Demux (demux_t *);
79 static int Control (demux_t *, int, va_list);
80
81 static int Open (vlc_object_t *obj)
82 {
83     demux_t *demux = (demux_t *)obj;
84     demux_sys_t *sys = NULL;
85     es_format_t fmt;
86     bool result = false;
87     SidTune *tune = NULL;
88     sidplay2 *player = NULL;
89     ReSIDBuilder *builder = NULL;
90
91     int64_t size = stream_Size (demux->s);
92     if (size < 4 || size > LONG_MAX) /* We need to load the whole file for sidplay */
93         return VLC_EGENERIC;
94
95     const uint8_t *peek;
96     if (vlc_stream_Peek (demux->s, &peek, 4) < 4)
97         return VLC_EGENERIC;
98
99     /* sidplay2 can read PSID and the newer RSID formats */
100     if(memcmp(peek,"PSID",4)!=0 && memcmp(peek,"RSID",4)!=0)
101         return VLC_EGENERIC;
102
103     uint8_t *data = (uint8_t*) malloc(size);
104     if (unlikely (data==NULL))
105         goto error;
106
107     if (vlc_stream_Read (demux->s,data,size) < size) {
108         free (data);
109         goto error;
110     }
111
112     tune = new (std::nothrow) SidTune(0);
113     if (unlikely (tune==NULL)) {
114         free (data);
115         goto error;
116     }
117
118     result = tune->read (data, size);
119     free (data);
120     if (!result)
121         goto error;
122
123     player = new (std::nothrow) sidplay2();
124     if (unlikely(player==NULL))
125         goto error;
126
127     sys = (demux_sys_t*) calloc (1, sizeof(demux_sys_t));
128     if (unlikely(sys==NULL))
129         goto error;
130
131     sys->player = player;
132     sys->tune = tune;
133
134     tune->getInfo (sys->tuneInfo);
135
136     sys->info = player->info();
137     sys->config = player->config();
138
139     builder = new (std::nothrow) ReSIDBuilder ("ReSID");
140     if (unlikely(builder==NULL))
141         goto error;
142
143     builder->create (sys->info.maxsids);
144     builder->sampling (sys->config.frequency);
145
146     sys->config.sidEmulation = builder;
147     sys->config.precision    = 16;
148     sys->config.playback     = (sys->info.channels == 2 ? sid2_stereo : sid2_mono);
149
150     player->config (sys->config);
151
152     sys->bytes_per_frame = sys->info.channels * sys->config.precision / 8;
153     sys->block_size = sys->config.frequency / 10 * sys->bytes_per_frame;
154
155     es_format_Init (&fmt, AUDIO_ES, VLC_CODEC_S16N);
156
157     fmt.audio.i_channels        = sys->info.channels;
158     fmt.audio.i_bitspersample   = sys->config.precision;
159     fmt.audio.i_rate            = sys->config.frequency;
160     fmt.audio.i_bytes_per_frame = sys->bytes_per_frame;
161     fmt.audio.i_frame_length    = fmt.audio.i_bytes_per_frame;
162     fmt.audio.i_blockalign      = fmt.audio.i_bytes_per_frame;
163
164     fmt.i_bitrate = fmt.audio.i_rate * fmt.audio.i_bytes_per_frame;
165
166     sys->es = es_out_Add (demux->out, &fmt);
167
168     date_Init (&sys->pts, fmt.audio.i_rate, 1);
169     date_Set (&sys->pts, 0);
170
171     sys->tune->selectSong (0);
172     result = (sys->player->load (sys->tune) >=0 );
173     sys->player->fastForward (100);
174     if (!result)
175         goto error;
176
177     /* Callbacks */
178     demux->pf_demux = Demux;
179     demux->pf_control = Control;
180     demux->p_sys = sys;
181
182     return VLC_SUCCESS;
183
184 error:
185     msg_Err (demux, "An error occurred during sid demuxing" );
186     delete player;
187     delete builder;
188     delete tune;
189     free (sys);
190     return VLC_EGENERIC;
191 }
192
193
194 static void Close (vlc_object_t *obj)
195 {
196     demux_t *demux = (demux_t *)obj;
197     demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
198
199     delete sys->player;
200     delete sys->config.sidEmulation;
201     delete sys->tune;
202     free (sys);
203 }
204
205 static int Demux (demux_t *demux)
206 {
207     demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
208
209     block_t *block = block_Alloc( sys->block_size);
210     if (unlikely(block==NULL))
211         return 0;
212
213     if (!sys->tune->getStatus()) {
214         block_Release (block);
215         return 0;
216     }
217
218     int i_read = sys->player->play ((void*)block->p_buffer, block->i_buffer);
219     if (i_read <= 0) {
220         block_Release (block);
221         return 0;
222     }
223     block->i_buffer = i_read;
224     block->i_pts = block->i_dts = VLC_TS_0 + date_Get (&sys->pts);
225
226     es_out_SetPCR (demux->out, block->i_pts);
227
228     es_out_Send (demux->out, sys->es, block);
229
230     date_Increment (&sys->pts, i_read / sys->bytes_per_frame);
231
232     return 1;
233 }
234
235
236 static int Control (demux_t *demux, int query, va_list args)
237 {
238     demux_sys_t *sys = (demux_sys_t *)demux->p_sys;
239
240     switch (query)
241     {
242         case DEMUX_GET_TIME : {
243             int64_t *v = va_arg (args, int64_t*);
244             *v = sys->player->time() * sys->player->timebase() * (CLOCK_FREQ / 100);
245             return VLC_SUCCESS;
246         }
247
248         case DEMUX_GET_META : {
249             vlc_meta_t *p_meta = va_arg (args, vlc_meta_t *);
250
251             /* These are specified in the sid tune class as 0 = Title, 1 = Artist, 2 = Copyright/Publisher */
252             vlc_meta_SetTitle( p_meta, sys->tuneInfo.infoString[0] );
253             vlc_meta_SetArtist( p_meta, sys->tuneInfo.infoString[1] );
254             vlc_meta_SetCopyright( p_meta, sys->tuneInfo.infoString[2] );
255
256             return VLC_SUCCESS;
257         }
258
259         case DEMUX_GET_TITLE_INFO :
260             if ( sys->tuneInfo.songs > 1 ) {
261                 input_title_t ***ppp_title = va_arg (args, input_title_t ***);
262                 int *pi_int = va_arg( args, int* );
263
264                 *pi_int = sys->tuneInfo.songs;
265                 *ppp_title = (input_title_t**) vlc_alloc( sys->tuneInfo.songs, sizeof (input_title_t*));
266
267                 for( int i = 0; i < sys->tuneInfo.songs; i++ ) {
268                     (*ppp_title)[i] = vlc_input_title_New();
269                 }
270
271                 return VLC_SUCCESS;
272             }
273             return VLC_EGENERIC;
274
275         case DEMUX_SET_TITLE : {
276             int i_idx = va_arg (args, int);
277             sys->tune->selectSong (i_idx+1);
278             bool result = (sys->player->load (sys->tune) >=0 );
279             if (!result)
280                 return  VLC_EGENERIC;
281
282             sys->last_title = i_idx;
283             sys->title_changed = true;
284             msg_Dbg( demux, "set song %i", i_idx);
285
286             return VLC_SUCCESS;
287         }
288
289         case DEMUX_TEST_AND_CLEAR_FLAGS: {
290             unsigned *restrict flags = va_arg(args, unsigned *);
291
292             if ((*flags & INPUT_UPDATE_TITLE) && sys->title_changed) {
293                 *flags = INPUT_UPDATE_TITLE;
294                 sys->title_changed = false;
295             } else
296                 *flags = 0;
297             return VLC_SUCCESS;
298         }
299
300         case DEMUX_GET_TITLE:
301             *va_arg(args, int *) = sys->last_title;
302             return VLC_SUCCESS;
303
304         case DEMUX_CAN_PAUSE:
305         case DEMUX_SET_PAUSE_STATE:
306         case DEMUX_CAN_CONTROL_PACE:
307         case DEMUX_GET_PTS_DELAY:
308             return demux_vaControlHelper( demux->s, 0, -1, 0,
309                                           sys->bytes_per_frame, query, args );
310     }
311
312     return VLC_EGENERIC;
313 }