---- Copyright Notice and Proprietary Information---- Copyright (C) 1997-2000 X-Tek Corporation. All rights reserved. This Software -- and documentation are owned by X-Tek Corporation, and may be used only as -- authorized in the license agreement controlling such use. No part of this -- publication may be reproduced, transmitted, or translated, in any form or by -- any means, electronic, mechanical, manual, optical, or otherwise, without prior -- written permission of X-Tek Corporation, or as expressly provided by the license -- agreement.---- Disclaimer---- X-Tek Corporation makes no warranty of any kind, express or implied, with regard -- to this material, including, but not limited to, the implied warranties of -- merchantability and fitness for a particular purpose.---- X-Tek Corporation reserves the right to make changes without further notice to -- the products described herein. X-Tek Corporation does not assume any liability -- arising out of the application or use of any product or circuit described -- herein. The X-Tek products described herein are not authorized for use as -- components in life-support devices.------ Rev 2001.0226---- Rev 2001.0324--    a) Added function    --          FUNCTION conv_std_ulogic_vector (--             val      : IN boolean;--             len      : IN integer) RETURN std_ulogic_vector;----LIBRARY ieee;USE ieee.std_logic_1164.all;LIBRARY std;USE std.textio.all;PACKAGE xhdl_std_ulogic IS   FUNCTION conv_std_ulogic (      val      : IN boolean) RETURN std_ulogic;         FUNCTION conv_std_ulogic (      val      : IN integer) RETURN std_ulogic;         FUNCTION conv_std_ulogic_vector (      val      : IN boolean;      len      : IN integer) RETURN std_ulogic_vector;        FUNCTION conv_std_ulogic_vector (      val      : IN integer;      len      : IN integer) RETURN std_ulogic_vector;        FUNCTION to_stdulogic (      val      : IN boolean) RETURN std_ulogic;         FUNCTION to_stdulogicvector (      val      : IN integer;      len      : IN integer) RETURN std_ulogic_vector;         FUNCTION to_stdulogicvector (      val      : IN boolean;      len      : IN integer) RETURN std_ulogic_vector;         FUNCTION to_integer (      val      : std_ulogic_vector) RETURN integer;            FUNCTION "SRL" (      l        : std_ulogic_vector;      r        : integer) RETURN std_ulogic_vector;      FUNCTION ShiftRight (      val      : std_ulogic_vector;      shft     : integer) RETURN std_ulogic_vector;      FUNCTION "SLL" (      l        : std_ulogic_vector;      r        : integer) RETURN std_ulogic_vector;      FUNCTION ShiftLeft (      val      : std_ulogic_vector;      shft     : integer) RETURN std_ulogic_vector;         FUNCTION "+" (      l        : std_ulogic;      r        : std_ulogic) RETURN std_ulogic_vector;         FUNCTION or_br (      val : std_ulogic_vector) RETURN std_ulogic;      FUNCTION and_br (      val : std_ulogic_vector) RETURN std_ulogic;   FUNCTION xor_br (      val : std_ulogic_vector) RETURN std_ulogic;   FUNCTION xnor_br (      val : std_ulogic_vector) RETURN std_ulogic;   FUNCTION nor_br (      val : std_ulogic_vector) RETURN std_ulogic;   FUNCTION nand_br (      val : std_ulogic_vector) RETURN std_ulogic;   FUNCTION select_expr (      sel : boolean;      op1 : std_ulogic_vector;      op2 : std_ulogic_vector) RETURN std_ulogic_vector;   FUNCTION select_expr (      sel : boolean;      op1 : std_ulogic;      op2 : std_ulogic) RETURN std_ulogic;   FUNCTION to_time (      val : std_ulogic_vector) RETURN time;      FUNCTION to_string (      val : std_ulogic_vector) RETURN string;    FUNCTION to_string (    val : std_ulogic) RETURN character;   FUNCTION to_octstring (      val      : IN std_ulogic_vector) RETURN string;   FUNCTION to_decstring (      val      : IN std_ulogic_vector) RETURN string;   FUNCTION to_hexstring (      val      : IN std_ulogic_vector) RETURN string;      END;PACKAGE BODY xhdl_std_ulogic IS   --   -- internally used functions   --   FUNCTION make_string (      val      : integer;      size     : integer) RETURN string is           VARIABLE r     : integer := val;      VARIABLE digit   : integer;      VARIABLE rtn   : string(size DOWNTO 1);   BEGIN      FOR index IN 1 TO size LOOP         digit := r REM 10;         r := r/10;         CASE digit IS            WHEN 0   => rtn(index) := '0';            WHEN 1   => rtn(index) := '1';            WHEN 2   => rtn(index) := '2';            WHEN 3   => rtn(index) := '3';            WHEN 4   => rtn(index) := '4';            WHEN 5   => rtn(index) := '5';            WHEN 6   => rtn(index) := '6';            WHEN 7   => rtn(index) := '7';            WHEN 8   => rtn(index) := '8';            WHEN 9   => rtn(index) := '9';            WHEN OTHERS => rtn(index) := 'X';         END CASE;      END LOOP;      RETURN(rtn);   END make_string;   --   --   --   FUNCTION conv_std_ulogic (      val      : IN boolean) RETURN std_ulogic IS   BEGIN      RETURN(to_stdulogic(val));   END conv_std_ulogic;   FUNCTION conv_std_ulogic (      val      : IN integer) RETURN std_ulogic IS   BEGIN      IF (val = 1) THEN         RETURN('1');      ELSE         RETURN('0');      END IF;   END conv_std_ulogic;   FUNCTION conv_std_ulogic_vector (      val      : IN boolean;      len      : IN integer) RETURN std_ulogic_vector IS            VARIABLE rtn      : std_ulogic_vector(len-1 DOWNTO 0) := (OTHERS => '0');      VARIABLE b        : std_ulogic;   BEGIN      IF (val) THEN         b := '1';      ELSE         b := '0';      END IF;      FOR index IN 0 TO len-1 LOOP         rtn(index) := b;      END LOOP;	   RETURN(rtn);	END conv_std_ulogic_vector;   FUNCTION conv_std_ulogic_vector (      val      : IN integer;      len      : IN integer) RETURN std_ulogic_vector IS   BEGIN	   RETURN(to_stdulogicvector(val, len));	END conv_std_ulogic_vector;   --      FUNCTION to_stdulogicvector (      val      : IN integer;      len      : IN integer) RETURN std_ulogic_vector IS            VARIABLE rtn      : std_ulogic_vector(len-1 DOWNTO 0) := (OTHERS => '0');      VARIABLE num  : integer := val;      VARIABLE r       : integer;   BEGIN      FOR index IN 0 TO len-1 LOOP         r := num rem 2;         num := num/2;         IF (r = 1) THEN            rtn(index) := '1';         ELSE            rtn(index) := '0';         END IF;      END LOOP;      RETURN(rtn);   END to_stdulogicvector;   --            FUNCTION to_stdulogicvector (      val      : IN boolean;      len      : IN integer) RETURN std_ulogic_vector IS            VARIABLE rtn      : std_ulogic_vector(len-1 DOWNTO 0) := (OTHERS => '0');   BEGIN      rtn(0) := to_stdulogic(val);      RETURN(rtn);   END to_stdulogicvector;   --            FUNCTION to_stdulogic (      val      : IN boolean) RETURN std_ulogic IS   BEGIN      IF (val) THEN         RETURN('1');      ELSE         RETURN('0');      END IF;   END to_stdulogic;      --            FUNCTION to_integer (      val      : std_ulogic_vector) RETURN integer IS            CONSTANT vec      : std_ulogic_vector(val'high-val'low DOWNTO 0) := val;            VARIABLE rtn      : integer := 0;   BEGIN      FOR index IN vec'RANGE LOOP         IF (vec(index) = '1') THEN            rtn := rtn + (2**index);         END IF;      END LOOP;      RETURN(rtn);   END to_integer;            FUNCTION "SRL" (      l        : std_ulogic_vector;      r        : integer) RETURN std_ulogic_vector IS   BEGIN      RETURN(ShiftRight(l, r));   END "SRL";      FUNCTION ShiftRight (      val      : std_ulogic_vector;      shft     : integer) RETURN std_ulogic_vector IS            VARIABLE int      : std_ulogic_vector(val'LENGTH+shft-1 DOWNTO 0);      VARIABLE rtn      : std_ulogic_vector(val'RANGE);      VARIABLE fill     : std_ulogic_vector(shft-1 DOWNTO 0) := (others => '0');   BEGIN      int := fill & val;      rtn := int(val'LENGTH+shft-1 DOWNTO shft);      RETURN(rtn);   END ShiftRight;                  --