diff -r 5b37998e522e -r 162c1de6545a web/lib/Zend/Serializer/Adapter/PythonPickle.php
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/web/lib/Zend/Serializer/Adapter/PythonPickle.php	Fri Mar 11 15:05:35 2011 +0100
@@ -0,0 +1,1494 @@
+<?php
+/**
+ * Zend Framework
+ *
+ * LICENSE
+ *
+ * This source file is subject to the new BSD license that is bundled
+ * with this package in the file LICENSE.txt.
+ * It is also available through the world-wide-web at this URL:
+ * http://framework.zend.com/license/new-bsd
+ * If you did not receive a copy of the license and are unable to
+ * obtain it through the world-wide-web, please send an email
+ * to license@zend.com so we can send you a copy immediately.
+ *
+ * @category   Zend
+ * @package    Zend_Serializer
+ * @subpackage Adapter
+ * @copyright  Copyright (c) 2005-2010 Zend Technologies USA Inc. (http://www.zend.com)
+ * @license    http://framework.zend.com/license/new-bsd     New BSD License
+ * @version    $Id: PythonPickle.php 21187 2010-02-24 01:22:01Z stas $
+ */
+
+/** @see Zend_Serializer_Adapter_AdapterAbstract */
+require_once 'Zend/Serializer/Adapter/AdapterAbstract.php';
+
+/**
+ * @link       http://www.python.org
+ * @see        Phython3.1/Lib/pickle.py
+ * @see        Phython3.1/Modules/_pickle.c
+ * @link       http://pickle-js.googlecode.com
+ * @category   Zend
+ * @package    Zend_Serializer
+ * @subpackage Adapter
+ * @copyright  Copyright (c) 2005-2010 Zend Technologies USA Inc. (http://www.zend.com)
+ * @license    http://framework.zend.com/license/new-bsd     New BSD License
+ */
+class Zend_Serializer_Adapter_PythonPickle extends Zend_Serializer_Adapter_AdapterAbstract
+{
+    /* Pickle opcodes. See pickletools.py for extensive docs.  The listing
+       here is in kind-of alphabetical order of 1-character pickle code.
+       pickletools groups them by purpose. */
+    const OP_MARK            = '(';     // push special markobject on stack
+    const OP_STOP            = '.';     // every pickle ends with STOP
+    const OP_POP             = '0';     // discard topmost stack item
+    const OP_POP_MARK        = '1';     // discard stack top through topmost markobject
+    const OP_DUP             = '2';     // duplicate top stack item
+    const OP_FLOAT           = 'F';     // push float object; decimal string argument
+    const OP_INT             = 'I';     // push integer or bool; decimal string argument
+    const OP_BININT          = 'J';     // push four-byte signed int
+    const OP_BININT1         = 'K';     // push 1-byte unsigned int
+    const OP_LONG            = 'L';     // push long; decimal string argument
+    const OP_BININT2         = 'M';     // push 2-byte unsigned int
+    const OP_NONE            = 'N';     // push None
+    const OP_PERSID          = 'P';     // push persistent object; id is taken from string arg
+    const OP_BINPERSID       = 'Q';     //  "       "         "  ;  "  "   "     "  stack
+    const OP_REDUCE          = 'R';     // apply callable to argtuple, both on stack
+    const OP_STRING          = 'S';     // push string; NL-terminated string argument
+    const OP_BINSTRING       = 'T';     // push string; counted binary string argument
+    const OP_SHORT_BINSTRING = 'U';     //  "     "   ;    "      "       "      " < 256 bytes
+    const OP_UNICODE         = 'V';     // push Unicode string; raw-unicode-escaped'd argument
+    const OP_BINUNICODE      = 'X';     //   "     "       "  ; counted UTF-8 string argument
+    const OP_APPEND          = 'a';     // append stack top to list below it
+    const OP_BUILD           = 'b';     // call __setstate__ or __dict__.update()
+    const OP_GLOBAL          = 'c';     // push self.find_class(modname, name); 2 string args
+    const OP_DICT            = 'd';     // build a dict from stack items
+    const OP_EMPTY_DICT      = '}';     // push empty dict
+    const OP_APPENDS         = 'e';     // extend list on stack by topmost stack slice
+    const OP_GET             = 'g';     // push item from memo on stack; index is string arg
+    const OP_BINGET          = 'h';     //   "    "    "    "   "   "  ;   "    " 1-byte arg
+    const OP_INST            = 'i';     // build & push class instance
+    const OP_LONG_BINGET     = 'j';     // push item from memo on stack; index is 4-byte arg
+    const OP_LIST            = 'l';     // build list from topmost stack items
+    const OP_EMPTY_LIST      = ']';     // push empty list
+    const OP_OBJ             = 'o';     // build & push class instance
+    const OP_PUT             = 'p';     // store stack top in memo; index is string arg
+    const OP_BINPUT          = 'q';     //   "     "    "   "   " ;   "    " 1-byte arg
+    const OP_LONG_BINPUT     = 'r';     //   "     "    "   "   " ;   "    " 4-byte arg
+    const OP_SETITEM         = 's';     // add key+value pair to dict
+    const OP_TUPLE           = 't';     // build tuple from topmost stack items
+    const OP_EMPTY_TUPLE     = ')';     // push empty tuple
+    const OP_SETITEMS        = 'u';     // modify dict by adding topmost key+value pairs
+    const OP_BINFLOAT        = 'G';     // push float; arg is 8-byte float encoding
+
+    /* Protocol 2 */
+    const OP_PROTO           = "\x80";  // identify pickle protocol
+    const OP_NEWOBJ          = "\x81";  // build object by applying cls.__new__ to argtuple
+    const OP_EXT1            = "\x82";  // push object from extension registry; 1-byte index
+    const OP_EXT2            = "\x83";  // ditto, but 2-byte index
+    const OP_EXT4            = "\x84";  // ditto, but 4-byte index
+    const OP_TUPLE1          = "\x85";  // build 1-tuple from stack top
+    const OP_TUPLE2          = "\x86";  // build 2-tuple from two topmost stack items
+    const OP_TUPLE3          = "\x87";  // build 3-tuple from three topmost stack items
+    const OP_NEWTRUE         = "\x88";  // push True
+    const OP_NEWFALSE        = "\x89";  // push False
+    const OP_LONG1           = "\x8a";  // push long from < 256 bytes
+    const OP_LONG4           = "\x8b";  // push really big long
+
+    /* Protocol 3 (Python 3.x) */
+    const OP_BINBYTES        = 'B';     // push bytes; counted binary string argument
+    const OP_SHORT_BINBYTES  = 'C';     //  "     "   ;    "      "       "      " < 256 bytes
+
+    /**
+     * @var bool Whether or not this is a PHP 6 binary
+     */
+    protected static $_isPhp6 = null;
+
+    /**
+     * @var bool Whether or not the system is little-endian
+     */
+    protected static $_isLittleEndian = null;
+
+    /**
+     * @var array Strings representing quotes
+     */
+    protected static $_quoteString = array(
+        '\\' => '\\\\',
+        "\x00" => '\\x00', "\x01" => '\\x01', "\x02" => '\\x02', "\x03" => '\\x03',
+        "\x04" => '\\x04', "\x05" => '\\x05', "\x06" => '\\x06', "\x07" => '\\x07',
+        "\x08" => '\\x08', "\x09" => '\\t',   "\x0a" => '\\n',   "\x0b" => '\\x0b',
+        "\x0c" => '\\x0c', "\x0d" => '\\r',   "\x0e" => '\\x0e', "\x0f" => '\\x0f',
+        "\x10" => '\\x10', "\x11" => '\\x11', "\x12" => '\\x12', "\x13" => '\\x13',
+        "\x14" => '\\x14', "\x15" => '\\x15', "\x16" => '\\x16', "\x17" => '\\x17',
+        "\x18" => '\\x18', "\x19" => '\\x19', "\x1a" => '\\x1a', "\x1b" => '\\x1b',
+        "\x1c" => '\\x1c', "\x1d" => '\\x1d', "\x1e" => '\\x1e', "\x1f" => '\\x1f',
+        "\xff" => '\\xff'
+    );
+
+    /**
+     * @var array Default options
+     */
+    protected $_options = array(
+        'protocol'           => 0,
+    );
+
+    // process vars
+    protected $_protocol           = 0;
+    protected $_binary             = false;
+    protected $_memo               = array();
+    protected $_pickle             = '';
+    protected $_pickleLen          = 0;
+    protected $_pos                = 0;
+    protected $_stack              = array();
+    protected $_marker             = null;
+
+    /**
+     * Constructor
+     *
+     * @link Zend_Serializer_Adapter_AdapterAbstract::__construct()
+     */
+    public function __construct($opts=array())
+    {
+        parent::__construct($opts);
+
+        // init
+        if (self::$_isLittleEndian === null) {
+            self::$_isLittleEndian = (pack('l', 1) === "\x01\x00\x00\x00");
+        }
+        if (self::$_isPhp6 === null) {
+            self::$_isPhp6 = !version_compare(PHP_VERSION, '6.0.0', '<');
+        }
+
+        $this->_marker = new stdClass();
+    }
+
+    /**
+     * Set an option
+     *
+     * @link   Zend_Serializer_Adapter_AdapterAbstract::setOption()
+     * @param  string $name
+     * @param  mixed $value
+     * @return Zend_Serializer_Adapter_PythonPickle
+     */
+    public function setOption($name, $value)
+    {
+        switch ($name) {
+            case 'protocol':
+                $value = $this->_checkProtocolNumber($value);
+                break;
+        }
+
+        return parent::setOption($name, $value);
+    }
+
+    /**
+     * Check and normalize pickle protocol number
+     *
+     * @param  int $number
+     * @return int
+     * @throws Zend_Serializer_Exception
+     */
+    protected function _checkProtocolNumber($number)
+    {
+        $int = (int) $number;
+        if ($int < 0 || $int > 3) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('Invalid or unknown protocol version "'.$number.'"');
+        }
+        return $int;
+    }
+
+    /* serialize */
+
+    /**
+     * Serialize PHP to PythonPickle format
+     *
+     * @param  mixed $value
+     * @param  array $opts
+     * @return string
+     */
+    public function serialize($value, array $opts = array())
+    {
+        $opts = $opts + $this->_options;
+
+        $this->_protocol = $this->_checkProtocolNumber($opts['protocol']);
+        $this->_binary   = $this->_protocol != 0;
+
+        // clear process vars before serializing
+        $this->_memo   = array();
+        $this->_pickle = '';
+
+        // write
+        if ($this->_protocol >= 2) {
+            $this->_writeProto($this->_protocol);
+        }
+        $this->_write($value);
+        $this->_writeStop();
+
+        // clear process vars after serializing
+        $this->_memo = array();
+        $pickle = $this->_pickle;
+        $this->_pickle = '';
+
+        return $pickle;
+    }
+
+    /**
+     * Write a value
+     *
+     * @param  mixed $value
+     * @return void
+     * @throws Zend_Serializer_Exception on invalid or unrecognized value type
+     */
+    protected function _write($value)
+    {
+        if ($value === null) {
+            $this->_writeNull();
+        } elseif ($value === true) {
+            $this->_writeTrue();
+        } elseif ($value === false) {
+            $this->_writeFalse();
+        } elseif (is_int($value)) {
+            $this->_writeInt($value);
+        } elseif (is_float($value)) {
+            $this->_writeFloat($value);
+        } elseif (is_string($value)) {
+            // TODO: write unicode / binary
+            $this->_writeString($value);
+        } elseif (is_array($value)) {
+            if ($this->_isArrayAssoc($value)) {
+                $this->_writeArrayDict($value);
+            } else {
+                $this->_writeArrayList($value);
+            }
+        } elseif (is_object($value)) {
+            $this->_writeObject($value);
+        } else {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception(
+                'PHP-Type "'.gettype($value).'" isn\'t serializable with '.get_class($this)
+            );
+        }
+    }
+
+    /**
+     * Write pickle protocol
+     *
+     * @param  int $protocol
+     * @return void
+     */
+    protected function _writeProto($protocol)
+    {
+        $this->_pickle .= self::OP_PROTO . $protocol;
+    }
+
+    /**
+     * Write a get
+     *
+     * @param  int $id Id of memo
+     * @return void
+     */
+    protected function _writeGet($id)
+    {
+        if ($this->_binary) {
+            if ($id <= 0xff) {
+                // BINGET + chr(i)
+                $this->_pickle .= self::OP_BINGET . chr($id);
+            } else {
+                // LONG_BINGET + pack("<i", i)
+                $idBin = pack('l', $id);
+                if (self::$_isLittleEndian === false) {
+                    $idBin = strrev($bin);
+                }
+                $this->_pickle .= self::OP_LONG_BINGET . $idBin;
+            }
+        } else {
+            $this->_pickle .= self::OP_GET . $id . "\r\n";
+        }
+    }
+
+    /**
+     * Write a put
+     *
+     * @param  int $id Id of memo
+     * @return void
+     */
+    protected function _writePut($id)
+    {
+        if ($this->_binary) {
+            if ($id <= 0xff) {
+                // BINPUT + chr(i)
+                $this->_pickle .= self::OP_BINPUT . chr($id);
+            } else {
+                // LONG_BINPUT + pack("<i", i)
+                $idBin = pack('l', $id);
+                if (self::$_isLittleEndian === false) {
+                    $idBin = strrev($bin);
+                }
+                $this->_pickle .= self::OP_LONG_BINPUT . $idBin;
+            }
+        } else {
+            $this->_pickle .= self::OP_PUT . $id . "\r\n";
+        }
+    }
+
+    /**
+     * Write a null as None
+     *
+     * @return void
+     */
+    protected function _writeNull()
+    {
+        $this->_pickle .= self::OP_NONE;
+    }
+
+    /**
+     * Write a boolean true
+     *
+     * @return void
+     */
+    protected function _writeTrue()
+    {
+        if ($this->_protocol >= 2) {
+            $this->_pickle .= self::OP_NEWTRUE;
+        } else {
+            $this->_pickle .= self::OP_INT . "01\r\n";
+        }
+    }
+
+    /**
+     * Write a boolean false
+     *
+     * @return void
+     */
+    protected function _writeFalse()
+    {
+        if ($this->_protocol >= 2) {
+            $this->_pickle .= self::OP_NEWFALSE;
+        } else {
+            $this->_pickle .= self::OP_INT . "00\r\n";
+        }
+    }
+
+    /**
+     * Write an integer value
+     *
+     * @param  int $value
+     * @return void
+     */
+    protected function _writeInt($value)
+    {
+        if ($this->_binary) {
+            if ($value >= 0) {
+                if ($value <= 0xff) {
+                    // self.write(BININT1 + chr(obj))
+                    $this->_pickle .= self::OP_BININT1 . chr($value);
+                } elseif ($value <= 0xffff) {
+                    // self.write("%c%c%c" % (BININT2, obj&0xff, obj>>8))
+                    $this->_pickle .= self::OP_BININT2 . pack('v', $value);
+                }
+                return;
+            }
+
+            // Next check for 4-byte signed ints:
+            $highBits = $value >> 31;  // note that Python shift sign-extends
+            if ($highBits == 0 || $highBits == -1) {
+                // All high bits are copies of bit 2**31, so the value
+                // fits in a 4-byte signed int.
+                // self.write(BININT + pack("<i", obj))
+                $bin = pack('l', $value);
+                if (self::$_isLittleEndian === false) {
+                    $bin = strrev($bin);
+                }
+                $this->_pickle .= self::OP_BININT . $bin;
+                return;
+            }
+        }
+
+        $this->_pickle .= self::OP_INT . $value . "\r\n";
+    }
+
+    /**
+     * Write a float value
+     *
+     * @param  float $value
+     * @return void
+     */
+    protected function _writeFloat($value)
+    {
+        if ($this->_binary) {
+            // self.write(BINFLOAT + pack('>d', obj))
+            $bin = pack('d', $value);
+            if (self::$_isLittleEndian === true) {
+                $bin = strrev($bin);
+            }
+            $this->_pickle .= self::OP_BINFLOAT . $bin;
+        } else {
+            $this->_pickle .= self::OP_FLOAT . $value . "\r\n";
+        }
+    }
+
+    /**
+     * Write a string value
+     *
+     * @param  string $value
+     * @return void
+     */
+    protected function _writeString($value)
+    {
+        if ( ($id=$this->_searchMomo($value)) !== false ) {
+            $this->_writeGet($id);
+            return;
+        }
+
+        if ($this->_binary) {
+            $n = strlen($value);
+            if ($n <= 0xff) {
+                // self.write(SHORT_BINSTRING + chr(n) + obj)
+                $this->_pickle .= self::OP_SHORT_BINSTRING . chr($n) . $value;
+            } else {
+                // self.write(BINSTRING + pack("<i", n) + obj)
+                $binLen = pack('l', $n);
+                if (self::$_isLittleEndian === false) {
+                    $binLen = strrev($binLen);
+                }
+                $this->_pickle .= self::OP_BINSTRING . $binLen . $value;
+            }
+        } else {
+            $this->_pickle .= self::OP_STRING . $this->_quoteString($value) . "\r\n";
+        }
+
+        $this->_momorize($value);
+    }
+
+    /**
+     * Write an associative array value as dictionary
+     *
+     * @param  array $value
+     * @return void
+     */
+    protected function _writeArrayDict(array $value)
+    {
+        if (($id=$this->_searchMomo($value)) !== false) {
+            $this->_writeGet($id);;
+            return;
+        }
+
+        $this->_pickle .= self::OP_MARK . self::OP_DICT;
+        $this->_momorize($value);
+
+        foreach ($value as $k => $v) {
+            $this->_pickle .= $this->_write($k)
+                            . $this->_write($v)
+                            . self::OP_SETITEM;
+        }
+    }
+
+    /**
+     * Write a simple array value as list
+     *
+     * @param  array $value
+     * @return void
+     */
+    protected function _writeArrayList(array $value)
+    {
+        if (($id = $this->_searchMomo($value)) !== false) {
+            $this->_writeGet($id);
+            return;
+        }
+
+        $this->_pickle .= self::OP_MARK . self::OP_LIST;
+        $this->_momorize($value);
+
+        foreach ($value as $k => $v) {
+            $this->_pickle .= $this->_write($v) . self::OP_APPEND;
+        }
+    }
+
+    /**
+     * Write an object as an dictionary
+     *
+     * @param  object $value
+     * @return void
+     */
+    protected function _writeObject($value)
+    {
+        // can't serialize php objects to python objects yet
+        $this->_writeArrayDict(get_object_vars($value));
+    }
+
+    /**
+     * Write stop
+     *
+     * @return void
+     */
+    protected function _writeStop()
+    {
+        $this->_pickle .= self::OP_STOP;
+    }
+
+    /* serialize helper */
+
+    /**
+     * Add a value to the memo and write the id
+     *
+     * @param mixed $value
+     * @return void
+     */
+    protected function _momorize($value)
+    {
+        $id = count($this->_memo);
+        $this->_memo[$id] = $value;
+        $this->_writePut($id);
+    }
+
+    /**
+     * Search a value in the meno and return  the id
+     *
+     * @param  mixed $value
+     * @return int|false The id or false
+     */
+    protected function _searchMomo($value)
+    {
+        return array_search($value, $this->_memo, true);
+    }
+
+    /**
+     * Is an array associative?
+     *
+     * @param  array $value
+     * @return boolean
+     */
+    protected function _isArrayAssoc(array $value)
+    {
+        return array_diff_key($value, array_keys(array_keys($value)));
+    }
+
+    /**
+     * Quote/Escape a string
+     *
+     * @param  string $str
+     * @return string quoted string
+     */
+    protected function _quoteString($str)
+    {
+        $quoteArr = self::$_quoteString;
+
+        if (($cntSingleQuote = substr_count($str, "'"))
+            && ($cntDoubleQuote = substr_count($str, '"'))
+            && ($cntSingleQuote < $cntDoubleQuote)
+        ) {
+            $quoteArr['"'] = '\\"';
+            $enclosure     = '"';
+        } else {
+            $quoteArr["'"] = "\\'";
+            $enclosure     = "'";
+        }
+
+        return $enclosure . strtr($str, $quoteArr) . $enclosure;
+    }
+
+    /* unserialize */
+
+    /**
+     * Unserialize from Python Pickle format to PHP
+     *
+     * @param  string $pickle
+     * @param  array $opts
+     * @return mixed
+     * @throws Zend_Serializer_Exception on invalid Pickle string
+     */
+    public function unserialize($pickle, array $opts = array())
+    {
+        // init process vars
+        $this->_pos       = 0;
+        $this->_pickle    = $pickle;
+        $this->_pickleLen = strlen($this->_pickle);
+        $this->_memo      = array();
+        $this->_stack     = array();
+
+        // read pickle string
+        while (($op=$this->_read(1)) !== self::OP_STOP) {
+            $this->_load($op);
+        }
+
+        if (!count($this->_stack)) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('No data found');
+        }
+
+        $ret = array_pop($this->_stack);
+
+        // clear process vars
+        $this->_pos       = 0;
+        $this->_pickle    = '';
+        $this->_pickleLen = 0;
+        $this->_memo      = array();
+        $this->_stack     = array();
+
+        return $ret;
+    }
+
+    /**
+     * Load a pickle opcode
+     *
+     * @param  string $op
+     * @return void
+     * @throws Zend_Serializer_Exception on invalid opcode
+     */
+    protected function _load($op)
+    {
+        switch ($op) {
+            case self::OP_PUT:
+                $this->_loadPut();
+                break;
+            case self::OP_BINPUT:
+                $this->_loadBinPut();
+                break;
+            case self::OP_LONG_BINPUT:
+                $this->_loadLongBinPut();
+                break;
+            case self::OP_GET:
+                $this->_loadGet();
+                break;
+            case self::OP_BINGET:
+                $this->_loadBinGet();
+                break;
+            case self::OP_LONG_BINGET:
+                $this->_loadLongBinGet();
+                break;
+            case self::OP_NONE:
+                $this->_loadNone();
+                break;
+            case self::OP_NEWTRUE:
+                $this->_loadNewTrue();
+                break;
+            case self::OP_NEWFALSE:
+                $this->_loadNewFalse();
+                break;
+            case self::OP_INT:
+                $this->_loadInt();
+                break;
+            case self::OP_BININT:
+                $this->_loadBinInt();
+                break;
+            case self::OP_BININT1:
+                $this->_loadBinInt1();
+                break;
+            case self::OP_BININT2:
+                $this->_loadBinInt2();
+                break;
+            case self::OP_LONG:
+                $this->_loadLong();
+                break;
+            case self::OP_LONG1:
+                $this->_loadLong1();
+                break;
+            case self::OP_LONG4:
+                $this->_loadLong4();
+                break;
+            case self::OP_FLOAT:
+                $this->_loadFloat();
+                break;
+            case self::OP_BINFLOAT:
+                $this->_loadBinFloat();
+                break;
+            case self::OP_STRING:
+                $this->_loadString();
+                break;
+            case self::OP_BINSTRING:
+                $this->_loadBinString();
+                break;
+            case self::OP_SHORT_BINSTRING:
+                $this->_loadShortBinString();
+                break;
+            case self::OP_BINBYTES:
+                $this->_loadBinBytes();
+                break;
+            case self::OP_SHORT_BINBYTES:
+                $this->_loadShortBinBytes();
+                break;
+            case self::OP_UNICODE:
+                $this->_loadUnicode();
+                break;
+            case self::OP_BINUNICODE:
+                $this->_loadBinUnicode();
+                break;
+            case self::OP_MARK:
+                $this->_loadMark();
+                break;
+            case self::OP_LIST:
+                $this->_loadList();
+                break;
+            case self::OP_EMPTY_LIST:
+                $this->_loadEmptyList();
+                break;
+            case self::OP_APPEND:
+                $this->_loadAppend();
+                break;
+            case self::OP_APPENDS:
+                $this->_loadAppends();
+                break;
+            case self::OP_DICT:
+                $this->_loadDict();
+                break;
+            case self::OP_EMPTY_DICT:
+                $this->_loadEmptyDict();
+                break;
+            case self::OP_SETITEM:
+                $this->_loadSetItem();
+                break;
+            case self::OP_SETITEMS:
+                $this->_loadSetItems();
+                break;
+            case self::OP_TUPLE:
+                $this->_loadTuple();
+                break;
+            case self::OP_TUPLE1:
+                $this->_loadTuple1();
+                break;
+            case self::OP_TUPLE2:
+                $this->_loadTuple2();
+                break;
+            case self::OP_TUPLE3:
+                $this->_loadTuple3();
+                break;
+            case self::OP_PROTO:
+                $this->_loadProto();
+                break;
+            default:
+                require_once 'Zend/Serializer/Exception.php';
+                throw new Zend_Serializer_Exception('Invalid or unknown opcode "'.$op.'"');
+        }
+    }
+
+    /**
+     * Load a PUT opcode
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception on missing stack
+     */
+    protected function _loadPut()
+    {
+        $id = (int)$this->_readline();
+
+        $lastStack = count($this->_stack)-1;
+        if (!isset($this->_stack[$lastStack])) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('No stack exist');
+        }
+        $this->_memo[$id] = & $this->_stack[$lastStack];
+    }
+
+    /**
+     * Load a binary PUT
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception on missing stack
+     */
+    protected function _loadBinPut()
+    {
+        $id = ord($this->_read(1));
+
+        $lastStack = count($this->_stack)-1;
+        if (!isset($this->_stack[$lastStack])) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('No stack exist');
+        }
+        $this->_memo[$id] = & $this->_stack[$lastStack];
+    }
+
+    /**
+     * Load a long binary PUT
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception on missing stack
+     */
+    protected function _loadLongBinPut()
+    {
+        $bin = $this->_read(4);
+        if (self::$_isLittleEndian === false) {
+            $bin = strrev($bin);
+        }
+        list(, $id) = unpack('l', $bin);
+
+        $lastStack = count($this->_stack)-1;
+        if (!isset($this->_stack[$lastStack])) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('No stack exist');
+        }
+        $this->_memo[$id] = & $this->_stack[$lastStack];
+    }
+
+    /**
+     * Load a GET operation
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception on missing GET identifier
+     */
+    protected function _loadGet()
+    {
+        $id = (int)$this->_readline();
+
+        if (!array_key_exists($id, $this->_memo)) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('Get id "' . $id . '" not found in momo');
+        }
+        $this->_stack[] = & $this->_memo[$id];
+    }
+
+    /**
+     * Load a binary GET operation
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception on missing GET identifier
+     */
+    protected function _loadBinGet()
+    {
+        $id = ord($this->_read(1));
+
+        if (!array_key_exists($id, $this->_memo)) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('Get id "' . $id . '" not found in momo');
+        }
+        $this->_stack[] = & $this->_memo[$id];
+    }
+
+    /**
+     * Load a long binary GET operation
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception on missing GET identifier
+     */
+    protected function _loadLongBinGet()
+    {
+        $bin = $this->_read(4);
+        if (self::$_isLittleEndian === false) {
+            $bin = strrev($bin);
+        }
+        list(, $id) = unpack('l', $bin);
+
+        if (!array_key_exists($id, $this->_memo)) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('Get id "' . $id . '" not found in momo');
+        }
+        $this->_stack[] = & $this->_memo[$id];
+    }
+
+    /**
+     * Load a NONE operator
+     *
+     * @return void
+     */
+    protected function _loadNone()
+    {
+        $this->_stack[] = null;
+    }
+
+    /**
+     * Load a boolean TRUE operator
+     *
+     * @return void
+     */
+    protected function _loadNewTrue()
+    {
+        $this->_stack[] = true;
+    }
+
+    /**
+     * Load a boolean FALSE operator
+     *
+     * @return void
+     */
+    protected function _loadNewFalse()
+    {
+        $this->_stack[] = false;
+    }
+
+    /**
+     * Load an integer operator
+     *
+     * @return void
+     */
+    protected function _loadInt()
+    {
+        $line = $this->_readline();
+        if ($line === '01') {
+            $this->_stack[] = true;
+        } elseif ($line === '00') {
+            $this->_stack[] = false;
+        } else {
+            $this->_stack[] = (int)$line;
+        }
+    }
+
+    /**
+     * Load a binary integer operator
+     *
+     * @return void
+     */
+    protected function _loadBinInt()
+    {
+        $bin = $this->_read(4);
+        if (self::$_isLittleEndian === false) {
+            $bin = strrev($bin);
+        }
+        list(, $int)    = unpack('l', $bin);
+        $this->_stack[] = $int;
+    }
+
+    /**
+     * Load the first byte of a binary integer
+     *
+     * @return void
+     */
+    protected function _loadBinInt1()
+    {
+        $this->_stack[] = ord($this->_read(1));
+    }
+
+    /**
+     * Load the second byte of a binary integer
+     *
+     * @return void
+     */
+    protected function _loadBinInt2()
+    {
+        $bin = $this->_read(2);
+        list(, $int)    = unpack('v', $bin);
+        $this->_stack[] = $int;
+    }
+
+    /**
+     * Load a long (float) operator
+     *
+     * @return void
+     */
+    protected function _loadLong()
+    {
+        $data = rtrim($this->_readline(), 'L');
+        if ($data === '') {
+            $this->_stack[] = 0;
+        } else {
+            $this->_stack[] = $data;
+        }
+    }
+
+    /**
+     * Load a one byte long integer
+     *
+     * @return void
+     */
+    protected function _loadLong1()
+    {
+        $n    = ord($this->_read(1));
+        $data = $this->_read($n);
+        $this->_stack[] = $this->_decodeBinLong($data);
+    }
+
+    /**
+     * Load a 4 byte long integer
+     *
+     * @return void
+     */
+    protected function _loadLong4()
+    {
+        $nBin = $this->_read(4);
+        if (self::$_isLittleEndian === false) {
+            $nBin = strrev($$nBin);
+        }
+        list(, $n) = unpack('l', $nBin);
+        $data = $this->_read($n);
+
+        $this->_stack[] = $this->_decodeBinLong($data);
+    }
+
+    /**
+     * Load a float value
+     *
+     * @return void
+     */
+    protected function _loadFloat()
+    {
+        $float = (float)$this->_readline();
+        $this->_stack[] = $float;
+    }
+
+    /**
+     * Load a binary float value
+     *
+     * @return void
+     */
+    protected function _loadBinFloat()
+    {
+        $bin = $this->_read(8);
+        if (self::$_isLittleEndian === true) {
+            $bin = strrev($bin);
+        }
+        list(, $float)  = unpack('d', $bin);
+        $this->_stack[] = $float;
+    }
+
+    /**
+     * Load a string
+     *
+     * @return void
+     */
+    protected function _loadString()
+    {
+        $this->_stack[] = $this->_unquoteString((string)$this->_readline());
+    }
+
+    /**
+     * Load a binary string
+     *
+     * @return void
+     */
+    protected function _loadBinString()
+    {
+        $bin = $this->_read(4);
+        if (!self::$_isLittleEndian) {
+            $bin = strrev($bin);
+        }
+        list(, $len)    = unpack('l', $bin);
+        $this->_stack[] = (string)$this->_read($len);
+    }
+
+    /**
+     * Load a short binary string
+     *
+     * @return void
+     */
+    protected function _loadShortBinString()
+    {
+        $len            = ord($this->_read(1));
+        $this->_stack[] = (string)$this->_read($len);
+    }
+
+    /**
+     * Load arbitrary binary bytes
+     *
+     * @return void
+     */
+    protected function _loadBinBytes()
+    {
+        // read byte length
+        $nBin = $this->_read(4);
+        if (self::$_isLittleEndian === false) {
+            $nBin = strrev($$nBin);
+        }
+        list(, $n)      = unpack('l', $nBin);
+        $this->_stack[] = $this->_read($n);
+    }
+
+    /**
+     * Load a single binary byte
+     *
+     * @return void
+     */
+    protected function _loadShortBinBytes()
+    {
+        $n              = ord($this->_read(1));
+        $this->_stack[] = $this->_read($n);
+    }
+
+    /**
+     * Load a unicode string
+     *
+     * @return void
+     */
+    protected function _loadUnicode()
+    {
+        $data    = $this->_readline();
+        $pattern = '/\\\\u([a-fA-F0-9]{4})/u'; // \uXXXX
+        $data    = preg_replace_callback($pattern, array($this, '_convertMatchingUnicodeSequence2Utf8'), $data);
+
+        if (self::$_isPhp6) {
+            $data = unicode_decode($data, 'UTF-8');
+        }
+
+        $this->_stack[] = $data;
+    }
+
+    /**
+     * Convert a unicode sequence to UTF-8
+     *
+     * @param  array $match
+     * @return string
+     */
+    protected function _convertMatchingUnicodeSequence2Utf8(array $match)
+    {
+        return $this->_hex2Utf8($match[1]);
+    }
+
+    /**
+     * Convert a hex string to a UTF-8 string
+     *
+     * @param  string $sequence
+     * @return string
+     * @throws Zend_Serializer_Exception on unmatched unicode sequence
+     */
+    protected function _hex2Utf8($hex)
+    {
+        $uniCode = hexdec($hex);
+
+        if ($uniCode < 0x80) { // 1Byte
+            $utf8Char = chr($uniCode);
+
+        } elseif ($uniCode < 0x800) { // 2Byte
+            $utf8Char = chr(0xC0 | $uniCode >> 6)
+                      . chr(0x80 | $uniCode & 0x3F);
+
+        } elseif ($uniCode < 0x10000) { // 3Byte
+            $utf8Char = chr(0xE0 | $uniCode >> 12)
+                      . chr(0x80 | $uniCode >> 6 & 0x3F)
+                      . chr(0x80 | $uniCode & 0x3F);
+
+        } elseif ($uniCode < 0x110000) { // 4Byte
+            $utf8Char  = chr(0xF0 | $uniCode >> 18)
+                       . chr(0x80 | $uniCode >> 12 & 0x3F)
+                       . chr(0x80 | $uniCode >> 6 & 0x3F)
+                       . chr(0x80 | $uniCode & 0x3F);
+        } else {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('Unsupported unicode character found "' . dechex($uniCode) . '"');
+        }
+
+        return $utf8Char;
+    }
+
+    /**
+     * Load binary unicode sequence
+     *
+     * @return void
+     */
+    protected function _loadBinUnicode()
+    {
+        // read byte length
+        $n = $this->_read(4);
+        if (self::$_isLittleEndian === false) {
+            $n = strrev($n);
+        }
+        list(, $n) = unpack('l', $n);
+        $data      = $this->_read($n);
+
+        if (self::$_isPhp6) {
+            $data = unicode_decode($data, 'UTF-8');
+        }
+
+        $this->_stack[] = $data;
+    }
+
+    /**
+     * Load a marker sequence
+     *
+     * @return void
+     */
+    protected function _loadMark()
+    {
+        $this->_stack[] = $this->_marker;
+    }
+
+    /**
+     * Load an array (list)
+     *
+     * @return void
+     */
+    protected function _loadList()
+    {
+        $k = $this->_lastMarker();
+        $this->_stack[$k] = array();
+
+        // remove all elements after marker
+        $max = count($this->_stack);
+        for ($i = $k+1, $max; $i < $max; $i++) {
+            unset($this->_stack[$i]);
+        }
+    }
+
+    /**
+     * Load an append (to list) sequence
+     *
+     * @return void
+     */
+    protected function _loadAppend()
+    {
+        $value  =  array_pop($this->_stack);
+        $list   =& $this->_stack[count($this->_stack)-1];
+        $list[] =  $value;
+    }
+
+    /**
+     * Load an empty list sequence
+     *
+     * @return void
+     */
+    protected function _loadEmptyList()
+    {
+        $this->_stack[] = array();
+    }
+
+    /**
+     * Load multiple append (to list) sequences at once
+     *
+     * @return void
+     */
+    protected function _loadAppends()
+    {
+        $k    =  $this->_lastMarker();
+        $list =& $this->_stack[$k - 1];
+        $max  =  count($this->_stack);
+        for ($i = $k + 1; $i < $max; $i++) {
+            $list[] = $this->_stack[$i];
+            unset($this->_stack[$i]);
+        }
+        unset($this->_stack[$k]);
+    }
+
+    /**
+     * Load an associative array (Python dictionary)
+     *
+     * @return void
+     */
+    protected function _loadDict()
+    {
+        $k = $this->_lastMarker();
+        $this->_stack[$k] = array();
+
+        // remove all elements after marker
+        $max = count($this->_stack);
+        for($i = $k + 1; $i < $max; $i++) {
+            unset($this->_stack[$i]);
+        }
+    }
+
+    /**
+     * Load an item from a set
+     *
+     * @return void
+     */
+    protected function _loadSetItem()
+    {
+        $value =  array_pop($this->_stack);
+        $key   =  array_pop($this->_stack);
+        $dict  =& $this->_stack[count($this->_stack) - 1];
+        $dict[$key] = $value;
+    }
+
+    /**
+     * Load an empty dictionary
+     *
+     * @return void
+     */
+    protected function _loadEmptyDict()
+    {
+        $this->_stack[] = array();
+    }
+
+    /**
+     * Load set items
+     *
+     * @return void
+     */
+    protected function _loadSetItems()
+    {
+        $k    =  $this->_lastMarker();
+        $dict =& $this->_stack[$k - 1];
+        $max  =  count($this->_stack);
+        for ($i = $k + 1; $i < $max; $i += 2) {
+            $key        = $this->_stack[$i];
+            $value      = $this->_stack[$i + 1];
+            $dict[$key] = $value;
+            unset($this->_stack[$i], $this->_stack[$i+1]);
+        }
+        unset($this->_stack[$k]);
+    }
+
+    /**
+     * Load a tuple
+     *
+     * @return void
+     */
+    protected function _loadTuple()
+    {
+        $k                =  $this->_lastMarker();
+        $this->_stack[$k] =  array();
+        $tuple            =& $this->_stack[$k];
+        $max              =  count($this->_stack);
+        for($i = $k + 1; $i < $max; $i++) {
+            $tuple[] = $this->_stack[$i];
+            unset($this->_stack[$i]);
+        }
+    }
+
+    /**
+     * Load single item tuple
+     *
+     * @return void
+     */
+    protected function _loadTuple1()
+    {
+        $value1 = array_pop($this->_stack);
+        $this->_stack[] = array($value1);
+    }
+
+    /**
+     * Load two item tuple
+     *
+     * @return void
+     */
+    protected function _loadTuple2()
+    {
+        $value2 = array_pop($this->_stack);
+        $value1 = array_pop($this->_stack);
+        $this->_stack[] = array($value1, $value2);
+    }
+
+    /**
+     * Load three item tuple
+     *
+     * @return void
+     */
+    protected function _loadTuple3() {
+        $value3 = array_pop($this->_stack);
+        $value2 = array_pop($this->_stack);
+        $value1 = array_pop($this->_stack);
+        $this->_stack[] = array($value1, $value2, $value3);
+    }
+
+    /**
+     * Load a proto value
+     *
+     * @return void
+     * @throws Zend_Serializer_Exception if Pickle version does not support this feature
+     */
+    protected function _loadProto()
+    {
+        $proto = ord($this->_read(1));
+        if ($proto < 2 || $proto > 3) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('Invalid protocol version detected');
+        }
+        $this->_protocol = $proto;
+    }
+
+    /* unserialize helper */
+
+    /**
+     * Read a segment of the pickle
+     *
+     * @param  mixed $len
+     * @return string
+     * @throws Zend_Serializer_Exception if position matches end of data
+     */
+    protected function _read($len)
+    {
+        if (($this->_pos + $len) > $this->_pickleLen) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('End of data');
+        }
+
+        $this->_pos+= $len;
+        return substr($this->_pickle, ($this->_pos - $len), $len);
+    }
+
+    /**
+     * Read a line of the pickle at once
+     *
+     * @return string
+     * @throws Zend_Serializer_Exception if no EOL character found
+     */
+    protected function _readline()
+    {
+        $eolLen = 2;
+        $eolPos = strpos($this->_pickle, "\r\n", $this->_pos);
+        if ($eolPos === false) {
+            $eolPos = strpos($this->_pickle, "\n", $this->_pos);
+            $eolLen = 1;
+        }
+
+        if ($eolPos === false) {
+            require_once 'Zend/Serializer/Exception.php';
+            throw new Zend_Serializer_Exception('No new line found');
+        }
+        $ret        = substr($this->_pickle, $this->_pos, $eolPos-$this->_pos);
+        $this->_pos = $eolPos + $eolLen;
+
+        return $ret;
+    }
+
+    /**
+     * Unquote/Unescape a quoted string
+     *
+     * @param  string $str quoted string
+     * @return string unquoted string
+     */
+    protected function _unquoteString($str)
+    {
+        $quoteArr = array_flip(self::$_quoteString);
+
+        if ($str[0] == '"') {
+            $quoteArr['\\"'] = '"';
+        } else {
+            $quoteArr["\\'"] = "'";
+        }
+
+        return strtr(substr(trim($str), 1, -1), $quoteArr);
+    }
+
+    /**
+     * Return last marker position in stack
+     *
+     * @return int
+     */
+    protected function _lastMarker()
+    {
+        for ($k = count($this->_stack)-1; $k >= 0; $k -= 1) {
+            if ($this->_stack[$k] === $this->_marker) {
+                break;
+            }
+        }
+        return $k;
+    }
+
+    /**
+     * Decode a binary long sequence
+     *
+     * @param  string $data
+     * @return int|float|string
+     */
+    protected function _decodeBinLong($data)
+    {
+        $nbytes = strlen($data);
+
+        if ($nbytes == 0) {
+            return 0;
+        }
+
+        $long = 0;
+
+        if ($nbytes > 7) {
+            if (!extension_loaded('bcmath')) {
+                return INF;
+            }
+
+            for ($i=0; $i<$nbytes; $i++) {
+                $long = bcadd($long, bcmul(ord($data[$i]), bcpow(256, $i, 0)));
+            }
+            if (0x80 <= ord($data[$nbytes-1])) {
+                $long = bcsub($long, bcpow(2, $nbytes * 8));
+            }
+
+        } else {
+            for ($i=0; $i<$nbytes; $i++) {
+                $long+= ord($data[$i]) * pow(256, $i);
+            }
+            if (0x80 <= ord($data[$nbytes-1])) {
+                $long-= pow(2, $nbytes * 8);
+                // $long-= 1 << ($nbytes * 8);
+            }
+        }
+
+        return $long;
+    }
+}