// public configuration variables

var $left_delimiter = "";

var $right_delimiter = "";

var $plugins_dir = "";

var $template_dir = "";

var $reserved_template_varname = "";

var $default_modifiers = array();

var $php_extract_vars = true; // Set this to false if you do not want the $this->_tpl variables to be extracted for use by PHP code inside the template.

// private internal variables

var $_vars = array(); // stores all internal assigned variables

var $_confs = array(); // stores all internal config variables

var $_plugins = array(); // stores all internal plugins

var $_linenum = 0; // the current line number in the file we are processing

var $_file = ""; // the current file we are processing

var $_literal = array(); // stores all literal blocks

var $_foreachelse_stack = array();

var $_for_stack = 0;

var $_sectionelse_stack = array(); // keeps track of whether section had 'else' part

var $_switch_stack = array();

var $_tag_stack = array();

var $_require_stack = array(); // stores all files that are "required" inside of the template

var $_php_blocks = array(); // stores all of the php blocks

var $_error_level = null;

var $_sl_md5 = '39fc70570b8b60cbc1b85839bf242aff';

var $_db_qstr_regexp = null; // regexps are setup in the constructor

var $_si_qstr_regexp = null;

var $_qstr_regexp = null;

var $_func_regexp = null;

var $_var_bracket_regexp = null;

var $_dvar_regexp = null;

var $_cvar_regexp = null;

var $_svar_regexp = null;

var $_mod_regexp = null;

var $_var_regexp = null;

var $_obj_params_regexp = null;

var $_templatelite_vars = array();

function Template_Lite_compiler()

{

// matches double quoted strings:

// "foobar"

// "foo\"bar"

// "foobar" . "foo\"bar"

$this->_db_qstr_regexp = '"[^"\\\\]*(?:\\\\.[^"\\\\]*)*"';

// matches single quoted strings:

// 'foobar'

// 'foo\'bar'

$this->_si_qstr_regexp = '\'[^\'\\\\]*(?:\\\\.[^\'\\\\]*)*\'';

// matches single or double quoted strings

$this->_qstr_regexp = '(?:' . $this->_db_qstr_regexp . '|' . $this->_si_qstr_regexp . ')';

// matches bracket portion of vars

// [0]

// [foo]

// [$bar]

// [#bar#]

$this->_var_bracket_regexp = '\[[\$|\#]?\w+\#?\]';

// $this->_var_bracket_regexp = '\[\$?[\w\.]+\]';

// matches section vars:

// %foo.bar%

$this->_svar_regexp = '\%\w+\.\w+\%';

// matches $ vars (not objects):

// $foo

// $foo[0]

// $foo[$bar]

// $foo[5][blah]

// $this->_dvar_regexp = '\$[a-zA-Z0-9_]{1,}(?:' . $this->_var_bracket_regexp . ')*(?:' . $this->_var_bracket_regexp . ')*';

$this->_dvar_regexp = '\$[a-zA-Z0-9_]{1,}(?:' . $this->_var_bracket_regexp . ')*(?:\.\$?\w+(?:' . $this->_var_bracket_regexp . ')*)*';

// matches config vars:

// #foo#

// #foobar123_foo#

$this->_cvar_regexp = '\#[a-zA-Z0-9_]{1,}(?:' . $this->_var_bracket_regexp . ')*(?:' . $this->_var_bracket_regexp . ')*\#';

// matches valid variable syntax:

// $foo

// 'text'

// "text"

$this->_var_regexp = '(?:(?:' . $this->_dvar_regexp . '|' . $this->_cvar_regexp . ')|' . $this->_qstr_regexp . ')';

// matches valid modifier syntax:

// |foo

// |@foo

// |foo:"bar"

// |foo:$bar

// |foo:"bar":$foobar

// |foo|bar

$this->_mod_regexp = '(?:\|@?[0-9a-zA-Z_]+(?::(?>-?\w+|' . $this->_dvar_regexp . '|' . $this->_qstr_regexp .'))*)';

// matches valid function name:

// foo123

// _foo_bar

$this->_func_regexp = '[a-zA-Z_]+';

// $this->_func_regexp = '[a-zA-Z_]\w*';

$this->_const_regexp = '(?:[a-zA-Z_]+::)?[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*';

}

function _compile_file($file_contents)

{

// Remove BOM from templates

if(substr($file_contents, 0,3) == pack("CCC",0xef,0xbb,0xbf)) {

$file_contents = substr($file_contents, 3);

}

$ldq = preg_quote($this->left_delimiter);

$rdq = preg_quote($this->right_delimiter);

$_match = array(); // a temp variable for the current regex match

$tags = array(); // all original tags

$text = array(); // all original text

$compiled_text = '<?php /* '.$this->_version.' '.strftime("%Y-%m-%d %H:%M:%S %Z").' */ ?>'; // stores the compiled result

$compiled_tags = array(); // all tags and stuff

$this->_require_stack = array();

$this->_load_filters();

if (count($this->_plugins['prefilter']) > 0)

{

foreach ($this->_plugins['prefilter'] as $function)

{

if ($function === false)

{

continue;

}

$file_contents = $function($file_contents, $this);

}

}

// remove all comments

$file_contents = preg_replace("!{$ldq}\*.*?\*{$rdq}!se","",$file_contents);

// replace all php start and end tags

$file_contents = preg_replace('%(<\?(?!php|=|$))%i', '<?php echo \'\\1\'?>', $file_contents);

// remove literal blocks

preg_match_all("!{$ldq}\s*literal\s*{$rdq}(.*?){$ldq}\s*/literal\s*{$rdq}!s", $file_contents, $_match);

$this->_literal = $_match[1];

$file_contents = preg_replace("!{$ldq}\s*literal\s*{$rdq}(.*?){$ldq}\s*/literal\s*{$rdq}!s", stripslashes($ldq . "literal" . $rdq), $file_contents);

// remove php blocks

preg_match_all("!{$ldq}\s*php\s*{$rdq}(.*?){$ldq}\s*/php\s*{$rdq}!s", $file_contents, $_match);

$this->_php_blocks = $_match[1];

$file_contents = preg_replace("!{$ldq}\s*php\s*{$rdq}(.*?){$ldq}\s*/php\s*{$rdq}!s", stripslashes($ldq . "php" . $rdq), $file_contents);

// gather all template tags

preg_match_all("!{$ldq}\s*(.*?)\s*{$rdq}!s", $file_contents, $_match);

$tags = $_match[1];

// put all of the non-template tag text blocks into an array, using the template tags as delimiters

$text = preg_split("!{$ldq}.*?{$rdq}!s", $file_contents);

// compile template tags

$count_tags = count($tags);

for ($i = 0, $for_max = $count_tags; $i < $for_max; $i++)

{

$this->_linenum += substr_count($text[$i], "\n");

$compiled_tags[] = $this->_compile_tag($tags[$i]);

$this->_linenum += substr_count($tags[$i], "\n");

}

// build the compiled template by replacing and interleaving text blocks and compiled tags

$count_compiled_tags = count($compiled_tags);

for ($i = 0, $for_max = $count_compiled_tags; $i < $for_max; $i++)

{

if ($compiled_tags[$i] == '') {

$text[$i+1] = preg_replace('~^(\r\n|\r|\n)~', '', $text[$i+1]);

}

$compiled_text .= $text[$i].$compiled_tags[$i];

}

$compiled_text .= $text[$i];

foreach ($this->_require_stack as $key => $value)

{

$compiled_text = '<?php require_once(\''. $this->_get_plugin_dir($key) . $key . '\'); $this->register_' . $value[0] . '("' . $value[1] . '", "' . $value[2] . '", false); ?>' . $compiled_text;

}

// remove unnecessary close/open tags

$compiled_text = preg_replace('!\?>\n?<\?php!', '', $compiled_text);

if (count($this->_plugins['postfilter']) > 0)

{

foreach ($this->_plugins['postfilter'] as $function)

{

if ($function === false)

{

continue;

}

$compiled_text = $function($compiled_text, $this);

}

}

return $compiled_text;

}

function _compile_tag($tag)

{

$_match = array(); // stores the tags

$_result = ""; // the compiled tag

$_variable = ""; // the compiled variable

// extract the tag command, modifier and arguments

preg_match_all('/(?:(' . $this->_const_regexp . '|' . $this->_var_regexp . '|' . $this->_svar_regexp . '|\/?' . $this->_func_regexp . ')(' . $this->_mod_regexp . '*)(?:\s*[,\.]\s*)?)(?:\s+(.*))?/xs', $tag, $_match);

if ($_match[1][0]{0} == '$' || ($_match[1][0]{0} == '#' && $_match[1][0]{strlen($_match[1][0]) - 1} == '#') || $_match[1][0]{0} == "'" || $_match[1][0]{0} == '"' || $_match[1][0]{0} == '%')

{

$_result = $this->_parse_variables($_match[1], $_match[2]);

return "<?php echo $_result; ?>";

}

elseif (defined($_match[1][0]))

{

return "<?php echo constant('".$_match[1][0]."'); ?>";

}

// process a function

$tag_command = $_match[1][0];

$tag_modifiers = !empty($_match[2][0]) ? $_match[2][0] : null;

$tag_arguments = !empty($_match[3][0]) ? $_match[3][0] : null;

$_result = $this->_parse_function($tag_command, $tag_modifiers, $tag_arguments);

return $_result;

}

function _parse_function($function, $modifiers, $arguments)

{

switch ($function) {

case 'include':

if (!function_exists('compile_include'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.include.php");

}

return compile_include($arguments, $this);

break;

case 'insert':

$_args = $this->_parse_arguments($arguments);

if (!isset($_args['name']))

{

$this->trigger_error("missing 'name' attribute in 'insert'", E_USER_ERROR, __FILE__, __LINE__);

}

foreach ($_args as $key => $value)

{

if (is_bool($value))

{

$value = $value ? 'true' : 'false';

}

$arg_list[] = "'$key' => $value";

}

return '<?php echo $this->_run_insert(array(' . implode(', ', (array)$arg_list) . ')); ?>';

break;

case 'ldelim':

return $this->left_delimiter;

break;

case 'rdelim':

return $this->right_delimiter;

break;

case 'literal':

list (,$literal) = each($this->_literal);

$this->_linenum += substr_count($literal, "\n");

return "<?php echo '" . str_replace("'", "\'", str_replace("\\", "\\\\", $literal)) . "'; ?>";

break;

case 'php':

list (,$php_block) = each($this->_php_blocks);

$this->_linenum += substr_count($php_block, "\n");

$php_extract = '';

if($this->php_extract_vars)

{

if (strnatcmp(PHP_VERSION, '4.3.0') >= 0)

{

$php_extract = '<?php extract($this->_vars, EXTR_REFS); ?>' . "\n";

}

else

{

$php_extract = '<?php extract($this->_vars); ?>' . "\n";

}

}

return $php_extract . '<?php '.$php_block.' ?>';

break;

case 'foreach':

array_push($this->_foreachelse_stack, false);

$_args = $this->_parse_arguments($arguments);

if (!isset($_args['from']))

{

$this->trigger_error("missing 'from' attribute in 'foreach'", E_USER_ERROR, __FILE__, __LINE__);

}

if (!isset($_args['value']) && !isset($_args['item']))

{

$this->trigger_error("missing 'value' attribute in 'foreach'", E_USER_ERROR, __FILE__, __LINE__);

}

if (isset($_args['value']))

{

$_args['value'] = $this->_dequote($_args['value']);

}

elseif (isset($_args['item']))

{

$_args['value'] = $this->_dequote($_args['item']);

}

isset($_args['key']) ? $_args['key'] = "\$this->_vars['".$this->_dequote($_args['key'])."'] => " : $_args['key'] = '';

$_result = '<?php if (count((array)' . $_args['from'] . ')): ?>';

if (isset($_args['name']))

{

$foreach_props = '$this->_templatelite_vars[\'foreach\'][' . $_args['name'] . ']';

$_result .= '<?php ' . $foreach_props . '[\'iteration\'] = 0; ' . $foreach_props . '[\'total\'] = count((array)' . $_args['from'] . '); ?>';

}

$_result .= '<?php foreach ((array)' . $_args['from'] . ' as ' . $_args['key'] . '$this->_vars[\'' . $_args['value'] . '\']): ?>';

if (isset($_args['name']))

{

$_result .= '<?php ' . $foreach_props . '[\'iteration\']++; '

. $foreach_props . '[\'first\'] = ' . $foreach_props . '[\'iteration\'] == 1 ? true : false; '

. $foreach_props . '[\'last\'] = ' . $foreach_props . '[\'iteration\'] == ' . $foreach_props . '[\'total\'] ? true : false; '

. '?>';

}

return $_result;

break;

case 'foreachelse':

$this->_foreachelse_stack[count($this->_foreachelse_stack)-1] = true;

return "<?php endforeach; else: ?>";

break;

case '/foreach':

if (array_pop($this->_foreachelse_stack))

{

return "<?php endif; ?>";

}

else

{

return "<?php endforeach; endif; ?>";

}

break;

case 'for':

$this->_for_stack++;

$_args = $this->_parse_arguments($arguments);

if (!isset($_args['start']))

{

$this->trigger_error("missing 'start' attribute in 'for'", E_USER_ERROR, __FILE__, __LINE__);

}

if (!isset($_args['stop']))

{

$this->trigger_error("missing 'stop' attribute in 'for'", E_USER_ERROR, __FILE__, __LINE__);

}

if (!isset($_args['step']))

{

$_args['step'] = 1;

}

$_result = '<?php for($for' . $this->_for_stack . ' = ' . $_args['start'] . '; ((' . $_args['start'] . ' < ' . $_args['stop'] . ') ? ($for' . $this->_for_stack . ' < ' . $_args['stop'] . ') : ($for' . $this->_for_stack . ' > ' . $_args['stop'] . ')); $for' . $this->_for_stack . ' += ((' . $_args['start'] . ' < ' . $_args['stop'] . ') ? ' . $_args['step'] . ' : -' . $_args['step'] . ')): ?>';

if (isset($_args['value']))

{

$_result .= '<?php $this->assign(\'' . $this->_dequote($_args['value']) . '\', $for' . $this->_for_stack . '); ?>';

}

return $_result;

break;

case '/for':

$this->_for_stack--;

return "<?php endfor; ?>";

break;

case 'section':

array_push($this->_sectionelse_stack, false);

if (!function_exists('compile_section_start'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.section_start.php");

}

return compile_section_start($arguments, $this);

break;

case 'sectionelse':

$this->_sectionelse_stack[count($this->_sectionelse_stack)-1] = true;

return "<?php endfor; else: ?>";

break;

case '/section':

if (array_pop($this->_sectionelse_stack))

{

return "<?php endif; ?>";

}

else

{

return "<?php endfor; endif; ?>";

}

break;

case 'while':

$_args = $this->_compile_if($arguments, false, true);

return '<?php while(' . $_args . '): ?>';

break;

case '/while':

return "<?php endwhile; ?>";

break;

case 'if':

return $this->_compile_if($arguments);

break;

case 'else':

return "<?php else: ?>";

break;

case 'elseif':

return $this->_compile_if($arguments, true);

break;

case '/if':

return "<?php endif; ?>";

break;

case 'assign':

$_args = $this->_parse_arguments($arguments);

if (!isset($_args['var']))

{

$this->trigger_error("missing 'var' attribute in 'assign'", E_USER_ERROR, __FILE__, __LINE__);

}

if (!isset($_args['value']))

{

$this->trigger_error("missing 'value' attribute in 'assign'", E_USER_ERROR, __FILE__, __LINE__);

}

return '<?php $this->assign(\'' . $this->_dequote($_args['var']) . '\', ' . $_args['value'] . '); ?>';

break;

case 'switch':

$_args = $this->_parse_arguments($arguments);

if (!isset($_args['from']))

{

$this->trigger_error("missing 'from' attribute in 'switch'", E_USER_ERROR, __FILE__, __LINE__);

}

array_push($this->_switch_stack, array("matched" => false, "var" => $this->_dequote($_args['from'])));

return;

break;

case '/switch':

array_pop($this->_switch_stack);

return '<?php break; endswitch; ?>';

break;

case 'case':

if (count($this->_switch_stack) > 0)

{

$_result = "<?php ";

$_args = $this->_parse_arguments($arguments);

$_index = count($this->_switch_stack) - 1;

if (!$this->_switch_stack[$_index]["matched"])

{

$_result .= 'switch(' . $this->_switch_stack[$_index]["var"] . '): ';

$this->_switch_stack[$_index]["matched"] = true;

}

else

{

$_result .= 'break; ';

}

if (!empty($_args['value']))

{

$_result .= 'case '.$_args['value'].': ';

}

else

{

$_result .= 'default: ';

}

return $_result . ' ?>';

}

else

{

$this->trigger_error("unexpected 'case', 'case' can only be in a 'switch'", E_USER_ERROR, __FILE__, __LINE__);

}

break;

case 'config_load':

$_args = $this->_parse_arguments($arguments);

if (empty($_args['file']))

{

$this->trigger_error("missing 'file' attribute in 'config_load' tag", E_USER_ERROR, __FILE__, __LINE__);

}

isset($_args['section']) ? null : $_args['section'] = 'null';

isset($_args['var']) ? null : $_args['var'] = 'null';

return '<?php $this->config_load(' . $_args['file'] . ', ' . $_args['section'] . ', ' . $_args['var'] . '); ?>';

break;

default:

$_result = "";

if ($this->_compile_compiler_function($function, $arguments, $_result))

{

return $_result;

}

else if ($this->_compile_custom_block($function, $modifiers, $arguments, $_result))

{

return $_result;

}

elseif ($this->_compile_custom_function($function, $modifiers, $arguments, $_result))

{

return $_result;

}

else

{

throw new Exception($function." function does not exist");

$this->trigger_error($function." function does not exist", E_USER_ERROR, __FILE__, __LINE__);

}

break;

}

}

function _compile_compiler_function($function, $arguments, &$_result)

{

if ($function = $this->_plugin_exists($function, "compiler"))

{

$_args = $this->_parse_arguments($arguments);

$_result = '<?php ' . $function($_args, $this) . ' ?>';

return true;

}

else

{

return false;

}

}

function _compile_custom_function($function, $modifiers, $arguments, &$_result)

{

if (!function_exists('compile_compile_custom_function'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.compile_custom_function.php");

}

return compile_compile_custom_function($function, $modifiers, $arguments, $_result, $this);

}

function _compile_custom_block($function, $modifiers, $arguments, &$_result)

{

if (!function_exists('compile_compile_custom_block'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.compile_custom_block.php");

}

return compile_compile_custom_block($function, $modifiers, $arguments, $_result, $this);

}

function _compile_if($arguments, $elseif = false, $while = false)

{

if (!function_exists('compile_compile_if'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.compile_if.php");

}

return compile_compile_if($arguments, $elseif, $while, $this);

}

function _parse_is_expr($is_arg, $_arg)

{

if (!function_exists('compile_parse_is_expr'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.parse_is_expr.php");

}

return compile_parse_is_expr($is_arg, $_arg, $this);

}

function _compile_config($variable)

{

if (!function_exists('compile_compile_config'))

{

require_once(TEMPLATE_LITE_DIR . "internal/compile.compile_config.php");

}

return compile_compile_config($variable, $this);

}

function _dequote($string)

{

if (($string{0} == "'" || $string{0} == '"') && $string{strlen($string)-1} == $string{0})

{

return substr($string, 1, -1);

}

else

{

return $string;

}

}

function _parse_arguments($arguments)

{

$_match = array();

$_result = array();

$_variables = array();

preg_match_all('/(?:' . $this->_qstr_regexp . ' | (?>[^"\'=\s]+))+|[=]/x', $arguments, $_match);

/*

Parse state:

0 - expecting attribute name

1 - expecting '='

2 - expecting attribute value (not '=')

*/

$state = 0;

foreach($_match[0] as $value)

{

switch($state) {

case 0:

// valid attribute name

if (is_string($value))

{

$a_name = $value;

$state = 1;

}

else

{

$this->trigger_error("invalid attribute name: '$token'", E_USER_ERROR, __FILE__, __LINE__);

}

break;

case 1:

if ($value == '=')

{

$state = 2;

}

else

{

$this->trigger_error("expecting '=' after '$last_value'", E_USER_ERROR, __FILE__, __LINE__);

}

break;

case 2:

if ($value != '=')

{

if ($value == 'yes' || $value == 'on' || $value == 'true')

{

$value = true;

}

elseif ($value == 'no' || $value == 'off' || $value == 'false')

{

$value = false;

}

elseif ($value == 'null')

{

$value = null;

}

if(!preg_match_all('/(?:(' . $this->_var_regexp . '|' . $this->_svar_regexp . ')(' . $this->_mod_regexp . '*))(?:\s+(.*))?/xs', $value, $_variables))

{

$_result[$a_name] = $value;

}

else

{

$_result[$a_name] = $this->_parse_variables($_variables[1], $_variables[2]);

}

$state = 0;

}

else

{

$this->trigger_error("'=' cannot be an attribute value", E_USER_ERROR, __FILE__, __LINE__);

}

break;

}

$last_value = $value;

}

if($state != 0)

{

if($state == 1)

{

$this->trigger_error("expecting '=' after attribute name '$last_value'", E_USER_ERROR, __FILE__, __LINE__);

}

else

{

$this->trigger_error("missing attribute value", E_USER_ERROR, __FILE__, __LINE__);

}

}

return $_result;

}

function _parse_variables($variables, $modifiers)

{

$_result = "";

foreach($variables as $key => $value)

{

$tag_variable = trim($variables[$key]);

if(!empty($this->default_modifiers) && !preg_match('!(^|\|)templatelite:nodefaults($|\|)!',$modifiers[$key]))

{

$_default_mod_string = implode('|',(array)$this->default_modifiers);

$modifiers[$key] = empty($modifiers[$key]) ? $_default_mod_string : $_default_mod_string . '|' . $modifiers[$key];

}

if (empty($modifiers[$key]))

{

$_result .= $this->_parse_variable($tag_variable).'.';

}

else

{

$_result .= $this->_parse_modifier($this->_parse_variable($tag_variable), $modifiers[$key]).'.';

}

}

return substr($_result, 0, -1);

}

function _parse_variable($variable)

{

// replace variable with value

if ($variable{0} == "\$")

{

// replace the variable

return $this->_compile_variable($variable);

}

elseif ($variable{0} == '#')

{

// replace the config variable

return $this->_compile_config($variable);

}

elseif ($variable{0} == '"')

{

// expand the quotes to pull any variables out of it

// fortunately variables inside of a quote aren't fancy, no modifiers, no quotes

// just get everything from the $ to the ending space and parse it

// if the $ is escaped, then we won't expand it

$_result = "";

preg_match_all('/(?:[^\\\]' . $this->_dvar_regexp . ')/', substr($variable, 1, -1), $_expand); // old match

// preg_match_all('/(?:[^\\\]' . $this->_dvar_regexp . '[^\\\])/', $variable, $_expand);

$_expand = array_unique($_expand[0]);

foreach($_expand as $key => $value)

{

$_expand[$key] = trim($value);

if (strpos($_expand[$key], '$') > 0)

{

$_expand[$key] = substr($_expand[$key], strpos($_expand[$key], '$'));

}

}

$_result = $variable;

foreach($_expand as $value)

{

$value = trim($value);

$_result = str_replace($value, '" . ' . $this->_parse_variable($value) . ' . "', $_result);

}

$_result = str_replace("`", "", $_result);

return $_result;

}

elseif ($variable{0} == "'")

{

// return the value just as it is

return $variable;

}

elseif ($variable{0} == "%")

{

return $this->_parse_section_prop($variable);

}

else

{

// return it as is; i believe that there was a reason before that i did not just return it as is,

// but i forgot what that reason is ...

// the reason i return the variable 'as is' right now is so that unquoted literals are allowed

return $variable;

}

}

function _parse_section_prop($section_prop_expr)

{

$parts = explode('|', $section_prop_expr, 2);

$var_ref = $parts[0];

$modifiers = isset($parts[1]) ? $parts[1] : '';

preg_match('!%(\w+)\.(\w+)%!', $var_ref, $match);

$section_name = $match[1];

$prop_name = $match[2];

$output = "\$this->_sections['$section_name']['$prop_name']";

$this->_parse_modifier($output, $modifiers);

return $output;

}

function _compile_variable($variable)

{

$_result = "";

// remove the $

$variable = substr($variable, 1);

// get [foo] and .foo and (...) pieces

preg_match_all('!(?:^\w+)|(?:' . $this->_var_bracket_regexp . ')|\.\$?\w+|\S+!', $variable, $_match);

$variable = $_match[0];

$var_name = array_shift($variable);

if ($var_name == $this->reserved_template_varname)

{

if ($variable[0]{0} == '[' || $variable[0]{0} == '.')

{

$find = array("[", "]", ".");

switch(strtoupper(str_replace($find, "", $variable[0])))

{

case 'GET':

$_result = "\$_GET";

break;

case 'POST':

$_result = "\$_POST";

break;

case 'COOKIE':

$_result = "\$_COOKIE";

break;

case 'ENV':

$_result = "\$_ENV";

break;

case 'SERVER':

$_result = "\$_SERVER";

break;

case 'SESSION':

$_result = "\$_SESSION";

break;

case 'NOW':

$_result = "time()";

break;

case 'SECTION':

$_result = "\$this->_sections";

break;

case 'LDELIM':

$_result = "\$this->left_delimiter";

break;

case 'RDELIM':

$_result = "\$this->right_delimiter";

break;

case 'VERSION':

$_result = "\$this->_version";

break;

case 'CONFIG':

$_result = "\$this->_confs";

break;

case 'TEMPLATE':

$_result = "\$this->_file";

break;

case 'CONST':

$constant = str_replace($find, "", $_match[0][2]);

$_result = "constant('$constant')";

$variable = array();

break;

default:

$_var_name = str_replace($find, "", $variable[0]);

$_result = "\$this->_templatelite_vars['$_var_name']";

break;

}

array_shift($variable);

}

else

{

$this->trigger_error('$' . $var_name.implode('', $variable) . ' is an invalid $templatelite reference', E_USER_ERROR, __FILE__, __LINE__);

}

}

else

{

$_result = "\$this->_vars['$var_name']";

}

foreach ($variable as $var)

{

if ($var{0} == '[')

{

$var = substr($var, 1, -1);

if (is_numeric($var))

{

$_result .= "[$var]";

}

elseif ($var{0} == '$')

{

$_result .= "[" . $this->_compile_variable($var) . "]";

}

elseif ($var{0} == '#')

{

$_result .= "[" . $this->_compile_config($var) . "]";

}

else

{

// $_result .= "['$var']";

$parts = explode('.', $var);

$section = $parts[0];

$section_prop = isset($parts[1]) ? $parts[1] : 'index';

$_result .= "[\$this->_sections['$section']['$section_prop']]";

}

}

else if ($var{0} == '.')

{

if ($var{1} == '$')

{

$_result .= "[\$this->_TPL['" . substr($var, 2) . "']]";

}

else

{

$_result .= "['" . substr($var, 1) . "']";

}

}

else if (substr($var,0,2) == '->')

{

if(substr($var,2,2) == '__')

{

$this->trigger_error('call to internal object members is not allowed', E_USER_ERROR, __FILE__, __LINE__);

}

else if (substr($var, 2, 1) == '$')

{

$_output .= '->{(($var=$this->_TPL[\''.substr($var,3).'\']) && substr($var,0,2)!=\'__\') ? $_var : $this->trigger_error("cannot access property \\"$var\\"")}';

}

}

else

{

$this->trigger_error('$' . $var_name.implode('', $variable) . ' is an invalid reference', E_USER_ERROR, __FILE__, __LINE__);

}

}

return $_result;

}

function _parse_modifier($variable, $modifiers)

{

$_match = array();

$_mods = array(); // stores all modifiers

$_args = array(); // modifier arguments

preg_match_all('!\|(@?\w+)((?>:(?:'. $this->_qstr_regexp . '|[^|]+))*)!', '|' . $modifiers, $_match);

list(, $_mods, $_args) = $_match;

$count_mods = count($_mods);

for ($i = 0, $for_max = $count_mods; $i < $for_max; $i++)

{

preg_match_all('!:(' . $this->_qstr_regexp . '|[^:]+)!', $_args[$i], $_match);

$_arg = $_match[1];

if ($_mods[$i]{0} == '@')

{

$_mods[$i] = substr($_mods[$i], 1);

$_map_array = 0;

} else {

$_map_array = 1;

}

foreach($_arg as $key => $value)

{

$_arg[$key] = $this->_parse_variable($value);

}

if ($this->_plugin_exists($_mods[$i], "modifier") || function_exists($_mods[$i]))

{

if (count($_arg) > 0)

{

$_arg = ', '.implode(', ', $_arg);

}

else

{

$_arg = '';

}

$php_function = "PHP";

if ($this->_plugin_exists($_mods[$i], "modifier"))

{

$php_function = "plugin";

}

$variable = "\$this->_run_modifier($variable, '$_mods[$i]', '$php_function', $_map_array$_arg)";

}

else

{

$variable = "\$this->trigger_error(\"'" . $_mods[$i] . "' modifier does not exist\", E_USER_NOTICE, __FILE__, __LINE__);";

}

}

return $variable;

}

function _plugin_exists($function, $type)

{

// check for object functions

if (isset($this->_plugins[$type][$function]) && is_array($this->_plugins[$type][$function]) && is_object($this->_plugins[$type][$function][0]) && method_exists($this->_plugins[$type][$function][0], $this->_plugins[$type][$function][1]))

{

return '$this->_plugins[\'' . $type . '\'][\'' . $function . '\'][0]->' . $this->_plugins[$type][$function][1];

}

// check for standard functions

if (isset($this->_plugins[$type][$function]) && function_exists($this->_plugins[$type][$function]))

{

return $this->_plugins[$type][$function];

}

// check for a plugin in the plugin directory

if (file_exists($this->_get_plugin_dir($type . '.' . $function . '.php') . $type . '.' . $function . '.php'))

{

require_once($this->_get_plugin_dir($type . '.' . $function . '.php') . $type . '.' . $function . '.php');

if (function_exists('tpl_' . $type . '_' . $function))

{

$this->_require_stack[$type . '.' . $function . '.php'] = array($type, $function, 'tpl_' . $type . '_' . $function);

return ('tpl_' . $type . '_' . $function);

}

}

return false;

}

function _load_filters()

{

if (count($this->_plugins['prefilter']) > 0)

{

foreach ($this->_plugins['prefilter'] as $filter_name => $prefilter)

{

if (!function_exists($prefilter))

{

@include_once( $this->_get_plugin_dir("prefilter." . $filter_name . ".php") . "prefilter." . $filter_name . ".php");

}

}

}

if (count($this->_plugins['postfilter']) > 0)

{

foreach ($this->_plugins['postfilter'] as $filter_name => $postfilter)

{