    1:- module(
    2  cli_version,
    3  [
    4    cli_version/0
    5  ]
    6).

Command-line tools: version message

   12:- dynamic
   13    name/1,
   14    title/1,
   15    version/1.

cli_version is det

   21cli_version :-
   22  % Requires that the CLI tool was run from a directory containing a
   23  % pack.pl metadata file.
   24  exists_file('pack.pl'),
   25  consult(pack),
   26  name(Name),
   27  title(Title),
   28  version(Version),
   29  format(user_output, "~a: ~a (~a)\n", [Name,Title,Version])