<?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;
 }
}