ILIAS  release_5-1 Revision 5.0.0-5477-g43f3e3fab5f
module.audio.vqf.php
Go to the documentation of this file.
1<?php
4// available at http://getid3.sourceforge.net //
5// or http://www.getid3.org //
7// See readme.txt for more details //
9// //
10// module.audio.vqf.php //
11// module for analyzing VQF audio files //
12// dependencies: NONE //
13// ///
15
16
18{
19 function getid3_vqf(&$fd, &$ThisFileInfo) {
20 // based loosely on code from TTwinVQ by Jurgen Faul <jfaulØgmx*de>
21 // http://jfaul.de/atl or http://j-faul.virtualave.net/atl/atl.html
22
23 $ThisFileInfo['fileformat'] = 'vqf';
24 $ThisFileInfo['audio']['dataformat'] = 'vqf';
25 $ThisFileInfo['audio']['bitrate_mode'] = 'cbr';
26 $ThisFileInfo['audio']['lossless'] = false;
27
28 // shortcut
29 $ThisFileInfo['vqf']['raw'] = array();
30 $thisfile_vqf = &$ThisFileInfo['vqf'];
31 $thisfile_vqf_raw = &$thisfile_vqf['raw'];
32
33 fseek($fd, $ThisFileInfo['avdataoffset'], SEEK_SET);
34 $VQFheaderData = fread($fd, 16);
35
36 $offset = 0;
37 $thisfile_vqf_raw['header_tag'] = substr($VQFheaderData, $offset, 4);
38 if ($thisfile_vqf_raw['header_tag'] != 'TWIN') {
39 $ThisFileInfo['error'][] = 'Expecting "TWIN" at offset '.$ThisFileInfo['avdataoffset'].', found "'.$thisfile_vqf_raw['header_tag'].'"';
40 unset($ThisFileInfo['vqf']);
41 unset($ThisFileInfo['fileformat']);
42 return false;
43 }
44 $offset += 4;
45 $thisfile_vqf_raw['version'] = substr($VQFheaderData, $offset, 8);
46 $offset += 8;
47 $thisfile_vqf_raw['size'] = getid3_lib::BigEndian2Int(substr($VQFheaderData, $offset, 4));
48 $offset += 4;
49
50 while (ftell($fd) < $ThisFileInfo['avdataend']) {
51
52 $ChunkBaseOffset = ftell($fd);
53 $chunkoffset = 0;
54 $ChunkData = fread($fd, 8);
55 $ChunkName = substr($ChunkData, $chunkoffset, 4);
56 if ($ChunkName == 'DATA') {
57 $ThisFileInfo['avdataoffset'] = $ChunkBaseOffset;
58 break;
59 }
60 $chunkoffset += 4;
61 $ChunkSize = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4));
62 $chunkoffset += 4;
63 if ($ChunkSize > ($ThisFileInfo['avdataend'] - ftell($fd))) {
64 $ThisFileInfo['error'][] = 'Invalid chunk size ('.$ChunkSize.') for chunk "'.$ChunkName.'" at offset '.$ChunkBaseOffset;
65 break;
66 }
67 if ($ChunkSize > 0) {
68 $ChunkData .= fread($fd, $ChunkSize);
69 }
70
71 switch ($ChunkName) {
72 case 'COMM':
73 // shortcut
74 $thisfile_vqf['COMM'] = array();
75 $thisfile_vqf_COMM = &$thisfile_vqf['COMM'];
76
77 $thisfile_vqf_COMM['channel_mode'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4));
78 $chunkoffset += 4;
79 $thisfile_vqf_COMM['bitrate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4));
80 $chunkoffset += 4;
81 $thisfile_vqf_COMM['sample_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4));
82 $chunkoffset += 4;
83 $thisfile_vqf_COMM['security_level'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4));
84 $chunkoffset += 4;
85
86 $ThisFileInfo['audio']['channels'] = $thisfile_vqf_COMM['channel_mode'] + 1;
87 $ThisFileInfo['audio']['sample_rate'] = $this->VQFchannelFrequencyLookup($thisfile_vqf_COMM['sample_rate']);
88 $ThisFileInfo['audio']['bitrate'] = $thisfile_vqf_COMM['bitrate'] * 1000;
89 $ThisFileInfo['audio']['encoder_options'] = 'CBR' . ceil($ThisFileInfo['audio']['bitrate']/1000);
90
91 if ($ThisFileInfo['audio']['bitrate'] == 0) {
92 $ThisFileInfo['error'][] = 'Corrupt VQF file: bitrate_audio == zero';
93 return false;
94 }
95 break;
96
97 case 'NAME':
98 case 'AUTH':
99 case '(c) ':
100 case 'FILE':
101 case 'COMT':
102 case 'ALBM':
103 $thisfile_vqf['comments'][$this->VQFcommentNiceNameLookup($ChunkName)][] = trim(substr($ChunkData, 8));
104 break;
105
106 case 'DSIZ':
107 $thisfile_vqf['DSIZ'] = getid3_lib::BigEndian2Int(substr($ChunkData, 8, 4));
108 break;
109
110 default:
111 $ThisFileInfo['warning'][] = 'Unhandled chunk type "'.$ChunkName.'" at offset '.$ChunkBaseOffset;
112 break;
113 }
114 }
115
116 $ThisFileInfo['playtime_seconds'] = (($ThisFileInfo['avdataend'] - $ThisFileInfo['avdataoffset']) * 8) / $ThisFileInfo['audio']['bitrate'];
117
118 if (isset($thisfile_vqf['DSIZ']) && (($thisfile_vqf['DSIZ'] != ($ThisFileInfo['avdataend'] - $ThisFileInfo['avdataoffset'] - strlen('DATA'))))) {
119 switch ($thisfile_vqf['DSIZ']) {
120 case 0:
121 case 1:
122 $ThisFileInfo['warning'][] = 'Invalid DSIZ value "'.$thisfile_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'.($thisfile_vqf['DSIZ'] + 1).'.0';
123 $ThisFileInfo['audio']['encoder'] = 'Ahead Nero';
124 break;
125
126 default:
127 $ThisFileInfo['warning'][] = 'Probable corrupted file - should be '.$thisfile_vqf['DSIZ'].' bytes, actually '.($ThisFileInfo['avdataend'] - $ThisFileInfo['avdataoffset'] - strlen('DATA'));
128 break;
129 }
130 }
131
132 return true;
133 }
134
135 function VQFchannelFrequencyLookup($frequencyid) {
136 static $VQFchannelFrequencyLookup = array(
137 11 => 11025,
138 22 => 22050,
139 44 => 44100
140 );
141 return (isset($VQFchannelFrequencyLookup[$frequencyid]) ? $VQFchannelFrequencyLookup[$frequencyid] : $frequencyid * 1000);
142 }
143
144 function VQFcommentNiceNameLookup($shortname) {
145 static $VQFcommentNiceNameLookup = array(
146 'NAME' => 'title',
147 'AUTH' => 'artist',
148 '(c) ' => 'copyright',
149 'FILE' => 'filename',
150 'COMT' => 'comment',
151 'ALBM' => 'album'
152 );
153 return (isset($VQFcommentNiceNameLookup[$shortname]) ? $VQFcommentNiceNameLookup[$shortname] : $shortname);
154 }
155
156}
157
158
159?>
fseek($bytes, $whence=SEEK_SET)
Definition: getid3.php:1697
fread($bytes)
Definition: getid3.php:1685
BigEndian2Int($byteword, $synchsafe=false, $signed=false)
Definition: getid3.lib.php:234
getID3() by James Heinrich info@getid3.org //
getid3_vqf(&$fd, &$ThisFileInfo)
VQFcommentNiceNameLookup($shortname)
VQFchannelFrequencyLookup($frequencyid)