rlm@3: <?php
rlm@3: // +----------------------------------------------------------------------+
rlm@3: // | PHP version 5                                                        |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: // | Copyright (c) 2002-2006 James Heinrich, Allan Hansen                 |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: // | This source file is subject to version 2 of the GPL license,         |
rlm@3: // | that is bundled with this package in the file license.txt and is     |
rlm@3: // | available through the world-wide-web at the following url:           |
rlm@3: // | http://www.gnu.org/copyleft/gpl.html                                 |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: // | getID3() - http://getid3.sourceforge.net or http://www.getid3.org    |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: // | Authors: James Heinrich <infoØgetid3*org>                            |
rlm@3: // |          Allan Hansen <ahØartemis*dk>                                |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: // | module.audio.vqf.php                                                 |
rlm@3: // | Module for analyzing VQF Audio files                                 |
rlm@3: // | dependencies: NONE                                                   |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: //
rlm@3: // $Id: module.audio.vqf.php,v 1.3 2006/11/16 23:16:31 ah Exp $
rlm@3: 
rlm@3:         
rlm@3:         
rlm@3: class getid3_vqf extends getid3_handler
rlm@3: {
rlm@3: 
rlm@3:     public function Analyze() {
rlm@3:         
rlm@3:         $getid3 = $this->getid3;    
rlm@3: 
rlm@3:         // based loosely on code from TTwinVQ by Jurgen Faul <jfaulØgmx*de>
rlm@3:         // http://jfaul.de/atl  or  http://j-faul.virtualave.net/atl/atl.html
rlm@3: 
rlm@3:         $getid3->info['fileformat']            = 'vqf';
rlm@3:         $getid3->info['audio']['dataformat']   = 'vqf';
rlm@3:         $getid3->info['audio']['bitrate_mode'] = 'cbr';
rlm@3:         $getid3->info['audio']['lossless']     = false;
rlm@3: 
rlm@3:         // Shortcuts
rlm@3:         $getid3->info['vqf']['raw'] = array ();
rlm@3:         $info_vqf      = &$getid3->info['vqf'];
rlm@3:         $info_vqf_raw  = &$info_vqf['raw'];
rlm@3: 
rlm@3:         // Get header
rlm@3:         fseek($getid3->fp, $getid3->info['avdataoffset'], SEEK_SET);
rlm@3:         $vqf_header_data = fread($getid3->fp, 16);
rlm@3: 
rlm@3:         $info_vqf_raw['header_tag'] = 'TWIN';   // Magic bytes
rlm@3:         $info_vqf_raw['version']    = substr($vqf_header_data, 4, 8);
rlm@3:         $info_vqf_raw['size']       = getid3_lib::BigEndian2Int(substr($vqf_header_data, 12, 4));
rlm@3:         
rlm@3:         while (ftell($getid3->fp) < $getid3->info['avdataend']) {
rlm@3: 
rlm@3:             $chunk_base_offset = ftell($getid3->fp);
rlm@3:             $chunk_data        = fread($getid3->fp, 8);
rlm@3:             $chunk_name        = substr($chunk_data, 0, 4);
rlm@3:             
rlm@3:             if ($chunk_name == 'DATA') {
rlm@3:                 $getid3->info['avdataoffset'] = $chunk_base_offset;
rlm@3:                 break;
rlm@3:             }
rlm@3:             
rlm@3:             $chunk_size = getid3_lib::BigEndian2Int(substr($chunk_data, 4, 4));
rlm@3:             if ($chunk_size > ($getid3->info['avdataend'] - ftell($getid3->fp))) {
rlm@3:                 throw new getid3_exception('Invalid chunk size ('.$chunk_size.') for chunk "'.$chunk_name.'" at offset 8.');
rlm@3:             }
rlm@3:             if ($chunk_size > 0) {
rlm@3:                 $chunk_data .= fread($getid3->fp, $chunk_size);
rlm@3:             }
rlm@3: 
rlm@3:             switch ($chunk_name) {
rlm@3:                 
rlm@3:                 case 'COMM':
rlm@3:                     $info_vqf['COMM'] = array ();
rlm@3:                     getid3_lib::ReadSequence('BigEndian2Int', $info_vqf['COMM'], $chunk_data, 8, 
rlm@3:                         array (
rlm@3:                             'channel_mode'   => 4,
rlm@3:                             'bitrate'        => 4,
rlm@3:                             'sample_rate'    => 4,
rlm@3:                             'security_level' => 4
rlm@3:                         )
rlm@3:                     );
rlm@3: 
rlm@3:                     $getid3->info['audio']['channels']        = $info_vqf['COMM']['channel_mode'] + 1;
rlm@3:                     $getid3->info['audio']['sample_rate']     = getid3_vqf::VQFchannelFrequencyLookup($info_vqf['COMM']['sample_rate']);
rlm@3:                     $getid3->info['audio']['bitrate']         = $info_vqf['COMM']['bitrate'] * 1000;
rlm@3:                     $getid3->info['audio']['encoder_options'] = 'CBR' . ceil($getid3->info['audio']['bitrate']/1000);
rlm@3: 
rlm@3:                     if ($getid3->info['audio']['bitrate'] == 0) {
rlm@3:                         throw new getid3_exception('Corrupt VQF file: bitrate_audio == zero');
rlm@3:                     }
rlm@3:                     break;
rlm@3: 
rlm@3:                 case 'NAME':
rlm@3:                 case 'AUTH':
rlm@3:                 case '(c) ':
rlm@3:                 case 'FILE':
rlm@3:                 case 'COMT':
rlm@3:                 case 'ALBM':
rlm@3:                     $info_vqf['comments'][getid3_vqf::VQFcommentNiceNameLookup($chunk_name)][] = trim(substr($chunk_data, 8));
rlm@3:                     break;
rlm@3: 
rlm@3:                 case 'DSIZ':
rlm@3:                     $info_vqf['DSIZ'] = getid3_lib::BigEndian2Int(substr($chunk_data, 8, 4));
rlm@3:                     break;
rlm@3: 
rlm@3:                 default:
rlm@3:                     $getid3->warning('Unhandled chunk type "'.$chunk_name.'" at offset 8');
rlm@3:                     break;
rlm@3:             }
rlm@3:         }
rlm@3: 
rlm@3:         $getid3->info['playtime_seconds'] = (($getid3->info['avdataend'] - $getid3->info['avdataoffset']) * 8) / $getid3->info['audio']['bitrate'];
rlm@3: 
rlm@3:         if (isset($info_vqf['DSIZ']) && (($info_vqf['DSIZ'] != ($getid3->info['avdataend'] - $getid3->info['avdataoffset'] - strlen('DATA'))))) {
rlm@3:             switch ($info_vqf['DSIZ']) {
rlm@3:                 case 0:
rlm@3:                 case 1:
rlm@3:                     $getid3->warning('Invalid DSIZ value "'.$info_vqf['DSIZ'].'". This is known to happen with VQF files encoded by Ahead Nero, and seems to be its way of saying this is TwinVQF v'.($info_vqf['DSIZ'] + 1).'.0');
rlm@3:                     $getid3->info['audio']['encoder'] = 'Ahead Nero';
rlm@3:                     break;
rlm@3: 
rlm@3:                 default:
rlm@3:                     $getid3->warning('Probable corrupted file - should be '.$info_vqf['DSIZ'].' bytes, actually '.($getid3->info['avdataend'] - $getid3->info['avdataoffset'] - strlen('DATA')));
rlm@3:                     break;
rlm@3:             }
rlm@3:         }
rlm@3: 
rlm@3:         return true;
rlm@3:     }
rlm@3:     
rlm@3: 
rlm@3: 
rlm@3:     public static function VQFchannelFrequencyLookup($frequencyid) {
rlm@3:         
rlm@3:         static $lookup = array (
rlm@3:             11 => 11025,
rlm@3:             22 => 22050,
rlm@3:             44 => 44100
rlm@3:         );
rlm@3:         return (isset($lookup[$frequencyid]) ? $lookup[$frequencyid] : $frequencyid * 1000);
rlm@3:     }
rlm@3: 
rlm@3: 
rlm@3: 
rlm@3:     public static function VQFcommentNiceNameLookup($shortname) {
rlm@3:         
rlm@3:         static $lookup = array (
rlm@3:             'NAME' => 'title',
rlm@3:             'AUTH' => 'artist',
rlm@3:             '(c) ' => 'copyright',
rlm@3:             'FILE' => 'filename',
rlm@3:             'COMT' => 'comment',
rlm@3:             'ALBM' => 'album'
rlm@3:         );
rlm@3:         return (isset($lookup[$shortname]) ? $lookup[$shortname] : $shortname);
rlm@3:     }
rlm@3: 
rlm@3: }
rlm@3: 
rlm@3: 
rlm@3: ?>