Subversion Repositories mips_enhanced

--****************************************************************

--**    MODEL   :     package_utility                           **

--**    COMPANY :     Cypress Semiconductor                     **

--**    REVISION:     1.0 Created new package utility model     **

--**                                                            **

--****************************************************************

Library ieee,work;

Use ieee.std_logic_1164.all;

--   Use IEEE.Std_Logic_Arith.all;

use ieee.numeric_std.all;

--  Use IEEE.std_logic_TextIO.all;

--- Use work.package_timing.all;

Library Std;

   Use STD.TextIO.all;

Package package_utility is

FUNCTION convert_string( S: in STRING) RETURN STD_LOGIC_VECTOR;

FUNCTION CONV_INTEGER1(S : STD_LOGIC_VECTOR) RETURN INTEGER;

End; -- package package_utility

Package body package_utility is

------------------------------------------------------------------------------------------------

--Converts string into std_logic_vector 

------------------------------------------------------------------------------------------------

FUNCTION convert_string(S: in STRING) RETURN STD_LOGIC_VECTOR IS

        VARIABLE result : STD_LOGIC_VECTOR(S'RANGE);

                BEGIN

                        FOR i   IN S'RANGE LOOP

                                IF      S(i) = '0' THEN

                                        result(i) := '0';

                                ELSIF S(i) = '1' THEN

                                        result(i) := '1';

                                ELSIF S(i) = 'X' THEN

                                        result(i) := 'X';

                                ELSE

                                        result(i) := 'Z';

                                END IF;

                        END LOOP;

                RETURN result;

END convert_string;

------------------------------------------------------------------------------------------------

--Converts std_logic_vector into integer

------------------------------------------------------------------------------------------------

FUNCTION CONV_INTEGER1(S : STD_LOGIC_VECTOR) RETURN INTEGER IS

                VARIABLE result : INTEGER := 0;

                BEGIN

                        FOR i IN S'RANGE LOOP

                                IF S(i) = '1' THEN

                                        result := result + (2**i);

                                ELSIF S(i) = '0' THEN

                                        result := result;

                                ELSE

                                        result := 0;

                                END IF;

                        END LOOP;

                        RETURN result;

                END CONV_INTEGER1;

end package_utility;