コード例 #1
0
ファイル: SSLChunk.php プロジェクト: rabyunghwa/sslscrobbler
 protected function hexdump($indent = 0)
 {
     $width = 32;
     $out = '';
     $rows = ceil(strlen($this->data) / $width);
     $hd = new Hexdumper();
     for ($i = 0; $i < $rows; $i++) {
         $row = substr($this->data, $i * $width, $width);
         $out .= $hd->hexdump($row, $indent, $width);
     }
     return $out;
 }
コード例 #2
0
 protected function write($datum, array &$context, &$acc, $type, $dest)
 {
     $output_mode = false;
     if ($dest == '_') {
         $to = ' -> ACC';
         $dest =& $acc;
     } elseif ($dest == '!') {
         $to = ' -> OUT';
         $dest = '';
         $output_mode = true;
     } else {
         $to = ' -> ' . $dest;
         $dest =& $context[$dest];
     }
     switch ($type) {
         case 'r':
             // raw
             $dest = $datum;
             break;
         case 's':
             // string
             $dest = (string) $this->unpackstr($datum);
             break;
         case 'i':
             // int
             $dest = (int) $this->unpacksint($datum);
             break;
         case 'u':
             // int
             $dest = (int) $this->unpackuint($datum);
             break;
         case 'h':
             // hexdump
             $hd = new Hexdumper();
             $dest = trim($hd->hexdump($datum));
             break;
         case 't':
             // timestamp -> date
             $dest = date("Y-m-d H:i:s", (int) $this->unpackuint($datum));
             break;
         case 'f':
             // float
             $dest = (double) $this->unpackfloat($datum);
             break;
         default:
             throw new RuntimeException("Unknown type '{$type}'.");
     }
     if ($output_mode) {
         if ($dest === '') {
             $this->flushBuffer();
         } else {
             $this->out_buffer .= $dest;
         }
     }
     // echo "$dest $to\n";
 }
コード例 #3
0
 public function parseFromFile($fp)
 {
     // It looks like newer Serato sometimes allocates large chunks of free space in the file at the end.
     // This doesn't count as data, so we skip it, using str_pad() to make sure we also skip any run of
     // nulls that is shorter than 8 bytes.
     do {
         $header_bin = fread($fp, 8);
         if ($header_bin === false) {
             throw new RuntimeException("Read error; failed to read 8 bytes of chunk header");
         }
         $length_read = strlen($header_bin);
         if ($length_read == 0) {
             L::level(L::DEBUG) && L::log(L::DEBUG, __CLASS__, "Reached EOF; no more to read", array());
             return false;
             // if we read an exact chunk, it's not an 'eof'.
         }
         $just_blank_bytes = str_pad($header_bin, 8, "") == "";
         if ($just_blank_bytes) {
             L::level(L::WARNING) && L::log(L::WARNING, __CLASS__, "Hit unallocated blank space in file.", array());
             // argh. Attempt to resync the stream to the next oent.
             // it looks like Serato sometimes has junk after the free space!
             if (!$this->resync($fp)) {
                 // eof.
                 return false;
             }
         }
     } while ($just_blank_bytes);
     if ($length_read < 8) {
         throw new OutOfBoundsException("No more data (read {$length_read} bytes)");
     }
     list($chunk_type, $chunk_size) = $this->parseHeader($header_bin);
     if ($chunk_size > 1048576) {
         // a chunk larger than 1Mb!?
         $chunk_size = number_format($chunk_size / 1024 / 1024, 2);
         $dumper = new Hexdumper();
         throw new RuntimeException(sprintf("Found chunk claiming to be enormous ({$chunk_size} MiB); are you reading the right file?\n%s", $dumper->hexdump($header_bin)));
     }
     if ($chunk_size > 0) {
         $body_bin = fread($fp, $chunk_size);
         $chunk = $this->chunk_factory->newChunk($chunk_type, $body_bin);
         L::level(L::DEBUG) && L::log(L::DEBUG, __CLASS__, "Read %s chunk from file (size: %d)", array($chunk_type, $chunk_size));
     } else {
         $chunk = '';
         L::level(L::WARNING) && L::log(L::WARNING, __CLASS__, "Read 0-byte %s chunk from file. This is unusual.", array($chunk_type));
     }
     return $chunk;
 }