bb34668146
This is preparatory to providing support for workbook properties (and extended properties) in the Excel5 Writer, because properties are stored in the SummaryInformation and DocumentSummaryInformation streams, and not in the workbook stream. Previously, PHP_OLE could only save a single stream, so this had to be the workbook stream; so document property information was discarded by the Excel5 Writer. git-svn-id: https://phpexcel.svn.codeplex.com/svn/trunk@77804 2327b42d-5241-43d6-9e2a-de5ac946f064
231 lines
6.5 KiB
PHP
231 lines
6.5 KiB
PHP
<?php
|
|
/* vim: set expandtab tabstop=4 shiftwidth=4: */
|
|
// +----------------------------------------------------------------------+
|
|
// | PHP Version 4 |
|
|
// +----------------------------------------------------------------------+
|
|
// | Copyright (c) 1997-2002 The PHP Group |
|
|
// +----------------------------------------------------------------------+
|
|
// | This source file is subject to version 2.02 of the PHP license, |
|
|
// | that is bundled with this package in the file LICENSE, and is |
|
|
// | available at through the world-wide-web at |
|
|
// | http://www.php.net/license/2_02.txt. |
|
|
// | If you did not receive a copy of the PHP license and are unable to |
|
|
// | obtain it through the world-wide-web, please send a note to |
|
|
// | license@php.net so we can mail you a copy immediately. |
|
|
// +----------------------------------------------------------------------+
|
|
// | Author: Xavier Noguer <xnoguer@php.net> |
|
|
// | Based on OLE::Storage_Lite by Kawai, Takanori |
|
|
// +----------------------------------------------------------------------+
|
|
//
|
|
// $Id: PPS.php,v 1.7 2007/02/13 21:00:42 schmidt Exp $
|
|
|
|
|
|
/**
|
|
* Class for creating PPS's for OLE containers
|
|
*
|
|
* @author Xavier Noguer <xnoguer@php.net>
|
|
* @category PHPExcel
|
|
* @package PHPExcel_Shared_OLE
|
|
*/
|
|
class PHPExcel_Shared_OLE_PPS
|
|
{
|
|
/**
|
|
* The PPS index
|
|
* @var integer
|
|
*/
|
|
public $No;
|
|
|
|
/**
|
|
* The PPS name (in Unicode)
|
|
* @var string
|
|
*/
|
|
public $Name;
|
|
|
|
/**
|
|
* The PPS type. Dir, Root or File
|
|
* @var integer
|
|
*/
|
|
public $Type;
|
|
|
|
/**
|
|
* The index of the previous PPS
|
|
* @var integer
|
|
*/
|
|
public $PrevPps;
|
|
|
|
/**
|
|
* The index of the next PPS
|
|
* @var integer
|
|
*/
|
|
public $NextPps;
|
|
|
|
/**
|
|
* The index of it's first child if this is a Dir or Root PPS
|
|
* @var integer
|
|
*/
|
|
public $DirPps;
|
|
|
|
/**
|
|
* A timestamp
|
|
* @var integer
|
|
*/
|
|
public $Time1st;
|
|
|
|
/**
|
|
* A timestamp
|
|
* @var integer
|
|
*/
|
|
public $Time2nd;
|
|
|
|
/**
|
|
* Starting block (small or big) for this PPS's data inside the container
|
|
* @var integer
|
|
*/
|
|
public $_StartBlock;
|
|
|
|
/**
|
|
* The size of the PPS's data (in bytes)
|
|
* @var integer
|
|
*/
|
|
public $Size;
|
|
|
|
/**
|
|
* The PPS's data (only used if it's not using a temporary file)
|
|
* @var string
|
|
*/
|
|
public $_data;
|
|
|
|
/**
|
|
* Array of child PPS's (only used by Root and Dir PPS's)
|
|
* @var array
|
|
*/
|
|
public $children = array();
|
|
|
|
/**
|
|
* Pointer to OLE container
|
|
* @var OLE
|
|
*/
|
|
public $ole;
|
|
|
|
/**
|
|
* The constructor
|
|
*
|
|
* @access public
|
|
* @param integer $No The PPS index
|
|
* @param string $name The PPS name
|
|
* @param integer $type The PPS type. Dir, Root or File
|
|
* @param integer $prev The index of the previous PPS
|
|
* @param integer $next The index of the next PPS
|
|
* @param integer $dir The index of it's first child if this is a Dir or Root PPS
|
|
* @param integer $time_1st A timestamp
|
|
* @param integer $time_2nd A timestamp
|
|
* @param string $data The (usually binary) source data of the PPS
|
|
* @param array $children Array containing children PPS for this PPS
|
|
*/
|
|
public function __construct($No, $name, $type, $prev, $next, $dir, $time_1st, $time_2nd, $data, $children)
|
|
{
|
|
$this->No = $No;
|
|
$this->Name = $name;
|
|
$this->Type = $type;
|
|
$this->PrevPps = $prev;
|
|
$this->NextPps = $next;
|
|
$this->DirPps = $dir;
|
|
$this->Time1st = $time_1st;
|
|
$this->Time2nd = $time_2nd;
|
|
$this->_data = $data;
|
|
$this->children = $children;
|
|
if ($data != '') {
|
|
$this->Size = strlen($data);
|
|
} else {
|
|
$this->Size = 0;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Returns the amount of data saved for this PPS
|
|
*
|
|
* @access public
|
|
* @return integer The amount of data (in bytes)
|
|
*/
|
|
public function _DataLen()
|
|
{
|
|
if (!isset($this->_data)) {
|
|
return 0;
|
|
}
|
|
//if (isset($this->_PPS_FILE)) {
|
|
// fseek($this->_PPS_FILE, 0);
|
|
// $stats = fstat($this->_PPS_FILE);
|
|
// return $stats[7];
|
|
//} else {
|
|
return strlen($this->_data);
|
|
//}
|
|
}
|
|
|
|
/**
|
|
* Returns a string with the PPS's WK (What is a WK?)
|
|
*
|
|
* @access public
|
|
* @return string The binary string
|
|
*/
|
|
public function _getPpsWk()
|
|
{
|
|
$ret = str_pad($this->Name,64,"\x00");
|
|
|
|
$ret .= pack("v", strlen($this->Name) + 2) // 66
|
|
. pack("c", $this->Type) // 67
|
|
. pack("c", 0x00) //UK // 68
|
|
. pack("V", $this->PrevPps) //Prev // 72
|
|
. pack("V", $this->NextPps) //Next // 76
|
|
. pack("V", $this->DirPps) //Dir // 80
|
|
. "\x00\x09\x02\x00" // 84
|
|
. "\x00\x00\x00\x00" // 88
|
|
. "\xc0\x00\x00\x00" // 92
|
|
. "\x00\x00\x00\x46" // 96 // Seems to be ok only for Root
|
|
. "\x00\x00\x00\x00" // 100
|
|
. PHPExcel_Shared_OLE::LocalDate2OLE($this->Time1st) // 108
|
|
. PHPExcel_Shared_OLE::LocalDate2OLE($this->Time2nd) // 116
|
|
. pack("V", isset($this->_StartBlock)?
|
|
$this->_StartBlock:0) // 120
|
|
. pack("V", $this->Size) // 124
|
|
. pack("V", 0); // 128
|
|
return $ret;
|
|
}
|
|
|
|
/**
|
|
* Updates index and pointers to previous, next and children PPS's for this
|
|
* PPS. I don't think it'll work with Dir PPS's.
|
|
*
|
|
* @access public
|
|
* @param array &$raList Reference to the array of PPS's for the whole OLE
|
|
* container
|
|
* @return integer The index for this PPS
|
|
*/
|
|
public static function _savePpsSetPnt(&$raList, $to_save, $depth = 0)
|
|
{
|
|
if ( !is_array($to_save) || (count($to_save) == 0) ) {
|
|
return 0xFFFFFFFF;
|
|
} elseif( count($to_save) == 1 ) {
|
|
$cnt = count($raList);
|
|
// If the first entry, it's the root... Don't clone it!
|
|
$raList[$cnt] = ( $depth == 0 ) ? $to_save[0] : clone $to_save[0];
|
|
$raList[$cnt]->No = $cnt;
|
|
$raList[$cnt]->PrevPps = 0xFFFFFFFF;
|
|
$raList[$cnt]->NextPps = 0xFFFFFFFF;
|
|
$raList[$cnt]->DirPps = self::_savePpsSetPnt($raList, @$raList[$cnt]->children, $depth++);
|
|
} else {
|
|
$iPos = floor(count($to_save) / 2);
|
|
$aPrev = array_slice($to_save, 0, $iPos);
|
|
$aNext = array_slice($to_save, $iPos + 1);
|
|
$cnt = count($raList);
|
|
// If the first entry, it's the root... Don't clone it!
|
|
$raList[$cnt] = ( $depth == 0 ) ? $to_save[$iPos] : clone $to_save[$iPos];
|
|
$raList[$cnt]->No = $cnt;
|
|
$raList[$cnt]->PrevPps = self::_savePpsSetPnt($raList, $aPrev, $depth++);
|
|
$raList[$cnt]->NextPps = self::_savePpsSetPnt($raList, $aNext, $depth++);
|
|
$raList[$cnt]->DirPps = self::_savePpsSetPnt($raList, @$raList[$cnt]->children, $depth++);
|
|
|
|
}
|
|
return $cnt;
|
|
}
|
|
}
|