-- Test an MCP23017 as 16 individual GPIO pins

-- Copyright (C)2017-2023, Philip Munts dba Munts Technologies.
--
-- Redistribution and use in source and binary forms, with or without
-- modification, are permitted provided that the following conditions are met:
--
-- * Redistributions of source code must retain the above copyright notice,
--   this list of conditions and the following disclaimer.
--
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-- POSSIBILITY OF SUCH DAMAGE.

-- Test with Mikroelektronika Expand 2 Click: https://www.mikroe.com/expand-2-click
-- Default I2C address is 0x20

WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;

WITH GPIO.RemoteIO;
WITH I2C.RemoteIO;
WITH MCP23x17;
WITH MCP23x17.GPIO;
WITH RemoteIO.Client.hidapi;

PROCEDURE test_mcp23017_gpio IS

  remdev  : RemoteIO.Client.Device;
  rstchan : RemoteIO.ChannelNumber;
  i2cchan : RemoteIO.ChannelNumber;
  rstpin  : GPIO.Pin;
  i2cbus  : I2C.Bus;
  dev     : MCP23x17.Device;
  pins    : ARRAY (MCP23x17.GPIO.PinNumber) OF GPIO.Pin;

BEGIN
  New_Line;
  Put_Line("MCP23017 GPIO Toggle Test");
  New_Line;

  -- Create Remote I/O Protocol server device

  remdev := RemoteIO.Client.hidapi.Create;

  -- Create reset pin

  Put("Enter reset pin channel number: ");
  Ada.Integer_Text_IO.Get(rstchan);
  New_Line;

  rstpin := GPIO.RemoteIO.Create(remdev, rstchan, GPIO.Output, False);

  -- Create I2C bus object

  Put("Enter I2C bus   channel number: ");
  Ada.Integer_Text_IO.Get(i2cchan);
  New_Line;

  i2cbus := I2C.RemoteIO.Create(remdev, i2cchan, MCP23x17.MaxSpeed);

  -- Create MCP23017 device object

  dev := MCP23x17.Create(rstpin, i2cbus, 16#20#);

  -- Configure GPIO pins

  FOR n IN pins'Range LOOP
    pins(n) := MCP23x17.GPIO.Create(dev, n, GPIO.Output);
  END LOOP;

  -- Toggle GPIO pins

  Put_Line("Toggling pins...");

  LOOP
    FOR p OF pins LOOP
      p.Put(NOT p.Get);
    END LOOP;
  END LOOP;
END test_mcp23017_gpio;