<?
// BEncode Library
//
// Original Python implementation by Petru Paler
// PHP conversion by Gerard Krijgsman (for AnimeSuki.com)
//
// Remove use of RegExp - Carl Ritson (October 2003)


class BEncodeLib
{
	function decode_int(&$x, $f)
	{
		//$int_filter = '/(0|-?[1-9][0-9]*)e/';
		//$pr = preg_match($int_filter,substr($x,$f),$m);
		$result['r'] = intval(substr($x,$f));
		$result['l'] = strpos($x,"e",$f) + 1;
		return $result;
	}

	function decode_string(&$x, $f)
	{
		//$string_filter = '/(0|[1-9][0-9]*):/';
		//$pr = preg_match($string_filter,substr($x,$f),$m);
		$l = intval(substr($x,$f));
		$s = strpos($x,":",$f) + 1;
		$result['r'] = substr($x,$s,$l);
		$result['l'] = $s + $l;
		return $result;
	}

	function decode_list(&$x, $f)
	{
		$r = array();
		while($x[$f] != 'e')
		{
			$v = $this->bdecode_rec($x, $f);
			array_push($r,$v['r']);
			$f = $v['l'];
		}
		$result['r'] = $r;
		$result['l'] = $f + 1;
		return $result;
	}
	
	function decode_dict(&$x, $f)
	{
		$r = array();
		while($x[$f] != 'e')
		{
			$k = $this->decode_string($x, $f);
			$f = $k['l'];
			$v = $this->bdecode_rec($x, $f);
			$r[$k['r']] = $v['r'];
			$f = $v['l'];
		}
		$result['r'] = $r;
		$result['l'] = $f + 1;
		return $result;
	}

	function bdecode_rec(&$x, $f)
	{
		$t = $x[$f];
		if ($t == 'i')
			return $this->decode_int($x, $f + 1);
		elseif ($t == 'l')
			return $this->decode_list($x, $f + 1);
		elseif ($t == 'd')
			return $this->decode_dict($x, $f + 1);
		else
			return $this->decode_string($x, $f);
	}

	function bdecode($x)
	{
		$result = $this->bdecode_rec($x, 0);
		return $result['r'];
	}
	
	function bencode_rec($x, &$b)
	{
		if (is_numeric($x))
			$b .= 'i'.round($x).'e';
		elseif (is_string($x))
			$b .= strlen($x).':'.$x;
		elseif (is_array($x))
		{
			// Unlike Python, PHP does not have a "tuple", "list" or "dict" type
			// This code assumes arrays with purely integer indexes are lists,
			// arrays which use string indexes assumed to be dictionaries.
			$keys = array_keys($x);
			$listtype = true;
			while(list($k,$v) = each($keys))
				if (!is_integer($v)) $listtype = false;
			if ($listtype)
			{
				// List
				$b .= 'l';
				while(list($k,$v) = each($x))
					$this->bencode_rec($v, $b);
				$b .= 'e';
			}
			else
			{
				// Dictionary
				$b .= 'd';
				ksort($x);
				while(list($k,$v) = each($x))
				{
					settype($k,"string");
					$this->bencode_rec($k, $b);
					$this->bencode_rec($v, $b);
				}
				$b .= 'e';
			}
		}
	}
	
	function bencode($x)
	{
		$b = '';
		$this->bencode_rec($x, $b);
		return $b;
	}
}
?>