Source for file CompactedTuple.php

<?php
//
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.0 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.               |
// +----------------------------------------------------------------------+
// | Authors: Jesus M. Castagnetto <jmcastagnetto@php.net>                |
// +----------------------------------------------------------------------+
//
// $Id: CompactedTuple.php 304045 2010-10-05 00:16:53Z clockwerx $
//
            
require_once "PEAR.php";
 
class Math_CompactedTuple {
 
    var $data;
 
    function Math_CompactedTuple ($arg) 
    {
        if (is_array($arg)) {
            $this->data = $this->_genCompactedArray($arg);
        } elseif (is_object($arg) && get_class($arg) == "math_tuple") {
            $this->data = $this->_genCompacterArray($arg->getData());
        } else {
            $msg = "Incorrect parameter for Math_CompactedTuple constructor. ".
                    "Expecting an unidimensional array or a Math_Tuple object,". 
                    " got '$arg'\n";
            PEAR::raiseError($msg);
        }
        return true;
    }
 
    function getSize() {
        return count($this->_genUnCompactedArray($this->data));
    }
 
    function getCompactedSize() {
        return count($this->data);
    }
 
    function getCompactedData() {
        return $this->data;
    }
 
    function getData() {
        return $this->_genUnCompactedArray($this->data);
    }
 
    function addElement($value) {
        $this->data[$value]++;
    }
    
    function delElement($value) {
        if (in_array($value, array_keys($this->data))) {
            $this->data[$value]--;
            if ($this->data[$value] == 0)
                unset ($this->data[$value]);
            return true;
        }
        return PEAR::raiseError("value does not exist in compacted tuple");
    }
 
    function hasElement($value) {
        return in_array($value, array_keys($this->data));
    }
 
    function _genCompactedArray($arr) {
        if (function_exists("array_count_values")) {
            return array_count_values($arr);
        } else {
            $out = array();
            foreach ($arr as $val)
                $out[$val]++;
            return $out;
        }
    }
 
    function _genUnCompactedArray($arr) {
        $out = array();
        foreach ($arr as $val=>$count)
            for($i=0; $i < $count; $i++)
                $out[] = $val;
        return $out;
    }
}
 
?>