<?php
class template {
 private $vars = array();
 private $conf = '';
 private $tpl_name = 'index';
 //如果模板不存在 会查找当前 controller默认index模板
 private $tpl_suffix = '.html';//如果CONFIG没配置默认后缀 则显示
 private $tpl_compile_suffix= '.tpl.php';//编译模板路径
 private $template_tag_left = '<{';//模板左标签
 private $template_tag_right = '}>';//模板右标签
 private $template_c = '';//编译目录
 private $template_path = '';//模板完整路径 
 private $template_name = '';//模板名称 index.html
 //定义每个模板的标签的元素
 private $tag_foreach = array('from', 'item', 'key');
 private $tag_include = array('file');//目前只支持读取模板默认路径
 public function __construct($conf) {
  $this->conf = &$conf;
  $this->template_c = $this->conf['template_config']['template_c'];//编译目录
  $this->_tpl_suffix = $this->tpl_suffix();
 }
 private function str_replace($search, $replace, $content) {
  if(empty($search) || empty($replace) || empty($content)) return false;
  return str_replace($search, $replace, $content);
 }
 /**
  * preg_match_all
  * @param $pattern 正则
  * @param $content 内容
  * @return array
  */
 private function preg_match_all($pattern, $content) {
  if(empty($pattern) || empty($content)) core::show_error('查找模板标签失败!');
  preg_match_all("/".$this->template_tag_left.$pattern.$this->template_tag_right."/is", $content, $match);
  return $match;
 }
 /**
  * 模板文件后缀 
  */
 public function tpl_suffix() {
  $tpl_suffix = empty($this->conf['template_config']['template_suffix']) ? 
       $this->tpl_suffix : 
       $this->conf['template_config']['template_suffix'] ;
  return $tpl_suffix;
 }
 /**
  * 此处不解释了
  * @return 
  */
 public function assign($key, $value) {
  $this->vars[$key] = $value;
 }
 /**
  * 渲染页面
  * @param 
  * 使用方法 1
  * $this->view->display('error', 'comm/');
  * 默认是指向TPL模版的跟目录，所以comm/就是 tpl/comm/error.html
  * 使用方法 2
  * $this->view->display('errorfile'); 
  * 默认指向控制器固定的文件夹
  * 例如你的域名是 http://heartphp/admin/index, 那么正确路径就是tpl/admin/index/errorfile.html
  * @return 
  */
 public function display($filename = '', $view_path = '') {
  $tpl_path_arr = $this->get_tpl($filename, $view_path);//获取TPL完整路径 并且向指针传送路径以及名称
  if(!$tpl_path_arr) core::show_error($filename.$this->_tpl_suffix.'模板不存在');
  //编译开始
  $this->view_path_param = $view_path;//用户传递过来的模版跟目录
  $this->compile();
 }
 /**
  * 编译控制器
  * @param 
  * @return 
  */
 private function compile() {
  $filepath = $this->template_path.$this->template_name;
  $compile_dirpath = $this->check_temp_compile();
  $vars_template_c_name = str_replace($this->_tpl_suffix, '', $this->template_name);
  $include_file = $this->template_replace($this->read_file($filepath), $compile_dirpath, $vars_template_c_name);//解析
  if($include_file) {
   $this->read_config() && $config = $this->read_config();
   extract($this->vars, EXTR_SKIP);
   [url=home.php?mod=space&uid=48608]@include[/url] $include_file;
  }
 }
 /**
  * 读取当前项目配置文件
  */
 protected function read_config() {
  if(file_exists(SYSTEM_PATH.'conf/config.php')) {
   @include SYSTEM_PATH.'conf/config.php'; 
   return $config;
  }
  return false;
 }
 /**
  * 解析模板语法
  * @param $str 内容
  * @param $compile_dirpath 模版编译目录
  * @param $vars_template_c_name 模版编译文件名
  * @return 编译过的PHP模板文件名
  */
 private function template_replace($str, $compile_dirpath, $vars_template_c_name) {
  if(empty($str)) core::show_error('模板内容为空！');
  //处理编译头部
  $compile_path = $compile_dirpath.$vars_template_c_name.$this->tpl_compile_suffix;//编译文件
  if(is_file($compile_path)) {
   //$header_content = $this->get_compile_header($compile_path);
   //$compile_date = $this->get_compile_header_comment($header_content);
   $tpl_filemtime = filemtime($this->template_path.$this->template_name);
   $compile_filemtime = filemtime($compile_path);
   //echo $tpl_filemtime.'=='.date('Y-m-d H:i:s', $tpl_filemtime).'<br/>';
   //echo $compile_filemtime.'=='.date('Y-m-d H:i:s', $compile_filemtime);
   //如果文件过期编译 当模板标签有include并且有修改时 也重新编译
   //<{include file="public/left.html"}> 当修改include里的文件，非DEBUG模式时 如果不更改主文件 目前是不重新编译include里的文件，我在考虑是否也要更改，没想好，暂时这样，所以在开发阶段一定要开启DEBUG=1模式 要不然修改include文件无效 。 有点罗嗦，不知道表述清楚没
   if($tpl_filemtime > $compile_filemtime || DEBUG) {
    $ret_file = $this->compile_file($vars_template_c_name, $str, $compile_dirpath);
   } else {
    $ret_file = $compile_path;
   }
  } else {//编译文件不存在 创建他
   $ret_file = $this->compile_file($vars_template_c_name, $str, $compile_dirpath);
  }
  return $ret_file;
 }
 /**
  * 模板文件主体
  * @param string $str 内容
  * @return html
  */
 private function body_content($str) {
  //解析
  $str = $this->parse($str);
  $header_comment = "Create On##".time()."|Compiled from##".$this->template_path.$this->template_name;
  $content = "<? if(!defined('IS_HEARTPHP')) exit('Access Denied');/*{$header_comment}*/?>\r\n$str";
  return $content;
 }
 /**
  * 开始解析相关模板标签
  * @param $content 模板内容
  */
 private function parse($content) {
  //foreach
  $content = $this->parse_foreach($content);
  //include
  $content = $this->parse_include($content);
  //if
  $content = $this->parse_if($content);
  //elseif
  $content = $this->parse_elseif($content);
  //模板标签公用部分
  $content = $this->parse_comm($content); 
  //转为PHP代码
  $content = $this->parse_php($content);
  return $content;
 }
 /**
  * echo 如果默认直接<{$config['domain']}> 转成 <?php echo $config['domain']?>
  */
 private function parse_echo($content) {
 }
 /**
  * 转换为PHP
  * @param $content html 模板内容
  * @return html 替换好的HTML
  */
 private function parse_php($content){
  if(empty($content)) return false;
  $content = preg_replace("/".$this->template_tag_left."(.+?)".$this->template_tag_right."/is", "<?php $1 ?>", $content);
  return $content;
 }
 /**
  * if判断语句
  * <{if empty($zhang)}>
  * zhang
  * <{elseif empty($liang)}>
  * liang
  * <{else}>
  * zhangliang
  * <{/if}>
  */
 private function parse_if($content) {
  if(empty($content)) return false;
  //preg_match_all("/".$this->template_tag_left."if\s+(.*?)".$this->template_tag_right."/is", $content, $match);
  $match = $this->preg_match_all("if\s+(.*?)", $content);
  if(!isset($match[1]) || !is_array($match[1])) return $content;
  foreach($match[1] as $k => $v) {
   //$s = preg_split("/\s+/is", $v);
   //$s = array_filter($s);
   $content = str_replace($match[0][$k], "<?php if({$v}) { ?>", $content);
  }
  return $content;
 }
 private function parse_elseif($content) {
  if(empty($content)) return false;
  //preg_match_all("/".$this->template_tag_left."elseif\s+(.*?)".$this->template_tag_right."/is", $content, $match);
  $match = $this->preg_match_all("elseif\s+(.*?)", $content);
  if(!isset($match[1]) || !is_array($match[1])) return $content;
  foreach($match[1] as $k => $v) {
   //$s = preg_split("/\s+/is", $v);
   //$s = array_filter($s);
   $content = str_replace($match[0][$k], "<?php } elseif ({$v}) { ?>", $content);
  }
  return $content;
 }
 /**
  * 解析 include include标签不是实时更新的 当主体文件更新的时候 才更新标签内容，所以想include生效 请修改一下主体文件
  * 记录一下 有时间开发一个当DEBUG模式的时候 每次执行删除模版编译文件
  * 使用方法 <{include file="www.phpddt.com"}>
  * @param $content 模板内容
  * @return html
  */
 private function parse_include($content) {
  if(empty($content)) return false;
  //preg_match_all("/".$this->template_tag_left."include\s+(.*?)".$this->template_tag_right."/is", $content, $match);
  $match = $this->preg_match_all("include\s+(.*?)", $content);
  if(!isset($match[1]) || !is_array($match[1])) return $content;
  foreach($match[1] as $match_key => $match_value) {
   $a = preg_split("/\s+/is", $match_value);
   $new_tag = array();
   //分析元素
   foreach($a as $t) {
    $b = explode('=', $t);
    if(in_array($b[0], $this->tag_include)) {
     if(!empty($b[1])) {
      $new_tag[$b[0]] = str_replace("\"", "", $b[1]);
     } else {
      core::show_error('模板路径不存在!');
     }
    }
   }
   extract($new_tag);
   //查询模板文件
   foreach($this->conf['view_path'] as $v){
    $conf_view_tpl = $v.$file;//include 模板文件
    if(is_file($conf_view_tpl)) {
     $c = $this->read_file($conf_view_tpl);
     $inc_file = str_replace($this->_tpl_suffix, '', basename($file));
     $this->view_path_param = dirname($file).'/';
     $compile_dirpath = $this->check_temp_compile();
     $include_file = $this->template_replace($c, $compile_dirpath, $inc_file);//解析
     break;
    } else {
     core::show_error('模板文件不存在,请仔细检查 文件:'. $conf_view_tpl);
    }
   } 
   $content = str_replace($match[0][$match_key], '<?php include("'.$include_file.'")?>', $content);
  }
  return $content;
 }
 /**
  * 解析 foreach
  * 使用方法 <{foreach from=$lists item=value key=kk}>
  * @param $content 模板内容
  * @return html 解析后的内容
  */
 private function parse_foreach($content) {
  if(empty($content)) return false;
  //preg_match_all("/".$this->template_tag_left."foreach\s+(.*?)".$this->template_tag_right."/is", $content, $match);
  $match = $this->preg_match_all("foreach\s+(.*?)", $content);
  if(!isset($match[1]) || !is_array($match[1])) return $content;
  foreach($match[1] as $match_key => $value) {
   $split = preg_split("/\s+/is", $value);
   $split = array_filter($split);
   $new_tag = array();
   foreach($split as $v) {
    $a = explode("=", $v);
    if(in_array($a[0], $this->tag_foreach)) {//此处过滤标签 不存在过滤
     $new_tag[$a[0]] = $a[1];
    }
   }
   $key = '';
   extract($new_tag);
   $key = ($key) ? '$'.$key.' =>' : '' ;
   $s = '<?php foreach('.$from.' as '.$key.' $'.$item.') { ?>';
   $content = $this->str_replace($match[0][$match_key], $s, $content);
  }
  return $content;
 }
 /**
  * 匹配结束 字符串
  */
 private function parse_comm($content) {
  $search = array(
   "/".$this->template_tag_left."\/foreach".$this->template_tag_right."/is",
   "/".$this->template_tag_left."\/if".$this->template_tag_right."/is",
   "/".$this->template_tag_left."else".$this->template_tag_right."/is",
  );
  $replace = array(
   "<?php } ?>",
   "<?php } ?>",
   "<?php } else { ?>"
  );
  $content = preg_replace($search, $replace, $content);
  return $content;
 }
 /**
  * 检查编译目录 如果没有创建 则递归创建目录
  * @param string $path 文件完整路径
  * @return 模板内容
  */
 private function check_temp_compile() {
  //$paht = $this->template_c.
  $tpl_path = ($this->view_path_param) ? $this->view_path_param : $this->get_tpl_path() ;
  $all_tpl_apth = $this->template_c.$tpl_path;
  if(!is_dir($all_tpl_apth)) {
   $this->create_dir($tpl_path);
  }
  return $all_tpl_apth;
 }
 /**
  * 读文件
  * @param string $path 文件完整路径
  * @return 模板内容
  */
 private function read_file($path) {
  //$this->check_file_limits($path, 'r');
  if(($r = @fopen($path, 'r')) === false) {
   core::show_error('模版文件没有读取或执行权限，请检查！');
  }
  $content = fread($r, filesize($path));
  fclose($r);
  return $content;
 }
 /**
  * 写文件
  * @param string $filename 文件名
  * @param string $content 模板内容
  * @return 文件名
  */
 private function compile_file($filename, $content, $dir) {
  if(empty($filename)) core::show_error("{$filename} Creation failed");
  $content = $this->body_content($content);//对文件内容操作
  //echo '开始编译了=====';
  $f = $dir.$filename.$this->tpl_compile_suffix;
  //$this->check_file_limits($f, 'w');
  if(($fp = @fopen($f, 'wb')) === false) {
   core::show_error($f.'<br/>编译文件失败，请检查文件权限.');
  }
  //开启flock
  flock($fp, LOCK_EX + LOCK_NB);
  fwrite($fp, $content, strlen($content));
  flock($fp, LOCK_UN + LOCK_NB);
  fclose($fp);
  return $f;
 }
 /**
  * 这个检查文件权限函数 暂时废弃了
  * @param [$path] [路径]
  * @param [status] [w=write, r=read]
  */
 public function check_file_limits($path , $status = 'rw') {
  clearstatcache();
  if(!is_writable($path) && $status == 'w') {
   core::show_error("{$path}<br/>没有写入权限，请检查.");
  } elseif(!is_readable($path) && $status == 'r') {
   core::show_error("{$path}<br/>没有读取权限，请检查.");
  } elseif($status == 'rw') {//check wirte and read
   if(!is_writable($path) || !is_readable($path)) {
    core::show_error("{$path}<br/>没有写入或读取权限，请检查");
   }
  }
 }
 /**
  * 读取编译后模板的第一行 并分析成数组
  * @param string $filepath 文件路径
  * @param number $line  行数
  * @return 返回指定行数的字符串 
  */
 /*
 private function get_compile_header($filepath, $line = 0) {
  if(($file_arr = @file($filepath)) === false) {
   core::show_error($filepath.'<br/>读取文件失败，请检查文件权限！');
  }
  return $file_arr[0];
 }
 */
 /**
  * 分析头部注释的日期
  * @param string $cotnent 编译文件头部第一行
  * @return 返回上一次日期 
  */
 /*
 private function get_compile_header_comment($content) {
  preg_match("/\/\*(.*?)\*\//", $content, $match);
  if(!isset($match[1]) || empty($match[1])) core::show_error('编译错误!'); 
  $arr = explode('|', $match[1]);
  $arr_date = explode('##', $arr[0]);
  return $arr_date[1];
 }
 */
 /**
  * 获取模板完整路径 并返回已存在文件
  * @param string $filename 文件名
  * @param string $view_path 模板路径 
  * @return 
  */
 private function get_tpl($filename, $view_path) {
  empty($filename) && $filename = $this->tpl_name;
  //遍历模板路径
  foreach($this->conf['view_path'] as $path) {
   if($view_path) {//直接从tpl跟目录找文件
    $tpl_path = $path.$view_path;
    $view_file_path = $tpl_path.$filename.$this->_tpl_suffix;
   } else {//根据目录，控制器，方法开始找文件
    $view_file_path = ($tpl_path = $this->get_tpl_path($path)) ? $tpl_path.$filename.$this->_tpl_suffix : exit(0);
   }
   if(is_file($view_file_path)) {
    //向指针传送模板路径和模板名称
    $this->template_path = $tpl_path;//
    $this->template_name = $filename.$this->_tpl_suffix;
    return true;
   } else {
    core::show_error($filename.$this->_tpl_suffix.'模板不存在');
   }
  }
 }
 /**
  * 获取模板路径
  * @param string $path 主目录
  * @return URL D和M的拼接路径
  */
 private function get_tpl_path($path = '') {
  core::get_directory_name() && $path_arr[0] = core::get_directory_name();
  core::get_controller_name() && $path_arr[1] = core::get_controller_name();
  (is_array($path_arr)) ? $newpath = implode('/', $path_arr) : core::show_error('获取模板路径失败!') ;
  return $path.$newpath.'/';
 }
 /**
  * 创建目录
  * @param string $path 目录
  * @return 
  */
 private function create_dir($path, $mode = 0777){
  if(is_dir($path)) return false;
  $dir_arr = explode('/', $path);
  $dir_arr = array_filter($dir_arr);
  $allpath = '';
  $newdir = $this->template_c;
  foreach($dir_arr as $dir) {
   $allpath = $newdir.'/'.$dir;
   if(!is_dir($allpath)) {
    $newdir = $allpath;
    if(!@mkdir($allpath, $mode)) {
     core::show_error( $allpath.'<br/>创建目录失败，请检查是否有可都写权限！');
    }
    chmod($allpath, $mode);
   } else {
    $newdir = $allpath;
   }
  }
  return true;
 }
 public function __destruct(){
  $this->vars = null;
  $this->view_path_param = null;
 }
}