+ return $val;
+ }
+
+ /**
+ * IF node
+ *
+ * {{ if <$var> }}...[{{ else }} ...] {{ endif }}
+ * {{ if <$var>==<val|$var> }}...[{{ else }} ...]{{ endif }}
+ * {{ if <$var>!=<val|$var> }}...[{{ else }} ...]{{ endif }}
+ */
+ private function _replcb_if($args){
+ if (strpos($args[2],"==")>0){
+ list($a,$b) = array_map("trim",explode("==",$args[2]));
+ $a = $this->_get_var($a);
+ if ($b[0]=="$") $b = $this->_get_var($b);
+ $val = ($a == $b);
+ } else if (strpos($args[2],"!=")>0){
+ list($a,$b) = explode("!=",$args[2]);
+ $a = $this->_get_var($a);
+ if ($b[0]=="$") $b = $this->_get_var($b);
+ $val = ($a != $b);
+ } else {
+ $val = $this->_get_var($args[2]);
+ }
+ list($strue, $sfalse)= preg_split("|{{ *else *}}|", $args[3]);
+ return ($val?$strue:$sfalse);
+ }
+
+ /**
+ * FOR node
+ *
+ * {{ for <$var> as $name }}...{{ endfor }}
+ * {{ for <$var> as $key=>$name }}...{{ endfor }}
+ */
+ private function _replcb_for($args){
+ $m = array_map('trim', explode(" as ", $args[2]));
+ list($keyname, $varname) = explode("=>",$m[1]);
+ if (is_null($varname)) { $varname=$keyname; $keyname=""; }
+ if ($m[0]=="" || $varname=="" || is_null($varname)) die("template error: 'for ".$m[0]." as ".$varname."'") ;
+ //$vals = $this->r[$m[0]];
+ $vals = $this->_get_var($m[0]);
+ $ret="";
+ if (!is_array($vals)) return $ret;
+ foreach ($vals as $k=>$v){
+ $this->_push_stack();
+ $r = $this->r;
+ $r[$varname] = $v;
+ if ($keyname!='') $r[$keyname] = $k;
+ $ret .= $this->replace($args[3], $r);
+ $this->_pop_stack();
+ }
+ return $ret;
+ }
+
+ /**
+ * INC node
+ *
+ * {{ inc <templatefile> [with $var1=$var2] }}{{ endinc }}
+ */
+ private function _replcb_inc($args){
+ list($tplfile, $newctx) = array_map('trim', explode("with",$args[2]));
+ $this->_push_stack();
+ $r = $this->r;
+ if (!is_null($newctx)) {
+ list($a,$b) = array_map('trim', explode("=",$newctx));
+ $r[$a] = $this->_get_var($b);
+ }
+ $this->nodes = Array();
+ $tpl = get_markup_template($tplfile);
+ $ret = $this->replace($tpl, $r);
+ $this->_pop_stack();
+ return $ret;