macro_rules! impl_state {
    ($state:ident, $rate:ident, $buffer:ty, $padding:ty) => {

        #[allow(non_camel_case_types)]
        #[derive(Clone, Default)]
        pub struct $state {
            state: Sha3State,
            buffer: $buffer,
        }
 
        impl $state {
            fn absorb(&mut self, input: &[u8]) {
                let self_state = &mut self.state;
                self.buffer.input(input, |b| self_state.absorb_block(b));
            }

            fn apply_padding(&mut self) {
                let buf = self.buffer.pad_with::<$padding>();
                self.state.absorb_block(buf);
            }
        }
    }
}

macro_rules! sha3_impl {
    (
        $state:ident, $output_size:ident, $rate:ident,
        $buffer:ty, $padding:ty
    ) => {

        impl_state!($state, $rate, $buffer, $padding);

        impl digest::BlockInput for $state {
            type BlockSize = $rate;
        }

        impl digest::Input for $state {
            fn process(&mut self, data: &[u8]) {
                self.absorb(data)
            }
        }

        impl digest::FixedOutput for $state {
            type OutputSize = $output_size;

            fn fixed_result(mut self) -> GenericArray<u8, Self::OutputSize> {
                let mut out = GenericArray::default();
                self.apply_padding();

                let mut state_copy;
                let state_ref: &[u8; PLEN*8] = if cfg!(target_endian = "little") {
                    unsafe { transmute(&self.state) }
                } else if cfg!(target_endian = "big") {
                    state_copy = [0u8; PLEN*8];
                    write_u64v_le(&mut state_copy, &self.state.state);
                    &state_copy
                } else { unreachable!() };

                let n = out.len();
                out.copy_from_slice(&state_ref[..n]);

                out
            }
        }

        impl_opaque_debug!($state);
    }
}

macro_rules! shake_impl {
    ($state:ident, $rate:ident, $buffer:ty, $padding:ty) => {
        impl_state!($state, $rate, $buffer, $padding);

        impl digest::Input for $state {
            fn process(&mut self, data: &[u8]) {
                self.absorb(data)
            }
        }

        impl digest::ExtendableOutput for $state {
            type Reader = Sha3XofReader;

            fn xof_result(mut self) -> Sha3XofReader
            {
                self.apply_padding();
                Sha3XofReader::new(self.state.state, $rate::to_usize())
            }
        }

        impl_opaque_debug!($state);
    }
}
