@program libParse-Alynna.muf
1 10000 d
i
$libdef parse
: parse[ str:input -- arr:opts arr:args ]
0 array_make_dict var! opts
0 array_make var! args
{ input @ " " explode_array foreach var! x pop
   x @ "#*" smatch if
    x @ "#*=*" smatch if
     x @ 1 strcut swap pop "=" split swap opts @ swap ->[] opts !
    else
     x @ 1 strcut swap pop 1 opts @ rot ->[] opts !
    then
   else
    x @
   then
  repeat
}cat "=" explode_array args !
opts @ args @
; PUBLIC parse

$libdef funcselect
: funcselect[ dict:x -- str:function ]
x @ foreach var! value var! item
 command @ item @ smatch if value @ exit then
 x @ "!Q" smatch if command @ "Queued Event." smatch if value @ exit then then
repeat
x @ "!else" [] if value @ exit then
x @ "!Else" [] if value @ exit then
x @ "!ELSE" [] if value @ exit then
""
; PUBLIC funcselect
.
c
q