- added

- CRLF git-svn-id: http://moon:8086/svn/vhdl/trunk@1052 cc03376c-175c-47c8-b038-4cd826a8556b
2014-07-23 20:13:06 +00:00
parent 32d9c79467
commit f585adb8b7
5 changed files with 1291 additions and 1099 deletions
@@ -1,73 +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;   
-
-
-
-
+--****************************************************************
+--**    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;   
+
+
+
+