| @ -1,77 +0,0 @@ | |||||
| 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; | |||||