- Intital revision

git-svn-id: http://moon:8086/svn/vhdl/trunk@86 cc03376c-175c-47c8-b038-4cd826a8556b
2008-10-20 19:26:01 +00:00
parent 419ccc4edf
commit 69697d7222
24 changed files with 4713 additions and 0 deletions
@@ -0,0 +1,73 @@
+--****************************************************************
+--**    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.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;   
+
+
+
+