--  SPDX-License-Identifier: GPL-3.0-or-later
------------------------------------------------------------------------
--  pla-util - A power line adapter utility
--  Copyright (C) 2016-2023 John Serock
--
--  This file is part of pla-util.
--
--  pla-util is free software: you can redistribute it and/or modify
--  it under the terms of the GNU General Public License as published by
--  the Free Software Foundation, either version 3 of the License, or
--  (at your option) any later version.
--
--  pla-util is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--  GNU General Public License for more details.
--
--  You should have received a copy of the GNU General Public License
--  along with this program. If not, see <http://www.gnu.org/licenses/>.
------------------------------------------------------------------------
separate (Console)

procedure Show_Help is
begin
   Show_Version;
   Ada.Text_IO.Put_Line (Item => "A utility for power line adapters with Broadcom chipsets");
   Ada.Text_IO.New_Line (Spacing => 1);
   Ada.Text_IO.Put_Line (Item => "Usage:");
   Ada.Text_IO.Put_Line (Item => "  " & App_Name & " [options] <command> [arguments]");
   Ada.Text_IO.Put_Line (Item => "  " & App_Name & " -h | --help                      Display help and exit");
   Ada.Text_IO.Put_Line (Item => "  " & App_Name & " -V | --version                   Display version and exit");
   Ada.Text_IO.New_Line (Spacing => 1);
   Ada.Text_IO.Put_Line (Item => "Options:");
   Ada.Text_IO.Put_Line (Item => "  -i, --interface=<name>   Network interface to use (e.g., eth0)");
   Ada.Text_IO.Put_Line (Item => "  -p, --pla=<mac-address>  Power line adapter at unicast MAC address");
   Ada.Text_IO.Put_Line (Item => "  -t, --timeout=<ms>       Network timeout in milliseconds [default:" & Positive'Image (Config.Network_Receive_Timeout) & "]");
   Ada.Text_IO.New_Line (Spacing => 1);
   Ada.Text_IO.Put_Line (Item => "Commands:");
   Ada.Text_IO.Put_Line (Item => "  check-dak <pla-passphrase>         Check device access key");
   Ada.Text_IO.Put_Line (Item => "  check-nmk <passphrase>             Check network membership key");
   Ada.Text_IO.Put_Line (Item => "  discover                           Discover power line adapters on subnet");
   Ada.Text_IO.Put_Line (Item => "  get-capabilities                   Get capabilities");
   Ada.Text_IO.Put_Line (Item => "  get-discover-list                  Get discovered PLAs and networks");
   Ada.Text_IO.Put_Line (Item => "  get-hfid ( manufacturer | user )   Get human-friendly id [default: user]");
   Ada.Text_IO.Put_Line (Item => "  get-id-info                        Get identification info");
   Ada.Text_IO.Put_Line (Item => "  get-network-info ( any | member )  Get network information [default: member]");
   Ada.Text_IO.Put_Line (Item => "  get-network-stats                  Get average PHY data rates");
   Ada.Text_IO.Put_Line (Item => "  get-station-info                   Get power line adapter information");
   Ada.Text_IO.Put_Line (Item => "  reset                              Factory reset power line adapter");
   Ada.Text_IO.Put_Line (Item => "  restart                            Restart / reboot power line adapter");
   Ada.Text_IO.Put_Line (Item => "  set-hfid <id>                      Set user human-friendly id");
   Ada.Text_IO.Put_Line (Item => "  set-nmk <passphrase>               Set network membership key");
end Show_Help;