Subversion Repositories fir_wishbone

/* Tauhop Digital Signal Processing package.
 
	Description
	This implements common functions used in digital signal processing.
 
	To Do:
 
	Author(s): 
	- Daniel C.K. Kho, daniel.kho@opencores.org | daniel.kho@tauhop.com
 
	Copyright© 2014 Authors and Tauhop Solutions. All rights reserved.
	This source file may be used and distributed without 
	restriction provided that this copyright statement is not 
	removed from the file and that any derivative work contains 
	the original copyright notice and the associated disclaimer.
 
	This source file is free software; you can redistribute it 
	and/or modify it under the terms of the GNU Lesser General 
	Public License as published by the Free Software Foundation; 
	either version 2.1 of the License, or (at your option) any 
	later version.
 
	This source is distributed in the hope that it will be 
	useful, but WITHOUT ANY WARRANTY; without even the implied 
	warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 
	PURPOSE. See the GNU Lesser General Public License for more 
	details.
 
	You should have received a copy of the GNU General Public License
	along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
	This notice and disclaimer must be retained as part of this text at all times.
 
	@dependencies: 
	@created: Daniel C.K. Kho [daniel.kho@gmail.com] | [daniel.kho@tauhop.com]
	@info: 
	Revision History: @see Mercurial log for full list of changes.
*/
/* TODO try using generic subprograms to have a single subprogram being 
	passed generic types.
*/
library ieee; use ieee.std_logic_1164.all, ieee.numeric_std.all;
package dsp_specific is
	function clamp(s:unsigned; low,high:unsigned) return unsigned;
	function clamp(s:unsigned; low,high:natural) return unsigned;
	function clamp(s:signed; low,high:signed) return signed;
	function clamp(s:signed; low,high:integer) return signed;
 
	function max(l,r:unsigned) return unsigned;
	function max(l,r:signed) return signed;
	function min(l,r:unsigned) return unsigned;
	function min(l,r:signed) return signed;
end package dsp_specific;
 
package body dsp_specific is
	function clamp(s:unsigned; low,high:unsigned) return unsigned is
		variable clamped:unsigned(s'range);
	begin
		clamped:=low when s<low else high when s>high else s;
		return clamped;
	end function clamp;
 
	function clamp(s:unsigned; low,high:natural) return unsigned is begin
		return clamp(s,to_unsigned(low,s'length),to_unsigned(high,s'length));
	end function clamp;
 
	function clamp(s:signed; low,high:signed) return signed is
		variable clamped:signed(s'range);
	begin
		clamped:=low when s<low else high when s>high else s;
		return clamped;
	end function clamp;
 
	function clamp(s:signed; low,high:integer) return signed is begin
		return clamp(s,to_signed(low,s'length),to_signed(high,s'length));
	end function clamp;
 
	function max(l,r:unsigned) return unsigned is begin
		/* FIXME support this in next standard. */
		--return r when r>l else l;
 
		if r>l then return r; end if;
		return l;
	end function max;
 
	function max(l,r:signed) return signed is begin
		--return r when r>l else l;
 
		if r>l then return r; end if;
		return l;
	end function max;
 
	function min(l,r:unsigned) return unsigned is begin
		--return r when r<l else l;
 
		if r<l then return r; end if;
		return l;
	end function min;
 
	function min(l,r:signed) return signed is begin
		--return r when r<l else l;
 
		if r<l then return r; end if;
		return l;
	end function min;
end package body dsp_specific;
 
 
library ieee; use ieee.std_logic_1164.all, ieee.numeric_std.all;
package dsp_generic is generic(
		type T;
		--function "+"(l,r:T) return T is <>;
		--function "<"(l,r:T) return boolean is <>;
		--function ">"(l,r:T) return boolean is <>;
		--function ">"(l:T;r:natural) return boolean is <>;
		--function clamp(s,low,high:T) return T is <>;
		function clamp(s:T; low,high:natural) return T is <>
	);
 
	--function clamp generic(type T) parameter(s:T; low:T; high:T) return T;
end package dsp_generic;
 
package body dsp_generic is end package body dsp_generic;