实验项目5――数制转换
2011-10-23 19:40
127 查看
在UCH中，模板与动态数据分离，所以在很多php文件的最后，我们会看到包含了模板文件，如cp_blog.php最后有include_once template("cp_blog");
在下面的代码中，命名有规律。$tpl是没有后缀名的，$tplfile是后缀为htm的模板文件，$objfile是后缀为php的缓存文件
UCH里使用模板的流程是：
在php代码中获取动态数据，然后include_once template($tpl)
template函数解析模板文件$tplfile，返回缓存文件$objfile。
template函数中调用parse_template函数解析$tplfile，
$tplfile里有UCH定义的一套语法，在parse_template函数里可以看到，有<!-- template name--> <!—block/name-->等。这些语法在parse_template中都会被替换成对应的函数，如readtemplate blocktags等，这些函数也都位于function_template.php中。
这里有点点纠结的就是，模板文件中可能还通过<!-- template name-->包含了其他的模板文件，所以在parse_template中要两次调用preg_replace，第一次读模板文件$tplfile所包含的子模板文件name，第二次是读子模板文件name中再包含的孙子模板文件。UCH中至多有3层模板包含关系，即父亲->儿子->孙子，所以不需要第三次调用preg_replace来读取孙子模板文件可能包含的重孙模板文件了。
template函数在function_common.php中定义
function template($name) {
global $_SCONFIG, $_SGLOBAL;
if(strexists($name,/)) {
$tpl = $name;//$name是完整目录的情况
} else {
$tpl = "template/$_SCONFIG[template]/$name";
/*
$name只是一个文件名的情况，$tpl类似template/default/cp_blog或者template/blue/cp_blog
默认的模板风格是default，但是如果用户选择了其他风格，$_SCONFIG[template]就会变成blue之类的其他值
在首页的右下角可以选择模板风格
*/
}
$objfile = S_ROOT../data/tpl_cache/.str_replace(/,_,$tpl)..php;
/*
缓存文件名,$objfile类似data/tpl_cache/template_default_cp_blog.php或者data/tpl_cache/template_blue_cp_blog.php
*/
if(!file_exists($objfile)) {
include_once(S_ROOT../source/function_template.php);
parse_template($tpl);
//如果缓存文件不存在，则对模板文件进行解析
}
return $objfile;
}
parse_template函数在function_template.php中定义
function parse_template($tpl) {
global $_SGLOBAL, $_SC, $_SCONFIG;
//包含模板
$_SGLOBAL[sub_tpls] = array($tpl);
$tplfile = S_ROOT../.$tpl..htm;
/*
$tplfile类似template/default/cp_blog.htm或者template/blue/cp_blog.htm
*/
$objfile = S_ROOT../data/tpl_cache/.str_replace(/,_,$tpl)..php;
/*
$objfile类似data/tpl_cache/template_default_cp_blog.php或者data/tpl_cache/template_blue_cp_blog.php
*/
//read
if(!file_exists($tplfile)) {
$tplfile = str_replace(/.$_SCONFIG[template]./, /default/, $tplfile);
//如果非默认模板风格的某个模板文件不存在，那么就改用default风格的该模板文件
}
$template = sreadfile($tplfile);
//读入模板文件内容
if(empty($template)) {
exit("Template file : $tplfile Not found or have no access!");
}
//模板
$template = preg_replace("/<!--{templates+([a-z0-9_/]+)}-->/ie", "readtemplate(\1)", $template);
/*
这就是定义UCH的模板语法了，模板页中的<!--{template name}-->
被替换成readtemplate(name),readtemplate函数也在function_template.php中定义。name就是([a-zA-Z0-9_/]+)
为什么多了A-Z呢，因为"/<!--{templates+([a-z0-9_/]+)}-->/ie"最后的i选项表示不区分大小写的正则匹配
python里的正则表达式分组，似乎就是用1来表示第一组，这里用了\1
\1为什么又要用单引号裹起来呢，这是因为readtemplate函数的参数要是一个字符串
*/
//处理子页面中的代码
$template = preg_replace("/<!--{templates+([a-z0-9_/]+)}-->/ie", "readtemplate(\1)", $template);
//解析模块调用
$template = preg_replace("/<!--{block/(.+?)}-->/ie", "blocktags(\1)", $template);
/*
<!--{block/name}-->被替换成blocktags(name)
name就是(.+?) .匹配除换行符外的任意字符，+表示出现一次或多次
?表示懒惰匹配，不然后面的} - >都会被.+匹配掉
*/
//解析广告
$template = preg_replace("/<!--{ad/(.+?)}-->/ie", "adtags(\1)", $template);
/*
<!--{ad/name}-->被替换成<!--adtags(name)-->
如space_doing.htm里有一个<!--{ad/header}-->被替换成了<!--AD_TAG_1-->
*/
//时间处理
$template = preg_replace("/<!--{date((.+?))}-->/ie", "datetags(\1)", $template);
/*
<!--{date(name)}-->被替换成datetags(name)
如space_doing.htm里有一个
<!--{date(m-d H:i,$basevalue[dateline],1)}-->被替换成了<!--DATE_TAG_7-->
*/
//头像处理
$template = preg_replace("/<!--{avatar((.+?))}-->/ie", "avatartags(\1)", $template);
/*
<!--{avatar(name)}-->被替换成avatartags(name)
如space_doing.htm里有一个<!--{avatar($_SGLOBAL[supe_uid],small)}-->被替换成了<!--AVATAR_TAG_10-->
*/
//PHP代码
$template = preg_replace("/<!--{evals+(.+?)s*}-->/ies", "evaltags(\1)", $template);
/*
<!--{eval php_expression}-->被替换成evaltags(php_expression)
php_expression就是(.+?) 而且这里的.匹配包括换行符在内的一切字符 这是由/ies中的s选项确定的
如space_doing.htm里有一个<!--{eval echo formhash();}-->被替换成了<!--EVAL_TAG_16-->
*/
//开始处理
//变量
$var_regexp = "((\$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*)([[a-zA-Z0-9_-."\[]$x7f-xff]+])*)";
/*
上面用红色显示的是转义符，没用红色显示的\就还是反斜杠
但是一开始为什么要用三个，我搞不明白。试验了一下，\$匹配的就是$，而改成$却没能匹配模板文件里的变量名。这个我还没搞明白。
$var_regexp匹配变量名
[a-zA-Z_x7f-xff] 变量名以字母或下划线或汉字开头
x7f-xff这个让人非常困惑，到底是想匹配什么呢？难道是想匹配扩展ASCII码吗？0x7f-0xff确实是扩展ASCII码表的范围，但显然没人会用这些控制字符去当变量名。
我这个UCH是UTF-8版本的，从UCS-2（就是现在通用的Unicode）到UTF-8的编码方式如下：
UCS-2编码(16进制)
UTF-8 字节流(二进制)
0000 - 007F
0xxxxxxx
0080 - 07FF
110xxxxx 10xxxxxx
0800 - FFFF
1110xxxx 10xxxxxx 10xxxxxx
前面的0000-007F是兼容ASCII码的
汉字的unicode编码在0080-FFFF里，转换成UTF-8后的字节是
110xxxxx或10xxxxxx或1110xxxx，在0x01111111-0x11111111范围内，也即0x7f-0xff。
更精确地，这个匹配变量名开头的部分可以写成[a-zA-Z_xc0-xef],因为汉字的开始字节只可能是110xxxxx或1110xxxx，范围就是0xc0-0xdf和0xe0-0xef
[a-zA-Z0-9_x7f-xff]* 比变量名的开头字节的允许取值范围多了数字，和C语言是一样的，变量名不能以数字开头
更精确地，这里可以写成[a-zA-Z0-9_x80-xef]* 因为这里汉字的字节可能是110xxxxx或1110xxxx或10xxxxxx，比0xc0-0xef多了10xxxxxx，即0x80-0xbf，合起来就是0x80-0xef
([[a-zA-Z0-9_-."\[]$x7f-xff]+])*
变量可能是数组形式的，如$name1[$name2]，$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*匹配了$name1，后面的[$name2]怎么匹配呢？我一开始以为是[$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]],因为[]里面也应该是一个变量名。
但是变量可能是嵌套数组形式的，如$name1[$name2[$name3[$name4]]]，此时用$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]来一个个匹配变量名明显不可行。所以只是用[]把可能的字符都框起来，希望程序员不要写太扯淡的变量名了。
*/
$template = preg_replace("/<!--{(.+?)}-->/s", "{\1}", $template);
/*
形如<!--{name}-->的字符串被替换成{name}
前面 解析广告，时间处理等产生的<!--EVAL_TAG_15-->等都不匹配，仍然保留
name就是(.+?) 这里的.匹配包括换行符在内的所有字符（有/s选项） ?表示懒惰匹配
*/
$template = preg_replace("/([ ]+) +/s", "\1", $template);
/*
去掉换行回车后的制表符
beyondcompare中的对比效果如下
*/
$template = preg_replace("/(\$[a-zA-Z0-9_[]\"$x7f-xff]+).([a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*)/s", "\1[\2]", $template);
/*
形如$name1.name2替换成$name1[name2],不要搞成了$name1[name2]，\2和"\1"都是正则表达式的后向引用。可是我在模板文件中还没找到例子
*/
$template = preg_replace("/{(\$[a-zA-Z0-9_[]\"$.x7f-xff]+)}/s", "<?=\1?>", $template);
/*
形如{$name1}替换成<?=$name1?>
如space_doing.htm里有{$_SN[$space[uid]]}被换成了
<?=$_SN[$space[uid]]?>
*/
$template = preg_replace("/$var_regexp/es", "addquote(<?=\1?>)", $template);
/*
将没有被{}包裹的变量名替换成addquote(<?=\1?>)
addquote的作用是将类似[name]转换成[‘name’]
如space_doing.htm里有{if $space}被替换成了{if <?=$space?>}
但是这样也有副作用，比如space_doing.htm里有{$_SN[$space[uid]]}，在上一条语句中被替换成了<?=$_SN[$space[uid]]?>，在这又被替换成了<?=<?=$_SN[$space[uid]]?>?>
*/
$template = preg_replace("/<?=<?=$var_regexp?>?>/es", "addquote(<?=\1?>)", $template);
/*
消除上一条语句的副作用，将<?=<?=$_SN[$space[uid]]?>?>换成<?=$_SN[$space[uid]]?>
*/
//逻辑
$template = preg_replace("/{elseifs+(.+?)}/ies", "stripvtags(<?php } elseif(\1) { ?>,)", $template);
/*
{elseif expression1} 替换成stripvtags(<?php } elseif(expression1) { ?>,)
stripvtags的作用是将类似<?=$name?>替换成$name
*/
$template = preg_replace("/{else}/is", "<?php } else { ?>", $template);
/*
{else} 替换成<?php } else { ?>
*/
//循环
for($i = 0; $i < 5; $i++) {
$template = preg_replace("/{loops+(S+)s+(S+)}(.+?){/loop}/ies", "stripvtags(<?php if(is_array(\1)) { foreach(\1 as \2) { ?>,\3<?php } } ?>)", $template);
/*
解析loop
将类似{loop array1 key1} expression1 {/loop}替换成
stripvtags（
<’?php if(is_array(array1)) {foreach (array1 as key1){?>’,
‘expression1<?php } } ?>’
）
如space_doing.htm里将
<title>{if <?=$_TPL[titles]?>}{loop <?=$_TPL[titles]?> <?=$value?>}{if <?=$value?>}<?=$value?> - {/if}{/loop}{/if}{if <?=$space?>}<?=$_SN[$space[uid]]?> - {/if}<?=$_SCONFIG[sitename]?>
替换成了
<title>{if <?=$_TPL[titles]?>}<?php if(is_array($_TPL[titles])) { foreach($_TPL[titles] as $value) { ?>{if <?=$value?>}<?=$value?> - {/if}<?php } } ?>{/if}{if <?=$space?>}<?=$_SN[$space[uid]]?> - {/if}<?=$_SCONFIG[sitename]?>
*/
$template = preg_replace("/{loops+(S+)s+(S+)s+(S+)}(.+?){/loop}/ies", "stripvtags(<?php if(is_array(\1)) { foreach(\1 as \2 => \3) { ?>,\4<?php } } ?>)", $template);
/*
解析loop
将类似{loop array1 key1 value1} expression1 {/loop}替换成
stripvtags（
<’?php if(is_array(array1)) {foreach (array1 as key1=>value1){?>’,
‘expression1<?php } } ?>’
）
如space_doing.htm里将
{loop <?=$moodlist?> <?=$key?> <?=$value?>}
<li>
<div class="avatar48"><a href="space.php?uid=<?=$value[uid]?>&do=doing"><img src=\'#\'" alt="<?=$_SN[$value[uid]]?>" /></a></div>
<p><a href="space.php?uid=<?=$value[uid]?>" title="<?=$_SN[$value[uid]]?>"><?=$_SN[$value[uid]]?></a></p>
<p class="time"><!--DATE_TAG_9--></p>
</li>
{/loop}
替换成了
<?php if(is_array($moodlist)) { foreach($moodlist as $key => $value) { ?>
<li>
<div class="avatar48"><a href="space.php?uid=<?=$value[uid]?>&do=doing"><img src=\'#\'" alt="<?=$_SN[$value[uid]]?>" /></a></div>
<p><a href="space.php?uid=<?=$value[uid]?>" title="<?=$_SN[$value[uid]]?>"><?=$_SN[$value[uid]]?></a></p>
<p class="time"><!--DATE_TAG_9--></p>
</li>
<?php } } ?>
*/
$template = preg_replace("/{ifs+(.+?)}(.+?){/if}/ies", "stripvtags(<?php if(\1) { ?>,\2<?php } ?>)", $template);
/*
解析if
将类似
{if name1} expression1 {/if}
替换成
stripvtags(
<’?php if(name1) { ?>’,
‘expression1<?php } ?>’
)
如space_doing.htm里将
{if empty(<?=$_SGLOBAL[inajax]?>)}
替换成
<?php if(empty($_SGLOBAL[inajax])) { ?>
*/
}/*for循环结束*/
/*
为什么要有for循环呢？因为可能存在循环语句嵌套的情况。
比如space_doing.htm里有这么一段代码
{loop <?=$list?> <?=$basevalue?>}
………
………
{loop <?=$clist[$basevalue[doid]]?> <?=$value?>}
………
{/loop}
………
{/loop}
$i=0时，
$template = preg_replace("/{loops+(S+)s+(S+)}(.+?){/loop}/ies", "stripvtags(<?php if(is_array(\1)) { foreach(\1 as \2) { ?>,\3<?php } } ?>)", $template);
只替换掉了外层的loop，内层的loop被(.+?)所匹配
?表示懒惰匹配，否则后面的{/loop}都会被(.+)所匹配
但是既然是懒惰匹配，为什么(.+?)不是匹配到内层的{/loop}就停止呢？
因为正则表达式有另一条规则，比懒惰／贪婪规则的优先级更高：最先开始的匹配拥有最高的优先权——The match that begins earliest wins。
$i=1时，内层的loop也将被替换掉
从这个for循环我们也可以看出，UCH的模板中最多允许5层嵌套循环，当然这已经足够了
*/
//常量
$template = preg_replace("/{([a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*)}/s", "<?=\1?>", $template);
/*
比变量名少了一开始的$，也不考虑数组形式的常量
*/
//替换
if(!empty($_SGLOBAL[block_search])) {
$template = str_replace($_SGLOBAL[block_search], $_SGLOBAL[block_replace], $template);
}
//换行
$template = preg_replace("/ ?>[ ]*<? /s", " ", $template);
/*
?>
<?
前一段php代码的结尾和下一段php代码的开始都被以空格代替了
*/
//附加处理
$template = "<?php if(!defined(IN_UCHOME)) exit(Access Denied);?><?php subtplcheck(".implode(|, $_SGLOBAL[sub_tpls]).", $_SGLOBAL[timestamp], $tpl);?>$template<?php ob_out();?>";
//write
if(!swritefile($objfile, $template)) {
exit("File: $objfile can not be write!");
}
/*
写入缓存文件
所以在template函数最后，无论$objfile一开始是否存在，最后都是返回$objfile
*/
}
function readtemplate($name) {
global $_SGLOBAL, $_SCONFIG;
$tpl = strexists($name,/)?$name:"template/$_SCONFIG[template]/$name";
$tplfile = S_ROOT../.$tpl..htm;
$_SGLOBAL[sub_tpls][] = $tpl;
if(!file_exists($tplfile)) {
$tplfile = str_replace(/.$_SCONFIG[template]./, /default/, $tplfile);
}
/*
如果$_SCONFIG[template]风格的模板文件不存在，则改用default风格的模板文件
*/
$content = sreadfile($tplfile);
//读入模板文件的内容
return $content;
}
function addquote($var) {
return str_replace("\"", """, preg_replace("/[([a-zA-Z0-9_-.x7f-xff]+)]/s", "[\1]", $var));
/*
这个preg_replace感觉没什么用啊，[name1]替换成[name1]？
str_replace将\"替换成"
*/
}
function blocktags($parameter) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--BLOCK_TAG_{$_SGLOBAL[i]}-->";
/*
按广告出现的次序，依次将{block/name}替换成BLOCK_TAG_1 BLOCK_TAG_2等等
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php block("$parameter"); ?>";
return $search;
}
function adtags($pagetype) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--AD_TAG_{$_SGLOBAL[i]}-->";
/*
按广告出现的次序，依次将{ad/name}替换成AD_TAG_3 AD_TAG_4等等
这个编号是跟着前面的BLOCK_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php adshow($pagetype); ?>";
return $search;
}
function datetags($parameter) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--DATE_TAG_{$_SGLOBAL[i]}-->";
/*
按date模板方法出现的次序，依次将{date(name)}替换成DATE_TAG_7 DATE_TAG_8等等
注意这里的编号是跟着前面的AD_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php echo sgmdate($parameter); ?>";
return $search;
}
function avatartags($parameter) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--AVATAR_TAG_{$_SGLOBAL[i]}-->";
/*
按avatar模板方法出现的次序，依次将{avatar(name)}替换成AVATAR_TAG_9 AVATAR_TAG_10等等
注意这里的编号是跟着前面的DATE_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php echo avatar($parameter); ?>";
return $search;
}
function evaltags($php) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--EVAL_TAG_{$_SGLOBAL[i]}-->";
/*
按eval模板方法出现的次序，依次将{eval php_expression}替换成EVAL_TAG_16 EVAL_TAG_17等等
注意这里的编号是跟着前面的AVATAR_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php ".stripvtags($php)." ?>";
return $search;
}
function addquote($var) {
return str_replace("\"", """, preg_replace("/[([a-zA-Z0-9_-.x7f-xff]+)]/s", "[\1]", $var));
/*
preg_replace将类似[name]转换成[‘name’]
str_replace将\转换成 不过我还没找到例子
*/
}
function stripvtags($expr, $statement=) {
$expr = str_replace("\"", """, preg_replace("/<?=(\$.+?)?>/s", "\1", $expr));
/*
preg_replace将<?=$name?>替换成$name
*/
$statement = str_replace("\"", """, $statement);
return $expr.$statement;
}
在下面的代码中，命名有规律。$tpl是没有后缀名的，$tplfile是后缀为htm的模板文件，$objfile是后缀为php的缓存文件
UCH里使用模板的流程是：
在php代码中获取动态数据，然后include_once template($tpl)
template函数解析模板文件$tplfile，返回缓存文件$objfile。
template函数中调用parse_template函数解析$tplfile，
$tplfile里有UCH定义的一套语法，在parse_template函数里可以看到，有<!-- template name--> <!—block/name-->等。这些语法在parse_template中都会被替换成对应的函数，如readtemplate blocktags等，这些函数也都位于function_template.php中。
这里有点点纠结的就是，模板文件中可能还通过<!-- template name-->包含了其他的模板文件，所以在parse_template中要两次调用preg_replace，第一次读模板文件$tplfile所包含的子模板文件name，第二次是读子模板文件name中再包含的孙子模板文件。UCH中至多有3层模板包含关系，即父亲->儿子->孙子，所以不需要第三次调用preg_replace来读取孙子模板文件可能包含的重孙模板文件了。
template函数在function_common.php中定义
function template($name) {
global $_SCONFIG, $_SGLOBAL;
if(strexists($name,/)) {
$tpl = $name;//$name是完整目录的情况
} else {
$tpl = "template/$_SCONFIG[template]/$name";
/*
$name只是一个文件名的情况，$tpl类似template/default/cp_blog或者template/blue/cp_blog
默认的模板风格是default，但是如果用户选择了其他风格，$_SCONFIG[template]就会变成blue之类的其他值
在首页的右下角可以选择模板风格
*/
}
$objfile = S_ROOT../data/tpl_cache/.str_replace(/,_,$tpl)..php;
/*
缓存文件名,$objfile类似data/tpl_cache/template_default_cp_blog.php或者data/tpl_cache/template_blue_cp_blog.php
*/
if(!file_exists($objfile)) {
include_once(S_ROOT../source/function_template.php);
parse_template($tpl);
//如果缓存文件不存在，则对模板文件进行解析
}
return $objfile;
}
parse_template函数在function_template.php中定义
function parse_template($tpl) {
global $_SGLOBAL, $_SC, $_SCONFIG;
//包含模板
$_SGLOBAL[sub_tpls] = array($tpl);
$tplfile = S_ROOT../.$tpl..htm;
/*
$tplfile类似template/default/cp_blog.htm或者template/blue/cp_blog.htm
*/
$objfile = S_ROOT../data/tpl_cache/.str_replace(/,_,$tpl)..php;
/*
$objfile类似data/tpl_cache/template_default_cp_blog.php或者data/tpl_cache/template_blue_cp_blog.php
*/
//read
if(!file_exists($tplfile)) {
$tplfile = str_replace(/.$_SCONFIG[template]./, /default/, $tplfile);
//如果非默认模板风格的某个模板文件不存在，那么就改用default风格的该模板文件
}
$template = sreadfile($tplfile);
//读入模板文件内容
if(empty($template)) {
exit("Template file : $tplfile Not found or have no access!");
}
//模板
$template = preg_replace("/<!--{templates+([a-z0-9_/]+)}-->/ie", "readtemplate(\1)", $template);
/*
这就是定义UCH的模板语法了，模板页中的<!--{template name}-->
被替换成readtemplate(name),readtemplate函数也在function_template.php中定义。name就是([a-zA-Z0-9_/]+)
为什么多了A-Z呢，因为"/<!--{templates+([a-z0-9_/]+)}-->/ie"最后的i选项表示不区分大小写的正则匹配
python里的正则表达式分组，似乎就是用1来表示第一组，这里用了\1
\1为什么又要用单引号裹起来呢，这是因为readtemplate函数的参数要是一个字符串
*/
//处理子页面中的代码
$template = preg_replace("/<!--{templates+([a-z0-9_/]+)}-->/ie", "readtemplate(\1)", $template);
//解析模块调用
$template = preg_replace("/<!--{block/(.+?)}-->/ie", "blocktags(\1)", $template);
/*
<!--{block/name}-->被替换成blocktags(name)
name就是(.+?) .匹配除换行符外的任意字符，+表示出现一次或多次
?表示懒惰匹配，不然后面的} - >都会被.+匹配掉
*/
//解析广告
$template = preg_replace("/<!--{ad/(.+?)}-->/ie", "adtags(\1)", $template);
/*
<!--{ad/name}-->被替换成<!--adtags(name)-->
如space_doing.htm里有一个<!--{ad/header}-->被替换成了<!--AD_TAG_1-->
*/
//时间处理
$template = preg_replace("/<!--{date((.+?))}-->/ie", "datetags(\1)", $template);
/*
<!--{date(name)}-->被替换成datetags(name)
如space_doing.htm里有一个
<!--{date(m-d H:i,$basevalue[dateline],1)}-->被替换成了<!--DATE_TAG_7-->
*/
//头像处理
$template = preg_replace("/<!--{avatar((.+?))}-->/ie", "avatartags(\1)", $template);
/*
<!--{avatar(name)}-->被替换成avatartags(name)
如space_doing.htm里有一个<!--{avatar($_SGLOBAL[supe_uid],small)}-->被替换成了<!--AVATAR_TAG_10-->
*/
//PHP代码
$template = preg_replace("/<!--{evals+(.+?)s*}-->/ies", "evaltags(\1)", $template);
/*
<!--{eval php_expression}-->被替换成evaltags(php_expression)
php_expression就是(.+?) 而且这里的.匹配包括换行符在内的一切字符 这是由/ies中的s选项确定的
如space_doing.htm里有一个<!--{eval echo formhash();}-->被替换成了<!--EVAL_TAG_16-->
*/
//开始处理
//变量
$var_regexp = "((\$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*)([[a-zA-Z0-9_-."\[]$x7f-xff]+])*)";
/*
上面用红色显示的是转义符，没用红色显示的\就还是反斜杠
但是一开始为什么要用三个，我搞不明白。试验了一下，\$匹配的就是$，而改成$却没能匹配模板文件里的变量名。这个我还没搞明白。
$var_regexp匹配变量名
[a-zA-Z_x7f-xff] 变量名以字母或下划线或汉字开头
x7f-xff这个让人非常困惑，到底是想匹配什么呢？难道是想匹配扩展ASCII码吗？0x7f-0xff确实是扩展ASCII码表的范围，但显然没人会用这些控制字符去当变量名。
我这个UCH是UTF-8版本的，从UCS-2（就是现在通用的Unicode）到UTF-8的编码方式如下：
UCS-2编码(16进制)
UTF-8 字节流(二进制)
0000 - 007F
0xxxxxxx
0080 - 07FF
110xxxxx 10xxxxxx
0800 - FFFF
1110xxxx 10xxxxxx 10xxxxxx
前面的0000-007F是兼容ASCII码的
汉字的unicode编码在0080-FFFF里，转换成UTF-8后的字节是
110xxxxx或10xxxxxx或1110xxxx，在0x01111111-0x11111111范围内，也即0x7f-0xff。
更精确地，这个匹配变量名开头的部分可以写成[a-zA-Z_xc0-xef],因为汉字的开始字节只可能是110xxxxx或1110xxxx，范围就是0xc0-0xdf和0xe0-0xef
[a-zA-Z0-9_x7f-xff]* 比变量名的开头字节的允许取值范围多了数字，和C语言是一样的，变量名不能以数字开头
更精确地，这里可以写成[a-zA-Z0-9_x80-xef]* 因为这里汉字的字节可能是110xxxxx或1110xxxx或10xxxxxx，比0xc0-0xef多了10xxxxxx，即0x80-0xbf，合起来就是0x80-0xef
([[a-zA-Z0-9_-."\[]$x7f-xff]+])*
变量可能是数组形式的，如$name1[$name2]，$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*匹配了$name1，后面的[$name2]怎么匹配呢？我一开始以为是[$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]],因为[]里面也应该是一个变量名。
但是变量可能是嵌套数组形式的，如$name1[$name2[$name3[$name4]]]，此时用$[a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]来一个个匹配变量名明显不可行。所以只是用[]把可能的字符都框起来，希望程序员不要写太扯淡的变量名了。
*/
$template = preg_replace("/<!--{(.+?)}-->/s", "{\1}", $template);
/*
形如<!--{name}-->的字符串被替换成{name}
前面 解析广告，时间处理等产生的<!--EVAL_TAG_15-->等都不匹配，仍然保留
name就是(.+?) 这里的.匹配包括换行符在内的所有字符（有/s选项） ?表示懒惰匹配
*/
$template = preg_replace("/([ ]+) +/s", "\1", $template);
/*
去掉换行回车后的制表符
beyondcompare中的对比效果如下
*/
$template = preg_replace("/(\$[a-zA-Z0-9_[]\"$x7f-xff]+).([a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*)/s", "\1[\2]", $template);
/*
形如$name1.name2替换成$name1[name2],不要搞成了$name1[name2]，\2和"\1"都是正则表达式的后向引用。可是我在模板文件中还没找到例子
*/
$template = preg_replace("/{(\$[a-zA-Z0-9_[]\"$.x7f-xff]+)}/s", "<?=\1?>", $template);
/*
形如{$name1}替换成<?=$name1?>
如space_doing.htm里有{$_SN[$space[uid]]}被换成了
<?=$_SN[$space[uid]]?>
*/
$template = preg_replace("/$var_regexp/es", "addquote(<?=\1?>)", $template);
/*
将没有被{}包裹的变量名替换成addquote(<?=\1?>)
addquote的作用是将类似[name]转换成[‘name’]
如space_doing.htm里有{if $space}被替换成了{if <?=$space?>}
但是这样也有副作用，比如space_doing.htm里有{$_SN[$space[uid]]}，在上一条语句中被替换成了<?=$_SN[$space[uid]]?>，在这又被替换成了<?=<?=$_SN[$space[uid]]?>?>
*/
$template = preg_replace("/<?=<?=$var_regexp?>?>/es", "addquote(<?=\1?>)", $template);
/*
消除上一条语句的副作用，将<?=<?=$_SN[$space[uid]]?>?>换成<?=$_SN[$space[uid]]?>
*/
//逻辑
$template = preg_replace("/{elseifs+(.+?)}/ies", "stripvtags(<?php } elseif(\1) { ?>,)", $template);
/*
{elseif expression1} 替换成stripvtags(<?php } elseif(expression1) { ?>,)
stripvtags的作用是将类似<?=$name?>替换成$name
*/
$template = preg_replace("/{else}/is", "<?php } else { ?>", $template);
/*
{else} 替换成<?php } else { ?>
*/
//循环
for($i = 0; $i < 5; $i++) {
$template = preg_replace("/{loops+(S+)s+(S+)}(.+?){/loop}/ies", "stripvtags(<?php if(is_array(\1)) { foreach(\1 as \2) { ?>,\3<?php } } ?>)", $template);
/*
解析loop
将类似{loop array1 key1} expression1 {/loop}替换成
stripvtags（
<’?php if(is_array(array1)) {foreach (array1 as key1){?>’,
‘expression1<?php } } ?>’
）
如space_doing.htm里将
<title>{if <?=$_TPL[titles]?>}{loop <?=$_TPL[titles]?> <?=$value?>}{if <?=$value?>}<?=$value?> - {/if}{/loop}{/if}{if <?=$space?>}<?=$_SN[$space[uid]]?> - {/if}<?=$_SCONFIG[sitename]?>
替换成了
<title>{if <?=$_TPL[titles]?>}<?php if(is_array($_TPL[titles])) { foreach($_TPL[titles] as $value) { ?>{if <?=$value?>}<?=$value?> - {/if}<?php } } ?>{/if}{if <?=$space?>}<?=$_SN[$space[uid]]?> - {/if}<?=$_SCONFIG[sitename]?>
*/
$template = preg_replace("/{loops+(S+)s+(S+)s+(S+)}(.+?){/loop}/ies", "stripvtags(<?php if(is_array(\1)) { foreach(\1 as \2 => \3) { ?>,\4<?php } } ?>)", $template);
/*
解析loop
将类似{loop array1 key1 value1} expression1 {/loop}替换成
stripvtags（
<’?php if(is_array(array1)) {foreach (array1 as key1=>value1){?>’,
‘expression1<?php } } ?>’
）
如space_doing.htm里将
{loop <?=$moodlist?> <?=$key?> <?=$value?>}
<li>
<div class="avatar48"><a href="space.php?uid=<?=$value[uid]?>&do=doing"><img src=\'#\'" alt="<?=$_SN[$value[uid]]?>" /></a></div>
<p><a href="space.php?uid=<?=$value[uid]?>" title="<?=$_SN[$value[uid]]?>"><?=$_SN[$value[uid]]?></a></p>
<p class="time"><!--DATE_TAG_9--></p>
</li>
{/loop}
替换成了
<?php if(is_array($moodlist)) { foreach($moodlist as $key => $value) { ?>
<li>
<div class="avatar48"><a href="space.php?uid=<?=$value[uid]?>&do=doing"><img src=\'#\'" alt="<?=$_SN[$value[uid]]?>" /></a></div>
<p><a href="space.php?uid=<?=$value[uid]?>" title="<?=$_SN[$value[uid]]?>"><?=$_SN[$value[uid]]?></a></p>
<p class="time"><!--DATE_TAG_9--></p>
</li>
<?php } } ?>
*/
$template = preg_replace("/{ifs+(.+?)}(.+?){/if}/ies", "stripvtags(<?php if(\1) { ?>,\2<?php } ?>)", $template);
/*
解析if
将类似
{if name1} expression1 {/if}
替换成
stripvtags(
<’?php if(name1) { ?>’,
‘expression1<?php } ?>’
)
如space_doing.htm里将
{if empty(<?=$_SGLOBAL[inajax]?>)}
替换成
<?php if(empty($_SGLOBAL[inajax])) { ?>
*/
}/*for循环结束*/
/*
为什么要有for循环呢？因为可能存在循环语句嵌套的情况。
比如space_doing.htm里有这么一段代码
{loop <?=$list?> <?=$basevalue?>}
………
………
{loop <?=$clist[$basevalue[doid]]?> <?=$value?>}
………
{/loop}
………
{/loop}
$i=0时，
$template = preg_replace("/{loops+(S+)s+(S+)}(.+?){/loop}/ies", "stripvtags(<?php if(is_array(\1)) { foreach(\1 as \2) { ?>,\3<?php } } ?>)", $template);
只替换掉了外层的loop，内层的loop被(.+?)所匹配
?表示懒惰匹配，否则后面的{/loop}都会被(.+)所匹配
但是既然是懒惰匹配，为什么(.+?)不是匹配到内层的{/loop}就停止呢？
因为正则表达式有另一条规则，比懒惰／贪婪规则的优先级更高：最先开始的匹配拥有最高的优先权——The match that begins earliest wins。
$i=1时，内层的loop也将被替换掉
从这个for循环我们也可以看出，UCH的模板中最多允许5层嵌套循环，当然这已经足够了
*/
//常量
$template = preg_replace("/{([a-zA-Z_x7f-xff][a-zA-Z0-9_x7f-xff]*)}/s", "<?=\1?>", $template);
/*
比变量名少了一开始的$，也不考虑数组形式的常量
*/
//替换
if(!empty($_SGLOBAL[block_search])) {
$template = str_replace($_SGLOBAL[block_search], $_SGLOBAL[block_replace], $template);
}
//换行
$template = preg_replace("/ ?>[ ]*<? /s", " ", $template);
/*
?>
<?
前一段php代码的结尾和下一段php代码的开始都被以空格代替了
*/
//附加处理
$template = "<?php if(!defined(IN_UCHOME)) exit(Access Denied);?><?php subtplcheck(".implode(|, $_SGLOBAL[sub_tpls]).", $_SGLOBAL[timestamp], $tpl);?>$template<?php ob_out();?>";
//write
if(!swritefile($objfile, $template)) {
exit("File: $objfile can not be write!");
}
/*
写入缓存文件
所以在template函数最后，无论$objfile一开始是否存在，最后都是返回$objfile
*/
}
function readtemplate($name) {
global $_SGLOBAL, $_SCONFIG;
$tpl = strexists($name,/)?$name:"template/$_SCONFIG[template]/$name";
$tplfile = S_ROOT../.$tpl..htm;
$_SGLOBAL[sub_tpls][] = $tpl;
if(!file_exists($tplfile)) {
$tplfile = str_replace(/.$_SCONFIG[template]./, /default/, $tplfile);
}
/*
如果$_SCONFIG[template]风格的模板文件不存在，则改用default风格的模板文件
*/
$content = sreadfile($tplfile);
//读入模板文件的内容
return $content;
}
function addquote($var) {
return str_replace("\"", """, preg_replace("/[([a-zA-Z0-9_-.x7f-xff]+)]/s", "[\1]", $var));
/*
这个preg_replace感觉没什么用啊，[name1]替换成[name1]？
str_replace将\"替换成"
*/
}
function blocktags($parameter) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--BLOCK_TAG_{$_SGLOBAL[i]}-->";
/*
按广告出现的次序，依次将{block/name}替换成BLOCK_TAG_1 BLOCK_TAG_2等等
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php block("$parameter"); ?>";
return $search;
}
function adtags($pagetype) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--AD_TAG_{$_SGLOBAL[i]}-->";
/*
按广告出现的次序，依次将{ad/name}替换成AD_TAG_3 AD_TAG_4等等
这个编号是跟着前面的BLOCK_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php adshow($pagetype); ?>";
return $search;
}
function datetags($parameter) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--DATE_TAG_{$_SGLOBAL[i]}-->";
/*
按date模板方法出现的次序，依次将{date(name)}替换成DATE_TAG_7 DATE_TAG_8等等
注意这里的编号是跟着前面的AD_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php echo sgmdate($parameter); ?>";
return $search;
}
function avatartags($parameter) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--AVATAR_TAG_{$_SGLOBAL[i]}-->";
/*
按avatar模板方法出现的次序，依次将{avatar(name)}替换成AVATAR_TAG_9 AVATAR_TAG_10等等
注意这里的编号是跟着前面的DATE_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php echo avatar($parameter); ?>";
return $search;
}
function evaltags($php) {
global $_SGLOBAL;
$_SGLOBAL[i]++;
$search = "<!--EVAL_TAG_{$_SGLOBAL[i]}-->";
/*
按eval模板方法出现的次序，依次将{eval php_expression}替换成EVAL_TAG_16 EVAL_TAG_17等等
注意这里的编号是跟着前面的AVATAR_TAG来的
*/
$_SGLOBAL[block_search][$_SGLOBAL[i]] = $search;
$_SGLOBAL[block_replace][$_SGLOBAL[i]] = "<?php ".stripvtags($php)." ?>";
return $search;
}
function addquote($var) {
return str_replace("\"", """, preg_replace("/[([a-zA-Z0-9_-.x7f-xff]+)]/s", "[\1]", $var));
/*
preg_replace将类似[name]转换成[‘name’]
str_replace将\转换成 不过我还没找到例子
*/
}
function stripvtags($expr, $statement=) {
$expr = str_replace("\"", """, preg_replace("/<?=(\$.+?)?>/s", "\1", $expr));
/*
preg_replace将<?=$name?>替换成$name
*/
$statement = str_replace("\"", """, $statement);
return $expr.$statement;
}
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- C++第一次上机实验项目3——周工资计算
- C++第一次实验-项目1
- 实验1 项目2 第（2）个体验
- 实验二 个人项目
- 结对项目实验
- c++第五次实验——项目一：数组分离
- Java汉化实验项目求小伙伴
- 第五周项目4 -数制转换
- 补作业 第五次实验 项目4
- C++第3次实验：【项目三】定期存款利息计算器
- c++实验3-项目4
- 补做-第五次实验-项目四
- c++上机实验5-项目1-数组分离
- 实验：C++实验3-项目1
- 实验七 项目二
- c++实验6——【项目1：数组操作】
- c++实验5-项目1
- 实验项目二：栈的基本操作及其应用
- C++第5次实验——项目1数组分离
- 实验项目3-6：表达式转换（中缀表达式转后缀表达式）