Service provided:
jumper
Client of service:
do (vc-do.setl, Section A.11 [vc-do.setl])
Called by parent program:
vc-toplev.setl (Section A.42 [vc-toplev.setl])
Textually #includes:
vc-simpler.setl (Section A.40 [vc-simpler.setl])
Source code: *
const yhwh = `vc-jumper.setl';
-- Simplified ``Jump To'' command interface.
-- The client just sends a pair of numbers (pan and tilt) on each line.
-- The name of the service we provide:
#define service_name `jumper'
-- The number of parameters on the command:
#define n_parms 2
-- The full details of the command we will send to the do service:
#define build_cmd \
cmd := {}; \
cmd.name := `Jump'; \
cmd.subcmd := `To'; \
cmd.pan := val t(1); \
cmd.tilt := val t(2);
#include "vc-simpler.setl"