Mercurial > judyates

annotate e2gallerypro/e2upload/Backend/Assets/getid3/module.audio.monkey.php @ 3:3f6b44aa6b35 judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r4] added ability to buy stuff, from a Prints page, but it doesn't work well with the css, and it also has not been fitted into the perl make system.
author rlm
date Mon, 22 Feb 2010 08:02:39 -0500
parents
children
rev   line source
rlm@3 1 <?php
rlm@3 2 // +----------------------------------------------------------------------+
rlm@3 3 // | PHP version 5 |
rlm@3 4 // +----------------------------------------------------------------------+
rlm@3 5 // | Copyright (c) 2002-2006 James Heinrich, Allan Hansen |
rlm@3 6 // +----------------------------------------------------------------------+
rlm@3 7 // | This source file is subject to version 2 of the GPL license, |
rlm@3 8 // | that is bundled with this package in the file license.txt and is |
rlm@3 9 // | available through the world-wide-web at the following url: |
rlm@3 10 // | http://www.gnu.org/copyleft/gpl.html |
rlm@3 11 // +----------------------------------------------------------------------+
rlm@3 12 // | getID3() - http://getid3.sourceforge.net or http://www.getid3.org |
rlm@3 13 // +----------------------------------------------------------------------+
rlm@3 14 // | Authors: James Heinrich <infoØgetid3*org> |
rlm@3 15 // | Allan Hansen <ahØartemis*dk> |
rlm@3 16 // +----------------------------------------------------------------------+
rlm@3 17 // | module.audio.monkey.php |
rlm@3 18 // | Module for analyzing Monkey's Audio files |
rlm@3 19 // | dependencies: NONE |
rlm@3 20 // +----------------------------------------------------------------------+
rlm@3 21 //
rlm@3 22 // $Id: module.audio.monkey.php,v 1.2 2006/11/02 10:48:01 ah Exp $
rlm@3 23
rlm@3 24
rlm@3 25
rlm@3 26 class getid3_monkey extends getid3_handler
rlm@3 27 {
rlm@3 28
rlm@3 29 public function Analyze() {
rlm@3 30
rlm@3 31 $getid3 = $this->getid3;
rlm@3 32
rlm@3 33 // based loosely on code from TMonkey by Jurgen Faul <jfaulØgmx*de>
rlm@3 34 // http://jfaul.de/atl or http://j-faul.virtualave.net/atl/atl.html
rlm@3 35
rlm@3 36 $getid3->info['fileformat'] = 'mac';
rlm@3 37 $getid3->info['audio']['dataformat'] = 'mac';
rlm@3 38 $getid3->info['audio']['bitrate_mode'] = 'vbr';
rlm@3 39 $getid3->info['audio']['lossless'] = true;
rlm@3 40
rlm@3 41 $getid3->info['monkeys_audio']['raw'] = array ();
rlm@3 42 $info_monkeys_audio = &$getid3->info['monkeys_audio'];
rlm@3 43 $info_monkeys_audio_raw = &$info_monkeys_audio['raw'];
rlm@3 44
rlm@3 45 // Read file header
rlm@3 46 fseek($getid3->fp, $getid3->info['avdataoffset'], SEEK_SET);
rlm@3 47 $mac_header_data = fread($getid3->fp, 74);
rlm@3 48
rlm@3 49 $info_monkeys_audio_raw['magic'] = 'MAC '; // Magic bytes
rlm@3 50
rlm@3 51 // Read MAC version
rlm@3 52 $info_monkeys_audio_raw['nVersion'] = getid3_lib::LittleEndian2Int(substr($mac_header_data, 4, 2)); // appears to be uint32 in 3.98+
rlm@3 53
rlm@3 54 // Parse MAC Header < v3980
rlm@3 55 if ($info_monkeys_audio_raw['nVersion'] < 3980) {
rlm@3 56
rlm@3 57 getid3_lib::ReadSequence("LittleEndian2Int", $info_monkeys_audio_raw, $mac_header_data, 6,
rlm@3 58 array (
rlm@3 59 'nCompressionLevel' => 2,
rlm@3 60 'nFormatFlags' => 2,
rlm@3 61 'nChannels' => 2,
rlm@3 62 'nSampleRate' => 4,
rlm@3 63 'nHeaderDataBytes' => 4,
rlm@3 64 'nWAVTerminatingBytes' => 4,
rlm@3 65 'nTotalFrames' => 4,
rlm@3 66 'nFinalFrameSamples' => 4,
rlm@3 67 'nPeakLevel' => 4,
rlm@3 68 'IGNORE-1' => 2,
rlm@3 69 'nSeekElements' => 2
rlm@3 70 )
rlm@3 71 );
rlm@3 72 }
rlm@3 73
rlm@3 74 // Parse MAC Header >= v3980
rlm@3 75 else {
rlm@3 76
rlm@3 77 getid3_lib::ReadSequence("LittleEndian2Int", $info_monkeys_audio_raw, $mac_header_data, 8,
rlm@3 78 array (
rlm@3 79 // APE_DESCRIPTOR
rlm@3 80 'nDescriptorBytes' => 4,
rlm@3 81 'nHeaderBytes' => 4,
rlm@3 82 'nSeekTableBytes' => 4,
rlm@3 83 'nHeaderDataBytes' => 4,
rlm@3 84 'nAPEFrameDataBytes' => 4,
rlm@3 85 'nAPEFrameDataBytesHigh'=> 4,
rlm@3 86 'nTerminatingDataBytes' => 4,
rlm@3 87
rlm@3 88 // MD5 - string
rlm@3 89 'cFileMD5' => -16,
rlm@3 90
rlm@3 91 // APE_HEADER
rlm@3 92 'nCompressionLevel' => 2,
rlm@3 93 'nFormatFlags' => 2,
rlm@3 94 'nBlocksPerFrame' => 4,
rlm@3 95 'nFinalFrameBlocks' => 4,
rlm@3 96 'nTotalFrames' => 4,
rlm@3 97 'nBitsPerSample' => 2,
rlm@3 98 'nChannels' => 2,
rlm@3 99 'nSampleRate' => 4
rlm@3 100 )
rlm@3 101 );
rlm@3 102 }
rlm@3 103
rlm@3 104 // Process data
rlm@3 105 $info_monkeys_audio['flags']['8-bit'] = (bool)($info_monkeys_audio_raw['nFormatFlags'] & 0x0001);
rlm@3 106 $info_monkeys_audio['flags']['crc-32'] = (bool)($info_monkeys_audio_raw['nFormatFlags'] & 0x0002);
rlm@3 107 $info_monkeys_audio['flags']['peak_level'] = (bool)($info_monkeys_audio_raw['nFormatFlags'] & 0x0004);
rlm@3 108 $info_monkeys_audio['flags']['24-bit'] = (bool)($info_monkeys_audio_raw['nFormatFlags'] & 0x0008);
rlm@3 109 $info_monkeys_audio['flags']['seek_elements'] = (bool)($info_monkeys_audio_raw['nFormatFlags'] & 0x0010);
rlm@3 110 $info_monkeys_audio['flags']['no_wav_header'] = (bool)($info_monkeys_audio_raw['nFormatFlags'] & 0x0020);
rlm@3 111
rlm@3 112 $info_monkeys_audio['version'] = $info_monkeys_audio_raw['nVersion'] / 1000;
rlm@3 113
rlm@3 114 $info_monkeys_audio['compression'] = getid3_monkey::MonkeyCompressionLevelNameLookup($info_monkeys_audio_raw['nCompressionLevel']);
rlm@3 115
rlm@3 116 $info_monkeys_audio['bits_per_sample'] = ($info_monkeys_audio['flags']['24-bit'] ? 24 : ($info_monkeys_audio['flags']['8-bit'] ? 8 : 16));
rlm@3 117
rlm@3 118 $info_monkeys_audio['channels'] = $info_monkeys_audio_raw['nChannels'];
rlm@3 119
rlm@3 120 $getid3->info['audio']['channels'] = $info_monkeys_audio['channels'];
rlm@3 121
rlm@3 122 $info_monkeys_audio['sample_rate'] = $info_monkeys_audio_raw['nSampleRate'];
rlm@3 123
rlm@3 124 $getid3->info['audio']['sample_rate'] = $info_monkeys_audio['sample_rate'];
rlm@3 125
rlm@3 126 if ($info_monkeys_audio['flags']['peak_level']) {
rlm@3 127 $info_monkeys_audio['peak_level'] = $info_monkeys_audio_raw['nPeakLevel'];
rlm@3 128 $info_monkeys_audio['peak_ratio'] = $info_monkeys_audio['peak_level'] / pow(2, $info_monkeys_audio['bits_per_sample'] - 1);
rlm@3 129 }
rlm@3 130
rlm@3 131 // MAC >= v3980
rlm@3 132 if ($info_monkeys_audio_raw['nVersion'] >= 3980) {
rlm@3 133 $info_monkeys_audio['samples'] = (($info_monkeys_audio_raw['nTotalFrames'] - 1) * $info_monkeys_audio_raw['nBlocksPerFrame']) + $info_monkeys_audio_raw['nFinalFrameBlocks'];
rlm@3 134 }
rlm@3 135
rlm@3 136 // MAC < v3980
rlm@3 137 else {
rlm@3 138 $info_monkeys_audio['samples_per_frame'] = getid3_monkey::MonkeySamplesPerFrame($info_monkeys_audio_raw['nVersion'], $info_monkeys_audio_raw['nCompressionLevel']);
rlm@3 139 $info_monkeys_audio['samples'] = (($info_monkeys_audio_raw['nTotalFrames'] - 1) * $info_monkeys_audio['samples_per_frame']) + $info_monkeys_audio_raw['nFinalFrameSamples'];
rlm@3 140 }
rlm@3 141
rlm@3 142 $info_monkeys_audio['playtime'] = $info_monkeys_audio['samples'] / $info_monkeys_audio['sample_rate'];
rlm@3 143
rlm@3 144 $getid3->info['playtime_seconds'] = $info_monkeys_audio['playtime'];
rlm@3 145
rlm@3 146 $info_monkeys_audio['compressed_size'] = $getid3->info['avdataend'] - $getid3->info['avdataoffset'];
rlm@3 147 $info_monkeys_audio['uncompressed_size'] = $info_monkeys_audio['samples'] * $info_monkeys_audio['channels'] * ($info_monkeys_audio['bits_per_sample'] / 8);
rlm@3 148 $info_monkeys_audio['compression_ratio'] = $info_monkeys_audio['compressed_size'] / ($info_monkeys_audio['uncompressed_size'] + $info_monkeys_audio_raw['nHeaderDataBytes']);
rlm@3 149 $info_monkeys_audio['bitrate'] = (($info_monkeys_audio['samples'] * $info_monkeys_audio['channels'] * $info_monkeys_audio['bits_per_sample']) / $info_monkeys_audio['playtime']) * $info_monkeys_audio['compression_ratio'];
rlm@3 150
rlm@3 151 $getid3->info['audio']['bitrate'] = $info_monkeys_audio['bitrate'];
rlm@3 152
rlm@3 153 $getid3->info['audio']['bits_per_sample'] = $info_monkeys_audio['bits_per_sample'];
rlm@3 154 $getid3->info['audio']['encoder'] = 'MAC v'.number_format($info_monkeys_audio['version'], 2);
rlm@3 155 $getid3->info['audio']['encoder_options'] = ucfirst($info_monkeys_audio['compression']).' compression';
rlm@3 156
rlm@3 157 // MAC >= v3980 - get avdataoffsets from MAC header
rlm@3 158 if ($info_monkeys_audio_raw['nVersion'] >= 3980) {
rlm@3 159 $getid3->info['avdataoffset'] += $info_monkeys_audio_raw['nDescriptorBytes'] + $info_monkeys_audio_raw['nHeaderBytes'] + $info_monkeys_audio_raw['nSeekTableBytes'] + $info_monkeys_audio_raw['nHeaderDataBytes'];
rlm@3 160 $getid3->info['avdataend'] -= $info_monkeys_audio_raw['nTerminatingDataBytes'];
rlm@3 161 }
rlm@3 162
rlm@3 163 // MAC < v3980 Add size of MAC header to avdataoffset
rlm@3 164 else {
rlm@3 165 $getid3->info['avdataoffset'] += 8;
rlm@3 166 }
rlm@3 167
rlm@3 168 // Convert md5sum to 32 byte string
rlm@3 169 if (@$info_monkeys_audio_raw['cFileMD5']) {
rlm@3 170 if ($info_monkeys_audio_raw['cFileMD5'] !== str_repeat("\x00", 16)) {
rlm@3 171 $getid3->info['md5_data_source'] = '';
rlm@3 172 $md5 = $info_monkeys_audio_raw['cFileMD5'];
rlm@3 173 for ($i = 0; $i < strlen($md5); $i++) {
rlm@3 174 $getid3->info['md5_data_source'] .= str_pad(dechex(ord($md5{$i})), 2, '00', STR_PAD_LEFT);
rlm@3 175 }
rlm@3 176 if (!preg_match('/^[0-9a-f]{32}$/', $getid3->info['md5_data_source'])) {
rlm@3 177 unset($getid3->info['md5_data_source']);
rlm@3 178 }
rlm@3 179 }
rlm@3 180 }
rlm@3 181
rlm@3 182
rlm@3 183 return true;
rlm@3 184 }
rlm@3 185
rlm@3 186
rlm@3 187
rlm@3 188 public static function MonkeyCompressionLevelNameLookup($compression_level) {
rlm@3 189
rlm@3 190 static $lookup = array (
rlm@3 191 0 => 'unknown',
rlm@3 192 1000 => 'fast',
rlm@3 193 2000 => 'normal',
rlm@3 194 3000 => 'high',
rlm@3 195 4000 => 'extra-high',
rlm@3 196 5000 => 'insane'
rlm@3 197 );
rlm@3 198 return (isset($lookup[$compression_level]) ? $lookup[$compression_level] : 'invalid');
rlm@3 199 }
rlm@3 200
rlm@3 201
rlm@3 202
rlm@3 203 public static function MonkeySamplesPerFrame($version_id, $compression_level) {
rlm@3 204
rlm@3 205 if ($version_id >= 3950) {
rlm@3 206 return 73728 * 4;
rlm@3 207 }
rlm@3 208 if (($version_id >= 3900) || (($version_id >= 3800) && ($compression_level == 4000))) {
rlm@3 209 return 73728;
rlm@3 210 }
rlm@3 211 return 9216;
rlm@3 212 }
rlm@3 213
rlm@3 214 }
rlm@3 215
rlm@3 216 ?>