<?php
/**
* Harbourino Procedural @ Parser – v0.3.4 (grid collision solver + PIXEL + SAY/LISTBOX fixes)
* -------------------------------------------------------------------------------------------
* - PIXEL auto-detect → absolute positioning, 1px mapping, SIZE w/h in px
* - Grid mode: maps SIZE w (ch) → grid-column span AND prevents overlaps
* - SAY VAR <cVar> supported (binds to variable, auto-updates with LISTBOX)
* - LISTBOX [oLbx] VAR <cVar> … supported (optional object name)
* - Title from DEFINE DIALOG/WINDOW … TITLE "…"
*
* Usage:
* php hw_proc.php demo_proc.prg > demo_abs.html
* php hw_proc.php demo_proc.prg --grid > demo_grid.html
* php hw_proc.php demo_proc.prg --grid=16 --ch-per-col=5 > demo_grid16.html
*/
ini_set('display_errors', 1);
error_reporting(E_ALL);
// --- CLI args ---------------------------------------------------------------
$in = $argv[1] ?? null;
if (!$in || !is_file($in)) {
fwrite(STDERR, "Usage: php hw_proc.php input.prg [--grid[=24]] [--grid-cols=24] [--ch-per-col=4]\n");
exit(1);
}
list($grid, $gridCols, $chPerCol) = parse_cli_flags($argv);
// --- Load & normalize source ------------------------------------------------
$src = file_get_contents($in);
$src = str_replace(["\r\n", "\r"], "\n", $src);
// Join continued lines ending with ';' (FiveWin style)
$__raw = explode("\n", $src);
$__lines = [];
$__buf = '';
foreach ($__raw as $__ln) {
$__ln = rtrim($__ln);
$__buf = ($__buf === '') ? $__ln : ($__buf . ' ' . ltrim($__ln));
if (!preg_match('/;\s*$/', $__ln)) { $__lines[] = $__buf; $__buf = ''; }
}
if ($__buf !== '') $__lines[] = $__buf;
$src = implode("\n", $__lines);
// PIXEL auto-detect and grid override
$usesPixel = (bool) preg_match('/\bPIXEL\b/i', $src);
if ($usesPixel) { $grid = false; } // absolute positioning for PIXEL
// Unit presets
$UX = $usesPixel ? '1px' : '8px';
$UY = $usesPixel ? '1px' : '20px';
$ROW = $usesPixel ? '16px' : '36px';
$INH = $usesPixel ? '16px' : '36px';
$GAP = $usesPixel ? '2px' : '8px';
$PAD = $usesPixel ? '8px' : '16px';
// Strip includes / templating remnants
$src = preg_replace('/#include\s+\"[^\"]*\"/i', '', $src);
$src = preg_replace('/\{\%.*?\%\}/s', '', $src);
// Title from DEFINE DIALOG/WINDOW ... TITLE "..."
$title = 'Harbourino Classic Form';
if (preg_match('/DEFINE\s+(?:DIALOG|WINDOW)\s+\w+(?:\s+PIXEL)?\s+TITLE\s+(\"([^\"]*)\"|\'([^\']*)\')/i', $src, $m)) {
$title = $m[2] !== '' ? $m[2] : $m[3];
}
// Defaults from LOCAL
$varDefaults = parse_locals($src);
// Parse @ lines
$items = parse_items($src);
// --- Placement --------------------------------------------------------------
if ($grid) {
$placed = layout_grid($items, $gridCols, $chPerCol);
} else {
$placed = layout_absolute($items); // keeps 0.3.2 nudge behaviour
}
// --- Emit HTML --------------------------------------------------------------
$out = [];
$out[] = '<!doctype html>';
$out[] = '<html lang="en">';
$out[] = '<head>';
$out[] = ' <meta charset="utf-8">';
$out[] = ' <meta name="viewport" content="width=device-width, initial-scale=1">';
$out[] = ' <title>' . h($title) . '</title>';
$out[] = ' <style>';
$out[] = ' :root{';
$out[] = ' --ux: ' . $UX . ';';
$out[] = ' --uy: ' . $UY . ';';
$out[] = ' --font: 12px/1.2 system-ui,Segoe UI,Roboto,Arial;';
$out[] = ' --cols: ' . (int)$gridCols . ';';
$out[] = ' --row-h: ' . $ROW . ';';
$out[] = ' --input-h: ' . $INH . ';';
$out[] = ' }';
$out[] = ' *{';
$out[] = ' box-sizing: border-box;';
$out[] = ' }';
$out[] = ' body{';
$out[] = ' margin: 0;';
$out[] = ' font: var(--font);';
$out[] = ' background: #0e1116;';
$out[] = ' color: #e9eef5;';
$out[] = ' }';
if ($grid) {
$out[] = ' .wrap{';
$out[] = ' display: grid;';
$out[] = ' grid-template-columns: repeat(var(--cols), minmax(0, 1fr));';
$out[] = ' grid-auto-rows: minmax(var(--row-h), auto);';
$out[] = ' gap: ' . $GAP . ';';
$out[] = ' align-items: center;';
$out[] = ' padding: ' . $PAD . ';';
$out[] = ' }';
} else {
$out[] = ' .wrap{';
$out[] = ' position: relative;';
$out[] = ' min-height: 100px;';
$out[] = ' padding: ' . $PAD . ';';
$out[] = ' }';
}
$out[] = ' .item{';
$out[] = ' position: ' . ($grid ? 'relative' : 'absolute') . ';';
$out[] = ' }';
$out[] = ' label{';
$out[] = ' font-weight: 600;';
$out[] = ' }';
$out[] = ' input,select,button{';
$out[] = ' font: inherit;';
$out[] = ' }';
$out[] = ' input[type=text],input[type=number],input[type=date]{';
$out[] = ' background: #151a22;';
$out[] = ' border: 1px solid #2a3240;';
$out[] = ' color: #e9eef5;';
$out[] = ' padding: 0 4px;';
$out[] = ' border-radius: 4px;';
$out[] = ' height: var(--input-h);';
$out[] = ' line-height: var(--input-h);';
$out[] = ' }';
if ($grid) {
$out[] = ' input[type=text],input[type=number],input[type=date],select{';
$out[] = ' width: 100%;';
$out[] = ' }';
}
$out[] = ' select{';
$out[] = ' background: #151a22;';
$out[] = ' border: 1px solid #2a3240;';
$out[] = ' color: #e9eef5;';
$out[] = ' padding: 0 4px;';
$out[] = ' border-radius: 4px;';
$out[] = ' height: var(--input-h);';
$out[] = ' line-height: var(--input-h);';
$out[] = ' }';
$out[] = ' select[multiple]{';
$out[] = ' min-height: 80px;';
$out[] = ' }';
$out[] = ' button{';
$out[] = ' background: #2a7de1;';
$out[] = ' color: white;';
$out[] = ' border: 0;';
$out[] = ' padding: 0 6px;';
$out[] = ' border-radius: 4px;';
$out[] = ' cursor: pointer;';
$out[] = ' min-height: var(--input-h);';
$out[] = ' justify-self: start;';
$out[] = ' }';
$out[] = ' button.secondary{';
$out[] = ' background: #3a3f46;';
$out[] = ' }';
$out[] = ' </style>';
$out[] = '</head>';
$out[] = '<body>';
$out[] = '<form id="frm"><div class="wrap">';
$pixel = (bool)$usesPixel;
// --- Render -----------------------------------------------------------------
foreach ($placed as $it) {
switch ($it['type']) {
case 'say': {
$style = style_for($it, $grid, $gridCols, $chPerCol);
// Support SAY VAR <cVar>
if (!empty($it['bindVar'])) {
$id = 'say_' . h($it['bindVar']);
$val = value_for($it['bindVar'], $varDefaults);
$txt = ($val !== null) ? (string)$val : '';
$out[] = '<label class="item" style="' . $style . '" id="' . $id . '">' . h($txt) . '</label>';
} else {
$out[] = '<label class="item" style="' . $style . '">' . h($it['text'] ?? '') . '</label>';
}
break;
}
case 'get': {
$val = value_for($it['var'], $varDefaults);
list($type, $extra) = input_type_and_mask($it['var'], $it['picture']);
$style = style_for($it, $grid, $gridCols, $chPerCol);
if (!$grid && !empty($it['w'])) $style .= ' width:' . (int)$it['w'] . ($pixel ? 'px;' : 'ch;');
if (!$grid && $pixel && !empty($it['h'])) $style .= ' height:' . (int)$it['h'] . 'px; line-height:' . (int)$it['h'] . 'px;';
$colorCss = color_css($it['color']);
$attr = '';
if ($type === 'number') $attr .= ' inputmode="decimal"';
if (!empty($extra['step'])) $attr .= ' step="' . $extra['step'] . '"';
$valueAttr = $val !== null ? ' value="' . h($val) . '"' : '';
$out[] = '<input class="item" style="' . $style . $colorCss . '" type="' . $type . '" name="' . h($it['var']) . '" id="' . h($it['var']) . '"' . $attr . $valueAttr . ' />';
break;
}
case 'checkbox': {
$style = style_for($it, $grid, $gridCols, $chPerCol);
$checked = truthy(value_for($it['var'], $varDefaults)) ? ' checked' : '';
$label = h($it['prompt'] ?? '');
$name = h($it['var']);
$out[] = '<label class="item checkbox" style="' . $style . '"><input type="checkbox" name="' . $name . '" id="' . $name . '"' . $checked . '>' . $label . '</label>';
break;
}
case 'radio': {
$style = style_for($it, $grid, $gridCols, $chPerCol);
$horizontal = !empty($it['horizontal']);
$name = h($it['var']);
$default = value_for($it['var'], $varDefaults);
$cls = $horizontal ? 'radio-group horizontal' : 'radio-group';
$html = '<div class="item ' . $cls . '" style="' . $style . '">';
foreach ($it['items'] as $idx => $text) {
$val = (string)($idx + 1);
$id = $name . '_' . $val;
$sel = '';
if (is_numeric($default) && (int)$default === ($idx + 1)) $sel = ' checked';
elseif (is_string($default) && strcasecmp($default, $text) === 0) $sel = ' checked';
$html .= '<label><input type="radio" name="' . $name . '" id="' . h($id) . '" value="' . h($val) . '"' . $sel . '> ' . h($text) . '</label>';
}
$html .= '</div>';
$out[] = $html;
break;
}
case 'listbox': {
$style = style_for($it, $grid, $gridCols, $chPerCol);
if (!$grid && !empty($it['w'])) $style .= ' width:' . (int)$it['w'] . ($pixel ? 'px;' : 'ch;');
if (!$grid && $pixel && !empty($it['h'])) $style .= ' height:' . (int)$it['h'] . 'px;';
$name = h($it['var']);
$multi = !empty($it['multi']);
$default = value_for($it['var'], $varDefaults);
$sizeAttr = (!$pixel && $it['h'] && $it['h'] > 1) ? ' size="' . (int)$it['h'] . '"' : '';
$multiAttr = $multi ? ' multiple' : '';
// If a SAY is bound to the same VAR, update it on change
$sayId = 'say_' . $name;
$onChange = ' onchange="(function(el){var t=document.getElementById(\'' . $sayId . '\'); if(t){t.textContent = el.value;}})(this)"';
$html = '<select class="item" style="' . $style . '" name="' . $name . '" id="' . $name . '"' . $sizeAttr . $multiAttr . $onChange . '>';
foreach ($it['items'] as $idx => $text) {
$isSel = false;
if (is_numeric($default) && (int)$default === ($idx + 1)) $isSel = true;
elseif (is_string($default) && strcasecmp($default, $text) === 0) $isSel = true;
$html .= '<option value="' . h($text) . '"' . ($isSel ? ' selected' : '') . '>' . h($text) . '</option>';
}
$html .= '</select>';
$out[] = $html;
break;
}
case 'button': {
list($label, $access) = accesskey_from_amp($it['label']);
$style = style_for($it, $grid, $gridCols, $chPerCol);
if (!$grid && $pixel) {
if (!empty($it['w'])) $style .= ' width:' . (int)$it['w'] . 'px;';
if (!empty($it['h'])) $style .= ' height:' . (int)$it['h'] . 'px; line-height:' . (int)$it['h'] . 'px;';
}
$typeBtn = $it['cancel'] ? 'button' : 'submit';
$cls = $it['cancel'] ? 'secondary' : '';
$ak = $access ? ' accesskey="' . h(strtolower($access)) . '"' : '';
$onclick = '';
if ($it['cancel']) { $onclick = ' onclick="history.back();"'; }
elseif (!empty($it['action'])) { $onclick = ' onclick="' . h(js_action($it['action'])) . '"'; $typeBtn = 'button'; }
$out[] = '<button class="item ' . $cls . '" style="' . $style . '" type="' . $typeBtn . '"' . $ak . $onclick . '>' . h($label) . '</button>';
break;
}
}
}
$out[] = '</div></form>';
$out[] = '<script>document.getElementById("frm")?.addEventListener("submit", function(e){ e.preventDefault(); alert("Submitted!"); });</script>';
$out[] = '</body>';
$out[] = '</html>';
echo implode("\n", $out);
// =============================== Layout =====================================
function layout_grid(array $items, int $cols, int $chPerCol): array {
// Sort by row, then col
usort($items, function($a,$b){
if ($a['row'] == $b['row']) return $a['col'] <=> $b['col'];
return $a['row'] <=> $b['row'];
});
$ranges = []; // rowKey => [ [start,end], ... ]
$placed = [];
foreach ($items as $it) {
$r = (int)round($it['row']);
$start = max(1, (int)round($it['col']));
$span = grid_span_cols(default_width_ch_for_type($it['type'], $it), $cols, $chPerCol);
if ($it['type'] === 'button') $span = max(2, min($span, 4)); // small default span for buttons
// SAY does not occupy span
if ($it['type'] !== 'say') {
while (true) {
$conflict = conflict_in_row($ranges[$r] ?? [], $start, $start + $span - 1);
if (!$conflict) break;
$start = $conflict[1] + 1; // move right after the conflicting block
if ($start + $span - 1 > $cols) { // wrap
$r += 1; $start = 1; // next row, from column 1
}
}
// register interval
if (!isset($ranges[$r])) $ranges[$r] = [];
$ranges[$r][] = [$start, $start + $span - 1];
}
$it['render_row'] = $r;
$it['render_col'] = $start;
$it['grid_span'] = $span;
$placed[] = $it;
}
return $placed;
}
function conflict_in_row(array $intervals, int $start, int $end) {
foreach ($intervals as $iv) {
if (!($end < $iv[0] || $start > $iv[1])) return $iv; // overlap
}
return null;
}
function layout_absolute(array $items): array {
// Keep simple same-row nudge as 0.3.2
$rowRanges = []; $MARGIN = 2; $placed = [];
foreach ($items as $it) {
$it['render_col'] = $it['col'];
$rowKey = row_key($it['row']);
$wCols = approx_width_cols($it);
if ($wCols > 0) {
if (!isset($rowRanges[$rowKey])) $rowRanges[$rowKey] = [];
$newCol = $it['render_col'];
foreach ($rowRanges[$rowKey] as $span) {
if ($newCol >= $span[0] && $newCol < $span[1]) { $newCol = $span[1] + $MARGIN; }
}
$it['render_col'] = $newCol;
$rowRanges[$rowKey][] = [ $it['render_col'], $it['render_col'] + $wCols ];
}
$placed[] = $it;
}
return $placed;
}
// =============================== Parsers ====================================
function parse_items(string $src): array {
$items = [];
$lines = explode("\n", $src);
foreach ($lines as $line) {
if (!preg_match('/^\s*\@/', $line)) continue;
$L = $line;
if (!preg_match('/\@\s*([0-9]+(?:\.[0-9]+)?)\s*,\s*([0-9]+(?:\.[0-9]+)?)/', $L, $rc)) continue;
$row = (float)$rc[1]; $col = (float)$rc[2];
// SAY VAR <bind> (optional object before VAR)
if (preg_match('/SAY\s+(?:\w+\s+)?VAR\s+(\w+)/i', $L, $m)) {
$items[] = ['type'=>'say','row'=>$row,'col'=>$col,'text'=>null,'bindVar'=>$m[1]];
continue;
}
// SAY "text" or PROMPT "text"
if (preg_match('/SAY\s+(?:\w+\s+)?(?:PROMPT\s+)?("([^"]*)"|\'([^\']*)\')/i', $L, $m)) {
$text = $m[2] !== '' ? $m[2] : $m[3];
$items[] = ['type'=>'say','row'=>$row,'col'=>$col,'text'=>$text];
continue;
}
if (preg_match('/GET\s+\w+\s+VAR\s+(\w+)(.*)$/i', $L, $m)) {
$var=$m[1]; $rest=$m[2]; list($w,$h)=parse_size($rest); $color=parse_color($rest); $picture=parse_picture($rest);
$items[] = ['type'=>'get','row'=>$row,'col'=>$col,'var'=>$var,'w'=>$w,'h'=>$h,'color'=>$color,'picture'=>$picture];
continue;
}
if (preg_match('/CHECKBOX\s+VAR\s+(\w+)(.*)$/i', $L, $m)) {
$var=$m[1]; $rest=$m[2]; list($w,$h)=parse_size($rest); $prompt=parse_prompt($rest);
$items[] = ['type'=>'checkbox','row'=>$row,'col'=>$col,'var'=>$var,'w'=>$w,'h'=>$h,'prompt'=>$prompt];
continue;
}
if (preg_match('/RADIO\s+VAR\s+(\w+)(.*)$/i', $L, $m)) {
$var=$m[1]; $rest=$m[2]; list($w,$h)=parse_size($rest); $itemsList=parse_items_list($rest); $horizontal=(bool)preg_match('/\bHORIZONTAL\b/i',$rest);
$items[] = ['type'=>'radio','row'=>$row,'col'=>$col,'var'=>$var,'w'=>$w,'h'=>$h,'items'=>$itemsList,'horizontal'=>$horizontal];
continue;
}
// LISTBOX [oLbx] VAR <cVar> ...
if (preg_match('/LISTBOX\s+(?:\w+\s+)?VAR\s+(\w+)(.*)$/i', $L, $m)) {
$var=$m[1]; $rest=$m[2]; list($w,$h)=parse_size($rest); $itemsList=parse_items_list($rest); $multi=(bool)preg_match('/\bMULTI\b/i',$rest);
$items[] = ['type'=>'listbox','row'=>$row,'col'=>$col,'var'=>$var,'w'=>$w,'h'=>$h,'items'=>$itemsList,'multi'=>$multi];
continue;
}
// BUTTON [oVar] PROMPT "Label" ... [ACTION ...] [CANCEL]
if (preg_match('/BUTTON\s+(?:\w+\s+)?(?:PROMPT\s+)?("([^"]*)"|\'([^\']*)\')(.*)$/i', $L, $m)) {
$labelRaw = $m[2] !== '' ? $m[2] : $m[3];
$rest = $m[4];
list($w,$h) = parse_size($rest);
$action = parse_action($rest);
$cancel = (bool) preg_match('/\bCANCEL\b/i', $rest);
$items[] = ['type'=>'button','row'=>$row,'col'=>$col,'label'=>$labelRaw,'w'=>$w,'h'=>$h,'action'=>$action,'cancel'=>$cancel];
continue;
}
}
return $items;
}
function parse_locals(string $src): array {
$defs = [];
if (preg_match_all('/LOCAL\s+([^\n]+)/i', $src, $ml, PREG_SET_ORDER)) {
foreach ($ml as $line) {
$chunk = $line[1]; $parts = preg_split('/\s*,\s*/', $chunk);
foreach ($parts as $p) {
$p = trim($p); if ($p==='') continue;
if (strpos($p,':=')!==false){ [$name,$val] = explode(':=',$p,2); $name = preg_replace('/\s+.*/','',trim($name)); $defs[$name] = parse_literal(trim($val)); }
}
}
}
return $defs;
}
function parse_size(string $rest){ $w=null; $h=null; if (preg_match('/SIZE\s+(\d+)\s*,\s*(\d+)/i',$rest,$mm)){ $w=(int)$mm[1]; $h=(int)$mm[2]; } return [$w,$h]; }
function parse_color(string $rest){ if (preg_match('/COLOR\s+(\"([^\"]*)\"|\'([^\']*)\')/i',$rest,$mm)) return $mm[2]!==''?$mm[2]:$mm[3]; return null; }
function parse_picture(string $rest){ if (preg_match('/PICTURE\s+(\"([^\"]*)\"|\'([^\']*)\')/i',$rest,$mm)) return $mm[2]!==''?$mm[2]:$mm[3]; return null; }
function parse_prompt(string $rest){ if (preg_match('/PROMPT\s+(\"([^\"]*)\"|\'([^\']*)\')/i',$rest,$mm)) return $mm[2]!==''?$mm[2]:$mm[3]; return null; }
function parse_items_list(string $rest){ $items=[]; if (preg_match('/ITEMS\s+(.*)$/i',$rest,$m)){ $tail=$m[1]; if (preg_match_all('/\"([^\"]*)\"|\'([^\']*)\'/',$tail,$mm,PREG_SET_ORDER)){ foreach($mm as $q){ $items[] = $q[1]!==''?$q[1]:$q[2]; } } } return $items; }
function parse_action(string $rest){ if (preg_match('/ACTION\s+([^\s].*?)(?:\s+CANCEL|$)/i',$rest,$mm)) return trim($mm[1]); return null; }
// =============================== Helpers ====================================
function h($s){ return htmlspecialchars((string)$s, ENT_QUOTES); }
function truthy($v){ return $v===true || $v===1 || $v==='1' || (is_string($v) && preg_match('/^(true|.T.)$/i',$v)); }
function row_key($row){ return sprintf('%.1f', round($row,1)); }
function approx_width_cols($it){
switch ($it['type']){
case 'get': return $it['w'] ?? 24;
case 'listbox': return $it['w'] ?? 20;
case 'radio': return max(12, (isset($it['items'])?count($it['items']):1)*8);
case 'checkbox': return 12;
case 'button': return 8;
default: return 0;
}
}
function grid_span_cols($wCh, $cols, $chPerCol=4){ if ($wCh===null) $wCh=24; $span=(int)ceil($wCh/max(1,(int)$chPerCol)); return max(1, min($span,(int)$cols)); }
function default_width_ch_for_type($type,$it){
switch ($type){
case 'get': return $it['w'] ?? 24;
case 'listbox': return $it['w'] ?? 20;
case 'radio': return max(12,(isset($it['items'])?count($it['items']):1)*8);
case 'checkbox': return 12;
case 'button': return 10;
default: return 12;
}
}
function style_for($it, $grid, $cols, $chPerCol){
global $usesPixel;
if ($grid){
$cStart = max(1,(int)round($it['render_col']));
$rStart = max(1,(int)round($it['render_row'] ?? $it['row']));
$span = $it['grid_span'] ?? grid_span_cols(default_width_ch_for_type($it['type'],$it), $cols, $chPerCol);
// listbox taller rows: map px height to row spans if available
if ($it['type']==='listbox' && !empty($it['h'])) {
$rowPx = $usesPixel ? 16 : 36;
$rSpan = max(1, (int)ceil($it['h'] / $rowPx));
} else {
$rSpan = 1;
}
return 'grid-column: '.$cStart.' / span '.$span.'; grid-row: '.$rStart.' / span '.$rSpan.';';
}
// absolute
return 'left:calc(var(--ux)*'.round($it['render_col'] ?? $it['col'],2).'); top:calc(var(--uy)*'.round($it['row'],2).');';
}
function parse_literal($v){ $v=trim($v); $v=preg_replace('/\s*\/\/.*$/','',$v); if ($v==='Date()') return date('Y-m-d'); if ($v==='.T.'||strtoupper($v)==='TRUE') return true; if ($v==='.F.'||strtoupper($v)==='FALSE') return false; if ($v!=='' && ($v[0]=='"' || $v[0]=="'")) return trim($v,"'\""); if (is_numeric($v)) return 0+$v; return null; }
function value_for($name,$defs){ if(!array_key_exists($name,$defs)) return null; $v=$defs[$name]; if($v instanceof DateTimeInterface) return $v->format('Y-m-d'); if (preg_match('/^d[A-Z0-9_]*$/',$name) && is_string($v)) { $t=strtotime($v); if($t) return date('Y-m-d',$t);} if(is_bool($v)) return $v?'1':'0'; return $v; }
function input_type_and_mask($var,$picture){ $var=(string)$var; $pic=(string)$picture; $type='text'; $extra=[]; if($pic && preg_match('/9/',$pic)){ $type='number'; if (strpos($pic,'.')!==false) $extra['step']='0.01'; } elseif($pic && preg_match('/@E|@D/i',$pic)){ $type='date'; } elseif(preg_match('/^n[A-Z0-9_]*$/',$var)){ $type='number'; } elseif(preg_match('/^d[A-Z0-9_]*$/',$var)){ $type='date'; } return [$type,$extra]; }
function color_css($c){ if(!$c) return ''; $parts=explode('/',$c); $fg=strtoupper(trim($parts[0]??'')); $bg=strtoupper(trim($parts[1]??'')); $map=['W'=>'#ffffff','B'=>'#000000','G'=>'#2e7d32','R'=>'#c62828','Y'=>'#fdd835']; $fgc=$map[$fg]??null; $bgc=$map[$bg]??null; $css=''; if($bgc) $css.=' background:'.$bgc.';'; if($fgc) $css.=' color:'.$fgc.';'; return $css; }
function accesskey_from_amp($label){ $pos=strpos($label,'&'); if($pos===false || $pos===strlen($label)-1) return [str_replace('&','',$label),null]; $key=substr($label,$pos+1,1); $clean=substr($label,0,$pos).$key.substr($label,$pos+2); return [$clean,$key]; }
function js_action($s){
$inner = trim($s);
if ($inner !== '' && $inner[0] === '(') $inner = trim($inner, "() \t");
if (preg_match('/MsgInfo\s*\(\s*(["\'])(.*?)\1\s*\)/i', $inner, $mm)) {
return 'alert('.json_encode($mm[2]).')';
}
return $inner ?: '';
}
function parse_cli_flags($argv){ $grid=false; $cols=24; $ch=4; foreach($argv as $arg){ if($arg==='--grid'){ $grid=true; } elseif(strpos($arg,'--grid=')===0){ $grid=true; $val=(int)substr($arg,7); if($val>0) $cols=$val; } elseif(strpos($arg,'--grid-cols=')===0){ $val=(int)substr($arg,13); if($val>0) $cols=$val; } elseif(strpos($arg,'--ch-per-col=')===0){ $val=(int)substr($arg,13); if($val>0) $ch=$val; } } return [$grid,$cols,$ch]; }
