<?php
/*=====================================================================*\
|| ###################################################################
|| # Blue Static ISSO Framework
|| # Copyright Š2002-[#]year[#] Blue Static
|| #
|| # This program is free software; you can redistribute it and/or modify
|| # it under the terms of the GNU General Public License as published by
|| # the Free Software Foundation; version [#]gpl[#] of the License.
|| #
|| # This program is distributed in the hope that it will be useful, but
|| # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|| # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
|| # more details.
|| #
|| # You should have received a copy of the GNU General Public License along
|| # with this program; if not, write to the Free Software Foundation, Inc.,
|| # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|| ###################################################################
\*=====================================================================*/

/**
* Database-Driven Template System (template.php)
*
* @package	ISSO
*/

/**
* Database-Driven Template System
*
* This framework is a backend to the database template engine and
* contains all the parsing algorithms.
*
* @author		Blue Static
* @copyright	Copyright Š2002 - [#]year[#], Blue Static
* @version		$Revision$
* @package		ISSO
* 
*/
class BSTemplate
{
	/**
	* The database object to use
	* @var object
	*/
	private $db;
	
	/**
	* Name of the database table templates are in
	* @var	string
	*/
	private $tableName = '';
	
	/**
	* Name of the table column template names are in
	* @var	string
	*/
	private $nameColumn = '';
	
	/**
	* Name of the table column templates are in
	* @var	string
	*/
	private $dataColumn = '';
	
	/**
	* Additional WHERE clauses for the template fetch SQL
	* @var	string
	*/
	private $extraWhere = '';
	
	/**
	* The name of the function phrases are fetched with
	* @var	string
	*/
	private $langcall = 'gettext';
	
	/**
	* The name of the function phrases are sprintf() parsed with
	* @var	string
	*/
	private $langconst = 'sprintf';
	
	/**
	* Array of pre-compiled templates that are stored to decrease server load
	* @var	array
	*/
	protected $cache = array();
	
	/**
	* A list of the number of times each template has been used
	* @var	array
	*/
	protected $usage = array();
	
	/**
	* A list of templates that weren't cached, but are still used
	* @var	array
	*/
	protected $uncached = array();
	
	/**
	* Whether or not the page has been flush()'d already
	* @var	bool
	*/
	private $doneflush = false;
	
	/**
	* The name of a function that is called before template parsing of phrases and conditionals occurs
	* @var	string
	*/
	private $preParseHook = ':undefined:';
	
	// ###################################################################
	/**
	* Constructor: check required modules
	*/
	public function __construct()
	{
		BSRegister::RequiredModules(array('Db'));
	}
	
	// ###################################################################
	/**
	* Sets the database object to use
	*
	* @param	object	Database object
	*/
	public function setDatabase($db)
	{
		$this->db = $db;
	}
	
	// ###################################################################
	/**
	* Sets the table name and column information
	*
	* @param	string	The database table name
	* @param	string	Name of the column that stores the name of the template
	* @param	string	Name of the column that stores template data
	*/
	public function setDatabaseTable($tableName, $nameColumn, $dataColumn)
	{
		$this->tableName = $tableName;
		$this->nameColumn = $nameColumn;
		$this->dataColumn = $dataColumn;
	}
	
	// ###################################################################
	/**
	* Sets the pre-parse hook method which is called before any other
	* processing is done on the template.
	*
	* @param	string	Method name
	*/
	public function setPreParseHook($hook)
	{
		$this->preParseHook = $hook;
	}
	
	// ###################################################################
	/**
	* Takes an array of template names, loads them, and then stores a
	* parsed version for optimum speed.
	*
	* @param	array	List of template names to be cached
	*/
	public function cache($namearray)
	{
		if (sizeof($this->cache) > 0)
		{
			trigger_error('You cannot cache templates more than once per initialization');
		}
		else
		{
			$templates = $this->db->query("SELECT * FROM " . $this->tableName . " WHERE " . $this->nameColumn . " IN ('" . implode("', '", $namearray) . "')" . ($this->extrawhere ? ' ' . $this->extrawhere : ''));
			while ($template = $this->db->fetch_array($templates))
			{
				$this->cache[ $template[ $this->nameColumn ] ] = $this->_parse($template[ $this->dataColumn ]);
				$this->usage[ $template[ $this->nameColumn ] ] = 0;
			}
		}
	}
	
	// ###################################################################
	/**
	* Loads a template from the cache or the _load function and stores the
	* parsed version of it
	*
	* @param	string	The name of the template
	*
	* @return	string	A parsed and loaded template
	*/
	public function fetch($name)
	{
		if (isset($this->cache["$name"]))
		{
			$template = $this->cache["$name"];
		}
		else
		{
			$this->uncached[] = $name;
			BSRegister::Debug("Manually loading template '$name'");
			$template = $this->_loadTemplate($name);
			$template = $this->_parseTemplate($template);
		}
		
		if (!isset($this->usage["$name"]))
		{
			$this->usage["$name"] = 0;
		}
		
		$this->usage["$name"]++;
		
		return $template;
	}
	
	// ###################################################################
	/**
	* Output a template fully compiled to the browser
	*
	* @param	string	Compiled and ready template
	*/
	public function flush($template)
	{
		ob_start();
		
		if (empty($template))
		{
			trigger_error('There was no output to print');
			exit;
		}
		
		if ($this->doneflush)
		{
			trigger_error('A template has already been sent to the output buffer');
			exit;
		}
		
		$debugBlock = '';
		if (BSRegister::GetDebug())
		{
			if (defined('SVN') AND preg_match('#^\$Id:?#', constant('SVN')))
			{
				$debugBlock .= preg_replace('#\$' . 'Id: (.+?) ([0-9].+?) [0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2}(.+?) (.+?) \$#', "\n<br />\n" . '<div align="center"><strong>\1</strong> &mdash; r\2</div>', constant('SVN'));
			}
			
			if (defined('ISSO_MT_START'))
			{
				$debugBlock .= "\n<div align=\"center\">Executed in " . round(BSFunctions::FetchMicrotimeDiff(ISSO_MT_START), 10) . ' seconds</div>';
			}
			
			$debugBlock .= "\n<br /><div align=\"center\">" . BSRegister::GetDebugList() . "</div>";
			
			$optlist = array();
			$usage = array();
			foreach ($this->usage AS $name => $count)
			{
				if (in_array($name, $this->uncached))
				{
					$optlist[] = $name . '[' . $count . ']';
				}
				$usage[] = $name . " ($count)";
			}
			$sizeof = sizeof($this->uncached);
			if ($sizeof > 0)
			{
				$debugBlock .= "<br /><div style=\"color: red\" align=\"center\"><strong>Uncached Template(s):</strong> $sizeof ( " . implode(' &nbsp; ', $optlist) . " )</div>\n";
			}
			
			$debugBlock .= (sizeof($this->uncached) < 1 ? "<br />\n" : '') . "<div align=\"center\"><select><option>Template Usage (" . array_sum($this->usage) . ")</option>";
			foreach ($usage AS $tpl)
			{
				$debugBlock .= "<option>--- $tpl</option>";
			}
			$debugBlock .= "</select></div>\n";
			
			if (BSRegister::GetType('Db'))
			{
				$queries = BSRegister::GetType('Db')->getHistory();
				
				$debugBlock .= "<br />\n" . '<table cellpadding="4" cellspacing="1" border="0" align="center" width="30%" style="background-color: rgb(60, 60, 60); color: white">' . "\n\t" . '<tr><td><strong>Query Debug</strong></td></tr>';
				
				foreach ($queries AS $query)
				{
					$debugBlock .= "\n\t<tr style=\"background-color: rgb(230, 230, 230); color: black\">";
					$debugBlock .= "\n\t\t<td>";
					$debugBlock .= "\n\t\t\t$query[query]\n\n\t\t\t<div style=\"font-size: 9px;\">($query[time])</div>\n<!--\n$query[trace]\n-->\n\t\t</td>\n\t</tr>";
				}
				
				$debugBlock .= "\n</table>\n\n\n";
			}
		}
		
		$template = str_replace('</body>', $debugBlock . '</body>', $template);

		print($template);
	}
	
	// ###################################################################
	/**
	* Loads an additional template from the database
	*
	* @param	string	The name of the template
	*
	* @return	string	Template data from the database
	*/
	protected function _loadTemplate($name)
	{
		if ($template = $this->db->queryFirst("SELECT * FROM " . $this->tableName . " WHERE " . $this->nameColumn . " = '$name'" . ($this->extrawhere ? ' ' . $this->extrawhere : '')))
		{
			return $template[ $this->dataColumn ];
		}
		else
		{
			trigger_error("The template '$name' could not be loaded");
			exit;
		}
	}
	
	// ###################################################################
	/**
	* A wrapper for all the parsing functions and compiling functins
	*
	* @param	string	Unparsed template data
	*
	* @return	string	Parsed template data
	*/
	protected function _parseTemplate($template)
	{
		$template = str_replace('"', '\"', $template);
		
		if (function_exists($this->preParseHook))
		{
			$template = call_user_func($this->preParseHook, $template);
		}
		
		$template = $this->_parseBlocksAndTokens($template);
		$template = $this->_parsePhrases($template);
		$template = $this->_parseConditionals($template);
		return $template;
	}
	
	// ###################################################################
	/**
	* Parses anything with curly braces {} (including phrases)
	*
	* @param	string	Template data
	*
	* @return	string	Parsed template data
	*/
	private function _parseBlocksAndTokens($template)
	{
		$stack = array();
		$tokens = array();
		
		while (1)
		{
			for ($i = 0; $i < strlen($template); $i++)
			{
				// we've run through the template and there's nothing in the stack--done
				if ($i == strlen($template) - 1 AND sizeof($stack) == 0)
				{
					return $template;
				}
				
				if ($template[$i] == '{')
				{
					// ignore escaped sequences
					if ($template[$i - 1] != '\\')
					{
						array_push($stack, $i);
					}
				}
				else if ($template[$i] == '}')
				{
					// there's no stack so it was probably escaped
					if (sizeof($stack) == 0)
					{
						continue;
					}
					// we're good and nested
					else if (sizeof($stack) == 1)
					{
						$open = array_pop($stack);
						$token = substr($template, $open, $i - $open + 1);
						$template = str_replace($token, $this->_parseToken($token), $template);
						break;
					}
					// just pop it off
					else
					{
						array_pop($stack);
					}
				}
			}
		}
	}
	
	// ###################################################################
	/**
	* Parses a curly brace token {}
	*
	* @param	string	Token
	*
	* @return	string	Parsed value
	*/
	private function _parseToken($token)
	{
		// knock of the braces
		$token = substr($token, 1, strlen($token) - 2);
		
		// language token
		if ($token[0] == '@' AND $token[1] == '\\' AND $token[2] == '"')
		{
			return '" . ' . $this->langcall . '(\'' . str_replace(array('\\\"', "'"), array('"', "\'"), substr($token, 3, strlen($token) - 5)) . '\')' . ' . "';
		}
		// normal PHP code
		else
		{
			return '" . (' . $token . ') . "';
		}
	}
	
	// ###################################################################
	/**
	* Prepares language and locale information inside templates
	*
	* @param	string	Template data to be processed
	*
	* @return	string	Language-ready template data
	*/
	private function _parsePhrases($template)
	{
		$tag_start = '<lang ';
		$tag_start_end = '\">';
		$tag_end = '</lang>';
		
		$location_start = -1;
		$location_end = -1;
		
		while (1)
		{
			// Find the start language object tag
			$location_start = strpos($template, $tag_start, $location_end + 1);
			if ($location_start === false)
			{
				break;
			}
		
			// Find the end tag
			$location_end = strpos($template, $tag_end, $location_end + strlen($tag_end));
			if ($location_end === false)
			{
				break;
			}
			
			// Extract the language object
			$phrase_bunch = substr($template, $location_start, ($location_end + strlen($tag_end)) - $location_start);
			
			// Find the close to the opening <lang>
			$close_of_open = strpos($phrase_bunch, $tag_start_end);
			if ($close_of_open === false)
			{
				break;
			}
			
			// Extract the opening tag so it can be parsed
			$init_tag = substr($phrase_bunch, 0, ($close_of_open + strlen($tag_start_end)));
			$init_tag = str_replace($tag_start, '', $init_tag);
			$init_tag = substr($init_tag, 0, strlen($init_tag) - 1);
			
			// Get the args out of the tag
			$args = preg_split('#([0-9].*?)=#', $init_tag);
			foreach ($args AS $arg)
			{
				if ($arg AND $arg != ' ')
				{
					$arg = trim($arg);
					$arg = substr($arg, 2);
					$arg = substr($arg, 0, strlen($arg) - 2);
					$arglist[] = $arg;
				}
			}
			
			// Just get the phrase name
			$phrase_name = preg_replace('#<lang(.*?)>(.*?)</lang>#i', '$2', $phrase_bunch);
			
			// Wrap the parsed data into the build function
			$function_wrap = '" . ' . $this->langconst . '("' . $phrase_name . '", "' . implode('", "', $arglist) . '") . "';
			
			// Replace the fully-parsed string back into the template
			$template = substr_replace($template, $function_wrap, $location_start, $location_end + strlen($tag_end) - $location_start);
			
			unset($arglist);
		}
		
		return $template;
	}
	
	// ###################################################################
	/**
	* Parser for in-line template conditionals
	*
	* @param	string	Template data awaiting processing
	*
	* @return	string	Parsed template data
	*/
	private function _parseConditionals($template)
	{
		// tag data
		$tag_start = '<if condition=\"';
		$tag_start_end = '\">';
		$tag_else = '<else />';
		$tag_end = '</if>';
		
		// tag stack
		$stack = array();
		
		// the information about the current active tag
		$tag_full = array();
		$parsed = array();
		
		// start at 0
		$offset = 0;
		
		while (1)
		{
			if (strpos($template, $tag_start) === false)
			{
				break;
			}
			
			for ($i = $offset; $i < strlen($template); $i++)
			{
				// we've found ourselves a conditional!
				if (substr($template, $i, strlen($tag_start)) == $tag_start)
				{
					// push the position into the tag stack
					if ($tag_full)
					{
						array_push($stack, $i);
					}
					else
					{
						$tag_full['posi'] = $i;
					}
				}
				// locate else tags
				else if (substr($template, $i, strlen($tag_else)) == $tag_else)
				{
					if (sizeof($stack) == 0 AND !isset($tag_full['else']))
					{
						$tag_full['else'] = $i;
					}
				}
				// do we have an end tag?
				else if (substr($template, $i, strlen($tag_end)) == $tag_end)
				{
					if (sizeof($stack) != 0)
					{
						array_pop($stack);
						continue;
					}
					
					// calculate the position of the end tag
					$tag_full['posf'] = $i + strlen($tag_end) - 1;
					
					// extract the entire conditional from the template
					$fullspread = substr($template, $tag_full['posi'], $tag_full['posf'] - $tag_full['posi'] + 1);
					
					// remove the beginning tag
					$conditional = substr($fullspread, strlen($tag_start));
					
					// find the end of the expression
					$temp_end = strpos($conditional, $tag_start_end);
					
					// save the expression
					$parsed[0] = stripslashes(substr($conditional, 0, $temp_end));
					
					// remove the expression from the conditional
					$conditional = substr($conditional, strlen($parsed[0]) + strlen($tag_start_end));
					
					// remove the tailing end tag
					$conditional = substr($conditional, 0, strlen($conditional) - strlen($tag_end));
					
					// handle the else
					if (isset($tag_full['else']))
					{
						// now relative to the start of the <if>
						$relpos = $tag_full['else'] - $tag_full['posi'];
						
						// calculate the length of the expression and opening tag
						$length = strlen($parsed[0]) + strlen($tag_start) + strlen($tag_start_end);
						
						// relative to the start of iftrue
						$elsepos = $relpos - $length;
	
						$parsed[1] = substr($conditional, 0, $elsepos);
						$parsed[2] = substr($conditional, $elsepos + strlen($tag_else));
					}
					// no else to handle
					else
					{
						$parsed[1] = $conditional;
						$parsed[2] = '';
					}
					
					// final parsed output
					$parsed = '" . ((' . stripslashes($parsed[0]) . ') ? "' . $parsed[1] . '" : "' . $parsed[2] . '") . "';
					
					// replace the conditional
					$template = str_replace($fullspread, $parsed, $template);
					
					// reset the parser
					$offset = $tag_full['posi'] + strlen($tag_start) + strlen($tag_start_end);
					$tag_full = array();
					$stack = array();
					$parsed = array();
					unset($fullspread, $conditional, $temp_end, $relpos, $length, $elsepos);
					break;
				}
			}
		}

		return $template;
	}
}

// ###################################################################
/**
* Debugging function used to print characters in a string that are
* around a certain position.
*
* @access	private
*
* @param	string	The haystack string
* @param	integer	Position to print around
*/
function print_around($str, $pos)
{
	echo '>>> PA >>>>>>>>[';
	echo htmlspecialchars($str[ $pos - 5 ]);
	echo htmlspecialchars($str[ $pos - 4 ]);
	echo htmlspecialchars($str[ $pos - 3 ]);
	echo htmlspecialchars($str[ $pos - 2 ]);
	echo htmlspecialchars($str[ $pos - 1 ]);
	echo 'Š';
	echo htmlspecialchars($str[ $pos + 0 ]);
	echo htmlspecialchars($str[ $pos + 1 ]);
	echo htmlspecialchars($str[ $pos + 2 ]);
	echo htmlspecialchars($str[ $pos + 3 ]);
	echo htmlspecialchars($str[ $pos + 4 ]);
	echo htmlspecialchars($str[ $pos + 5 ]);
	echo ']<<<<<<<< PA <<<';
}

/*=====================================================================*\
|| ###################################################################
|| # $HeadURL$
|| # $Id$
|| ###################################################################
\*=====================================================================*/
?>