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.bonk.php                                                |
rlm@3: // | Module for analyzing BONK audio files                                |
rlm@3: // | dependencies: module.tag.id3v2.php (optional)                        |
rlm@3: // +----------------------------------------------------------------------+
rlm@3: //
rlm@3: // $Id: module.audio.bonk.php,v 1.3 2006/11/02 10:48:01 ah Exp $
rlm@3: 
rlm@3:         
rlm@3:         
rlm@3: class getid3_bonk extends getid3_handler
rlm@3: {
rlm@3: 
rlm@3:     public function Analyze() {
rlm@3: 
rlm@3:         $getid3 = $this->getid3;
rlm@3:         
rlm@3:         $getid3->info['bonk'] = array ();
rlm@3:         $info_bonk = &$getid3->info['bonk'];
rlm@3: 
rlm@3:         $info_bonk['dataoffset'] = $getid3->info['avdataoffset'];
rlm@3:         $info_bonk['dataend']    = $getid3->info['avdataend'];
rlm@3: 
rlm@3:         
rlm@3:         // Scan-from-end method, for v0.6 and higher
rlm@3:         fseek($getid3->fp, $info_bonk['dataend'] - 8, SEEK_SET);
rlm@3:         $possible_bonk_tag = fread($getid3->fp, 8);
rlm@3:         while (getid3_bonk::BonkIsValidTagName(substr($possible_bonk_tag, 4, 4), true)) {
rlm@3:             $bonk_tag_size = getid3_lib::LittleEndian2Int(substr($possible_bonk_tag, 0, 4));
rlm@3:             fseek($getid3->fp, 0 - $bonk_tag_size, SEEK_CUR);
rlm@3:             $bonk_tag_offset = ftell($getid3->fp);
rlm@3:             $tag_header_test = fread($getid3->fp, 5);
rlm@3:             if (($tag_header_test{0} != "\x00") || (substr($possible_bonk_tag, 4, 4) != strtolower(substr($possible_bonk_tag, 4, 4)))) {
rlm@3:                 throw new getid3_exception('Expecting "Ø'.strtoupper(substr($possible_bonk_tag, 4, 4)).'" at offset '.$bonk_tag_offset.', found "'.$tag_header_test.'"');
rlm@3:             }
rlm@3:             $bonk_tag_name = substr($tag_header_test, 1, 4);
rlm@3: 
rlm@3:             $info_bonk[$bonk_tag_name]['size']   = $bonk_tag_size;
rlm@3:             $info_bonk[$bonk_tag_name]['offset'] = $bonk_tag_offset;
rlm@3:             $this->HandleBonkTags($bonk_tag_name);
rlm@3:             
rlm@3:             $next_tag_end_offset = $bonk_tag_offset - 8;
rlm@3:             if ($next_tag_end_offset < $info_bonk['dataoffset']) {
rlm@3:                 if (empty($getid3->info['audio']['encoder'])) {
rlm@3:                     $getid3->info['audio']['encoder'] = 'Extended BONK v0.9+';
rlm@3:                 }
rlm@3:                 return true;
rlm@3:             }
rlm@3:             fseek($getid3->fp, $next_tag_end_offset, SEEK_SET);
rlm@3:             $possible_bonk_tag = fread($getid3->fp, 8);
rlm@3:         }
rlm@3: 
rlm@3:         // Seek-from-beginning method for v0.4 and v0.5
rlm@3:         if (empty($info_bonk['BONK'])) {
rlm@3:             fseek($getid3->fp, $info_bonk['dataoffset'], SEEK_SET);
rlm@3:             do {
rlm@3:                 $tag_header_test = fread($getid3->fp, 5);
rlm@3:                 switch ($tag_header_test) {
rlm@3:                     case "\x00".'BONK':
rlm@3:                         if (empty($getid3->info['audio']['encoder'])) {
rlm@3:                             $getid3->info['audio']['encoder'] = 'BONK v0.4';
rlm@3:                         }
rlm@3:                         break;
rlm@3: 
rlm@3:                     case "\x00".'INFO':
rlm@3:                         $getid3->info['audio']['encoder'] = 'Extended BONK v0.5';
rlm@3:                         break;
rlm@3: 
rlm@3:                     default:
rlm@3:                         break 2;
rlm@3:                 }
rlm@3:                 $bonk_tag_name = substr($tag_header_test, 1, 4);
rlm@3:                 $info_bonk[$bonk_tag_name]['size']   = $info_bonk['dataend'] - $info_bonk['dataoffset'];
rlm@3:                 $info_bonk[$bonk_tag_name]['offset'] = $info_bonk['dataoffset'];
rlm@3:                 $this->HandleBonkTags($bonk_tag_name);
rlm@3: 
rlm@3:             } while (true);
rlm@3:         }
rlm@3: 
rlm@3: 
rlm@3:         // Parse META block for v0.6 - v0.8
rlm@3:         if (!@$info_bonk['INFO'] && isset($info_bonk['META']['tags']['info'])) {
rlm@3:             fseek($getid3->fp, $info_bonk['META']['tags']['info'], SEEK_SET);
rlm@3:             $tag_header_test = fread($getid3->fp, 5);
rlm@3:             if ($tag_header_test == "\x00".'INFO') {
rlm@3:                 $getid3->info['audio']['encoder'] = 'Extended BONK v0.6 - v0.8';
rlm@3: 
rlm@3:                 $bonk_tag_name = substr($tag_header_test, 1, 4);
rlm@3:                 $info_bonk[$bonk_tag_name]['size']   = $info_bonk['dataend'] - $info_bonk['dataoffset'];
rlm@3:                 $info_bonk[$bonk_tag_name]['offset'] = $info_bonk['dataoffset'];
rlm@3:                 $this->HandleBonkTags($bonk_tag_name);
rlm@3:             }
rlm@3:         }
rlm@3: 
rlm@3:         if (empty($getid3->info['audio']['encoder'])) {
rlm@3:             $getid3->info['audio']['encoder'] = 'Extended BONK v0.9+';
rlm@3:         }
rlm@3:         if (empty($info_bonk['BONK'])) {
rlm@3:             unset($getid3->info['bonk']);
rlm@3:         }
rlm@3:         return true;
rlm@3: 
rlm@3:     }
rlm@3: 
rlm@3: 
rlm@3:     
rlm@3:     private function HandleBonkTags(&$bonk_tag_name) {
rlm@3: 
rlm@3:         // Shortcut to getid3 pointer
rlm@3:         $getid3 = $this->getid3;
rlm@3:         $info_audio = &$getid3->info['audio'];
rlm@3: 
rlm@3:         switch ($bonk_tag_name) {
rlm@3:             
rlm@3:             case 'BONK':
rlm@3:                 // shortcut
rlm@3:                 $info_bonk_BONK = &$getid3->info['bonk']['BONK'];
rlm@3: 
rlm@3:                 $bonk_data = "\x00".'BONK'.fread($getid3->fp, 17);
rlm@3:                 
rlm@3:                 getid3_lib::ReadSequence('LittleEndian2Int', $info_bonk_BONK, $bonk_data, 5, 
rlm@3:                     array (
rlm@3:                         'version'            => 1,
rlm@3:                         'number_samples'     => 4,
rlm@3:                         'sample_rate'        => 4,
rlm@3:                         'channels'           => 1,
rlm@3:                         'lossless'           => 1,
rlm@3:                         'joint_stereo'       => 1,
rlm@3:                         'number_taps'        => 2,
rlm@3:                         'downsampling_ratio' => 1,
rlm@3:                         'samples_per_packet' => 2
rlm@3:                     )
rlm@3:                 );
rlm@3:                 
rlm@3:                 $info_bonk_BONK['lossless']     = (bool)$info_bonk_BONK['lossless'];
rlm@3:                 $info_bonk_BONK['joint_stereo'] = (bool)$info_bonk_BONK['joint_stereo'];
rlm@3: 
rlm@3:                 $getid3->info['avdataoffset']   = $info_bonk_BONK['offset'] + 5 + 17;
rlm@3:                 $getid3->info['avdataend']      = $info_bonk_BONK['offset'] + $info_bonk_BONK['size'];
rlm@3: 
rlm@3:                 $getid3->info['fileformat']     = 'bonk';
rlm@3:                 $info_audio['dataformat']       = 'bonk';
rlm@3:                 $info_audio['bitrate_mode']     = 'vbr'; // assumed
rlm@3:                 $info_audio['channels']         = $info_bonk_BONK['channels'];
rlm@3:                 $info_audio['sample_rate']      = $info_bonk_BONK['sample_rate'];
rlm@3:                 $info_audio['channelmode']      = $info_bonk_BONK['joint_stereo'] ? 'joint stereo' : 'stereo';
rlm@3:                 $info_audio['lossless']         = $info_bonk_BONK['lossless'];
rlm@3:                 $info_audio['codec']            = 'bonk';
rlm@3: 
rlm@3:                 $getid3->info['playtime_seconds'] = $info_bonk_BONK['number_samples'] / ($info_bonk_BONK['sample_rate'] * $info_bonk_BONK['channels']);
rlm@3:                 if ($getid3->info['playtime_seconds'] > 0) {
rlm@3:                     $info_audio['bitrate'] = (($getid3->info['bonk']['dataend'] - $getid3->info['bonk']['dataoffset']) * 8) / $getid3->info['playtime_seconds'];
rlm@3:                 }
rlm@3:                 break;
rlm@3: 
rlm@3:             case 'INFO':
rlm@3:                 // shortcut
rlm@3:                 $info_bonk_INFO = &$getid3->info['bonk']['INFO'];
rlm@3: 
rlm@3:                 $info_bonk_INFO['version'] = getid3_lib::LittleEndian2Int(fread($getid3->fp, 1));
rlm@3:                 $info_bonk_INFO['entries_count'] = 0;
rlm@3:                 $next_info_data_pair = fread($getid3->fp, 5);
rlm@3:                 if (!getid3_bonk::BonkIsValidTagName(substr($next_info_data_pair, 1, 4))) {
rlm@3:                     while (!feof($getid3->fp)) {
rlm@3:                         $next_info_data_pair = fread($getid3->fp, 5);
rlm@3:                         if (getid3_bonk::BonkIsValidTagName(substr($next_info_data_pair, 1, 4))) {
rlm@3:                             fseek($getid3->fp, -5, SEEK_CUR);
rlm@3:                             break;
rlm@3:                         }
rlm@3:                         $info_bonk_INFO['entries_count']++;
rlm@3:                     }
rlm@3:                 }
rlm@3:                 break;
rlm@3: 
rlm@3:             case 'META':
rlm@3:                 $bonk_data = "\x00".'META'.fread($getid3->fp, $getid3->info['bonk']['META']['size'] - 5);
rlm@3:                 $getid3->info['bonk']['META']['version'] = getid3_lib::LittleEndian2Int(substr($bonk_data,  5, 1));
rlm@3: 
rlm@3:                 $meta_tag_entries = floor(((strlen($bonk_data) - 8) - 6) / 8); // BonkData - xxxxmeta - ØMETA
rlm@3:                 $offset = 6;
rlm@3:                 for ($i = 0; $i < $meta_tag_entries; $i++) {
rlm@3:                     $meta_entry_tag_name   = substr($bonk_data, $offset, 4);
rlm@3:                     $offset += 4;
rlm@3:                     $meta_entry_tag_offset = getid3_lib::LittleEndian2Int(substr($bonk_data, $offset, 4));
rlm@3:                     $offset += 4;
rlm@3:                     $getid3->info['bonk']['META']['tags'][$meta_entry_tag_name] = $meta_entry_tag_offset;
rlm@3:                 }
rlm@3:                 break;
rlm@3: 
rlm@3:             case ' ID3':
rlm@3:                 $info_audio['encoder'] = 'Extended BONK v0.9+';
rlm@3: 
rlm@3:                 // ID3v2 checking is optional
rlm@3:                 if (class_exists('getid3_id3v2')) {
rlm@3:                     
rlm@3:                     $id3v2 = new getid3_id3v2($getid3);
rlm@3:                     $id3v2->option_starting_offset = $getid3->info['bonk'][' ID3']['offset'] + 2;
rlm@3:                     $getid3->info['bonk'][' ID3']['valid'] = $id3v2->Analyze();
rlm@3:                 }
rlm@3:                 break;
rlm@3: 
rlm@3:             default:
rlm@3:                 $getid3->warning('Unexpected Bonk tag "'.$bonk_tag_name.'" at offset '.$getid3->info['bonk'][$bonk_tag_name]['offset']);
rlm@3:                 break;
rlm@3: 
rlm@3:         }
rlm@3:     }
rlm@3: 
rlm@3: 
rlm@3:     
rlm@3:     public static function BonkIsValidTagName($possible_bonk_tag, $ignore_case=false) {
rlm@3:                                                                               
rlm@3:         $ignore_case = $ignore_case ? 'i' : '';                                                                              
rlm@3:         return preg_match('/^(BONK|INFO| ID3|META)$/'.$ignore_case, $possible_bonk_tag);
rlm@3:     }
rlm@3: 
rlm@3: }
rlm@3: 
rlm@3: 
rlm@3: ?>