Service provided:
zoomer
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-zoomer.setl';
-- Simplified ``Zoom To'' command interface.
-- The client just sends a number (the zoom factor) on each line.
-- The name of the service we provide:
#define service_name `zoomer'
-- The number of parameters on the command:
#define n_parms 1
-- The full details of the command we will send to the do service:
#define build_cmd \
cmd := {}; \
cmd.name := `Zoom'; \
cmd.subcmd := `To'; \
cmd.zoom_factor := val t(1);
#include "vc-simpler.setl"