/**
* Expands %node.word, %node.array, %node.args, %escape(), %modify(), %var, %raw in code.
* @param string
* @return string
*/
public function write($mask)
{
$args = func_get_args();
array_shift($args);
$word = strpos($mask, '%node.word') === FALSE ? NULL : $this->argsTokenizer->fetchWord();
$me = $this;
$mask = NStrings::replace($mask, '#%escape(\(([^()]*+|(?1))+\))#', callback(create_function('$m', 'extract(NCFix::$vars['.NCFix::uses(array('me'=>$me)).'], EXTR_REFS);
return $me->escape(substr($m[1], 1, -1));
')));
$mask = NStrings::replace($mask, '#%modify(\(([^()]*+|(?1))+\))#', callback(create_function('$m', 'extract(NCFix::$vars['.NCFix::uses(array('me'=>$me)).'], EXTR_REFS);
return $me->formatModifiers(substr($m[1], 1, -1));
')));
return NStrings::replace($mask, '#([,+]\s*)?%(node\.word|node\.array|node\.args|var|raw)(\?)?(\s*\+\s*)?()#',
callback(create_function('$m', 'extract(NCFix::$vars['.NCFix::uses(array('me'=>$me,'word'=> $word, 'args'=>& $args)).'], EXTR_REFS);
list(, $l, $macro, $cond, $r) = $m;
switch ($macro) {
case \'node.word\':
$code = $me->formatWord($word); break;
case \'node.args\':
$code = $me->formatArgs(); break;
case \'node.array\':
$code = $me->formatArray();
$code = $cond && $code === \'array()\' ? \'\' : $code; break;
case \'var\':
$code = var_export(array_shift($args), TRUE); break;
case \'raw\':
$code = (string) array_shift($args); break;
}
if ($cond && $code === \'\') {
return $r ? $l : $r;
} else {
return $l . $code . $r;
}
')));
}
