rlm@3: | rlm@3: // | Allan Hansen | rlm@3: // +----------------------------------------------------------------------+ rlm@3: // | module.audio.optimfrog.php | rlm@3: // | Module for analyzing OptimFROG Audio files | rlm@3: // | dependencies: module.audio-video.riff.php | rlm@3: // +----------------------------------------------------------------------+ rlm@3: // rlm@3: // $Id: module.audio.optimfrog.php,v 1.3 2006/11/02 10:48:01 ah Exp $ rlm@3: rlm@3: rlm@3: rlm@3: class getid3_optimfrog extends getid3_handler rlm@3: { rlm@3: rlm@3: public function Analyze() { rlm@3: rlm@3: $getid3 = $this->getid3; rlm@3: rlm@3: $getid3->include_module('audio-video.riff'); rlm@3: rlm@3: $getid3->info['audio']['dataformat'] = 'ofr'; rlm@3: $getid3->info['audio']['bitrate_mode'] = 'vbr'; rlm@3: $getid3->info['audio']['lossless'] = true; rlm@3: rlm@3: fseek($getid3->fp, $getid3->info['avdataoffset'], SEEK_SET); rlm@3: $ofr_header = fread($getid3->fp, 8); rlm@3: rlm@3: if (substr($ofr_header, 0, 5) == '*RIFF') { rlm@3: return $this->ParseOptimFROGheader42($getid3->fp, $getid3->info); rlm@3: rlm@3: } elseif (substr($ofr_header, 0, 3) == 'OFR') { rlm@3: return $this->ParseOptimFROGheader45($getid3->fp, $getid3->info); rlm@3: } rlm@3: rlm@3: throw new getid3_exception('Expecting "*RIFF" or "OFR " at offset '.$getid3->info['avdataoffset'].', found "'.$ofr_header.'"'); rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: private function ParseOptimFROGheader42() { rlm@3: rlm@3: $getid3 = $this->getid3; rlm@3: rlm@3: // for fileformat of v4.21 and older rlm@3: rlm@3: fseek($getid3->fp, $getid3->info['avdataoffset'], SEEK_SET); rlm@3: rlm@3: $ofr_header_data = fread($getid3->fp, 45); rlm@3: $getid3->info['avdataoffset'] = 45; rlm@3: rlm@3: $ofr_encoder_version_raw = getid3_lib::LittleEndian2Int(substr($ofr_header_data, 0, 1)); rlm@3: $ofr_encoder_version_major = floor($ofr_encoder_version_raw / 10); rlm@3: $ofr_encoder_version_minor = $ofr_encoder_version_raw - ($ofr_encoder_version_major * 10); rlm@3: $riff_data = substr($ofr_header_data, 1, 44); rlm@3: $origna_riff_header_size = getid3_lib::LittleEndian2Int(substr($riff_data, 4, 4)) + 8; rlm@3: $origna_riff_data_size = getid3_lib::LittleEndian2Int(substr($riff_data, 40, 4)) + 44; rlm@3: rlm@3: if ($origna_riff_header_size > $origna_riff_data_size) { rlm@3: $getid3->info['avdataend'] -= ($origna_riff_header_size - $origna_riff_data_size); rlm@3: fseek($getid3->fp, $getid3->info['avdataend'], SEEK_SET); rlm@3: $riff_data .= fread($getid3->fp, $origna_riff_header_size - $origna_riff_data_size); rlm@3: } rlm@3: rlm@3: // move the data chunk after all other chunks (if any) rlm@3: // so that the RIFF parser doesn't see EOF when trying rlm@3: // to skip over the data chunk rlm@3: rlm@3: $riff_data = substr($riff_data, 0, 36).substr($riff_data, 44).substr($riff_data, 36, 8); rlm@3: rlm@3: // Save audio info key rlm@3: $saved_info_audio = $getid3->info['audio']; rlm@3: rlm@3: // Instantiate riff module and analyze string rlm@3: $riff = new getid3_riff($getid3); rlm@3: $riff->AnalyzeString($riff_data); rlm@3: rlm@3: // Restore info key rlm@3: $getid3->info['audio'] = $saved_info_audio; rlm@3: rlm@3: $getid3->info['audio']['encoder'] = 'OptimFROG '.$ofr_encoder_version_major.'.'.$ofr_encoder_version_minor; rlm@3: $getid3->info['audio']['channels'] = $getid3->info['riff']['audio'][0]['channels']; rlm@3: $getid3->info['audio']['sample_rate'] = $getid3->info['riff']['audio'][0]['sample_rate']; rlm@3: $getid3->info['audio']['bits_per_sample'] = $getid3->info['riff']['audio'][0]['bits_per_sample']; rlm@3: $getid3->info['playtime_seconds'] = $origna_riff_data_size / ($getid3->info['audio']['channels'] * $getid3->info['audio']['sample_rate'] * ($getid3->info['audio']['bits_per_sample'] / 8)); rlm@3: $getid3->info['audio']['bitrate'] = (($getid3->info['avdataend'] - $getid3->info['avdataoffset']) * 8) / $getid3->info['playtime_seconds']; rlm@3: rlm@3: $getid3->info['fileformat'] = 'ofr'; rlm@3: rlm@3: return true; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: private function ParseOptimFROGheader45() { rlm@3: rlm@3: $getid3 = $this->getid3; rlm@3: rlm@3: // for fileformat of v4.50a and higher rlm@3: rlm@3: $riff_data = ''; rlm@3: fseek($getid3->fp, $getid3->info['avdataoffset'], SEEK_SET); rlm@3: rlm@3: while (!feof($getid3->fp) && (ftell($getid3->fp) < $getid3->info['avdataend'])) { rlm@3: rlm@3: $block_offset = ftell($getid3->fp); rlm@3: $block_data = fread($getid3->fp, 8); rlm@3: $offset = 8; rlm@3: $block_name = substr($block_data, 0, 4); rlm@3: $block_size = getid3_lib::LittleEndian2Int(substr($block_data, 4, 4)); rlm@3: rlm@3: if ($block_name == 'OFRX') { rlm@3: $block_name = 'OFR '; rlm@3: } rlm@3: if (!isset($getid3->info['ofr'][$block_name])) { rlm@3: $getid3->info['ofr'][$block_name] = array (); rlm@3: } rlm@3: $info_ofr_this_block = &$getid3->info['ofr'][$block_name]; rlm@3: rlm@3: switch ($block_name) { rlm@3: case 'OFR ': rlm@3: rlm@3: // shortcut rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: rlm@3: $getid3->info['audio']['encoder'] = 'OptimFROG 4.50 alpha'; rlm@3: switch ($block_size) { rlm@3: case 12: rlm@3: case 15: rlm@3: // good rlm@3: break; rlm@3: rlm@3: default: rlm@3: $getid3->warning('"'.$block_name.'" contains more data than expected (expected 12 or 15 bytes, found '.$block_size.' bytes)'); rlm@3: break; rlm@3: } rlm@3: $block_data .= fread($getid3->fp, $block_size); rlm@3: rlm@3: $info_ofr_this_block['total_samples'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 6)); rlm@3: $offset += 6; rlm@3: rlm@3: $info_ofr_this_block['raw']['sample_type'] = getid3_lib::LittleEndian2Int($block_data{$offset++}); rlm@3: $info_ofr_this_block['sample_type'] = $this->OptimFROGsampleTypeLookup($info_ofr_this_block['raw']['sample_type']); rlm@3: rlm@3: $info_ofr_this_block['channel_config'] = getid3_lib::LittleEndian2Int($block_data{$offset++}); rlm@3: $info_ofr_this_block['channels'] = $info_ofr_this_block['channel_config']; rlm@3: rlm@3: $info_ofr_this_block['sample_rate'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 4)); rlm@3: $offset += 4; rlm@3: rlm@3: if ($block_size > 12) { rlm@3: rlm@3: // OFR 4.504b or higher rlm@3: $info_ofr_this_block['channels'] = $this->OptimFROGchannelConfigNumChannelsLookup($info_ofr_this_block['channel_config']); rlm@3: $info_ofr_this_block['raw']['encoder_id'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 2)); rlm@3: $info_ofr_this_block['encoder'] = $this->OptimFROGencoderNameLookup($info_ofr_this_block['raw']['encoder_id']); rlm@3: $offset += 2; rlm@3: rlm@3: $info_ofr_this_block['raw']['compression'] = getid3_lib::LittleEndian2Int($block_data{$offset++}); rlm@3: $info_ofr_this_block['compression'] = $this->OptimFROGcompressionLookup($info_ofr_this_block['raw']['compression']); rlm@3: $info_ofr_this_block['speedup'] = $this->OptimFROGspeedupLookup($info_ofr_this_block['raw']['compression']); rlm@3: rlm@3: $getid3->info['audio']['encoder'] = 'OptimFROG '.$info_ofr_this_block['encoder']; rlm@3: $getid3->info['audio']['encoder_options'] = '--mode '.$info_ofr_this_block['compression']; rlm@3: rlm@3: if ((($info_ofr_this_block['raw']['encoder_id'] & 0xF0) >> 4) == 7) { // v4.507 rlm@3: if (preg_match('/\.ofs$/i', $getid3->filename)) { rlm@3: // OptimFROG DualStream format is lossy, but as of v4.507 there is no way to tell the difference rlm@3: // between lossless and lossy other than the file extension. rlm@3: $getid3->info['audio']['dataformat'] = 'ofs'; rlm@3: $getid3->info['audio']['lossless'] = true; rlm@3: } rlm@3: } rlm@3: } rlm@3: rlm@3: $getid3->info['audio']['channels'] = $info_ofr_this_block['channels']; rlm@3: $getid3->info['audio']['sample_rate'] = $info_ofr_this_block['sample_rate']; rlm@3: $getid3->info['audio']['bits_per_sample'] = $this->OptimFROGbitsPerSampleTypeLookup($info_ofr_this_block['raw']['sample_type']); rlm@3: break; rlm@3: rlm@3: rlm@3: case 'COMP': rlm@3: // unlike other block types, there CAN be multiple COMP blocks rlm@3: rlm@3: $comp_data['offset'] = $block_offset; rlm@3: $comp_data['size'] = $block_size; rlm@3: rlm@3: if ($getid3->info['avdataoffset'] == 0) { rlm@3: $getid3->info['avdataoffset'] = $block_offset; rlm@3: } rlm@3: rlm@3: // Only interested in first 14 bytes (only first 12 needed for v4.50 alpha), not actual audio data rlm@3: $block_data .= fread($getid3->fp, 14); rlm@3: fseek($getid3->fp, $block_size - 14, SEEK_CUR); rlm@3: rlm@3: $comp_data['crc_32'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 4)); rlm@3: $offset += 4; rlm@3: rlm@3: $comp_data['sample_count'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 4)); rlm@3: $offset += 4; rlm@3: rlm@3: $comp_data['raw']['sample_type'] = getid3_lib::LittleEndian2Int($block_data{$offset++}); rlm@3: $comp_data['sample_type'] = $this->OptimFROGsampleTypeLookup($comp_data['raw']['sample_type']); rlm@3: rlm@3: $comp_data['raw']['channel_configuration'] = getid3_lib::LittleEndian2Int($block_data{$offset++}); rlm@3: $comp_data['channel_configuration'] = $this->OptimFROGchannelConfigurationLookup($comp_data['raw']['channel_configuration']); rlm@3: rlm@3: $comp_data['raw']['algorithm_id'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 2)); rlm@3: $offset += 2; rlm@3: rlm@3: if ($getid3->info['ofr']['OFR ']['size'] > 12) { rlm@3: rlm@3: // OFR 4.504b or higher rlm@3: $comp_data['raw']['encoder_id'] = getid3_lib::LittleEndian2Int(substr($block_data, $offset, 2)); rlm@3: $comp_data['encoder'] = $this->OptimFROGencoderNameLookup($comp_data['raw']['encoder_id']); rlm@3: $offset += 2; rlm@3: } rlm@3: rlm@3: if ($comp_data['crc_32'] == 0x454E4F4E) { rlm@3: // ASCII value of 'NONE' - placeholder value in v4.50a rlm@3: $comp_data['crc_32'] = false; rlm@3: } rlm@3: rlm@3: $info_ofr_this_block[] = $comp_data; rlm@3: break; rlm@3: rlm@3: case 'HEAD': rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: rlm@3: $riff_data .= fread($getid3->fp, $block_size); rlm@3: break; rlm@3: rlm@3: case 'TAIL': rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: rlm@3: if ($block_size > 0) { rlm@3: $riff_data .= fread($getid3->fp, $block_size); rlm@3: } rlm@3: break; rlm@3: rlm@3: case 'RECV': rlm@3: // block contains no useful meta data - simply note and skip rlm@3: rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: rlm@3: fseek($getid3->fp, $block_size, SEEK_CUR); rlm@3: break; rlm@3: rlm@3: rlm@3: case 'APET': rlm@3: // APEtag v2 rlm@3: rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: $getid3->warning('APEtag processing inside OptimFROG not supported in this version ('.GETID3_VERSION.') of getID3()'); rlm@3: rlm@3: fseek($getid3->fp, $block_size, SEEK_CUR); rlm@3: break; rlm@3: rlm@3: rlm@3: case 'MD5 ': rlm@3: // APEtag v2 rlm@3: rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: rlm@3: if ($block_size == 16) { rlm@3: rlm@3: $info_ofr_this_block['md5_binary'] = fread($getid3->fp, $block_size); rlm@3: $info_ofr_this_block['md5_string'] = getid3_lib::PrintHexBytes($info_ofr_this_block['md5_binary'], true, false, false); rlm@3: $getid3->info['md5_data_source'] = $info_ofr_this_block['md5_string']; rlm@3: rlm@3: } else { rlm@3: rlm@3: $getid3->warning('Expecting block size of 16 in "MD5 " chunk, found '.$block_size.' instead'); rlm@3: fseek($getid3->fp, $block_size, SEEK_CUR); rlm@3: rlm@3: } rlm@3: break; rlm@3: rlm@3: rlm@3: default: rlm@3: $info_ofr_this_block['offset'] = $block_offset; rlm@3: $info_ofr_this_block['size'] = $block_size; rlm@3: rlm@3: $getid3->warning('Unhandled OptimFROG block type "'.$block_name.'" at offset '.$info_ofr_this_block['offset']); rlm@3: fseek($getid3->fp, $block_size, SEEK_CUR); rlm@3: break; rlm@3: } rlm@3: } rlm@3: rlm@3: if (isset($getid3->info['ofr']['TAIL']['offset'])) { rlm@3: $getid3->info['avdataend'] = $getid3->info['ofr']['TAIL']['offset']; rlm@3: } rlm@3: rlm@3: $getid3->info['playtime_seconds'] = (float)$getid3->info['ofr']['OFR ']['total_samples'] / ($getid3->info['audio']['channels'] * $getid3->info['audio']['sample_rate']); rlm@3: $getid3->info['audio']['bitrate'] = (($getid3->info['avdataend'] - $getid3->info['avdataoffset']) * 8) / $getid3->info['playtime_seconds']; rlm@3: rlm@3: // move the data chunk after all other chunks (if any) rlm@3: // so that the RIFF parser doesn't see EOF when trying rlm@3: // to skip over the data chunk rlm@3: rlm@3: $riff_data = substr($riff_data, 0, 36).substr($riff_data, 44).substr($riff_data, 36, 8); rlm@3: rlm@3: // Save audio info key rlm@3: $saved_info_audio = $getid3->info['audio']; rlm@3: rlm@3: // Instantiate riff module and analyze string rlm@3: $riff = new getid3_riff($getid3); rlm@3: $riff->AnalyzeString($riff_data); rlm@3: rlm@3: // Restore info key rlm@3: $getid3->info['audio'] = $saved_info_audio; rlm@3: rlm@3: $getid3->info['fileformat'] = 'ofr'; rlm@3: rlm@3: return true; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGsampleTypeLookup($sample_type) { rlm@3: rlm@3: static $lookup = array ( rlm@3: 0 => 'unsigned int (8-bit)', rlm@3: 1 => 'signed int (8-bit)', rlm@3: 2 => 'unsigned int (16-bit)', rlm@3: 3 => 'signed int (16-bit)', rlm@3: 4 => 'unsigned int (24-bit)', rlm@3: 5 => 'signed int (24-bit)', rlm@3: 6 => 'unsigned int (32-bit)', rlm@3: 7 => 'signed int (32-bit)', rlm@3: 8 => 'float 0.24 (32-bit)', rlm@3: 9 => 'float 16.8 (32-bit)', rlm@3: 10 => 'float 24.0 (32-bit)' rlm@3: ); rlm@3: rlm@3: return @$lookup[$sample_type]; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGbitsPerSampleTypeLookup($sample_type) { rlm@3: rlm@3: static $lookup = array ( rlm@3: 0 => 8, rlm@3: 1 => 8, rlm@3: 2 => 16, rlm@3: 3 => 16, rlm@3: 4 => 24, rlm@3: 5 => 24, rlm@3: 6 => 32, rlm@3: 7 => 32, rlm@3: 8 => 32, rlm@3: 9 => 32, rlm@3: 10 => 32 rlm@3: ); rlm@3: rlm@3: return @$lookup[$sample_type]; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGchannelConfigurationLookup($channel_configuration) { rlm@3: rlm@3: static $lookup = array ( rlm@3: 0 => 'mono', rlm@3: 1 => 'stereo' rlm@3: ); rlm@3: rlm@3: return @$lookup[$channel_configuration]; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGchannelConfigNumChannelsLookup($channel_configuration) { rlm@3: rlm@3: static $lookup = array ( rlm@3: 0 => 1, rlm@3: 1 => 2 rlm@3: ); rlm@3: rlm@3: return @$lookup[$channel_configuration]; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGencoderNameLookup($encoder_id) { rlm@3: rlm@3: // version = (encoderID >> 4) + 4500 rlm@3: // system = encoderID & 0xF rlm@3: rlm@3: $encoder_version = number_format(((($encoder_id & 0xF0) >> 4) + 4500) / 1000, 3); rlm@3: $encoder_system_id = ($encoder_id & 0x0F); rlm@3: rlm@3: static $lookup = array ( rlm@3: 0x00 => 'Windows console', rlm@3: 0x01 => 'Linux console', rlm@3: 0x0F => 'unknown' rlm@3: ); rlm@3: return $encoder_version.' ('.(isset($lookup[$encoder_system_id]) ? $lookup[$encoder_system_id] : 'undefined encoder type (0x'.dechex($encoder_system_id).')').')'; rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGcompressionLookup($compression_id) { rlm@3: rlm@3: // mode = compression >> 3 rlm@3: // speedup = compression & 0x07 rlm@3: rlm@3: $compression_mode_id = ($compression_id & 0xF8) >> 3; rlm@3: //$compression_speed_up_id = ($compression_id & 0x07); rlm@3: rlm@3: static $lookup = array ( rlm@3: 0x00 => 'fast', rlm@3: 0x01 => 'normal', rlm@3: 0x02 => 'high', rlm@3: 0x03 => 'extra', // extranew (some versions) rlm@3: 0x04 => 'best', // bestnew (some versions) rlm@3: 0x05 => 'ultra', rlm@3: 0x06 => 'insane', rlm@3: 0x07 => 'highnew', rlm@3: 0x08 => 'extranew', rlm@3: 0x09 => 'bestnew' rlm@3: ); rlm@3: return (isset($lookup[$compression_mode_id]) ? $lookup[$compression_mode_id] : 'undefined mode (0x'.str_pad(dechex($compression_mode_id), 2, '0', STR_PAD_LEFT).')'); rlm@3: } rlm@3: rlm@3: rlm@3: rlm@3: public static function OptimFROGspeedupLookup($compression_id) { rlm@3: rlm@3: // mode = compression >> 3 rlm@3: // speedup = compression & 0x07 rlm@3: rlm@3: //$compression_mode_id = ($compression_id & 0xF8) >> 3; rlm@3: $compression_speed_up_id = ($compression_id & 0x07); rlm@3: rlm@3: static $lookup = array ( rlm@3: 0x00 => '1x', rlm@3: 0x01 => '2x', rlm@3: 0x02 => '4x' rlm@3: ); rlm@3: rlm@3: return (isset($lookup[$compression_speed_up_id]) ? $lookup[$compression_speed_up_id] : 'undefined mode (0x'.dechex($compression_speed_up_id)); rlm@3: } rlm@3: rlm@3: } rlm@3: rlm@3: rlm@3: ?>