next up previous
Next: A.22 vc-input.setl Up: A. WEBeye Source Code Previous: A.20 vc-image.setl

  
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 (stderryhwh, `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 (stderryhwh, `ends');


next up previous
Next: A.22 vc-input.setl Up: A. WEBeye Source Code Previous: A.20 vc-image.setl
David Bacon
1999-12-10