/quicky_plain/Quicky.class.php

<?php
/**************************************************************************/
/* Quicky: smart and fast templates
/* ver. 0.3
/* ===========================
/*
/* Copyright (c)oded 2007 by white phoenix
/* http://whitephoenix.ru     
/* 														
/* Quicky.class.php: API class
/**************************************************************************/
ini_set('zend.ze1_compatibility_mode','Off');
define('QUICKY_DIR',dirname(__FILE__).DIRECTORY_SEPARATOR);
if (!defined('UNIQUE_HASH')) {define('UNIQUE_HASH',md5(microtime(TRUE).microtime(TRUE)));}
if (!defined('UNIQUE_HASH_STATIC')) {define('UNIQUE_HASH_STATIC',md5('^tJI!j8gRjb1qhGMZ8Lxus4ZFc%7@kY0'));}
if (!function_exists('isInteger'))
{
 function isInteger($var)
 {
  if (is_int($var)) {return TRUE;}
  if (!is_string($var)) {return FALSE;}
  return ctype_digit(substr($var,0,1) == '-'?substr($var,1):$var);
 }
}
if (!function_exists('gpcvar_str'))
{
 function gpcvar_str(&$var) {if (is_array($var)) {return '';} return strval($var);}
 function gpcvar_strnull(&$var) {if ($var === NULL) {return NULL;} if (is_array($var)) {return '';} return strval($var);}
 function gpcvar_int(&$var,$empty = FALSE)
 {
  $var = strval($var);
  if ($empty && !strlen($var)) {return $var;}
  return ctype_digit(substr($var,0,1) == '-'?substr($var,1):$var)?$var:0;
 }
 function gpcvar_float(&$var,$empty = FALSE) {if ($empty and strlen($var) == 0) {return '';} return floatval($var);}
 function gpcvar_array(&$var) {return is_array($var)?$var:array();}
 function gpcvar_mixed(&$var) {return $var;}
}
class Quicky
{
 public $template_dir = './templates/';
 public $compile_dir = './templates_c/';
 public $config_dir = './configs/';
 public $cache_dir = './templates_cache/';
 public $plugins_dir = array();
 public $_tpl_vars = array();
 public $_tpl_config = array();
 public $_block_props = array();
 public $auto_filename_prefix = '';
 public $compilers = array();
 public $prefilters = array();
 public $postfilters = array();
 public $outputfilters = array();
 public $compile_check = TRUE;
 public $force_compile = FALSE;
 public $max_recursion_depth = 128;
 public $_auto_detect_forms = FALSE;
 public $_detect_forms = array();
 public $compiler_prefs = array('inline_includes' => TRUE, 'allow_php_native' => FALSE);
 public $error_reporting;
 public $version = '0.2';
 public $caching = 0;
 public $cache_lifetime = 60;
 public $precompiled_vars = array();
 public $lang = '';
 public $use_sub_dirs = FALSE;
 public $cache_id = '';
 public $compile_id = '';
 static $obj;
 public $context_path = '/';
 public $_contexts_data = array();
 function __construct()
 {
  $this->init();
 }
 function init()
 {
  $this->error_reporting = E_ALL^E_NOTICE;
  $this->plugins_dir = array(QUICKY_DIR.'plugins');
  $this->_smarty_vars = &$this->_block_props;
  $this->_block_props['capture'] = array();
  $this->_block_props['foreach'] = array();
  $this->_block_props['section'] = array();
  $this->_block_props['begin'] = array();
  Quicky::$obj = $this;
 }
 function detect_form($name) {$this->_detect_forms[] = $name;}
 function getFormByName($name)
 {
  if (!class_exists('Quicky_form')) {require_once QUICKY_DIR.'Quicky.form.class.php';}
  return isset(Quicky_form::$forms[$name])?Quicky_form::$forms[$name]:FALSE;
 }
 function context_fetch($name)
 {
  $path = $this->context_path($name,FALSE);
  if (!function_exists($a = 'quicky_context_'.$name)) {return $this->warning('Context \''.$path.'\' does not exists');}
  return $a();
 }
 function context_set($value = array())
 {
  $this->_contexts_data[$this->context_path] = $value;
 }
 function context_iterate($name = '')
 {
  if ($name === '') {$name = $this->context_path;}
  $this->_contexts_data[$this->context_path($name,FALSE)] = array(array());
 }
 function load_string($name,$string)
 {
  require_once QUICKY_DIR.'plugins/addons/stringtemplate.class.php';
  Quicky_Stringtemplate::$strings[$name] = $string;
 }
 function context_path($path,$onlyget = FALSE)
 {
  if ($path === '') {return $this->context_path;}
  if (substr($path,0,1) != '/') {$path = $this->context_path.$path.'/';}
  if (strpos($path,'../') !== FALSE)
  {
   $e = explode('/',$path);
   for ($i = 0, $s = sizeof($e); $i < $s ; ++$i)
   {
    if ($e[$i] == '..')
    {
     unset($e[$i-1]);
     unset($e[$i]);
     $e = array_values($e);
     $i -= 2;
     $s -= 2;
    }
    elseif ($e[$i] == '.') {unset($e[$i]);}
   }
   $path = implode('/',$e);
  }
  if (!$onlyget) {return $this->context_path = $path;}
  else {return $path;}
 }
 function _unlink($resource, $exp_time = null)
 {
  if (isset($exp_time)) {if (time() - @filemtime($resource) >= $exp_time) {return @unlink($resource);}}
  else {return @unlink($resource);}
 }
 function fetch_plugin($name)
 {
  if (!is_array($this->plugins_dir)) {$a = array($this->plugins_dir);}
  else {$a = $this->plugins_dir;}
  for ($i = 0,$s = sizeof($a); $i < $s; $i++)
  {
   $path = rtrim($a[$i],'/\\').DIRECTORY_SEPARATOR.$name.'.php';
   if (is_file($path) && is_readable($path)) {return $path;}
  }
  return FALSE;
 }
 function register_prefilter($a,$b) {$this->prefilters[$a] = $b;}
 function unregister_prefilter($a) {unset($this->prefilters[$a]);}
 function register_postfilter($a,$b) {$this->postfilters[$a] = $b;}
 function unregister_postfilter($a) {unset($this->postfilters[$a]);}
 function register_outputfilter($a,$b) {$this->outputfilters[$a] = $b;}
 function unregister_outputfilter($a) {unset($this->outputfilters[$a]);}
 function template_exists($file) {return file_exists($this->template_dir.$file);}
 function config_load($file,$section = '')
 {
  $path = $this->config_dir.$file;
  if (!is_file($path) || !is_readable($path)) {return $this->warning('Can\'t open config-file \''.$file.'\' ');}
  $ini = parse_ini_file($path,TRUE);
  if (!$ini) {return $this->warning('Errorneus ini-file \''.$file.'\'');}
  $section = strval($section);
  if ($section !== '') {$ini = (isset($ini[$section]) and is_array($ini[$section]))?$ini[$section]:array();}
  foreach ($ini as $k => $v)
  {
   if (is_array($v)) {$this->_tpl_config = array_merge($this->_tpl_config,$v);}
   else {$this->_tpl_config[$k] = $v;}
  }
  return;
 }
 function load_filter($type,$name)
 {
  if (!in_array($type,array('output','pre','post'))) {return $this->warning('Unknown filter-type \''.$type.'\'');}
  if (!$p = $this->fetch_plugin($type.'filter.'.$name)) {return $this->warning('Can\'t load '.$type.'-filter \''.$name.'\'');}
  $a = $type.'filters';
  if ($type == 'output') {$this->outputfilters[$name] = 'quicky_'.$type.'filter_'.$name;}
  elseif ($type == 'pre') {$this->prefilters[$name] = 'quicky_'.$type.'filter_'.$name;}
  elseif ($type == 'post') {$this->postfilters[$name] = 'quicky_'.$type.'filter_'.$name;}
  include $p;
 }
 function load_compiler($a)
 {
  if (!isset($this->compilers[$a]))
  {
   $path = QUICKY_DIR.$a.'_compiler.class.php';
   if (!is_file($path) || !is_readable($path)) {$this->warning('Can\'t load compiler \''.$a.'\'.'); return FALSE;}
   require_once $path;
   $class_name = $a.'_compiler';
   $this->compilers[$a] = new $class_name;
   $this->compilers[$a]->parent = $this;
   $this->compilers[$a]->prefilters = &$this->prefilters;
   $this->compilers[$a]->postfilters = &$this->postfilters;
   $this->compilers[$a]->prefs = &$this->compiler_prefs;
   $this->compilers[$a]->precompiled_vars = &$this->precompiled_vars;
  }
  return TRUE;
 }
 function _eval($string)
 {
  $var = &$this->_tpl_vars;
  $config = &$this->_tpl_config;
  $capture = &$this->_block_props['capture'];
  $foreach = &$this->_block_props['foreach'];
  $section = &$this->_block_props['section'];
  return eval($string);
 }
 function register_object($a,$b = NULL) {return $this->assign($a,$b);}
 function unregister_object($a) {return $this->clear_assign($a,$b);}
 function get_register_object($a) {return isset($this->_tpl_vars[$a])?$this->_tpl_vars[$a]:NULL;}
 function get_templates_vars($a = NULL) {return is_null($a)?$this->_tpl_vars:$this->_tpl_vars[$a];}
 function assign($a,$b = NULL)
 {
  if (is_array($a)) {$this->_tpl_vars = array_merge($this->_tpl_vars,$a);}
  else {$this->_tpl_vars[$a] = $b;}
  return TRUE;
 }
 function assign_by_ref($a,&$b) {$this->_tpl_vars[$a] = &$b; return TRUE;}
 function clear_assign($a)
 {
  if (is_array($a))
  {
   $a = array_values($a);
   $s = sizeof($a);
   for ($i = 0; $i < $s; $i++) {unset($this->_tpl_vars[$a[$i]]);}
  }
  else {unset($this->_tpl_vars[$a]);}
 }
 function reset() {$this->_tpl_vars = array();}
 function clear_all_assign() {$this->reset();}
 function clear_cache($path,$cache_id = NULL,$compile_id = NULL, $exp = -1)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($cache_id === NULL) {$cache_id = $this->cache_id;}
  $p = $this->_get_cache_path($path,$cache_id,$compile_id);
  if ($cache_id == '*')
  {
   $h = opendir($this->cache_dir);
   if (!$h) {return $this->warning('Can\'t open cache-dir \''.$this->cache_dir.'\'');}
   $e = explode('.',$p);
   while (($f = readdir($h)) !== FALSE)
   {
    if (is_file($this->cache_dir.$f) && strpos($f,'.'.$e[6].'.') !== FALSE) {unlink($this->cache_dir.$f);}
   }
   return TRUE;
  }
  if (is_file($p) && ($exp == -1 || (filemtime($p) < time()-$exp))) {return unlink($p);}
  return FALSE;
 }
 function clear_all_cache($exp = -1)
 {
  $h = opendir($this->cache_dir);
  if (!$h) {return $this->warning('Can\'t open cache-dir \''.$this->cache_dir.'\'');}
  while (($f = readdir($h)) !== FALSE)
  {
   if (is_file($this->cache_dir.$f) && ($exp == -1 || (filemtime($this->cache_dir.$f) < time()-$exp))) {unlink($this->cache_dir.$f);}
  }
 }
 function clear_compiled_tpl($path,$compile_id = NULL, $exp = -1)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($cache_id === NULL) {$cache_id = $this->cache_id;}
  $p = $this->_get_compile_path($path,$compile_id);
  if ($compile_id == '*')
  {
   $h = opendir($this->compile_dir);
   if (!$h) {return $this->warning('Can\'t open compile-dir \''.$this->compile_dir.'\'');}
   $e = explode('.',$p);
   while (($f = readdir($h)) !== FALSE)
   {
    if (is_file($this->compile_dir.$f) && strpos($f,'.'.$e[6].'.') !== FALSE) {unlink($this->compile_dir.$f);}
   }
   return TRUE;
  }
  if (is_file($p) && ($exp == -1 || (filemtime($p) < time()-$exp))) {return unlink($p);}
  return FALSE;
 }
 function clear_all_compiled_tpl($exp = -1)
 {
  $h = opendir($this->compile_dir);
  if (!$h) {return $this->warning('Can\'t open compile-dir \''.$this->cache_dir.'\'');}
  while (($f = readdir($h)) !== FALSE)
  {
   if (is_file($this->compile_dir.$f) && ($exp == -1 || (filemtime($this->compile_dir.$f) < time()-$exp))) {unlink($this->compile_dir.$f);}
  }
 }
 function warning($err) {trigger_error($err,E_USER_WARNING); return FALSE;}
 function _get_template_path($path)
 {
  if ($path == '|debug.tpl') {return QUICKY_DIR.'debug.tpl';}
  if (strpos($path,'://') === FALSE) {return $this->template_dir.$path;}
  return $path;
 }
 function _get_auto_filename($path,$cache_id = NULL,$compile_id = NULL)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($cache_id === NULL) {$cache_id = $this->cache_id;}
  $path = $this->_get_template_path($path);
  $name = basename($path).($this->auto_filename_prefix !== ''?'.'.$this->auto_filename_prefix:'').($compile_id !== ''?'.'.$compile_id:'').($cache_id !== ''?'.'.$cache_id:'').'.'.substr(md5($path),0,6).'.php';
  return $name;
 }
 function display($path,$cache_id = NULL,$compile_id = NULL, $compiler = 'Quicky') {return $this->fetch($path,$cache_id,$compile_id,TRUE,$compiler);}
 function is_cached($path,$cache_id = NULL,$compile_id = NULL)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($cache_id === NULL) {$cache_id = $this->cache_id;}
  if (!$this->caching) {return FALSE;}
  $p = $this->_get_cache_path($path,$cache_id,$compile_id);
  return (is_file($p) && (($this->cache_lifetime == -1) || (filemtime($p) > time()-$this->cache_lifetime)))?$p:FALSE;
 }
 function _get_compile_path($path,$compile_id)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  static $cache = array();
  if (isset($cache[$path])) {return $cache[$path];}
  return $cache[$path] = $this->compile_dir.$this->_get_auto_filename($path,'',$compile_id);
 }
 function _get_cache_path($path,$cache_id = NULL,$compile_id = NULL)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($cache_id === NULL) {$cache_id = $this->cache_id;}
  return $this->cache_dir.$this->_get_auto_filename($path,$cache_id,$compile_id);
 }
 function dynamic_callback($m)
 {
  return ((isset($m[1]) && $m[1] !== '')?$m[1]:'').'echo \'!'.UNIQUE_HASH.'!non_cache='.base64_encode('<?php '.trim($m[4]).' ?>').'! \'; '.((isset($m[5]) && $m[5] !== '')?$m[5]:'');
 }
 function fetch($path,$cache_id = NULL,$compile_id = NULL,$display = FALSE,$compiler = 'Quicky')
 {
  if ($path === '' or is_null($path)) {return $this->warning('Empty path given');}
  if (is_dir($this->_get_template_path($path))) {return $this->warning('Path is directory');}
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($cache_id === NULL) {$cache_id = $this->cache_id;}
  static $nesting_path = array();
  static $_old_block_props = array();
  $return = TRUE;
  $var = &$this->_tpl_vars;
  $const = &$this->_tpl_consts;
  $config = &$this->_tpl_config;
  $capture = &$this->_block_props['capture'];
  $foreach = &$this->_block_props['foreach'];
  $section = &$this->_block_props['section'];
  $cache = $compile = FALSE;
  if (($cache = $this->is_cached($path,$cache_id,$compile_id)) or ($compile = $this->_compile($path,$compile_id,$compiler)))
  {
   $p = $cache !== FALSE?$cache:$compile;
   if (error_reporting() != $this->error_reporting)
   {
    $old_err_rep = error_reporting();
    error_reporting($this->error_reporting);
   }
   else {$old_err_rep = -1;}
   $nesting_path[] = $path;
   $recursion_depth = sizeof(array_intersect($nesting_path,array($path)));
   if ($recursion_depth > $this->max_recursion_depth) {$this->warning('Max recursion depth exceed.'); return;}
   $dir = dirname($path);
   if ($dir === '') {$dir = '.';}
   if ($this->caching && !$cache)
   {
    $c = file_get_contents($p);
    $a = preg_replace_callback($e = '~(<\?php )?/\*('.preg_quote(UNIQUE_HASH_STATIC,'~').')\{(dynamic)\}\*/(.*?)(?:<\?php )?/\*\{/\3\}\2\*/( \?>)?~si',array($this,'dynamic_callback'),$c);
    $fn = tempnam($this->cache_dir,'tmp');
    $fp = fopen($fn,'w');
    fwrite($fp,$a);
    fclose($fp);
    ob_start();
    $old = ob_get_contents();
    ob_clean();
    if ($this->caching == 1) {$this->caching = 0;}
    include $fn;
    $a = ob_get_contents();
    ob_end_clean();
    echo $old;
    unlink($fn);
    $a = preg_replace($e = '~!'.preg_quote(UNIQUE_HASH,'~').'!non_cache=(.*?)!~sie','base64_decode("$1")',$a);
    $cache = $this->_get_cache_path($path,$cache_id,$compile_id);
    $fp = fopen($cache,'w');
    fwrite($fp,$a);
    fclose($fp);
    $p = $cache;
   }
   if (!$display or sizeof($this->outputfilters) > 0)
   {
    ob_start();
    $old = ob_get_contents();
    ob_clean();
    if ($this->caching == 1) {$this->caching = 0;}
    include $p;
    $a = ob_get_contents();
    ob_end_clean();
    echo $old;
    if (sizeof($this->outputfilters) > 0)
    {
     $filters = array_values($this->outputfilters);
     for ($i = 0,$s = sizeof($filters); $i < $s; ++$i) {$a = call_user_func($filters[$i],$a,$this);}
    }
    if ($display) {echo $a;}
    else {$return = $a;}
   }
   else
   {
    if ($this->caching == 1) {$this->caching = 0;}
    include $p;
   }
   array_pop($nesting_path);
   if ($old_err_rep !== -1) {error_reporting($old_err_rep);}
   return $return;
  }
  else {return FALSE;}
 }
 function _is_compiled($path,$compile_id = NULL)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($this->force_compile) {return FALSE;}
  $p = $this->_get_compile_path($path,$compile_id);
  if (!is_file($p)) {return FALSE;}
  if ($this->compile_check)
  {
   if (filemtime($this->_get_template_path($path)) <= filemtime($p)) {return $p;}
   else {return FALSE;}
  }
  else {return $p;}
 }
 function _compile($path,$compile_id = NULL,$compiler)
 {
  if ($compile_id === NULL) {$compile_id = $this->compile_id;}
  if ($p = $this->_is_compiled($path,$compile_id)) {return $p;}
  else
  {
   $compiler_ver = array();
   $fp = fopen($this->_get_template_path($path),'r');
   if (!$fp)
   {
    $this->warning('Can\'t read template file: '.$path);
    return FALSE;
   }
   if ($l = fgets($fp))
   {
    preg_match_all('~/(\w+)\=(.*?)(?=/|$)~',$l,$p,PREG_SET_ORDER);
    for ($i = 0,$s = sizeof($p); $i < $s; $i++)
    {
     $name = strtolower($p[$i][1]);
     $value = $p[$i][2];
     if ($name == 'compiler')
     {
      preg_match('~^(\w+)\s*(?:(>=|==|<=|<|>)?\s*(\S*))?~',$value,$q);
      $compiler = $q[1];
      if (isset($q[2])) {$compiler_ver = array($q[2],$q[3]);}
     }
    }
   }
   fclose($fp);
   if (!$this->load_compiler($compiler)) {return FALSE;}
   if (sizeof($compiler_ver) > 0)
   {
    preg_match('~^[\d.]+~',$this->compilers[$compiler]->compiler_version,$q);
    $ver = (int) str_replace('.','',$q);
    if (!eval('return '.$ver.' '.$compiler_ver[0].' '.$compiler_ver[1].';'))
    {
     $this->warning('Incompatible version of compiler '.$compiler.' ('.$this->compilers[$compiler]->compiler_version.') for template '.$path.' needed '.$compiler_ver[1]);
     return FALSE;
    }
   }
   $source = $this->compilers[$compiler]->_compile_source($this->_get_template_path($path));

   $fp = fopen($c = $this->_get_compile_path($path,$compile_id),'w');
   if (!$fp) {return FALSE;}
   fwrite($fp,$source);
   fclose($fp);
   return $c;
  }
 }
 function _compile_string($string,$compiler = 'Quicky')
 {
  $this->load_compiler($compiler);
  return $this->compilers[$compiler]->_compile_source_string($string);
 }
 static function ind($a,$b = 0)
 {
  $s = $a['st'] + abs($a['step']) * ($a['i']+$b);
  if ($s < 0) {return -1;}
  if ($a['step'] < 0) {$s = $a['s'] - $s;}
  return $s;
 }
}