VCD: remove Win9x support
[vlc.git] / modules / access / vcd / cdrom.c
1 /****************************************************************************
2  * cdrom.c: cdrom tools
3  *****************************************************************************
4  * Copyright (C) 1998-2001 the VideoLAN team
5  * $Id$
6  *
7  * Authors: Johan Bilien <jobi@via.ecp.fr>
8  *          Gildas Bazin <gbazin@netcourrier.com>
9  *          Jon Lech Johansen <jon-vl@nanocrew.net>
10  *
11  * This program is free software; you can redistribute it and/or modify
12  * it under the terms of the GNU General Public License as published by
13  * the Free Software Foundation; either version 2 of the License, or
14  * (at your option) any later version.
15  *
16  * This program is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19  * GNU General Public License for more details.
20  *
21  * You should have received a copy of the GNU General Public License
22  * along with this program; if not, write to the Free Software
23  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
24  *****************************************************************************/
25
26 /*****************************************************************************
27  * Preamble
28  *****************************************************************************/
29 #ifdef HAVE_CONFIG_H
30 # include "config.h"
31 #endif
32
33 #include <vlc_common.h>
34 #include <vlc_access.h>
35 #include <limits.h>
36
37 #ifdef HAVE_UNISTD_H
38 #   include <unistd.h>
39 #endif
40
41 #include <errno.h>
42 #ifdef HAVE_SYS_TYPES_H
43 #   include <sys/types.h>
44 #endif
45 #ifdef HAVE_SYS_STAT_H
46 #   include <sys/stat.h>
47 #endif
48 #ifdef HAVE_FCNTL_H
49 #   include <fcntl.h>
50 #endif
51 #ifdef HAVE_ARPA_INET_H
52 #   include <arpa/inet.h>
53 #endif
54
55 #if defined( SYS_BSDI )
56 #   include <dvd.h>
57 #elif defined ( __APPLE__ )
58 #   include <CoreFoundation/CFBase.h>
59 #   include <IOKit/IOKitLib.h>
60 #   include <IOKit/storage/IOCDTypes.h>
61 #   include <IOKit/storage/IOCDMedia.h>
62 #   include <IOKit/storage/IOCDMediaBSDClient.h>
63 #elif defined( HAVE_SCSIREQ_IN_SYS_SCSIIO_H )
64 #   include <inttypes.h>
65 #   include <sys/cdio.h>
66 #   include <sys/scsiio.h>
67 #elif defined( HAVE_IOC_TOC_HEADER_IN_SYS_CDIO_H )
68 #   include <sys/cdio.h>
69 #   include <sys/cdrio.h>
70 #elif defined( WIN32 )
71 #   include <windows.h>
72 #   include <winioctl.h>
73 #elif defined (__linux__)
74 #   include <sys/ioctl.h>
75 #   include <linux/cdrom.h>
76 #else
77 #   error FIXME
78 #endif
79
80 #include "cdrom_internals.h"
81 #include "cdrom.h"
82 #include <vlc_charset.h>
83 #include <vlc_meta.h>
84
85 /*****************************************************************************
86  * ioctl_Open: Opens a VCD device or file and returns an opaque handle
87  *****************************************************************************/
88 vcddev_t *ioctl_Open( vlc_object_t *p_this, const char *psz_dev )
89 {
90     int i_ret;
91     int b_is_file;
92     vcddev_t *p_vcddev;
93 #ifndef WIN32
94     struct stat fileinfo;
95 #endif
96
97     if( !psz_dev ) return NULL;
98
99     /*
100      *  Initialize structure with default values
101      */
102     p_vcddev = malloc( sizeof(*p_vcddev) );
103     if( p_vcddev == NULL )
104         return NULL;
105     p_vcddev->i_vcdimage_handle = -1;
106     p_vcddev->psz_dev = NULL;
107     b_is_file = 1;
108
109     /*
110      *  Check if we are dealing with a device or a file (vcd image)
111      */
112 #ifdef WIN32
113     if( (strlen( psz_dev ) == 2 && psz_dev[1] == ':') )
114     {
115         b_is_file = 0;
116     }
117
118 #else
119     if( stat( psz_dev, &fileinfo ) < 0 )
120     {
121         free( p_vcddev );
122         return NULL;
123     }
124
125     /* Check if this is a block/char device */
126     if( S_ISBLK( fileinfo.st_mode ) || S_ISCHR( fileinfo.st_mode ) )
127         b_is_file = 0;
128 #endif
129
130     if( b_is_file )
131     {
132         i_ret = OpenVCDImage( p_this, psz_dev, p_vcddev );
133     }
134     else
135     {
136         /*
137          *  open the vcd device
138          */
139
140 #ifdef WIN32
141         i_ret = win32_vcd_open( p_this, psz_dev, p_vcddev );
142 #else
143         p_vcddev->i_device_handle = -1;
144         p_vcddev->i_device_handle = open( psz_dev, O_RDONLY | O_NONBLOCK );
145         i_ret = (p_vcddev->i_device_handle == -1) ? -1 : 0;
146 #endif
147     }
148
149     if( i_ret == 0 )
150     {
151         p_vcddev->psz_dev = (char *)strdup( psz_dev );
152     }
153     else
154     {
155         free( p_vcddev );
156         p_vcddev = NULL;
157     }
158
159     return p_vcddev;
160 }
161
162 /*****************************************************************************
163  * ioctl_Close: Closes an already opened VCD device or file.
164  *****************************************************************************/
165 void ioctl_Close( vlc_object_t * p_this, vcddev_t *p_vcddev )
166 {
167     free( p_vcddev->psz_dev );
168
169     if( p_vcddev->i_vcdimage_handle != -1 )
170     {
171         /*
172          *  vcd image mode
173          */
174
175         CloseVCDImage( p_this, p_vcddev );
176         return;
177     }
178
179     /*
180      *  vcd device mode
181      */
182
183 #ifdef WIN32
184     if( p_vcddev->h_device_handle )
185         CloseHandle( p_vcddev->h_device_handle );
186 #else
187     if( p_vcddev->i_device_handle != -1 )
188         close( p_vcddev->i_device_handle );
189 #endif
190     free( p_vcddev );
191 }
192
193 /*****************************************************************************
194  * ioctl_GetTracksMap: Read the Table of Content, fill in the pp_sectors map
195  *                     if pp_sectors is not null and return the number of
196  *                     tracks available.
197  *****************************************************************************/
198 int ioctl_GetTracksMap( vlc_object_t *p_this, const vcddev_t *p_vcddev,
199                         int **pp_sectors )
200 {
201     int i_tracks = 0;
202
203     if( p_vcddev->i_vcdimage_handle != -1 )
204     {
205         /*
206          *  vcd image mode
207          */
208
209         i_tracks = p_vcddev->i_tracks;
210
211         if( pp_sectors )
212         {
213             *pp_sectors = calloc( i_tracks + 1, sizeof(**pp_sectors) );
214             if( *pp_sectors == NULL )
215                 return 0;
216             memcpy( *pp_sectors, p_vcddev->p_sectors,
217                     (i_tracks + 1) * sizeof(**pp_sectors) );
218         }
219
220         return i_tracks;
221     }
222     else
223     {
224
225         /*
226          *  vcd device mode
227          */
228
229 #if defined( __APPLE__ )
230
231         CDTOC *pTOC;
232         int i_descriptors;
233
234         if( ( pTOC = darwin_getTOC( p_this, p_vcddev ) ) == NULL )
235         {
236             msg_Err( p_this, "failed to get the TOC" );
237             return 0;
238         }
239
240         i_descriptors = CDTOCGetDescriptorCount( pTOC );
241         i_tracks = darwin_getNumberOfTracks( pTOC, i_descriptors );
242
243         if( pp_sectors )
244         {
245             int i, i_leadout = -1;
246             CDTOCDescriptor *pTrackDescriptors;
247             u_char track;
248
249             *pp_sectors = calloc( i_tracks + 1, sizeof(**pp_sectors) );
250             if( *pp_sectors == NULL )
251             {
252                 darwin_freeTOC( pTOC );
253                 return 0;
254             }
255
256             pTrackDescriptors = pTOC->descriptors;
257
258             for( i_tracks = 0, i = 0; i < i_descriptors; i++ )
259             {
260                 track = pTrackDescriptors[i].point;
261
262                 if( track == 0xA2 )
263                     i_leadout = i;
264
265                 if( track > CD_MAX_TRACK_NO || track < CD_MIN_TRACK_NO )
266                     continue;
267
268                 (*pp_sectors)[i_tracks++] =
269                     CDConvertMSFToLBA( pTrackDescriptors[i].p );
270             }
271
272             if( i_leadout == -1 )
273             {
274                 msg_Err( p_this, "leadout not found" );
275                 free( *pp_sectors );
276                 darwin_freeTOC( pTOC );
277                 return 0;
278             }
279
280             /* set leadout sector */
281             (*pp_sectors)[i_tracks] =
282                 CDConvertMSFToLBA( pTrackDescriptors[i_leadout].p );
283         }
284
285         darwin_freeTOC( pTOC );
286
287 #elif defined( WIN32 )
288         DWORD dwBytesReturned;
289         CDROM_TOC cdrom_toc;
290
291         if( DeviceIoControl( p_vcddev->h_device_handle, IOCTL_CDROM_READ_TOC,
292                              NULL, 0, &cdrom_toc, sizeof(CDROM_TOC),
293                              &dwBytesReturned, NULL ) == 0 )
294         {
295             msg_Err( p_this, "could not read TOCHDR" );
296             return 0;
297         }
298
299         i_tracks = cdrom_toc.LastTrack - cdrom_toc.FirstTrack + 1;
300
301         if( pp_sectors )
302         {
303             *pp_sectors = calloc( i_tracks + 1, sizeof(**pp_sectors) );
304             if( *pp_sectors == NULL )
305                 return 0;
306
307             for( int i = 0 ; i <= i_tracks ; i++ )
308             {
309                 (*pp_sectors)[ i ] = MSF_TO_LBA2(
310                                            cdrom_toc.TrackData[i].Address[1],
311                                            cdrom_toc.TrackData[i].Address[2],
312                                            cdrom_toc.TrackData[i].Address[3] );
313                 msg_Dbg( p_this, "p_sectors: %i, %i", i, (*pp_sectors)[i]);
314              }
315         }
316
317 #elif defined( HAVE_IOC_TOC_HEADER_IN_SYS_CDIO_H ) \
318        || defined( HAVE_SCSIREQ_IN_SYS_SCSIIO_H )
319         struct ioc_toc_header tochdr;
320         struct ioc_read_toc_entry toc_entries;
321
322         if( ioctl( p_vcddev->i_device_handle, CDIOREADTOCHEADER, &tochdr )
323             == -1 )
324         {
325             msg_Err( p_this, "could not read TOCHDR" );
326             return 0;
327         }
328
329         i_tracks = tochdr.ending_track - tochdr.starting_track + 1;
330
331         if( pp_sectors )
332         {
333              int i;
334
335              *pp_sectors = calloc( i_tracks + 1, sizeof(**pp_sectors) );
336              if( *pp_sectors == NULL )
337                  return 0;
338
339              toc_entries.address_format = CD_LBA_FORMAT;
340              toc_entries.starting_track = 0;
341              toc_entries.data_len = ( i_tracks + 1 ) *
342                                         sizeof( struct cd_toc_entry );
343              toc_entries.data = (struct cd_toc_entry *)
344                                     malloc( toc_entries.data_len );
345              if( toc_entries.data == NULL )
346              {
347                  free( *pp_sectors );
348                  return 0;
349              }
350
351              /* Read the TOC */
352              if( ioctl( p_vcddev->i_device_handle, CDIOREADTOCENTRYS,
353                         &toc_entries ) == -1 )
354              {
355                  msg_Err( p_this, "could not read the TOC" );
356                  free( *pp_sectors );
357                  free( toc_entries.data );
358                  return 0;
359              }
360
361              /* Fill the p_sectors structure with the track/sector matches */
362              for( i = 0 ; i <= i_tracks ; i++ )
363              {
364 #if defined( HAVE_SCSIREQ_IN_SYS_SCSIIO_H )
365                  /* FIXME: is this ok? */
366                  (*pp_sectors)[ i ] = toc_entries.data[i].addr.lba;
367 #else
368                  (*pp_sectors)[ i ] = ntohl( toc_entries.data[i].addr.lba );
369 #endif
370              }
371         }
372 #else
373         struct cdrom_tochdr   tochdr;
374         struct cdrom_tocentry tocent;
375
376         /* First we read the TOC header */
377         if( ioctl( p_vcddev->i_device_handle, CDROMREADTOCHDR, &tochdr )
378             == -1 )
379         {
380             msg_Err( p_this, "could not read TOCHDR" );
381             return 0;
382         }
383
384         i_tracks = tochdr.cdth_trk1 - tochdr.cdth_trk0 + 1;
385
386         if( pp_sectors )
387         {
388             int i;
389
390             *pp_sectors = calloc( i_tracks + 1, sizeof(**pp_sectors) );
391             if( *pp_sectors == NULL )
392                 return 0;
393
394             /* Fill the p_sectors structure with the track/sector matches */
395             for( i = 0 ; i <= i_tracks ; i++ )
396             {
397                 tocent.cdte_format = CDROM_LBA;
398                 tocent.cdte_track =
399                     ( i == i_tracks ) ? CDROM_LEADOUT : tochdr.cdth_trk0 + i;
400
401                 if( ioctl( p_vcddev->i_device_handle, CDROMREADTOCENTRY,
402                            &tocent ) == -1 )
403                 {
404                     msg_Err( p_this, "could not read TOCENTRY" );
405                     free( *pp_sectors );
406                     return 0;
407                 }
408
409                 (*pp_sectors)[ i ] = tocent.cdte_addr.lba;
410             }
411         }
412 #endif
413
414         return i_tracks;
415     }
416 }
417
418 /****************************************************************************
419  * ioctl_ReadSector: Read VCD or CDDA sectors
420  ****************************************************************************/
421 int ioctl_ReadSectors( vlc_object_t *p_this, const vcddev_t *p_vcddev,
422                        int i_sector, uint8_t *p_buffer, int i_nb, int i_type )
423 {
424     uint8_t *p_block;
425     int i;
426
427     if( i_type == VCD_TYPE )
428         p_block = malloc( VCD_SECTOR_SIZE * i_nb );
429     else
430         p_block = p_buffer;
431
432     if( p_vcddev->i_vcdimage_handle != -1 )
433     {
434         /*
435          *  vcd image mode
436          */
437         if( lseek( p_vcddev->i_vcdimage_handle, i_sector * VCD_SECTOR_SIZE,
438                    SEEK_SET ) == -1 )
439         {
440             msg_Err( p_this, "Could not lseek to sector %d", i_sector );
441             if( i_type == VCD_TYPE ) free( p_block );
442             return -1;
443         }
444
445         if( read( p_vcddev->i_vcdimage_handle, p_block, VCD_SECTOR_SIZE * i_nb)
446             == -1 )
447         {
448             msg_Err( p_this, "Could not read sector %d", i_sector );
449             if( i_type == VCD_TYPE ) free( p_block );
450             return -1;
451         }
452
453     }
454     else
455     {
456
457         /*
458          *  vcd device mode
459          */
460
461 #if defined( __APPLE__ )
462         dk_cd_read_t cd_read;
463
464         memset( &cd_read, 0, sizeof(cd_read) );
465
466         cd_read.offset = i_sector * VCD_SECTOR_SIZE;
467         cd_read.sectorArea = kCDSectorAreaSync | kCDSectorAreaHeader |
468                              kCDSectorAreaSubHeader | kCDSectorAreaUser |
469                              kCDSectorAreaAuxiliary;
470         cd_read.sectorType = kCDSectorTypeUnknown;
471
472         cd_read.buffer = p_block;
473         cd_read.bufferLength = VCD_SECTOR_SIZE * i_nb;
474
475         if( ioctl( p_vcddev->i_device_handle, DKIOCCDREAD, &cd_read ) == -1 )
476         {
477             msg_Err( p_this, "could not read block %d", i_sector );
478             if( i_type == VCD_TYPE ) free( p_block );
479             return -1;
480         }
481
482 #elif defined( WIN32 )
483         DWORD dwBytesReturned;
484         RAW_READ_INFO cdrom_raw;
485
486         /* Initialize CDROM_RAW_READ structure */
487         cdrom_raw.DiskOffset.QuadPart = CD_SECTOR_SIZE * i_sector;
488         cdrom_raw.SectorCount = i_nb;
489         cdrom_raw.TrackMode =  i_type == VCD_TYPE ? XAForm2 : CDDA;
490
491         if( DeviceIoControl( p_vcddev->h_device_handle, IOCTL_CDROM_RAW_READ,
492                              &cdrom_raw, sizeof(RAW_READ_INFO), p_block,
493                              VCD_SECTOR_SIZE * i_nb, &dwBytesReturned,
494                              NULL ) == 0 )
495         {
496             if( i_type == VCD_TYPE )
497             {
498                 /* Retry in YellowMode2 */
499                 cdrom_raw.TrackMode = YellowMode2;
500                 if( DeviceIoControl( p_vcddev->h_device_handle,
501                                      IOCTL_CDROM_RAW_READ, &cdrom_raw,
502                                      sizeof(RAW_READ_INFO), p_block,
503                                      VCD_SECTOR_SIZE * i_nb, &dwBytesReturned,
504                                      NULL ) == 0 )
505                 {
506                     free( p_block );
507                     return -1;
508                 }
509             }
510             else return -1;
511         }
512
513 #elif defined( HAVE_SCSIREQ_IN_SYS_SCSIIO_H )
514         struct scsireq  sc;
515         int i_ret;
516
517         memset( &sc, 0, sizeof(sc) );
518         sc.cmd[0] = 0xBE;
519         sc.cmd[1] = i_type == VCD_TYPE ? SECTOR_TYPE_MODE2_FORM2:
520                                          SECTOR_TYPE_CDDA;
521         sc.cmd[2] = (i_sector >> 24) & 0xff;
522         sc.cmd[3] = (i_sector >> 16) & 0xff;
523         sc.cmd[4] = (i_sector >>  8) & 0xff;
524         sc.cmd[5] = (i_sector >>  0) & 0xff;
525         sc.cmd[6] = (i_nb >> 16) & 0xff;
526         sc.cmd[7] = (i_nb >>  8) & 0xff;
527         sc.cmd[8] = (i_nb      ) & 0xff;
528         sc.cmd[9] = i_type == VCD_TYPE ? READ_CD_RAW_MODE2 : READ_CD_USERDATA;
529         sc.cmd[10] = 0; /* sub channel */
530         sc.cmdlen = 12;
531         sc.databuf = (caddr_t)p_block;
532         sc.datalen = VCD_SECTOR_SIZE * i_nb;
533         sc.senselen = sizeof( sc.sense );
534         sc.flags = SCCMD_READ;
535         sc.timeout = 10000;
536
537         i_ret = ioctl( p_vcddev->i_device_handle, SCIOCCOMMAND, &sc );
538         if( i_ret == -1 )
539         {
540             msg_Err( p_this, "SCIOCCOMMAND failed" );
541             if( i_type == VCD_TYPE ) free( p_block );
542             return -1;
543         }
544         if( sc.retsts || sc.error )
545         {
546             msg_Err( p_this, "SCSI command failed: status %d error %d",
547                              sc.retsts, sc.error );
548             if( i_type == VCD_TYPE ) free( p_block );
549            return -1;
550         }
551
552 #elif defined( HAVE_IOC_TOC_HEADER_IN_SYS_CDIO_H )
553         int i_size = VCD_SECTOR_SIZE;
554
555         if( ioctl( p_vcddev->i_device_handle, CDRIOCSETBLOCKSIZE, &i_size )
556             == -1 )
557         {
558             msg_Err( p_this, "Could not set block size" );
559             if( i_type == VCD_TYPE ) free( p_block );
560             return( -1 );
561         }
562
563         if( lseek( p_vcddev->i_device_handle,
564                    i_sector * VCD_SECTOR_SIZE, SEEK_SET ) == -1 )
565         {
566             msg_Err( p_this, "Could not lseek to sector %d", i_sector );
567             if( i_type == VCD_TYPE ) free( p_block );
568             return( -1 );
569         }
570
571         if( read( p_vcddev->i_device_handle,
572                   p_block, VCD_SECTOR_SIZE * i_nb ) == -1 )
573         {
574             msg_Err( p_this, "Could not read sector %d", i_sector );
575             if( i_type == VCD_TYPE ) free( p_block );
576             return( -1 );
577         }
578
579 #else
580         for( i = 0; i < i_nb; i++ )
581         {
582             int i_dummy = i_sector + i + 2 * CD_FRAMES;
583
584 #define p_msf ((struct cdrom_msf0 *)(p_block + i * VCD_SECTOR_SIZE))
585             p_msf->minute =   i_dummy / (CD_FRAMES * CD_SECS);
586             p_msf->second = ( i_dummy % (CD_FRAMES * CD_SECS) ) / CD_FRAMES;
587             p_msf->frame =  ( i_dummy % (CD_FRAMES * CD_SECS) ) % CD_FRAMES;
588 #undef p_msf
589
590             if( ioctl( p_vcddev->i_device_handle, CDROMREADRAW,
591                        p_block + i * VCD_SECTOR_SIZE ) == -1 )
592             {
593                 msg_Err( p_this, "could not read block %i from disc",
594                          i_sector );
595
596                 if( i == 0 )
597                 {
598                     if( i_type == VCD_TYPE ) free( p_block );
599                     return( -1 );
600                 }
601                 else break;
602             }
603         }
604 #endif
605     }
606
607     /* For VCDs, we don't want to keep the header and footer of the
608      * sectors read */
609     if( i_type == VCD_TYPE )
610     {
611         for( i = 0; i < i_nb; i++ )
612         {
613             memcpy( p_buffer + i * VCD_DATA_SIZE,
614                     p_block + i * VCD_SECTOR_SIZE + VCD_DATA_START,
615                     VCD_DATA_SIZE );
616         }
617         free( p_block );
618     }
619
620     return( 0 );
621 }
622
623 /****************************************************************************
624  * Private functions
625  ****************************************************************************/
626
627 /****************************************************************************
628  * OpenVCDImage: try to open a vcd image from a .cue file
629  ****************************************************************************/
630 static int OpenVCDImage( vlc_object_t * p_this, const char *psz_dev,
631                          vcddev_t *p_vcddev )
632 {
633     int i_ret = -1;
634     char *p_pos;
635     char *psz_vcdfile = NULL;
636     char *psz_cuefile = NULL;
637     FILE *cuefile     = NULL;
638     int *p_sectors    = NULL;
639     char line[1024];
640     bool b_found      = false;
641
642     /* Check if we are dealing with a .cue file */
643     p_pos = strrchr( psz_dev, '.' );
644     if( p_pos && !strcmp( p_pos, ".cue" ) )
645     {
646         /* psz_dev must be the cue file. Let's assume there's a .bin
647          * file with the same filename */
648         psz_vcdfile = malloc( p_pos - psz_dev + 5 /* ".bin" */ );
649         strncpy( psz_vcdfile, psz_dev, p_pos - psz_dev );
650         strcpy( psz_vcdfile + (p_pos - psz_dev), ".bin");
651         psz_cuefile = strdup( psz_dev );
652     }
653     else
654     {
655         /* psz_dev must be the actual vcd file. Let's assume there's a .cue
656          * file with the same filename */
657         if( p_pos )
658         {
659             psz_cuefile = malloc( p_pos - psz_dev + 5 /* ".cue" */ );
660             strncpy( psz_cuefile, psz_dev, p_pos - psz_dev );
661             strcpy( psz_cuefile + (p_pos - psz_dev), ".cue");
662         }
663         else
664         {
665             if( asprintf( &psz_cuefile, "%s.cue", psz_dev ) == -1 )
666                 psz_cuefile = NULL;
667         }
668         /* If we need to look up the .cue file, then we don't have to look for the vcd */
669         psz_vcdfile = strdup( psz_dev );
670     }
671
672     /* Open the cue file and try to parse it */
673     msg_Dbg( p_this,"trying .cue file: %s", psz_cuefile );
674     cuefile = utf8_fopen( psz_cuefile, "rt" );
675     if( cuefile == NULL )
676     {
677         msg_Dbg( p_this, "could not find .cue file" );
678         goto error;
679     }
680
681     msg_Dbg( p_this,"guessing vcd image file: %s", psz_vcdfile );
682     p_vcddev->i_vcdimage_handle = utf8_open( psz_vcdfile,
683                                     O_RDONLY | O_NONBLOCK | O_BINARY );
684  
685     while( fgets( line, 1024, cuefile ) && !b_found )
686     {
687         /* We have a cue file, but no valid vcd file yet */
688         char filename[1024];
689         char type[16];
690         int i_temp = sscanf( line, "FILE \"%1023[^\"]\" %15s", filename, type );
691         *p_pos = 0;
692         switch( i_temp )
693         {
694             case 2:
695                 msg_Dbg( p_this, "the cue file says the data file is %s", type );
696                 if( strcasecmp( type, "BINARY" ) )
697                     goto error; /* Error if not binary, otherwise treat as case 1 */
698             case 1:
699                 if( p_vcddev->i_vcdimage_handle == -1 )
700                 {
701                     msg_Dbg( p_this, "we could not find the data file, but we found a new path" );
702                     free( psz_vcdfile);
703                     if( *filename != '/' && ((p_pos = strrchr( psz_cuefile, '/' ))
704                         || (p_pos = strrchr( psz_cuefile, '\\' ) )) )
705                     {
706                         psz_vcdfile = malloc( strlen(filename) +
707                                       (p_pos - psz_cuefile + 1) + 1 );
708                         strncpy( psz_vcdfile, psz_cuefile, (p_pos - psz_cuefile + 1) );
709                         strcpy( psz_vcdfile + (p_pos - psz_cuefile + 1), filename );
710                     } else psz_vcdfile = strdup( filename );
711                     msg_Dbg( p_this,"using vcd image file: %s", psz_vcdfile );
712                     p_vcddev->i_vcdimage_handle = utf8_open( psz_vcdfile,
713                                         O_RDONLY | O_NONBLOCK | O_BINARY );
714                 }
715                 b_found = true;
716             default:
717                 break;
718         }
719     }
720
721     if( p_vcddev->i_vcdimage_handle == -1)
722         goto error;
723
724     /* Try to parse the i_tracks and p_sectors info so we can just forget
725      * about the cuefile */
726     size_t i_tracks = 0;
727
728     while( fgets( line, 1024, cuefile ) && i_tracks < INT_MAX-1 )
729     {
730         /* look for a TRACK line */
731         char psz_dummy[9];
732         if( !sscanf( line, "%9s", psz_dummy ) || strcmp(psz_dummy, "TRACK") )
733             continue;
734
735         /* look for an INDEX line */
736         while( fgets( line, 1024, cuefile ) )
737         {
738             int i_num, i_min, i_sec, i_frame;
739
740             if( (sscanf( line, "%*9s %2u %2u:%2u:%2u", &i_num,
741                          &i_min, &i_sec, &i_frame ) != 4) || (i_num != 1) )
742                 continue;
743
744             int *buf = realloc (p_sectors, (i_tracks + 1) * sizeof (*buf));
745             if (buf == NULL)
746                 goto error;
747             p_sectors = buf;
748             p_sectors[i_tracks] = MSF_TO_LBA(i_min, i_sec, i_frame);
749             msg_Dbg( p_this, "vcd track %i begins at sector:%i",
750                      (int)i_tracks, (int)p_sectors[i_tracks] );
751             i_tracks++;
752             break;
753         }
754     }
755
756     /* fill in the last entry */
757     int *buf = realloc (p_sectors, (i_tracks + 1) * sizeof (*buf));
758     if (buf == NULL)
759         goto error;
760     p_sectors = buf;
761     p_sectors[i_tracks] = lseek(p_vcddev->i_vcdimage_handle, 0, SEEK_END)
762                                  / VCD_SECTOR_SIZE;
763     msg_Dbg( p_this, "vcd track %i, begins at sector:%i",
764              (int)i_tracks, (int)p_sectors[i_tracks] );
765     p_vcddev->i_tracks = ++i_tracks;
766     p_vcddev->p_sectors = p_sectors;
767     i_ret = 0;
768
769 error:
770     if( cuefile ) fclose( cuefile );
771     free( p_sectors );
772     free( psz_cuefile );
773     free( psz_vcdfile );
774
775     return i_ret;
776 }
777
778 /****************************************************************************
779  * CloseVCDImage: closes a vcd image opened by OpenVCDImage
780  ****************************************************************************/
781 static void CloseVCDImage( vlc_object_t * p_this, vcddev_t *p_vcddev )
782 {
783     VLC_UNUSED( p_this );
784     if( p_vcddev->i_vcdimage_handle != -1 )
785         close( p_vcddev->i_vcdimage_handle );
786     else
787         return;
788
789     free( p_vcddev->p_sectors );
790 }
791
792 #if defined( __APPLE__ )
793 /****************************************************************************
794  * darwin_getTOC: get the TOC
795  ****************************************************************************/
796 static CDTOC *darwin_getTOC( vlc_object_t * p_this, const vcddev_t *p_vcddev )
797 {
798     mach_port_t port;
799     char *psz_devname;
800     kern_return_t ret;
801     CDTOC *pTOC = NULL;
802     io_iterator_t iterator;
803     io_registry_entry_t service;
804     CFMutableDictionaryRef properties;
805     CFDataRef data;
806
807     /* get the device name */
808     if( ( psz_devname = strrchr( p_vcddev->psz_dev, '/') ) != NULL )
809         ++psz_devname;
810     else
811         psz_devname = p_vcddev->psz_dev;
812
813     /* unraw the device name */
814     if( *psz_devname == 'r' )
815         ++psz_devname;
816
817     /* get port for IOKit communication */
818     if( ( ret = IOMasterPort( MACH_PORT_NULL, &port ) ) != KERN_SUCCESS )
819     {
820         msg_Err( p_this, "IOMasterPort: 0x%08x", ret );
821         return( NULL );
822     }
823
824     /* get service iterator for the device */
825     if( ( ret = IOServiceGetMatchingServices(
826                     port, IOBSDNameMatching( port, 0, psz_devname ),
827                     &iterator ) ) != KERN_SUCCESS )
828     {
829         msg_Err( p_this, "IOServiceGetMatchingServices: 0x%08x", ret );
830         return( NULL );
831     }
832
833     /* first service */
834     service = IOIteratorNext( iterator );
835     IOObjectRelease( iterator );
836
837     /* search for kIOCDMediaClass */
838     while( service && !IOObjectConformsTo( service, kIOCDMediaClass ) )
839     {
840         if( ( ret = IORegistryEntryGetParentIterator( service,
841                         kIOServicePlane, &iterator ) ) != KERN_SUCCESS )
842         {
843             msg_Err( p_this, "IORegistryEntryGetParentIterator: 0x%08x", ret );
844             IOObjectRelease( service );
845             return( NULL );
846         }
847
848         IOObjectRelease( service );
849         service = IOIteratorNext( iterator );
850         IOObjectRelease( iterator );
851     }
852
853     if( service == NULL )
854     {
855         msg_Err( p_this, "search for kIOCDMediaClass came up empty" );
856         return( NULL );
857     }
858
859     /* create a CF dictionary containing the TOC */
860     if( ( ret = IORegistryEntryCreateCFProperties( service, &properties,
861                     kCFAllocatorDefault, kNilOptions ) ) != KERN_SUCCESS )
862     {
863         msg_Err( p_this, "IORegistryEntryCreateCFProperties: 0x%08x", ret );
864         IOObjectRelease( service );
865         return( NULL );
866     }
867
868     /* get the TOC from the dictionary */
869     if( ( data = (CFDataRef) CFDictionaryGetValue( properties,
870                                     CFSTR(kIOCDMediaTOCKey) ) ) != NULL )
871     {
872         CFRange range;
873         CFIndex buf_len;
874
875         buf_len = CFDataGetLength( data ) + 1;
876         range = CFRangeMake( 0, buf_len );
877
878         if( ( pTOC = malloc( buf_len ) ) != NULL )
879         {
880             CFDataGetBytes( data, range, (u_char *)pTOC );
881         }
882     }
883     else
884     {
885         msg_Err( p_this, "CFDictionaryGetValue failed" );
886     }
887
888     CFRelease( properties );
889     IOObjectRelease( service );
890
891     return( pTOC );
892 }
893
894 /****************************************************************************
895  * darwin_getNumberOfTracks: get number of tracks in TOC
896  ****************************************************************************/
897 static int darwin_getNumberOfTracks( CDTOC *pTOC, int i_descriptors )
898 {
899     u_char track;
900     int i, i_tracks = 0;
901     CDTOCDescriptor *pTrackDescriptors = NULL;
902
903     pTrackDescriptors = (CDTOCDescriptor *)pTOC->descriptors;
904
905     for( i = i_descriptors; i > 0; i-- )
906     {
907         track = pTrackDescriptors[i].point;
908
909         if( track > CD_MAX_TRACK_NO || track < CD_MIN_TRACK_NO )
910             continue;
911
912         i_tracks++;
913     }
914
915     return( i_tracks );
916 }
917 #endif /* __APPLE__ */
918
919 #if defined( WIN32 )
920 /*****************************************************************************
921  * win32_vcd_open: open vcd drive
922  *****************************************************************************
923  * Use IOCTLs on WinNT/2K/XP.
924  *****************************************************************************/
925 static int win32_vcd_open( vlc_object_t * p_this, const char *psz_dev,
926                            vcddev_t *p_vcddev )
927 {
928     /* Initializations */
929     p_vcddev->h_device_handle = NULL;
930
931     char psz_win32_drive[7];
932
933     msg_Dbg( p_this, "using winNT/2K/XP ioctl layer" );
934
935     sprintf( psz_win32_drive, "\\\\.\\%c:", psz_dev[0] );
936
937     p_vcddev->h_device_handle = CreateFile( psz_win32_drive, GENERIC_READ,
938                                             FILE_SHARE_READ | FILE_SHARE_WRITE,
939                                             NULL, OPEN_EXISTING,
940                                             FILE_FLAG_NO_BUFFERING |
941                                             FILE_FLAG_RANDOM_ACCESS, NULL );
942     return (p_vcddev->h_device_handle == NULL) ? -1 : 0;
943 }
944
945 #endif /* WIN32 */
946
947 /* */
948 static void astrcat( char **ppsz_dst, char *psz_src )
949 {
950     char *psz_old = *ppsz_dst;
951
952     if( !psz_old )
953     {
954         *ppsz_dst = strdup( psz_src );
955     }
956     else if( psz_src )
957     {
958         if( asprintf( ppsz_dst, "%s%s", psz_old, psz_src ) < 0 )
959             *ppsz_dst = psz_old;
960         else
961             free( psz_old );
962     }
963 }
964
965 /* */
966 static int CdTextParse( vlc_meta_t ***ppp_tracks, int *pi_tracks,
967                         const uint8_t *p_buffer, int i_buffer )
968 {
969     char *pppsz_info[128][0x10];
970     int i_track_last = -1;
971     if( i_buffer < 4 )
972         return -1;
973
974     memset( pppsz_info, 0, sizeof(pppsz_info) );
975
976     for( int i = 0; i < (i_buffer-4)/18; i++ )
977     {
978         const uint8_t *p_block = &p_buffer[4 + 18*i];
979         char psz_text[12+1];
980
981         const int i_pack_type = p_block[0];
982         if( i_pack_type < 0x80 || i_pack_type > 0x8f )
983             continue;
984
985         const int i_track_number = (p_block[1] >> 0)&0x7f;
986         const int i_extension_flag = ( p_block[1] >> 7)& 0x01;
987         if( i_extension_flag )
988             continue;
989
990         //const int i_sequence_number = p_block[2];
991         //const int i_charater_position = (p_block[3] >> 0) &0x0f;
992         //const int i_block_number = (p_block[3] >> 4) &0x07;
993         /* TODO unicode support
994          * I need a sample */
995         //const int i_unicode = ( p_block[3] >> 7)&0x01;
996         //const int i_crc = (p_block[4+12] << 8) | (p_block[4+13] << 0);
997
998         /* */
999         memcpy( psz_text, &p_block[4], 12 );
1000         psz_text[12] = '\0';
1001
1002         /* */
1003         int i_track =  i_track_number;
1004         char *psz_track = &psz_text[0];
1005         while( i_track <= 127 && psz_track < &psz_text[12] )
1006         {
1007             //fprintf( stderr, "t=%d psz_track=%p end=%p", i_track, psz_track, &psz_text[12] );
1008             if( *psz_track )
1009             {
1010                 astrcat( &pppsz_info[i_track][i_pack_type-0x80], psz_track );
1011                 i_track_last = __MAX( i_track_last, i_track );
1012             }
1013
1014             i_track++;
1015             psz_track += 1 + strlen(psz_track);
1016         }
1017     }
1018
1019     if( i_track_last < 0 )
1020         return -1;
1021
1022     vlc_meta_t **pp_tracks = calloc( i_track_last+1, sizeof(*pp_tracks) );
1023     if( !pp_tracks )
1024         goto exit;
1025
1026     for( int j = 0; j < 0x10; j++ )
1027     {
1028         for( int i = 0; i <= i_track_last; i++ )
1029         {
1030             /* */
1031             if( pppsz_info[i][j] )
1032                 EnsureUTF8( pppsz_info[i][j] );
1033
1034             /* */
1035             const char *psz_default = pppsz_info[0][j];
1036             const char *psz_value = pppsz_info[i][j];
1037
1038             if( !psz_value && !psz_default )
1039                 continue;
1040             vlc_meta_t *p_track = pp_tracks[i];
1041             if( !p_track )
1042             {
1043                 p_track = pp_tracks[i] = vlc_meta_New();
1044                 if( !p_track )
1045                     continue;
1046             }
1047             switch( j )
1048             {
1049             case 0x00: /* Album/Title */
1050                 if( i == 0 )
1051                 {
1052                     vlc_meta_SetAlbum( p_track, psz_value );
1053                 }
1054                 else
1055                 {
1056                     if( psz_value )
1057                         vlc_meta_SetTitle( p_track, psz_value );
1058                     if( psz_default )
1059                         vlc_meta_SetAlbum( p_track, psz_default );
1060                 }
1061                 break;
1062             case 0x01: /* Performer */
1063                 vlc_meta_SetArtist( p_track,
1064                                     psz_value ? psz_value : psz_default );
1065                 break;
1066             case 0x05: /* Messages */
1067                 vlc_meta_SetDescription( p_track,
1068                                          psz_value ? psz_value : psz_default );
1069                 break;
1070             case 0x07: /* Genre */
1071                 vlc_meta_SetGenre( p_track,
1072                                    psz_value ? psz_value : psz_default );
1073                 break;
1074             /* FIXME unsupported:
1075              * 0x02: songwriter
1076              * 0x03: composer
1077              * 0x04: arrenger
1078              * 0x06: disc id */
1079             }
1080         }
1081     }
1082     /* */
1083 exit:
1084     for( int j = 0; j < 0x10; j++ )
1085         for( int i = 0; i <= i_track_last; i++ )
1086             free( pppsz_info[i][j] );
1087
1088     *ppp_tracks = pp_tracks;
1089     *pi_tracks = i_track_last+1;
1090     return pp_tracks ? 0 : -1;
1091 }
1092
1093 #if defined( __APPLE__ ) || \
1094     defined( HAVE_IOC_TOC_HEADER_IN_SYS_CDIO_H ) || \
1095     defined( HAVE_SCSIREQ_IN_SYS_SCSIIO_H )
1096 static int CdTextRead( vlc_object_t *p_object, const vcddev_t *p_vcddev,
1097                        uint8_t **pp_buffer, int *pi_buffer )
1098 {
1099     VLC_UNUSED( p_object );
1100     return -1;
1101 }
1102 #elif defined( WIN32 )
1103 static int CdTextRead( vlc_object_t *p_object, const vcddev_t *p_vcddev,
1104                        uint8_t **pp_buffer, int *pi_buffer )
1105 {
1106     CDROM_READ_TOC_EX TOCEx;
1107     memset(&TOCEx, 0, sizeof(TOCEx));
1108     TOCEx.Format = CDROM_READ_TOC_EX_FORMAT_CDTEXT;
1109
1110     const int i_header_size = __MAX( 4, MINIMUM_CDROM_READ_TOC_EX_SIZE );
1111     uint8_t header[i_header_size];
1112     DWORD i_read;
1113     if( !DeviceIoControl( p_vcddev->h_device_handle, IOCTL_CDROM_READ_TOC_EX,
1114                           &TOCEx, sizeof(TOCEx), header, i_header_size, &i_read, 0 ) )
1115         return -1;
1116
1117     const int i_text = 2 + (header[0] << 8) + header[1];
1118     if( i_text <= 4 )
1119         return -1;
1120
1121     /* Read complete CD-TEXT */
1122     uint8_t *p_text = calloc( 1, i_text );
1123     if( !p_text )
1124         return VLC_EGENERIC;
1125
1126     if( !DeviceIoControl( p_vcddev->h_device_handle, IOCTL_CDROM_READ_TOC_EX,
1127                           &TOCEx, sizeof(TOCEx), p_text, i_text, &i_read, 0 ) )
1128     {
1129         free( p_text );
1130         return VLC_EGENERIC;
1131     }
1132
1133     /* */
1134     *pp_buffer = p_text;
1135     *pi_buffer = i_text;
1136     return VLC_SUCCESS;
1137 }
1138 #else
1139 static int CdTextRead( vlc_object_t *p_object, const vcddev_t *p_vcddev,
1140                        uint8_t **pp_buffer, int *pi_buffer )
1141 {
1142     VLC_UNUSED( p_object );
1143
1144     if( p_vcddev->i_device_handle == -1 )
1145         return -1;
1146
1147     struct cdrom_generic_command gc;
1148     uint8_t header[4];
1149
1150     /* Read CD-TEXT size */
1151     memset( header, 0, sizeof(header) );
1152     memset( &gc, 0, sizeof(gc) );
1153     gc.cmd[0] = 0x43;   /* Read TOC */
1154     gc.cmd[1] = 0x02;   /* MSF */
1155     gc.cmd[2] = 5;      /* CD-Text */
1156     gc.cmd[7] = ( sizeof(header) >> 8 ) & 0xff;
1157     gc.cmd[8] = ( sizeof(header) >> 0 ) & 0xff;
1158
1159     gc.buflen = sizeof(header);
1160     gc.buffer = header;
1161     gc.data_direction = CGC_DATA_READ;
1162     gc.timeout = 1000;
1163
1164     if( ioctl( p_vcddev->i_device_handle, CDROM_SEND_PACKET, &gc ) == -1 )
1165         return VLC_EGENERIC;
1166
1167     /* If the size is less than 4 it is an error, if it 4 then
1168      * it means no text data */
1169     const int i_text = 2 + (header[0] << 8) + header[1];
1170     if( i_text <= 4 )
1171         return VLC_EGENERIC;
1172
1173     /* Read complete CD-TEXT */
1174     uint8_t *p_text = calloc( 1, i_text );
1175     if( !p_text )
1176         return VLC_EGENERIC;
1177
1178     memset( &gc, 0, sizeof(gc) );
1179     gc.cmd[0] = 0x43;   /* Read TOC */
1180     gc.cmd[1] = 0x02;   /* MSF */
1181     gc.cmd[2] = 5;      /* CD-Text */
1182     gc.cmd[7] = ( i_text >> 8 ) & 0xff;
1183     gc.cmd[8] = ( i_text >> 0 ) & 0xff;
1184
1185     gc.buflen = i_text;
1186     gc.buffer = p_text;
1187     gc.data_direction = CGC_DATA_READ;
1188     gc.timeout = 1000;
1189
1190     if( ioctl( p_vcddev->i_device_handle, CDROM_SEND_PACKET, &gc ) == -1 )
1191     {
1192         free( p_text );
1193         return VLC_EGENERIC;
1194     }
1195
1196     /* */
1197     *pp_buffer = p_text;
1198     *pi_buffer = i_text;
1199     return VLC_SUCCESS;
1200 }
1201 #endif
1202
1203 int ioctl_GetCdText( vlc_object_t *p_object, const vcddev_t *p_vcddev,
1204                      vlc_meta_t ***ppp_tracks, int *pi_tracks )
1205 {
1206     uint8_t *p_text;
1207     int i_text;
1208
1209     if( p_vcddev->i_vcdimage_handle != -1 )
1210         return -1;
1211
1212     if( CdTextRead( p_object, p_vcddev, &p_text, &i_text ) )
1213         return -1;
1214
1215     CdTextParse( ppp_tracks, pi_tracks, p_text, i_text );
1216     free( p_text );
1217     return 0;
1218 }
1219