added new StringP (string conversion functions) and unit test for it

sim/StringP.vhd

@@ -0,0 +1,77 @@
+library ieee;
+  use ieee.std_logic_1164.all;
+
+
+package StringP is
+
+
+  function to_char    (data : in std_logic) return character;
+  function to_char    (data : in std_logic_vector(3 downto 0)) return character;
+  function to_string  (data : in std_logic) return string;
+  function to_string  (data : in std_logic_vector) return string;
+
+
+end package StringP;
+
+
+package body StringP is
+
+
+  function to_char (data : in std_logic) return character is
+  begin
+    case data is
+      when 'U' => return 'U';
+      when 'X' => return 'X';
+      when '0' => return '0';
+      when '1' => return '1';
+      when 'Z' => return 'Z';
+      when 'W' => return 'W';
+      when 'L' => return 'L';
+      when 'H' => return 'H';
+      when '-' => return '-';
+    end case;
+  end to_char;
+
+  function to_char (data : in std_logic_vector(3 downto 0)) return character is
+  begin
+    case data is
+      when x"0" => return '0';
+      when x"1" => return '1';
+      when x"2" => return '2';
+      when x"3" => return '3';
+      when x"4" => return '4';
+      when x"5" => return '5';
+      when x"6" => return '6';
+      when x"7" => return '7';
+      when x"8" => return '8';
+      when x"9" => return '9';
+      when x"A" => return 'A';
+      when x"B" => return 'B';
+      when x"C" => return 'C';
+      when x"D" => return 'D';
+      when x"E" => return 'E';
+      when x"F" => return 'F';
+      when others => return 'X';
+    end case;
+  end to_char;
+
+  function to_string (data : in std_logic) return string is
+    variable str : string(1 to 1);
+  begin
+    str(1) := to_char(data);
+    return str;
+  end function to_string;
+
+  function to_string (data : in std_logic_vector) return string is
+    variable v_str       : string (1 to data'length);
+    variable v_str_index : positive := 1;
+  begin
+    for i in data'range loop
+      v_str(v_str_index) := to_char(data(i));
+      v_str_index := v_str_index + 1;
+    end loop;
+    return v_str;
+  end function to_string;
+
+
+end package body StringP;

test/Makefile

@@ -2,16 +2,21 @@ SIM_SRC = ../sim
 VHD_STD = 02
 
 .PHONY: sim
-sim: queuet
+sim: queuet stringt
 
 queuet : QueueT.vhd $(SIM_SRC)/QueueP.vhd
 	ghdl -a --std=$(VHD_STD) $(SIM_SRC)/QueueP.vhd QueueT.vhd
 	ghdl -e --std=$(VHD_STD) QueueT
 	ghdl -r --std=$(VHD_STD) QueueT
 
+stringt : StringT.vhd $(SIM_SRC)/StringP.vhd $(SIM_SRC)/AssertP.vhd
+	ghdl -a --std=$(VHD_STD) $(SIM_SRC)/StringP.vhd $(SIM_SRC)/AssertP.vhd StringT.vhd
+	ghdl -e --std=$(VHD_STD) StringT
+	ghdl -r --std=$(VHD_STD) StringT
 
 .PHONY: clean
 clean:
 	rm -f *.o
 	rm -f *.cf
 	rm -f queuet
+	rm -f stringt

test/StringT.vhd

@@ -0,0 +1,30 @@
+library ieee;
+  use ieee.std_logic_1164.all;
+  use ieee.numeric_std.all;
+
+use work.StringP.all;
+use work.AssertP.all;
+
+
+
+entity StringT is
+end entity StringT;
+
+
+
+architecture sim of StringT is
+
+
+begin
+
+
+  StringTestP : process is
+    variable v_data : std_logic_vector(31 downto 0) := x"DEADBEEF";
+  begin
+    assert_equal(to_string(v_data(0)), "1");
+    assert_equal(to_string(v_data), "11011110101011011011111011101111");
+    wait;
+  end process StringTestP;
+
+
+end architecture sim;