%
% create variables from partner response xml
%
% stack: response-xml
%
/*
<response>
<scan>0</scan>
<ver>0000</ver>
<count>1</count>
<ssid>Curiosity_RGBLED_AP</ssid>
<bss>
<valid>0</valid>
<name>0</name>
<privacy>0</privacy>
<wlan>0</wlan>
<strength>0</strength>
</bss>
<block/> or <block>....</block>
if just a single character, global enable not enacted yet
<btn0>(9,1,0,0,0,0,0,1,1)</btn0>
<pot0>54108</pot0>
</response>
*/
empty !Partner.Block
-1 !Partner.Action
-1 !Partner.Uart
-1 !Partner.Rout
-1 !Partner.Rin
-1 !Partner.Tin
-1 !Partner.Tout
-1 !Partner.AnyRx
-1 !Partner.Stop
empty !Partner.Return

"<block" right$ "/>" atleft(
{
%
% no block content
%
 -2 left
}
{
%
% has block content
%
 -1 left "</block>" slice
 exch !Partner.Block
} ifelse
%
% remain-response
%
"<btn0>" right$
"(" atleft(
{
%
% this is a full btn response string
%
 -1 left
 ")" left$
 "," 0 9 1 parse
 !Partner.Return
 !Partner.Stop
 !Partner.AnyRx
 !Partner.Tout
 !Partner.Tin
 !Partner.Rin
 !Partner.Rout
 !Partner.Uart
 !Partner.Action

}
{
%
% not a full btn response
%
 pop
} ifelse