------------------------------------------------------------
-- Copyright: 2011 Integrated Sytems Laboratory, ETH Zurich
--            http://www.iis.ee.ethz.ch/~sha3
------------------------------------------------------------
library ieee;
use ieee.numeric_std.all;
use ieee.std_logic_1164.all;

package skeinpkg is

  type HashState is array (0 to 7) of std_logic_vector(63 downto 0);
  type Key is array (0 to 8) of std_logic_vector(63 downto 0);
  type HashUnsigned is array (0 to 7) of unsigned(63 downto 0);
  type Rot1Arr is array (0 to 3) of integer;
  type Rot2Arr is array (0 to 7) of Rot1Arr;

  constant IV   : Key                           := (X"CCD044A12FDB3E13", X"E83590301A79A9EB", X"55AEA0614F816E6F", X"2A2767A4AE9B94DB", X"EC06025E74DD7683", X"E7A436CDC4746251", X"C36FBAF9393AD185", X"3EEDBA1833EDFC13", X"0000000000000000");
  constant C240 : std_logic_vector(63 downto 0) := X"1BD11BDAA9FC1A22";
  constant RotxS : Rot2Arr := ((46, 36, 19, 37),
                               (33, 27, 14, 42),
                               (17, 49, 36, 39),
                               (44, 9, 54, 56),
                               (39, 30, 34, 24),
                               (13, 50, 10, 17),
                               (25, 29, 39, 43),
                               (8, 35, 56, 22));
--  constant RotxS : Rot2Arr := ((to_unsigned(46, 8), to_unsigned(36, 8), to_unsigned(19, 8), to_unsigned(37, 8)),
--                              (to_unsigned(33, 8), to_unsigned(27, 8), to_unsigned(14, 8), to_unsigned(42, 8)),
--                              (to_unsigned(17, 8), to_unsigned(49, 8), to_unsigned(36, 8), to_unsigned(39, 8)),
--                              (to_unsigned(44, 8), to_unsigned(9, 8), to_unsigned(54, 8), to_unsigned(56, 8)),
--                              (to_unsigned(39, 8), to_unsigned(30, 8), to_unsigned(34, 8), to_unsigned(24, 8)),
--                              (to_unsigned(13, 8), to_unsigned(50, 8), to_unsigned(10, 8), to_unsigned(17, 8)),
--                              (to_unsigned(25, 8), to_unsigned(29, 8), to_unsigned(39, 8), to_unsigned(43, 8)),
--                              (to_unsigned(8, 8), to_unsigned(35, 8), to_unsigned(56, 8), to_unsigned(22, 8)));
end skeinpkg;