"Block is Object" — шаблонный энжайн на PHP

<?php

$sourceFn = $folderName."/_.bo";
$r = HTML_Template_BO_includeFile($sourceFn, "single-byte", $GLOBALS["tplParam"]["dir"], true);
if ($r[0]) {
	$tpl = $r[1];
	$tpl->printb(array(
		'name' => "Compiled World"
	));
} else {
	?>Error!<?php
}

$r = HTML_Template_BO_interpretFile($sourceFn, "single-byte");
if ($r[0]) {
	$tpl = $r[1];
	$tpl->printb(array(
		'name' => "Interpreted World"
	));
} else {
	?>Error!<?php
}

<?php
$tpl->printb(array(
	'percent' => 20
));
?>

<?php
$users = array
(	array('name' => 'Иван', 'age' => 15)
,	array('name' => 'Василий', 'age' => 18)
,	array('name' => 'Николай', 'age' => 17)
);
$tpl->printb(array(
	'block' => new HTML_Template_BO_RArray($users)
));
?>

<?php
$tpl->printb(array(
	'edit' => new HTML_Template_BO_RMaybeArg(true, array("url" => "#1"))
));
$tpl->printb(array(
	'edit' => new HTML_Template_BO_RMaybeArg(false)
));
?>

<?php
$users = array
(	array("ordinal", array("name" => "Иван", "posts" => 34))
,	array("moderator", array("name" => "Василий", "posts" => 125))
,	array("banned", array("name" => "Николай", "posts" => 2))
,	array("ordinal", array("name" => "Игорь", "posts" => 54))
,	array("ordinal", array("name" => "Дмитрий", "posts" => 4))
,	array("banned", array("name" => "Сергей", "posts" => 20))
);

$tpl->printb(array
(	"users" => new HTML_Template_BO_RArraySwitch($users)
));
?>

<?php
$lib = include1($folderName.'/_.lib.bo');
$tpl->printb(array
(	'button' => $lib['button']
));
?>

<?php
class UpperConv extends HTML_Template_BO_Converter
{
	function convert($x)
	{
		return strtoupper(HTML_Template_BO_printToString($x));
	}
}

class DottedConv extends HTML_Template_BO_Converter
{
	function convert($x)
	{
		$s = HTML_Template_BO_printToString($x);
		$s1 = '';
		for($i = 0; $i < strlen($s); $i++) {
			$s1 .= $s[$i].'.';
		}
		return $s1;
	}
}

$tpl->printb(array
(	'upper' => new UpperConv()
,	'dotted' => new DottedConv()
,	'name' => "Дмитрий"
));
?>

<?php
$tpl->printb(array
(	"hello" => new HTML_Template_BO_RMaybeArg(true
	,	array("name" => "Administrator"))
,	"admin" => include1($folderName."/external.bo")
));
?>

<?php

$variableA = array
(	"caption" => array
	(	"name" => "Название товара"
	,	"price" => "Цена, руб."
	,	"quantity" => "Количество на складе, шт."
	)
,	"ware" => db_query("select * from wares where id=5")
);
$tpl->printb($variableA);
?>

<?php
$news = new HTML_Template_BO_RArray(array
(	array
	(	"id" => 1
	,	"name" => "Политика"
	,	"items" => new HTML_Template_BO_RArray(array
		(	array
			(	"id" => 1
			,	"name" => "Аааа"
			)
		,	array
			(	"id" => 2
			,	"name" => "Ббббббб"
			)
		))
	)
,	array
	(	"id" => 2
	,	"name" => "Финансы"
	,	"items" => new HTML_Template_BO_RArray(array
		(	array
			(	"id" => 3
			,	"name" => "Ввввввв"
			)
		,	array
			(	"id" => 4
			,	"name" => "Гггггг"
			)
		))
	)
));
$tpl->printb(array(
	"news" => $news
));
?>

<?php
$users = array
(	array('name' => 'Иван', 'age' => 15)
,	array('name' => 'Василий', 'age' => 18)
,	array('name' => 'Николай', 'age' => 17)
);
$tpl->printb(array(
	'block' => new HTML_Template_BO_RArray($users)
));
?>

<?php

class RRecursivePa
{
	var $block;
	var $data;
	function RRecursivePa($block, $data)
	{
		$this->block = $block;
		$this->data = $data;
	}
	function print_()
	{
		$a = array();
		$last = count($this->data);
		foreach ($this->data as $name => $data1) {
			$last--;
			$this->block->printb(array
			(	"name" => $name
			,	"child" => new RRecursivePa($this->block, $data1)
			,	"last" => new HTML_Template_BO_RBool(0==$last)
			));
		}
	}
}
class RRecursive
{
	var $data;
	function RRecursive($data)
	{
		$this->data = $data;
	}
	function printr($block)
	{
		$pa = new RRecursivePa($block, $this->data);
		$pa->print_();
	}
}
$data = array
(	"aaaaa" => array
	(	"bbbbb" => array()
	,	"cc" => array
		(	"www" => array()
		,	"hhhhhhh" => array()
		)
	)
,	"dddd" => array()
,	"deee" => array
	(	"sssssss" => array
		(	"www" => array()
		,	"llll" => array
		(	"xxxxxxx" => array
			(	"yyyyyyy" => array
				(	"zzzzzzz" => array()
				)
			)
		)
		,	"mmmmmmm" => array()
		,	"nnnnnn" => array()
		)
	)
);
$tpl->printb(array(
	"recursive" => new RRecursive($data)
));
?>

$block->printb(array("x" => 1, "y" => 2, "z" => 3));

class R {
  function printr($block) { $block->printb(array()); }
}
$block->printb(array("x" => 1, "inner" => new R(), "z" => 3));

<?php
function HTML_Template_BO_printToString($p)
{
	flush();
	ob_start();
	HTML_Template_BO_print($p);
	$ret= ob_get_contents();
	ob_end_clean();
	return $ret;
}
class HTML_Template_BO_RSwitch extends HTML_Template_BO_Renderer
{
	var $variableA;
	var $key;
	function HTML_Template_BO_RSwitch($key, $variableA = array())
	{
		$this->variableA = $variableA;
		$this->key = $key;
	}
	function printr($assoc)
	{
		if (isset($assoc[$this->key])) {
			$block= $assoc[$this->key];
			$block->printb($this->variableA);
		}
	}
}
class HTML_Template_BO_RBool extends HTML_Template_BO_RSwitch
{
	function HTML_Template_BO_RBool($key, $variableA = array())
	{
    	parent::HTML_Template_BO_RSwitch($key ? 'true' : 'false'
    	,	$variableA);
	}
}
class HTML_Template_BO_RArray extends HTML_Template_BO_Renderer
{
	var $list;
	function HTML_Template_BO_RArray($list)
	{
		$this->list = $list;
	}
	function printr($block)
	{
		foreach($this->list as $variableA) {
			$block->printb($variableA);
		}
	}
}
class HTML_Template_BO_RArraySwitch extends HTML_Template_BO_Renderer
{
	var $list;
	function HTML_Template_BO_RArraySwitch($list)
	{
		$this->a = $list;
	}
	function printr($assoc)
	{
		foreach($this->a as $x) {
			list($key, $variableA) = $x;
			$assoc[$key]->printb($variableA);
		}
	}
}
class HTML_Template_BO_RArrayR extends HTML_Template_BO_Renderer
{
	var $rendererA;
	function HTML_Template_BO_RArrayR($rendererA)
	{
		$this->rendererA = $rendererA;
	}
	function printr($x)
	{
		foreach($this->rendererA as $renderer) {
			$renderer->printr($x);
		}
	}
}
class HTML_Template_BO_TplToPrintable extends HTML_Template_BO_Printable
{
	var $variableA;
	var $block;
	function HTML_Template_BO_TplToPrintable($block, $variableA)
	{
		$this->variableA = $variableA;
		$this->block = $block;
	}
	function print_()
	{
			$this->block->printb($this->variableA);
	}
}
class HTML_Template_BO_RBlock extends HTML_Template_BO_Renderer
{
	var $variableA;
	function HTML_Template_BO_RBlock($variableA) { $this->variableA = $variableA;	}
	function printr($block)
	{
			$block->printb($this->variableA);
	}
}
class HTML_Template_BO_RMaybe extends HTML_Template_BO_Renderer
{
	var $maybe;
	function HTML_Template_BO_RMaybe($maybe)
	{
		$this->maybe = $maybe;
	}
	function printr($block)
	{
		if ($this->maybe[0]) {
			$block->printb($this->maybe[1]);
		}
	}
}
class HTML_Template_BO_RMaybeArg extends HTML_Template_BO_RMaybe
{
	function HTML_Template_BO_RMaybeArg($cond, $variableA = array())
	{
		parent::HTML_Template_BO_RMaybe(array($cond, $variableA));
	}
}