rightshift.vst

i need of vhdl code for 32-bit risc processor

ENTITY rightshift IS
PORT (
inpbit : IN bit;
inpvec : IN bit_vector(4 downto 0);
shresult : OUT bit_vector(4 downto 0)
);
END rightshift;

ARCHITECTURE rightshift_arch OF rightshift IS

COMPONENT mux2to1
PORT (
inp1 : IN BIT;
inp2 : IN BIT;
en : IN BIT;
outp : OUT BIT
);
END COMPONENT;

COMPONENT buffer0
PORT (
bo1 : IN BIT;
bo2 : OUT BIT
);
END COMPONENT;

SIGNAL selection : BIT;

begin

buffer01 : buffer0 PORT MAP(inpvec(4),selection);

mux1 : mux2to1 PORT MAP(inpbit,inpvec(3),selection,shresult(4));

mux2 : mux2to1 PORT MAP(inpvec(4),inpvec(2),selection,shresult(3));

mux3 : mux2to1 PORT MAP(inpvec(3),inpvec(1),selection,shresult(2));

mux4 : mux2to1 PORT MAP(inpvec(2),inpvec(0),selection,shresult(1));

mux5 : mux2to1 PORT MAP(inpvec(1),inpbit,selection,shresult(0));

end;