%
% IMR configure CNC machine serial communication
%
%%% |=|{parity:1,flow:0,stop:1,baud:9600,seq:102,action:5}
%
empty !ParityA
@@
rootnode
\_SettingsA
any?
"sprea" log)(
{
"sprea2" log)(
 execstr
_SerialA.Flow <_SerialA.LookFlow> not { "None" } if !FlowA
_SerialA.StopBits <_SerialA.LookStop> not { 1 } if !StopBitsA
_SerialA.Parity <_SerialA.LookParity> not { "Even parity" } if !ParityA
_SerialA.Baud <_SerialA.LookBaud> not { 9600 } if !BaudA
} if
_ParityA any)?
"parany" log)(
{
}
{
 "No parity" !ParityA
 9600 !BaudA
 "None" !FlowA
 1 !StopBitsA
} ifelse
"parity:" _ParityA looker < |(Even_Parity) 2 |(Odd_Parity) 4 > not { 0 } if &
&",flow:" _FlowA looker < |(Rts/Cts) 0x200 > not { 0 } if &
&",stop:" _StopBitsA < |1 0 |2 1 > not { 0 } if &
&",baud:" &_BaudA
&",seq:" 0 &
"config data" log)(
%
% stack: config-data
%