]> scripts.mit.edu Git - autoinstallsdev/mediawiki.git/blobdiff - vendor/james-heinrich/getid3/getid3/module.audio-video.real.php
MediaWiki 1.30.2
[autoinstallsdev/mediawiki.git] / vendor / james-heinrich / getid3 / getid3 / module.audio-video.real.php
diff --git a/vendor/james-heinrich/getid3/getid3/module.audio-video.real.php b/vendor/james-heinrich/getid3/getid3/module.audio-video.real.php
new file mode 100644 (file)
index 0000000..280d43c
--- /dev/null
@@ -0,0 +1,528 @@
+<?php
+/////////////////////////////////////////////////////////////////
+/// getID3() by James Heinrich <info@getid3.org>               //
+//  available at http://getid3.sourceforge.net                 //
+//            or http://www.getid3.org                         //
+//          also https://github.com/JamesHeinrich/getID3       //
+/////////////////////////////////////////////////////////////////
+// See readme.txt for more details                             //
+/////////////////////////////////////////////////////////////////
+//                                                             //
+// module.audio-video.real.php                                 //
+// module for analyzing Real Audio/Video files                 //
+// dependencies: module.audio-video.riff.php                   //
+//                                                            ///
+/////////////////////////////////////////////////////////////////
+
+getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true);
+
+class getid3_real extends getid3_handler
+{
+
+       public function Analyze() {
+               $info = &$this->getid3->info;
+
+               $info['fileformat']       = 'real';
+               $info['bitrate']          = 0;
+               $info['playtime_seconds'] = 0;
+
+               $this->fseek($info['avdataoffset']);
+               $ChunkCounter = 0;
+               while ($this->ftell() < $info['avdataend']) {
+                       $ChunkData  = $this->fread(8);
+                       $ChunkName  =                           substr($ChunkData, 0, 4);
+                       $ChunkSize  = getid3_lib::BigEndian2Int(substr($ChunkData, 4, 4));
+
+                       if ($ChunkName == '.ra'."\xFD") {
+                               $ChunkData .= $this->fread($ChunkSize - 8);
+                               if ($this->ParseOldRAheader(substr($ChunkData, 0, 128), $info['real']['old_ra_header'])) {
+                                       $info['audio']['dataformat']      = 'real';
+                                       $info['audio']['lossless']        = false;
+                                       $info['audio']['sample_rate']     = $info['real']['old_ra_header']['sample_rate'];
+                                       $info['audio']['bits_per_sample'] = $info['real']['old_ra_header']['bits_per_sample'];
+                                       $info['audio']['channels']        = $info['real']['old_ra_header']['channels'];
+
+                                       $info['playtime_seconds']         = 60 * ($info['real']['old_ra_header']['audio_bytes'] / $info['real']['old_ra_header']['bytes_per_minute']);
+                                       $info['audio']['bitrate']         =  8 * ($info['real']['old_ra_header']['audio_bytes'] / $info['playtime_seconds']);
+                                       $info['audio']['codec']           = $this->RealAudioCodecFourCClookup($info['real']['old_ra_header']['fourcc'], $info['audio']['bitrate']);
+
+                                       foreach ($info['real']['old_ra_header']['comments'] as $key => $valuearray) {
+                                               if (strlen(trim($valuearray[0])) > 0) {
+                                                       $info['real']['comments'][$key][] = trim($valuearray[0]);
+                                               }
+                                       }
+                                       return true;
+                               }
+                               $this->error('There was a problem parsing this RealAudio file. Please submit it for analysis to info@getid3.org');
+                               unset($info['bitrate']);
+                               unset($info['playtime_seconds']);
+                               return false;
+                       }
+
+                       // shortcut
+                       $info['real']['chunks'][$ChunkCounter] = array();
+                       $thisfile_real_chunks_currentchunk = &$info['real']['chunks'][$ChunkCounter];
+
+                       $thisfile_real_chunks_currentchunk['name']   = $ChunkName;
+                       $thisfile_real_chunks_currentchunk['offset'] = $this->ftell() - 8;
+                       $thisfile_real_chunks_currentchunk['length'] = $ChunkSize;
+                       if (($thisfile_real_chunks_currentchunk['offset'] + $thisfile_real_chunks_currentchunk['length']) > $info['avdataend']) {
+                               $this->warning('Chunk "'.$thisfile_real_chunks_currentchunk['name'].'" at offset '.$thisfile_real_chunks_currentchunk['offset'].' claims to be '.$thisfile_real_chunks_currentchunk['length'].' bytes long, which is beyond end of file');
+                               return false;
+                       }
+
+                       if ($ChunkSize > ($this->getid3->fread_buffer_size() + 8)) {
+
+                               $ChunkData .= $this->fread($this->getid3->fread_buffer_size() - 8);
+                               $this->fseek($thisfile_real_chunks_currentchunk['offset'] + $ChunkSize);
+
+                       } elseif(($ChunkSize - 8) > 0) {
+
+                               $ChunkData .= $this->fread($ChunkSize - 8);
+
+                       }
+                       $offset = 8;
+
+                       switch ($ChunkName) {
+
+                               case '.RMF': // RealMedia File Header
+                                       $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                       $offset += 2;
+                                       switch ($thisfile_real_chunks_currentchunk['object_version']) {
+
+                                               case 0:
+                                                       $thisfile_real_chunks_currentchunk['file_version']  = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                                       $offset += 4;
+                                                       $thisfile_real_chunks_currentchunk['headers_count'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                                       $offset += 4;
+                                                       break;
+
+                                               default:
+                                                       //$this->warning('Expected .RMF-object_version to be "0", actual value is "'.$thisfile_real_chunks_currentchunk['object_version'].'" (should not be a problem)');
+                                                       break;
+
+                                       }
+                                       break;
+
+
+                               case 'PROP': // Properties Header
+                                       $thisfile_real_chunks_currentchunk['object_version']      = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                       $offset += 2;
+                                       if ($thisfile_real_chunks_currentchunk['object_version'] == 0) {
+                                               $thisfile_real_chunks_currentchunk['max_bit_rate']    = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['avg_bit_rate']    = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['max_packet_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['avg_packet_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['num_packets']     = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['duration']        = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['preroll']         = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['index_offset']    = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['data_offset']     = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['num_streams']     = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['flags_raw']       = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $info['playtime_seconds'] = $thisfile_real_chunks_currentchunk['duration'] / 1000;
+                                               if ($thisfile_real_chunks_currentchunk['duration'] > 0) {
+                                                       $info['bitrate'] += $thisfile_real_chunks_currentchunk['avg_bit_rate'];
+                                               }
+                                               $thisfile_real_chunks_currentchunk['flags']['save_enabled']   = (bool) ($thisfile_real_chunks_currentchunk['flags_raw'] & 0x0001);
+                                               $thisfile_real_chunks_currentchunk['flags']['perfect_play']   = (bool) ($thisfile_real_chunks_currentchunk['flags_raw'] & 0x0002);
+                                               $thisfile_real_chunks_currentchunk['flags']['live_broadcast'] = (bool) ($thisfile_real_chunks_currentchunk['flags_raw'] & 0x0004);
+                                       }
+                                       break;
+
+                               case 'MDPR': // Media Properties Header
+                                       $thisfile_real_chunks_currentchunk['object_version']         = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                       $offset += 2;
+                                       if ($thisfile_real_chunks_currentchunk['object_version'] == 0) {
+                                               $thisfile_real_chunks_currentchunk['stream_number']      = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['max_bit_rate']       = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['avg_bit_rate']       = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['max_packet_size']    = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['avg_packet_size']    = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['start_time']         = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['preroll']            = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['duration']           = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['stream_name_size']   = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 1));
+                                               $offset += 1;
+                                               $thisfile_real_chunks_currentchunk['stream_name']        = substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['stream_name_size']);
+                                               $offset += $thisfile_real_chunks_currentchunk['stream_name_size'];
+                                               $thisfile_real_chunks_currentchunk['mime_type_size']     = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 1));
+                                               $offset += 1;
+                                               $thisfile_real_chunks_currentchunk['mime_type']          = substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['mime_type_size']);
+                                               $offset += $thisfile_real_chunks_currentchunk['mime_type_size'];
+                                               $thisfile_real_chunks_currentchunk['type_specific_len']  = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['type_specific_data'] = substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['type_specific_len']);
+                                               $offset += $thisfile_real_chunks_currentchunk['type_specific_len'];
+
+                                               // shortcut
+                                               $thisfile_real_chunks_currentchunk_typespecificdata = &$thisfile_real_chunks_currentchunk['type_specific_data'];
+
+                                               switch ($thisfile_real_chunks_currentchunk['mime_type']) {
+                                                       case 'video/x-pn-realvideo':
+                                                       case 'video/x-pn-multirate-realvideo':
+                                                               // http://www.freelists.org/archives/matroska-devel/07-2003/msg00010.html
+
+                                                               // shortcut
+                                                               $thisfile_real_chunks_currentchunk['video_info'] = array();
+                                                               $thisfile_real_chunks_currentchunk_videoinfo     = &$thisfile_real_chunks_currentchunk['video_info'];
+
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['dwSize']            = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata,  0, 4));
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['fourcc1']           =                           substr($thisfile_real_chunks_currentchunk_typespecificdata,  4, 4);
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['fourcc2']           =                           substr($thisfile_real_chunks_currentchunk_typespecificdata,  8, 4);
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['width']             = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 12, 2));
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['height']            = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 14, 2));
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['bits_per_sample']   = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 16, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown1']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 18, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown2']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 20, 2));
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['frames_per_second'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 22, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown3']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 24, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown4']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 26, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown5']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 28, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown6']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 30, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown7']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 32, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown8']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 34, 2));
+                                                               //$thisfile_real_chunks_currentchunk_videoinfo['unknown9']          = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 36, 2));
+
+                                                               $thisfile_real_chunks_currentchunk_videoinfo['codec'] = getid3_riff::fourccLookup($thisfile_real_chunks_currentchunk_videoinfo['fourcc2']);
+
+                                                               $info['video']['resolution_x']    =         $thisfile_real_chunks_currentchunk_videoinfo['width'];
+                                                               $info['video']['resolution_y']    =         $thisfile_real_chunks_currentchunk_videoinfo['height'];
+                                                               $info['video']['frame_rate']      = (float) $thisfile_real_chunks_currentchunk_videoinfo['frames_per_second'];
+                                                               $info['video']['codec']           =         $thisfile_real_chunks_currentchunk_videoinfo['codec'];
+                                                               $info['video']['bits_per_sample'] =         $thisfile_real_chunks_currentchunk_videoinfo['bits_per_sample'];
+                                                               break;
+
+                                                       case 'audio/x-pn-realaudio':
+                                                       case 'audio/x-pn-multirate-realaudio':
+                                                               $this->ParseOldRAheader($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk['parsed_audio_data']);
+
+                                                               $info['audio']['sample_rate']     = $thisfile_real_chunks_currentchunk['parsed_audio_data']['sample_rate'];
+                                                               $info['audio']['bits_per_sample'] = $thisfile_real_chunks_currentchunk['parsed_audio_data']['bits_per_sample'];
+                                                               $info['audio']['channels']        = $thisfile_real_chunks_currentchunk['parsed_audio_data']['channels'];
+                                                               if (!empty($info['audio']['dataformat'])) {
+                                                                       foreach ($info['audio'] as $key => $value) {
+                                                                               if ($key != 'streams') {
+                                                                                       $info['audio']['streams'][$thisfile_real_chunks_currentchunk['stream_number']][$key] = $value;
+                                                                               }
+                                                                       }
+                                                               }
+                                                               break;
+
+                                                       case 'logical-fileinfo':
+                                                               // shortcut
+                                                               $thisfile_real_chunks_currentchunk['logical_fileinfo'] = array();
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo     = &$thisfile_real_chunks_currentchunk['logical_fileinfo'];
+
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo_offset = 0;
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo['logical_fileinfo_length'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4));
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4;
+
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo['unknown1']                = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4));
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4;
+
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo['num_tags']                = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4));
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4;
+
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo['unknown2']                = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4));
+                                                               $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4;
+
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo['d']                       = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 1));
+
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo['one_type'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata,     $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4));
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo_thislength  = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 4 + $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 2));
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo['one']      =                           substr($thisfile_real_chunks_currentchunk_typespecificdata, 6 + $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, $thisfile_real_chunks_currentchunk_logicalfileinfo_thislength);
+                                                               //$thisfile_real_chunks_currentchunk_logicalfileinfo_offset += (6 + $thisfile_real_chunks_currentchunk_logicalfileinfo_thislength);
+
+                                                               break;
+
+                                               }
+
+
+                                               if (empty($info['playtime_seconds'])) {
+                                                       $info['playtime_seconds'] = max($info['playtime_seconds'], ($thisfile_real_chunks_currentchunk['duration'] + $thisfile_real_chunks_currentchunk['start_time']) / 1000);
+                                               }
+                                               if ($thisfile_real_chunks_currentchunk['duration'] > 0) {
+                                                       switch ($thisfile_real_chunks_currentchunk['mime_type']) {
+                                                               case 'audio/x-pn-realaudio':
+                                                               case 'audio/x-pn-multirate-realaudio':
+                                                                       $info['audio']['bitrate']    = (isset($info['audio']['bitrate']) ? $info['audio']['bitrate'] : 0) + $thisfile_real_chunks_currentchunk['avg_bit_rate'];
+                                                                       $info['audio']['codec']      = $this->RealAudioCodecFourCClookup($thisfile_real_chunks_currentchunk['parsed_audio_data']['fourcc'], $info['audio']['bitrate']);
+                                                                       $info['audio']['dataformat'] = 'real';
+                                                                       $info['audio']['lossless']   = false;
+                                                                       break;
+
+                                                               case 'video/x-pn-realvideo':
+                                                               case 'video/x-pn-multirate-realvideo':
+                                                                       $info['video']['bitrate']            = (isset($info['video']['bitrate']) ? $info['video']['bitrate'] : 0) + $thisfile_real_chunks_currentchunk['avg_bit_rate'];
+                                                                       $info['video']['bitrate_mode']       = 'cbr';
+                                                                       $info['video']['dataformat']         = 'real';
+                                                                       $info['video']['lossless']           = false;
+                                                                       $info['video']['pixel_aspect_ratio'] = (float) 1;
+                                                                       break;
+
+                                                               case 'audio/x-ralf-mpeg4-generic':
+                                                                       $info['audio']['bitrate']    = (isset($info['audio']['bitrate']) ? $info['audio']['bitrate'] : 0) + $thisfile_real_chunks_currentchunk['avg_bit_rate'];
+                                                                       $info['audio']['codec']      = 'RealAudio Lossless';
+                                                                       $info['audio']['dataformat'] = 'real';
+                                                                       $info['audio']['lossless']   = true;
+                                                                       break;
+                                                       }
+                                                       $info['bitrate'] = (isset($info['video']['bitrate']) ? $info['video']['bitrate'] : 0) + (isset($info['audio']['bitrate']) ? $info['audio']['bitrate'] : 0);
+                                               }
+                                       }
+                                       break;
+
+                               case 'CONT': // Content Description Header (text comments)
+                                       $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                       $offset += 2;
+                                       if ($thisfile_real_chunks_currentchunk['object_version'] == 0) {
+                                               $thisfile_real_chunks_currentchunk['title_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['title'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['title_len']);
+                                               $offset += $thisfile_real_chunks_currentchunk['title_len'];
+
+                                               $thisfile_real_chunks_currentchunk['artist_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['artist'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['artist_len']);
+                                               $offset += $thisfile_real_chunks_currentchunk['artist_len'];
+
+                                               $thisfile_real_chunks_currentchunk['copyright_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['copyright'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['copyright_len']);
+                                               $offset += $thisfile_real_chunks_currentchunk['copyright_len'];
+
+                                               $thisfile_real_chunks_currentchunk['comment_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['comment'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['comment_len']);
+                                               $offset += $thisfile_real_chunks_currentchunk['comment_len'];
+
+
+                                               $commentkeystocopy = array('title'=>'title', 'artist'=>'artist', 'copyright'=>'copyright', 'comment'=>'comment');
+                                               foreach ($commentkeystocopy as $key => $val) {
+                                                       if ($thisfile_real_chunks_currentchunk[$key]) {
+                                                               $info['real']['comments'][$val][] = trim($thisfile_real_chunks_currentchunk[$key]);
+                                                       }
+                                               }
+
+                                       }
+                                       break;
+
+
+                               case 'DATA': // Data Chunk Header
+                                       // do nothing
+                                       break;
+
+                               case 'INDX': // Index Section Header
+                                       $thisfile_real_chunks_currentchunk['object_version']        = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                       $offset += 2;
+                                       if ($thisfile_real_chunks_currentchunk['object_version'] == 0) {
+                                               $thisfile_real_chunks_currentchunk['num_indices']       = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+                                               $thisfile_real_chunks_currentchunk['stream_number']     = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2));
+                                               $offset += 2;
+                                               $thisfile_real_chunks_currentchunk['next_index_header'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4));
+                                               $offset += 4;
+
+                                               if ($thisfile_real_chunks_currentchunk['next_index_header'] == 0) {
+                                                       // last index chunk found, ignore rest of file
+                                                       break 2;
+                                               } else {
+                                                       // non-last index chunk, seek to next index chunk (skipping actual index data)
+                                                       $this->fseek($thisfile_real_chunks_currentchunk['next_index_header']);
+                                               }
+                                       }
+                                       break;
+
+                               default:
+                                       $this->warning('Unhandled RealMedia chunk "'.$ChunkName.'" at offset '.$thisfile_real_chunks_currentchunk['offset']);
+                                       break;
+                       }
+                       $ChunkCounter++;
+               }
+
+               if (!empty($info['audio']['streams'])) {
+                       $info['audio']['bitrate'] = 0;
+                       foreach ($info['audio']['streams'] as $key => $valuearray) {
+                               $info['audio']['bitrate'] += $valuearray['bitrate'];
+                       }
+               }
+
+               return true;
+       }
+
+
+       public function ParseOldRAheader($OldRAheaderData, &$ParsedArray) {
+               // http://www.freelists.org/archives/matroska-devel/07-2003/msg00010.html
+
+               $ParsedArray = array();
+               $ParsedArray['magic'] = substr($OldRAheaderData, 0, 4);
+               if ($ParsedArray['magic'] != '.ra'."\xFD") {
+                       return false;
+               }
+               $ParsedArray['version1']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData,  4, 2));
+
+               if ($ParsedArray['version1'] < 3) {
+
+                       return false;
+
+               } elseif ($ParsedArray['version1'] == 3) {
+
+                       $ParsedArray['fourcc1']          = '.ra3';
+                       $ParsedArray['bits_per_sample']  = 16;   // hard-coded for old versions?
+                       $ParsedArray['sample_rate']      = 8000; // hard-coded for old versions?
+
+                       $ParsedArray['header_size']      = getid3_lib::BigEndian2Int(substr($OldRAheaderData,  6, 2));
+                       $ParsedArray['channels']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData,  8, 2)); // always 1 (?)
+                       //$ParsedArray['unknown1']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 10, 2));
+                       //$ParsedArray['unknown2']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 12, 2));
+                       //$ParsedArray['unknown3']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 14, 2));
+                       $ParsedArray['bytes_per_minute'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 16, 2));
+                       $ParsedArray['audio_bytes']      = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 18, 4));
+                       $ParsedArray['comments_raw']     =                           substr($OldRAheaderData, 22, $ParsedArray['header_size'] - 22 + 1); // not including null terminator
+
+                       $commentoffset = 0;
+                       $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1));
+                       $ParsedArray['comments']['title'][]     = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength);
+                       $commentoffset += $commentlength;
+
+                       $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1));
+                       $ParsedArray['comments']['artist'][]    = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength);
+                       $commentoffset += $commentlength;
+
+                       $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1));
+                       $ParsedArray['comments']['copyright'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength);
+                       $commentoffset += $commentlength;
+
+                       $commentoffset++; // final null terminator (?)
+                       $commentoffset++; // fourcc length (?) should be 4
+                       $ParsedArray['fourcc']           =                           substr($OldRAheaderData, 23 + $commentoffset, 4);
+
+               } elseif ($ParsedArray['version1'] <= 5) {
+
+                       //$ParsedArray['unknown1']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData,  6, 2));
+                       $ParsedArray['fourcc1']          =                           substr($OldRAheaderData,  8, 4);
+                       $ParsedArray['file_size']        = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 12, 4));
+                       $ParsedArray['version2']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 16, 2));
+                       $ParsedArray['header_size']      = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 18, 4));
+                       $ParsedArray['codec_flavor_id']  = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 22, 2));
+                       $ParsedArray['coded_frame_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 24, 4));
+                       $ParsedArray['audio_bytes']      = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 28, 4));
+                       $ParsedArray['bytes_per_minute'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 32, 4));
+                       //$ParsedArray['unknown5']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 36, 4));
+                       $ParsedArray['sub_packet_h']     = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 40, 2));
+                       $ParsedArray['frame_size']       = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 42, 2));
+                       $ParsedArray['sub_packet_size']  = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 44, 2));
+                       //$ParsedArray['unknown6']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 46, 2));
+
+                       switch ($ParsedArray['version1']) {
+
+                               case 4:
+                                       $ParsedArray['sample_rate']      = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 48, 2));
+                                       //$ParsedArray['unknown8']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 50, 2));
+                                       $ParsedArray['bits_per_sample']  = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 52, 2));
+                                       $ParsedArray['channels']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 54, 2));
+                                       $ParsedArray['length_fourcc2']   = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 56, 1));
+                                       $ParsedArray['fourcc2']          =                           substr($OldRAheaderData, 57, 4);
+                                       $ParsedArray['length_fourcc3']   = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 61, 1));
+                                       $ParsedArray['fourcc3']          =                           substr($OldRAheaderData, 62, 4);
+                                       //$ParsedArray['unknown9']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 66, 1));
+                                       //$ParsedArray['unknown10']        = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 67, 2));
+                                       $ParsedArray['comments_raw']     =                           substr($OldRAheaderData, 69, $ParsedArray['header_size'] - 69 + 16);
+
+                                       $commentoffset = 0;
+                                       $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1));
+                                       $ParsedArray['comments']['title'][]     = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength);
+                                       $commentoffset += $commentlength;
+
+                                       $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1));
+                                       $ParsedArray['comments']['artist'][]    = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength);
+                                       $commentoffset += $commentlength;
+
+                                       $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1));
+                                       $ParsedArray['comments']['copyright'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength);
+                                       $commentoffset += $commentlength;
+                                       break;
+
+                               case 5:
+                                       $ParsedArray['sample_rate']      = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 48, 4));
+                                       $ParsedArray['sample_rate2']     = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 52, 4));
+                                       $ParsedArray['bits_per_sample']  = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 56, 4));
+                                       $ParsedArray['channels']         = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 60, 2));
+                                       $ParsedArray['genr']             =                           substr($OldRAheaderData, 62, 4);
+                                       $ParsedArray['fourcc3']          =                           substr($OldRAheaderData, 66, 4);
+                                       $ParsedArray['comments']         = array();
+                                       break;
+                       }
+                       $ParsedArray['fourcc'] = $ParsedArray['fourcc3'];
+
+               }
+               foreach ($ParsedArray['comments'] as $key => $value) {
+                       if ($ParsedArray['comments'][$key][0] === false) {
+                               $ParsedArray['comments'][$key][0] = '';
+                       }
+               }
+
+               return true;
+       }
+
+       public function RealAudioCodecFourCClookup($fourcc, $bitrate) {
+               static $RealAudioCodecFourCClookup = array();
+               if (empty($RealAudioCodecFourCClookup)) {
+                       // http://www.its.msstate.edu/net/real/reports/config/tags.stats
+                       // http://www.freelists.org/archives/matroska-devel/06-2003/fullthread18.html
+
+                       $RealAudioCodecFourCClookup['14_4'][8000]  = 'RealAudio v2 (14.4kbps)';
+                       $RealAudioCodecFourCClookup['14.4'][8000]  = 'RealAudio v2 (14.4kbps)';
+                       $RealAudioCodecFourCClookup['lpcJ'][8000]  = 'RealAudio v2 (14.4kbps)';
+                       $RealAudioCodecFourCClookup['28_8'][15200] = 'RealAudio v2 (28.8kbps)';
+                       $RealAudioCodecFourCClookup['28.8'][15200] = 'RealAudio v2 (28.8kbps)';
+                       $RealAudioCodecFourCClookup['sipr'][4933]  = 'RealAudio v4 (5kbps Voice)';
+                       $RealAudioCodecFourCClookup['sipr'][6444]  = 'RealAudio v4 (6.5kbps Voice)';
+                       $RealAudioCodecFourCClookup['sipr'][8444]  = 'RealAudio v4 (8.5kbps Voice)';
+                       $RealAudioCodecFourCClookup['sipr'][16000] = 'RealAudio v4 (16kbps Wideband)';
+                       $RealAudioCodecFourCClookup['dnet'][8000]  = 'RealAudio v3 (8kbps Music)';
+                       $RealAudioCodecFourCClookup['dnet'][16000] = 'RealAudio v3 (16kbps Music Low Response)';
+                       $RealAudioCodecFourCClookup['dnet'][15963] = 'RealAudio v3 (16kbps Music Mid/High Response)';
+                       $RealAudioCodecFourCClookup['dnet'][20000] = 'RealAudio v3 (20kbps Music Stereo)';
+                       $RealAudioCodecFourCClookup['dnet'][32000] = 'RealAudio v3 (32kbps Music Mono)';
+                       $RealAudioCodecFourCClookup['dnet'][31951] = 'RealAudio v3 (32kbps Music Stereo)';
+                       $RealAudioCodecFourCClookup['dnet'][39965] = 'RealAudio v3 (40kbps Music Mono)';
+                       $RealAudioCodecFourCClookup['dnet'][40000] = 'RealAudio v3 (40kbps Music Stereo)';
+                       $RealAudioCodecFourCClookup['dnet'][79947] = 'RealAudio v3 (80kbps Music Mono)';
+                       $RealAudioCodecFourCClookup['dnet'][80000] = 'RealAudio v3 (80kbps Music Stereo)';
+
+                       $RealAudioCodecFourCClookup['dnet'][0] = 'RealAudio v3';
+                       $RealAudioCodecFourCClookup['sipr'][0] = 'RealAudio v4';
+                       $RealAudioCodecFourCClookup['cook'][0] = 'RealAudio G2';
+                       $RealAudioCodecFourCClookup['atrc'][0] = 'RealAudio 8';
+               }
+               $roundbitrate = intval(round($bitrate));
+               if (isset($RealAudioCodecFourCClookup[$fourcc][$roundbitrate])) {
+                       return $RealAudioCodecFourCClookup[$fourcc][$roundbitrate];
+               } elseif (isset($RealAudioCodecFourCClookup[$fourcc][0])) {
+                       return $RealAudioCodecFourCClookup[$fourcc][0];
+               }
+               return $fourcc;
+       }
+
+}