The Ada binding is maintained by Martin Dowie <email@example.com>
It is provided in the form of a set of seven Ada interface specification files as follows:
To give a flavour of the Ada binding, here is ZOOM's equivalent of the ``Hello World'' program: a tiny Z39.50 client that fetches and displays the MARC record for Farlow & Brett Surman's The Complete Dinosaur from the Library of Congress.
with Zoom.Connections; use Zoom.Connections; with Zoom.Records; use Zoom.Records; with Zoom.Result_Sets; use Zoom.Result_Sets; with Zoom.Queries; use Zoom.Queries; procedure Canonical is Conn : Connection := New_Connection ("z3950.loc.gov", 7090); Q : Prefix_Query := Create ("@attr 1=7 0253333490"); Rs : Result_Set; begin Set_Option (Conn, "databaseName", "Voyager"); Rs := Search (Conn, Q); Render (Get_Record (Rs, 0)); end Canonical;
None yet available, although Martin is working on one.