Server : LiteSpeed System : Linux premium84.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64 User : claqxcrl ( 523) PHP Version : 8.1.32 Disable Function : NONE Directory : /home/claqxcrl/anfangola.com/wp-content/plugins/matomo/app/vendor/tecnickcom/tcpdf/ |
<?php
namespace {
//============================================================+
// File name : tcpdf_parser.php
// Version : 1.0.16
// Begin : 2011-05-23
// Last Update : 2015-04-28
// Author : Nicola Asuni - Tecnick.com LTD - www.tecnick.com - info@tecnick.com
// License : http://www.tecnick.com/pagefiles/tcpdf/LICENSE.TXT GNU-LGPLv3
// -------------------------------------------------------------------
// Copyright (C) 2011-2015 Nicola Asuni - Tecnick.com LTD
//
// This file is part of TCPDF software library.
//
// TCPDF is free software: you can redistribute it and/or modify it
// under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation, either version 3 of the
// License, or (at your option) any later version.
//
// TCPDF is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// You should have received a copy of the License
// along with TCPDF. If not, see
// <http://www.tecnick.com/pagefiles/tcpdf/LICENSE.TXT>.
//
// See LICENSE.TXT file for more information.
// -------------------------------------------------------------------
//
// Description : This is a PHP class for parsing PDF documents.
//
//============================================================+
/**
* @file
* This is a PHP class for parsing PDF documents.<br>
* @package com.tecnick.tcpdf
* @author Nicola Asuni
* @version 1.0.15
*/
// include class for decoding filters
require_once \dirname(__FILE__) . '/include/tcpdf_filters.php';
/**
* @class TCPDF_PARSER
* This is a PHP class for parsing PDF documents.<br>
* @package com.tecnick.tcpdf
* @brief This is a PHP class for parsing PDF documents..
* @version 1.0.15
* @author Nicola Asuni - info@tecnick.com
*/
class TCPDF_PARSER
{
/**
* Raw content of the PDF document.
* @private
*/
private $pdfdata = '';
/**
* XREF data.
* @protected
*/
protected $xref = array();
/**
* Array of PDF objects.
* @protected
*/
protected $objects = array();
/**
* Class object for decoding filters.
* @private
*/
private $FilterDecoders;
/**
* Array of configuration parameters.
* @private
*/
private $cfg = array('die_for_errors' => \false, 'ignore_filter_decoding_errors' => \true, 'ignore_missing_filter_decoders' => \true);
// -----------------------------------------------------------------------------
/**
* Parse a PDF document an return an array of objects.
* @param string $data PDF data to parse.
* @param array $cfg Array of configuration parameters:
* 'die_for_errors' : if true termitate the program execution in case of error, otherwise thows an exception;
* 'ignore_filter_decoding_errors' : if true ignore filter decoding errors;
* 'ignore_missing_filter_decoders' : if true ignore missing filter decoding errors.
* @public
* @since 1.0.000 (2011-05-24)
*/
public function __construct($data, $cfg = array())
{
if (empty($data)) {
$this->Error('Empty PDF data.');
}
// find the pdf header starting position
if (($trimpos = \strpos($data, '%PDF-')) === \FALSE) {
$this->Error('Invalid PDF data: missing %PDF header.');
}
// get PDF content string
$this->pdfdata = \substr($data, $trimpos);
// get length
$pdflen = \strlen($this->pdfdata);
// set configuration parameters
$this->setConfig($cfg);
// get xref and trailer data
$this->xref = $this->getXrefData();
// parse all document objects
$this->objects = array();
foreach ($this->xref['xref'] as $obj => $offset) {
if (!isset($this->objects[$obj]) and $offset > 0) {
// decode objects with positive offset
$this->objects[$obj] = $this->getIndirectObject($obj, $offset, \true);
}
}
// release some memory
unset($this->pdfdata);
$this->pdfdata = '';
}
/**
* Set the configuration parameters.
* @param array $cfg Array of configuration parameters:
* 'die_for_errors' : if true termitate the program execution in case of error, otherwise thows an exception;
* 'ignore_filter_decoding_errors' : if true ignore filter decoding errors;
* 'ignore_missing_filter_decoders' : if true ignore missing filter decoding errors.
* @public
*/
protected function setConfig($cfg)
{
if (isset($cfg['die_for_errors'])) {
$this->cfg['die_for_errors'] = !!$cfg['die_for_errors'];
}
if (isset($cfg['ignore_filter_decoding_errors'])) {
$this->cfg['ignore_filter_decoding_errors'] = !!$cfg['ignore_filter_decoding_errors'];
}
if (isset($cfg['ignore_missing_filter_decoders'])) {
$this->cfg['ignore_missing_filter_decoders'] = !!$cfg['ignore_missing_filter_decoders'];
}
}
/**
* Return an array of parsed PDF document objects.
* @return array Array of parsed PDF document objects.
* @public
* @since 1.0.000 (2011-06-26)
*/
public function getParsedData()
{
return array($this->xref, $this->objects);
}
/**
* Get Cross-Reference (xref) table and trailer data from PDF document data.
* @param int $offset xref offset (if know).
* @param array $xref previous xref array (if any).
* @return array containing xref and trailer data.
* @protected
* @since 1.0.000 (2011-05-24)
*/
protected function getXrefData($offset = 0, $xref = array())
{
if ($offset == 0) {
// find last startxref
if (\preg_match_all('/[\\r\\n]startxref[\\s]*[\\r\\n]+([0-9]+)[\\s]*[\\r\\n]+%%EOF/i', $this->pdfdata, $matches, \PREG_SET_ORDER, $offset) == 0) {
$this->Error('Unable to find startxref');
}
$matches = \array_pop($matches);
$startxref = $matches[1];
} elseif (\strpos($this->pdfdata, 'xref', $offset) == $offset) {
// Already pointing at the xref table
$startxref = $offset;
} elseif (\preg_match('/([0-9]+[\\s][0-9]+[\\s]obj)/i', $this->pdfdata, $matches, \PREG_OFFSET_CAPTURE, $offset)) {
// Cross-Reference Stream object
$startxref = $offset;
} elseif (\preg_match('/[\\r\\n]startxref[\\s]*[\\r\\n]+([0-9]+)[\\s]*[\\r\\n]+%%EOF/i', $this->pdfdata, $matches, \PREG_OFFSET_CAPTURE, $offset)) {
// startxref found
$startxref = $matches[1][0];
} else {
$this->Error('Unable to find startxref');
}
// check xref position
if (\strpos($this->pdfdata, 'xref', $startxref) == $startxref) {
// Cross-Reference
$xref = $this->decodeXref($startxref, $xref);
} else {
// Cross-Reference Stream
$xref = $this->decodeXrefStream($startxref, $xref);
}
if (empty($xref)) {
$this->Error('Unable to find xref');
}
return $xref;
}
/**
* Decode the Cross-Reference section
* @param int $startxref Offset at which the xref section starts (position of the 'xref' keyword).
* @param array $xref Previous xref array (if any).
* @return array containing xref and trailer data.
* @protected
* @since 1.0.000 (2011-06-20)
*/
protected function decodeXref($startxref, $xref = array())
{
$startxref += 4;
// 4 is the length of the word 'xref'
// skip initial white space chars: \x00 null (NUL), \x09 horizontal tab (HT), \x0A line feed (LF), \x0C form feed (FF), \x0D carriage return (CR), \x20 space (SP)
$offset = $startxref + \strspn($this->pdfdata, "\x00\t\n\f\r ", $startxref);
// initialize object number
$obj_num = 0;
// search for cross-reference entries or subsection
while (\preg_match('/([0-9]+)[\\x20]([0-9]+)[\\x20]?([nf]?)(\\r\\n|[\\x20]?[\\r\\n])/', $this->pdfdata, $matches, \PREG_OFFSET_CAPTURE, $offset) > 0) {
if ($matches[0][1] != $offset) {
// we are on another section
break;
}
$offset += \strlen($matches[0][0]);
if ($matches[3][0] == 'n') {
// create unique object index: [object number]_[generation number]
$index = $obj_num . '_' . \intval($matches[2][0]);
// check if object already exist
if (!isset($xref['xref'][$index])) {
// store object offset position
$xref['xref'][$index] = \intval($matches[1][0]);
}
++$obj_num;
} elseif ($matches[3][0] == 'f') {
++$obj_num;
} else {
// object number (index)
$obj_num = \intval($matches[1][0]);
}
}
// get trailer data
if (\preg_match('/trailer[\\s]*<<(.*)>>/isU', $this->pdfdata, $matches, \PREG_OFFSET_CAPTURE, $offset) > 0) {
$trailer_data = $matches[1][0];
if (!isset($xref['trailer']) or empty($xref['trailer'])) {
// get only the last updated version
$xref['trailer'] = array();
// parse trailer_data
if (\preg_match('/Size[\\s]+([0-9]+)/i', $trailer_data, $matches) > 0) {
$xref['trailer']['size'] = \intval($matches[1]);
}
if (\preg_match('/Root[\\s]+([0-9]+)[\\s]+([0-9]+)[\\s]+R/i', $trailer_data, $matches) > 0) {
$xref['trailer']['root'] = \intval($matches[1]) . '_' . \intval($matches[2]);
}
if (\preg_match('/Encrypt[\\s]+([0-9]+)[\\s]+([0-9]+)[\\s]+R/i', $trailer_data, $matches) > 0) {
$xref['trailer']['encrypt'] = \intval($matches[1]) . '_' . \intval($matches[2]);
}
if (\preg_match('/Info[\\s]+([0-9]+)[\\s]+([0-9]+)[\\s]+R/i', $trailer_data, $matches) > 0) {
$xref['trailer']['info'] = \intval($matches[1]) . '_' . \intval($matches[2]);
}
if (\preg_match('/ID[\\s]*[\\[][\\s]*[<]([^>]*)[>][\\s]*[<]([^>]*)[>]/i', $trailer_data, $matches) > 0) {
$xref['trailer']['id'] = array();
$xref['trailer']['id'][0] = $matches[1];
$xref['trailer']['id'][1] = $matches[2];
}
}
if (\preg_match('/Prev[\\s]+([0-9]+)/i', $trailer_data, $matches) > 0) {
// get previous xref
$xref = $this->getXrefData(\intval($matches[1]), $xref);
}
} else {
$this->Error('Unable to find trailer');
}
return $xref;
}
/**
* Decode the Cross-Reference Stream section
* @param int $startxref Offset at which the xref section starts.
* @param array $xref Previous xref array (if any).
* @return array containing xref and trailer data.
* @protected
* @since 1.0.003 (2013-03-16)
*/
protected function decodeXrefStream($startxref, $xref = array())
{
// try to read Cross-Reference Stream
$xrefobj = $this->getRawObject($startxref);
$xrefcrs = $this->getIndirectObject($xrefobj[1], $startxref, \true);
if (!isset($xref['trailer']) or empty($xref['trailer'])) {
// get only the last updated version
$xref['trailer'] = array();
$filltrailer = \true;
} else {
$filltrailer = \false;
}
if (!isset($xref['xref'])) {
$xref['xref'] = array();
}
$valid_crs = \false;
$columns = 0;
$sarr = $xrefcrs[0][1];
if (!\is_array($sarr)) {
$sarr = array();
}
foreach ($sarr as $k => $v) {
if ($v[0] == '/' and $v[1] == 'Type' and (isset($sarr[$k + 1]) and $sarr[$k + 1][0] == '/' and $sarr[$k + 1][1] == 'XRef')) {
$valid_crs = \true;
} elseif ($v[0] == '/' and $v[1] == 'Index' and isset($sarr[$k + 1])) {
// first object number in the subsection
$index_first = \intval($sarr[$k + 1][1][0][1]);
// number of entries in the subsection
$index_entries = \intval($sarr[$k + 1][1][1][1]);
} elseif ($v[0] == '/' and $v[1] == 'Prev' and (isset($sarr[$k + 1]) and $sarr[$k + 1][0] == 'numeric')) {
// get previous xref offset
$prevxref = \intval($sarr[$k + 1][1]);
} elseif ($v[0] == '/' and $v[1] == 'W' and isset($sarr[$k + 1])) {
// number of bytes (in the decoded stream) of the corresponding field
$wb = array();
$wb[0] = \intval($sarr[$k + 1][1][0][1]);
$wb[1] = \intval($sarr[$k + 1][1][1][1]);
$wb[2] = \intval($sarr[$k + 1][1][2][1]);
} elseif ($v[0] == '/' and $v[1] == 'DecodeParms' and isset($sarr[$k + 1][1])) {
$decpar = $sarr[$k + 1][1];
foreach ($decpar as $kdc => $vdc) {
if ($vdc[0] == '/' and $vdc[1] == 'Columns' and (isset($decpar[$kdc + 1]) and $decpar[$kdc + 1][0] == 'numeric')) {
$columns = \intval($decpar[$kdc + 1][1]);
} elseif ($vdc[0] == '/' and $vdc[1] == 'Predictor' and (isset($decpar[$kdc + 1]) and $decpar[$kdc + 1][0] == 'numeric')) {
$predictor = \intval($decpar[$kdc + 1][1]);
}
}
} elseif ($filltrailer) {
if ($v[0] == '/' and $v[1] == 'Size' and (isset($sarr[$k + 1]) and $sarr[$k + 1][0] == 'numeric')) {
$xref['trailer']['size'] = $sarr[$k + 1][1];
} elseif ($v[0] == '/' and $v[1] == 'Root' and (isset($sarr[$k + 1]) and $sarr[$k + 1][0] == 'objref')) {
$xref['trailer']['root'] = $sarr[$k + 1][1];
} elseif ($v[0] == '/' and $v[1] == 'Info' and (isset($sarr[$k + 1]) and $sarr[$k + 1][0] == 'objref')) {
$xref['trailer']['info'] = $sarr[$k + 1][1];
} elseif ($v[0] == '/' and $v[1] == 'Encrypt' and (isset($sarr[$k + 1]) and $sarr[$k + 1][0] == 'objref')) {
$xref['trailer']['encrypt'] = $sarr[$k + 1][1];
} elseif ($v[0] == '/' and $v[1] == 'ID' and isset($sarr[$k + 1])) {
$xref['trailer']['id'] = array();
$xref['trailer']['id'][0] = $sarr[$k + 1][1][0][1];
$xref['trailer']['id'][1] = $sarr[$k + 1][1][1][1];
}
}
}
// decode data
if ($valid_crs and isset($xrefcrs[1][3][0])) {
// number of bytes in a row
$rowlen = $columns + 1;
// convert the stream into an array of integers
$sdata = \unpack('C*', $xrefcrs[1][3][0]);
// split the rows
$sdata = \array_chunk($sdata, $rowlen);
// initialize decoded array
$ddata = array();
// initialize first row with zeros
$prev_row = \array_fill(0, $rowlen, 0);
// for each row apply PNG unpredictor
foreach ($sdata as $k => $row) {
// initialize new row
$ddata[$k] = array();
// get PNG predictor value
$predictor = 10 + $row[0];
// for each byte on the row
for ($i = 1; $i <= $columns; ++$i) {
// new index
$j = $i - 1;
$row_up = $prev_row[$j];
if ($i == 1) {
$row_left = 0;
$row_upleft = 0;
} else {
$row_left = $row[$i - 1];
$row_upleft = $prev_row[$j - 1];
}
switch ($predictor) {
case 10:
// PNG prediction (on encoding, PNG None on all rows)
$ddata[$k][$j] = $row[$i];
break;
case 11:
// PNG prediction (on encoding, PNG Sub on all rows)
$ddata[$k][$j] = $row[$i] + $row_left & 0xff;
break;
case 12:
// PNG prediction (on encoding, PNG Up on all rows)
$ddata[$k][$j] = $row[$i] + $row_up & 0xff;
break;
case 13:
// PNG prediction (on encoding, PNG Average on all rows)
$ddata[$k][$j] = $row[$i] + ($row_left + $row_up) / 2 & 0xff;
break;
case 14:
// PNG prediction (on encoding, PNG Paeth on all rows)
// initial estimate
$p = $row_left + $row_up - $row_upleft;
// distances
$pa = \abs($p - $row_left);
$pb = \abs($p - $row_up);
$pc = \abs($p - $row_upleft);
$pmin = \min($pa, $pb, $pc);
// return minimum distance
switch ($pmin) {
case $pa:
$ddata[$k][$j] = $row[$i] + $row_left & 0xff;
break;
case $pb:
$ddata[$k][$j] = $row[$i] + $row_up & 0xff;
break;
case $pc:
$ddata[$k][$j] = $row[$i] + $row_upleft & 0xff;
break;
}
break;
default:
// PNG prediction (on encoding, PNG optimum)
$this->Error('Unknown PNG predictor');
break;
}
}
$prev_row = $ddata[$k];
}
// end for each row
// complete decoding
$sdata = array();
// for every row
foreach ($ddata as $k => $row) {
// initialize new row
$sdata[$k] = array(0, 0, 0);
if ($wb[0] == 0) {
// default type field
$sdata[$k][0] = 1;
}
$i = 0;
// count bytes in the row
// for every column
for ($c = 0; $c < 3; ++$c) {
// for every byte on the column
for ($b = 0; $b < $wb[$c]; ++$b) {
if (isset($row[$i])) {
$sdata[$k][$c] += $row[$i] << ($wb[$c] - 1 - $b) * 8;
}
++$i;
}
}
}
$ddata = array();
// fill xref
if (isset($index_first)) {
$obj_num = $index_first;
} else {
$obj_num = 0;
}
foreach ($sdata as $k => $row) {
switch ($row[0]) {
case 0:
// (f) linked list of free objects
break;
case 1:
// (n) objects that are in use but are not compressed
// create unique object index: [object number]_[generation number]
$index = $obj_num . '_' . $row[2];
// check if object already exist
if (!isset($xref['xref'][$index])) {
// store object offset position
$xref['xref'][$index] = $row[1];
}
break;
case 2:
// compressed objects
// $row[1] = object number of the object stream in which this object is stored
// $row[2] = index of this object within the object stream
$index = $row[1] . '_0_' . $row[2];
$xref['xref'][$index] = -1;
break;
default:
// null objects
break;
}
++$obj_num;
}
}
// end decoding data
if (isset($prevxref)) {
// get previous xref
$xref = $this->getXrefData($prevxref, $xref);
}
return $xref;
}
/**
* Get object type, raw value and offset to next object
* @param int $offset Object offset.
* @return array containing object type, raw value and offset to next object
* @protected
* @since 1.0.000 (2011-06-20)
*/
protected function getRawObject($offset = 0)
{
$objtype = '';
// object type to be returned
$objval = '';
// object value to be returned
// skip initial white space chars: \x00 null (NUL), \x09 horizontal tab (HT), \x0A line feed (LF), \x0C form feed (FF), \x0D carriage return (CR), \x20 space (SP)
$offset += \strspn($this->pdfdata, "\x00\t\n\f\r ", $offset);
// get first char
$char = $this->pdfdata[$offset];
// get object type
switch ($char) {
case '%':
// \x25 PERCENT SIGN
// skip comment and search for next token
$next = \strcspn($this->pdfdata, "\r\n", $offset);
if ($next > 0) {
$offset += $next;
return $this->getRawObject($offset);
}
break;
case '/':
// \x2F SOLIDUS
// name object
$objtype = $char;
++$offset;
if (\preg_match('/^([^\\x00\\x09\\x0a\\x0c\\x0d\\x20\\s\\x28\\x29\\x3c\\x3e\\x5b\\x5d\\x7b\\x7d\\x2f\\x25]+)/', \substr($this->pdfdata, $offset, 256), $matches) == 1) {
$objval = $matches[1];
// unescaped value
$offset += \strlen($objval);
}
break;
case '(':
// \x28 LEFT PARENTHESIS
case ')':
// \x29 RIGHT PARENTHESIS
// literal string object
$objtype = $char;
++$offset;
$strpos = $offset;
if ($char == '(') {
$open_bracket = 1;
while ($open_bracket > 0) {
if (!isset($this->pdfdata[$strpos])) {
break;
}
$ch = $this->pdfdata[$strpos];
switch ($ch) {
case '\\':
// REVERSE SOLIDUS (5Ch) (Backslash)
// skip next character
++$strpos;
break;
case '(':
// LEFT PARENHESIS (28h)
++$open_bracket;
break;
case ')':
// RIGHT PARENTHESIS (29h)
--$open_bracket;
break;
}
++$strpos;
}
$objval = \substr($this->pdfdata, $offset, $strpos - $offset - 1);
$offset = $strpos;
}
break;
case '[':
// \x5B LEFT SQUARE BRACKET
case ']':
// \x5D RIGHT SQUARE BRACKET
// array object
$objtype = $char;
++$offset;
if ($char == '[') {
// get array content
$objval = array();
do {
// get element
$element = $this->getRawObject($offset);
$offset = $element[2];
$objval[] = $element;
} while ($element[0] != ']');
// remove closing delimiter
\array_pop($objval);
}
break;
case '<':
// \x3C LESS-THAN SIGN
case '>':
// \x3E GREATER-THAN SIGN
if (isset($this->pdfdata[$offset + 1]) and $this->pdfdata[$offset + 1] == $char) {
// dictionary object
$objtype = $char . $char;
$offset += 2;
if ($char == '<') {
// get array content
$objval = array();
do {
// get element
$element = $this->getRawObject($offset);
$offset = $element[2];
$objval[] = $element;
} while ($element[0] != '>>');
// remove closing delimiter
\array_pop($objval);
}
} else {
// hexadecimal string object
$objtype = $char;
++$offset;
if ($char == '<' and \preg_match('/^([0-9A-Fa-f\\x09\\x0a\\x0c\\x0d\\x20]+)>/iU', \substr($this->pdfdata, $offset), $matches) == 1) {
// remove white space characters
$objval = \strtr($matches[1], "\t\n\f\r ", '');
$offset += \strlen($matches[0]);
} elseif (($endpos = \strpos($this->pdfdata, '>', $offset)) !== \FALSE) {
$offset = $endpos + 1;
}
}
break;
default:
if (\substr($this->pdfdata, $offset, 6) == 'endobj') {
// indirect object
$objtype = 'endobj';
$offset += 6;
} elseif (\substr($this->pdfdata, $offset, 4) == 'null') {
// null object
$objtype = 'null';
$offset += 4;
$objval = 'null';
} elseif (\substr($this->pdfdata, $offset, 4) == 'true') {
// boolean true object
$objtype = 'boolean';
$offset += 4;
$objval = 'true';
} elseif (\substr($this->pdfdata, $offset, 5) == 'false') {
// boolean false object
$objtype = 'boolean';
$offset += 5;
$objval = 'false';
} elseif (\substr($this->pdfdata, $offset, 6) == 'stream') {
// start stream object
$objtype = 'stream';
$offset += 6;
if (\preg_match('/^([\\r]?[\\n])/isU', \substr($this->pdfdata, $offset), $matches) == 1) {
$offset += \strlen($matches[0]);
if (\preg_match('/(endstream)[\\x09\\x0a\\x0c\\x0d\\x20]/isU', \substr($this->pdfdata, $offset), $matches, \PREG_OFFSET_CAPTURE) == 1) {
$objval = \substr($this->pdfdata, $offset, $matches[0][1]);
$offset += $matches[1][1];
}
}
} elseif (\substr($this->pdfdata, $offset, 9) == 'endstream') {
// end stream object
$objtype = 'endstream';
$offset += 9;
} elseif (\preg_match('/^([0-9]+)[\\s]+([0-9]+)[\\s]+R/iU', \substr($this->pdfdata, $offset, 33), $matches) == 1) {
// indirect object reference
$objtype = 'objref';
$offset += \strlen($matches[0]);
$objval = \intval($matches[1]) . '_' . \intval($matches[2]);
} elseif (\preg_match('/^([0-9]+)[\\s]+([0-9]+)[\\s]+obj/iU', \substr($this->pdfdata, $offset, 33), $matches) == 1) {
// object start
$objtype = 'obj';
$objval = \intval($matches[1]) . '_' . \intval($matches[2]);
$offset += \strlen($matches[0]);
} elseif (($numlen = \strspn($this->pdfdata, '+-.0123456789', $offset)) > 0) {
// numeric object
$objtype = 'numeric';
$objval = \substr($this->pdfdata, $offset, $numlen);
$offset += $numlen;
}
break;
}
return array($objtype, $objval, $offset);
}
/**
* Get content of indirect object.
* @param string $obj_ref Object number and generation number separated by underscore character.
* @param int $offset Object offset.
* @param boolean $decoding If true decode streams.
* @return array containing object data.
* @protected
* @since 1.0.000 (2011-05-24)
*/
protected function getIndirectObject($obj_ref, $offset = 0, $decoding = \true)
{
$obj = \explode('_', $obj_ref);
if ($obj === \false or \count($obj) != 2) {
$this->Error('Invalid object reference: ' . $obj);
return;
}
$objref = $obj[0] . ' ' . $obj[1] . ' obj';
// ignore leading zeros
$offset += \strspn($this->pdfdata, '0', $offset);
if (\strpos($this->pdfdata, $objref, $offset) != $offset) {
// an indirect reference to an undefined object shall be considered a reference to the null object
return array('null', 'null', $offset);
}
// starting position of object content
$offset += \strlen($objref);
// get array of object content
$objdata = array();
$i = 0;
// object main index
do {
$oldoffset = $offset;
// get element
$element = $this->getRawObject($offset);
$offset = $element[2];
// decode stream using stream's dictionary information
if ($decoding and $element[0] == 'stream' and isset($objdata[$i - 1][0]) and $objdata[$i - 1][0] == '<<') {
$element[3] = $this->decodeStream($objdata[$i - 1][1], $element[1]);
}
$objdata[$i] = $element;
++$i;
} while ($element[0] != 'endobj' and $offset != $oldoffset);
// remove closing delimiter
\array_pop($objdata);
// return raw object content
return $objdata;
}
/**
* Get the content of object, resolving indect object reference if necessary.
* @param string $obj Object value.
* @return array containing object data.
* @protected
* @since 1.0.000 (2011-06-26)
*/
protected function getObjectVal($obj)
{
if ($obj[0] == 'objref') {
// reference to indirect object
if (isset($this->objects[$obj[1]])) {
// this object has been already parsed
return $this->objects[$obj[1]];
} elseif (isset($this->xref[$obj[1]])) {
// parse new object
$this->objects[$obj[1]] = $this->getIndirectObject($obj[1], $this->xref[$obj[1]], \false);
return $this->objects[$obj[1]];
}
}
return $obj;
}
/**
* Decode the specified stream.
* @param array $sdic Stream's dictionary array.
* @param string $stream Stream to decode.
* @return array containing decoded stream data and remaining filters.
* @protected
* @since 1.0.000 (2011-06-22)
*/
protected function decodeStream($sdic, $stream)
{
// get stream length and filters
$slength = \strlen($stream);
if ($slength <= 0) {
return array('', array());
}
$filters = array();
foreach ($sdic as $k => $v) {
if ($v[0] == '/') {
if ($v[1] == 'Length' and isset($sdic[$k + 1]) and $sdic[$k + 1][0] == 'numeric') {
// get declared stream length
$declength = \intval($sdic[$k + 1][1]);
if ($declength < $slength) {
$stream = \substr($stream, 0, $declength);
$slength = $declength;
}
} elseif ($v[1] == 'Filter' and isset($sdic[$k + 1])) {
// resolve indirect object
$objval = $this->getObjectVal($sdic[$k + 1]);
if ($objval[0] == '/') {
// single filter
$filters[] = $objval[1];
} elseif ($objval[0] == '[') {
// array of filters
foreach ($objval[1] as $flt) {
if ($flt[0] == '/') {
$filters[] = $flt[1];
}
}
}
}
}
}
// decode the stream
$remaining_filters = array();
foreach ($filters as $filter) {
if (\in_array($filter, \TCPDF_FILTERS::getAvailableFilters())) {
try {
$stream = \TCPDF_FILTERS::decodeFilter($filter, $stream);
} catch (\Exception $e) {
$emsg = $e->getMessage();
if ($emsg[0] == '~' and !$this->cfg['ignore_missing_filter_decoders'] or $emsg[0] != '~' and !$this->cfg['ignore_filter_decoding_errors']) {
$this->Error($e->getMessage());
}
}
} else {
// add missing filter to array
$remaining_filters[] = $filter;
}
}
return array($stream, $remaining_filters);
}
/**
* Throw an exception or print an error message and die if the K_TCPDF_PARSER_THROW_EXCEPTION_ERROR constant is set to true.
* @param string $msg The error message
* @public
* @since 1.0.000 (2011-05-23)
*/
public function Error($msg)
{
if ($this->cfg['die_for_errors']) {
die('<strong>TCPDF_PARSER ERROR: </strong>' . $msg);
} else {
throw new \Exception('TCPDF_PARSER ERROR: ' . $msg);
}
}
}
// END OF TCPDF_PARSER CLASS
//============================================================+
// END OF FILE
//============================================================+
}