Initial commit

FiltroHDL/array_functions.vhd

@@ -0,0 +1,54 @@
+library IEEE;
+use IEEE.STD_LOGIC_1164.ALL;
+use IEEE.NUMERIC_STD.ALL;
+
+package array_functions is
+	constant MAX_RANGE : integer := 255;
+	
+    type array_of_integers is array(integer range <>) of integer range -MAX_RANGE to MAX_RANGE;
+    
+    function array_sum ( K : in  array_of_integers ) 
+				return integer;
+    function reorder_array ( K : in  array_of_integers ; simetric : in boolean ) 
+				return array_of_integers;
+end package;
+
+package body array_functions is
+
+	function array_sum ( K : in array_of_integers ) return integer is
+		variable sum : integer := 0;
+	begin
+		for i in 0 to K'length-1 loop
+			sum := sum + K(K'left + i);		
+		end loop;
+		
+		return sum;
+	end array_sum;
+	
+	
+	function reorder_array ( K : in  array_of_integers ; simetric : in boolean ) 
+					return array_of_integers is
+		constant M : integer := 1 + 2*((K'length)-1);
+		constant N : integer := K'length;
+		variable arr_s : array_of_integers( 0 to M-1 );
+		variable arr_a : array_of_integers( 0 to N-1  );
+	
+	begin
+		if ( simetric ) then 
+			for i in 0 to N-1 loop
+				arr_s( i ) := K( K'left + i );
+			end loop;
+			
+			for i in 1 to N-1 loop
+				arr_s( n + i - 1 ) := K( K'right - i );
+			end loop;
+			return arr_s;
+		else
+			for i in 0 to N-1 loop
+				arr_a( i ) := K( K'left + i );
+			end loop;
+			return arr_a;
+		end if;
+	end reorder_array;
+
+end array_functions;