function correct_txt($msg, $cr, $gouv)
{
//g2
$st = '[';
$nd = ']';
$deb = '';
$mid = '';
$end = '';
$in = strpos($msg, $st);
if ($in !== false) {
$deb = substr($msg, 0, $in);
$out = strpos(substr($msg, $in + 1), $nd);
if ($out !== false) {
$nb_in = substr_count(substr($msg, $in + 1, $out), $st);
if ($nb_in >= 1) {
for ($i = 1; $i <= $nb_in; $i++) {
$out_tmp = $in + 1 + $out + 1;
$out += strpos(substr($msg, $out_tmp), $nd) + 1;
$nb_in = substr_count(substr($msg, $in + 1, $out), $st);
}
$mid = substr($msg, $in + 1, $out);
$mid = correct_txt($mid, $cr, $gouv);
} else {
$mid = substr($msg, $in + 1, $out);
}
if ($gouv == 'savimg') {
$mid = corr_img($mid, $cr);
} elseif ($gouv == 'corrfast') {
$mid = corr_fast($mid, $cr);
} elseif ($gouv == 'stripconn') {
$mid = strip_conn($mid, $cr);
} elseif ($gouv == 'correct') {
$mid = correctors($mid, $cr);
} elseif ($gouv == 'codeline') {
$r = decompact_conn($mid);
$mid = codeline($r[0], $r[1], $r[2]);
} elseif ($gouv == 'clpreview') {
$mid = clpreview($mid);
} elseif ($gouv == 'sconn') {
$mid = sconn($mid);
} elseif ($gouv == 'delconn') {
$mid = del_conn($mid);
} elseif ($gouv == 'extractimg') {
$mid = extractimg($mid);
} elseif ($gouv == 'svg') {
$mid = svg_conn($mid);
}
$end = substr($msg, $in + 1 + $out + 1);
$end = correct_txt($end, $cr, $gouv);
} else {
$end = substr($msg, $in + 1);
}
} else {
$end = $msg;
}
if ($gouv == 'extractimg') {
return $mid . $end;
}
return $deb . $mid . $end;
}
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);
}
