next up previous
Next: A.32 vc-provide.setl Up: A. WEBeye Source Code Previous: A.30 vc-msg.setl

  
A.31 vc-obtain.setl

Textually #included by:
vc-do.setl     (Section A.11 [vc-do.setl])
vc-giver.setl     (Section A.17 [vc-giver.setl])
vc-httpd.setl     (Section A.19 [vc-httpd.setl])
vc-javent.setl     (Section A.23 [vc-javent.setl])
vc-mouse.setl     (Section A.28 [vc-mouse.setl])
vc-ptz.setl     (Section A.33 [vc-ptz.setl])
vc-push.setl     (Section A.34 [vc-push.setl])
vc-seq.setl     (Section A.39 [vc-seq.setl])
vc-simpler.setl     (Section A.40 [vc-simpler.setl])
vc-snap.setl     (Section A.41 [vc-snap.setl])

Source code: *

-- Open a TCP client port on a named service:
proc obtain_service (serv_name);
  var serv_hostserv_port;
  [serv_hostserv_port] := find_service (serv_name);
  return open (serv_host + `:' + str serv_port, `socket');
end proc;
 
-- Find the location of a service, given its registered name:
proc find_service (serv_name);
  var fdserv_info;
  fd := fileno open (getenv `VC_LOOKUP', `socket');
  writea (fdserv_name);
  reada (fdserv_info);
  close (fd);
  return serv_info;
end proc;


next up previous
Next: A.32 vc-provide.setl Up: A. WEBeye Source Code Previous: A.30 vc-msg.setl
David Bacon
1999-12-10