function cbasic_exec($d, $p, $r, $o)
{
list($av, $ap, $c) = decompact_conn_b($d);
//v§p:c
if (strpos($av, ':') !== false) {
$av = cbasic_exec($av, $p, $r, $o);
}
//iteration
if ($o == 2) {
$av = $av ? $av : $p;
}
//param on left (no §) //strpos($ap,'_PARAM')===false
if (!is_array($av)) {
$av = cbasic_vars($av, $p, $r);
}
if ($ap) {
$ap = cbasic_vars($ap, $p, $r);
}
if ($o == 1) {
echo $av . '$' . $ap . ':' . $c . br();
}
return codeline($av, $ap, $c);
}
function clpreview($v)
{
$r = decompact_conn_b($v);
if ($r[0]) {
$ret .= divc('txtx', btn('txtblc', 'value') . ' ' . $r[0]);
}
if ($r[1]) {
$ret .= divc('txtx', btn('txtblc', 'option') . ' ' . $r[1]);
}
$ret .= divc('txtx', btn('txtblc', 'connector') . ' ' . $r[2]);
return div(atc('txtbox') . ats('margin:4px;'), $ret);
}
