A.21 vc-init.setl

Called by parent program:
vc-send.setl     (Section A.38 [vc-send.setl])

Calls child program:
vc-comdev.setl     (Section A.7 [vc-comdev.setl])

Source code: *

const yhwh = `vc-init.setl';
 
-- Initialize the serial device
 
com_dev := command_line(1) ? filter (`exec setl vc-comdev.setl');
 
printa (stderr, yhwh, `begins');
 
fd := open (`com.settings', `r');
if fd  om then
  s := getline fd;
  close (fd);
else
  s := `0:0:800004fd:0:3:1c:7f:15:4:0:1:0:11:13:1a:0:12:f:17:16:0:0:73';
end if;
system (`stty ' + s + ` < ' + com_dev);
system (`stty -a < ' + com_dev + ` >&2');
 
printa (stderr, yhwh, `ends');