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

package blakePkg is

  constant WWIDTH : integer := 32;      -- WORD WIDTH
  constant NROUND : integer := 10;      -- ROUND NUMBER
  
  type SUB16  is array (0 to 15) of std_logic_vector(WWIDTH-1 downto 0);
  type SUB8   is array (0 to 7)  of std_logic_vector(WWIDTH-1 downto 0);
  type SUB4   is array (0 to 3)  of std_logic_vector(WWIDTH-1 downto 0);
  type SUB2   is array (0 to 1)  of std_logic_vector(WWIDTH-1 downto 0);
  type SUB4X2 is array (0 to 3)  of SUB2;
  
  -----------------------------------------------------------------------------
  -- c Constants
  -----------------------------------------------------------------------------
  
  type c_const is array (0 to 15) of std_logic_vector(31 downto 0);  

  constant C  : c_const := ((x"243F6A88"), (x"85A308D3"),
                            (x"13198A2E"), (x"03707344"),
                            (x"A4093822"), (x"299F31D0"),
                            (x"082EFA98"), (x"EC4E6C89"),
                            (x"452821E6"), (x"38D01377"),
                            (x"BE5466CF"), (x"34E90C6C"),
                            (x"C0AC29B7"), (x"C97C50DD"),
                            (x"3F84D5B5"), (x"B5470917"));


  -----------------------------------------------------------------------------
  -- o Permutations
  -----------------------------------------------------------------------------

  type perm is array (0 to 9, 0 to 15) of integer;
  
  constant PMATRIX : perm := ((0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15),
                              (14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3),
                              (11, 8, 12, 0, 5, 2, 15, 13, 10, 14, 3, 6, 7, 1, 9, 4),
                              (7, 9, 3, 1, 13, 12, 11, 14, 2, 6, 5, 10, 4, 0, 15, 8),
                              (9, 0, 5, 7, 2, 4, 10, 15, 14, 1, 11, 12, 6, 8, 3, 13),
                              (2, 12, 6, 10, 0, 11, 8, 3, 4, 13, 7, 5, 15, 14, 1, 9),
                              (12, 5, 1, 15, 14, 13, 4, 10, 0, 7, 6, 3, 9, 2, 8, 11),
                              (13, 11, 7, 14, 12, 1, 3, 9, 5, 0, 15, 4, 8, 6, 2, 10),
                              (6, 15, 14, 9, 11, 3, 0, 8, 12, 2, 13, 7, 1, 4, 10, 5),
                              (10, 2, 8, 4, 7, 6, 1, 5, 15, 11, 9, 14, 3, 12, 13, 0));

  -----------------------------------------------------------------------------
  -- IV
  -----------------------------------------------------------------------------
  type ivector is array (0 to 7) of std_logic_vector(WWIDTH-1 downto 0);  

  constant IV  : ivector := ((x"6A09E667"), (x"BB67AE85"),
                             (x"3C6EF372"), (x"A54FF53A"),
                             (x"510E527F"), (x"9B05688C"),
                             (x"1F83D9AB"), (x"5BE0CD19"));

  -----------------------------------------------------------------------------
  -- i Iterations
  -----------------------------------------------------------------------------

  type iter is array (0 to 7, 0 to 3) of integer;
  
  constant IMATRIX : iter := ((0, 4, 8, 12), (1, 5, 9, 13), (2, 6, 10, 14), (3, 7, 11, 15),
                              (0, 5, 10, 15), (1, 6, 11, 12), (2, 7, 8, 13), (3, 4, 9, 14));

  
end blakePkg;