Updated files to OSVVM release 2015.03.

MessagePkg.vhd

@@ -1,7 +1,7 @@
 --
 --  File Name:         MessagePkg.vhd
 --  Design Unit Name:  MessagePkg
---  Revision:          STANDARD VERSION,  revision 2014.01
+--  Revision:          STANDARD VERSION,  revision 2015.01
 --
 --  Maintainer:        Jim Lewis      email:  [email protected]
 --  Contributor(s):
@@ -25,9 +25,10 @@
 --    06/2010:  0.1        Initial revision
 --    07/2014:  2014.07    Moved specialization required by CoveragePkg to CoveragePkg
 --    07/2014:  2014.07a   Removed initialized pointers which can lead to memory leaks.
+--    01/2015:  2015.01    Removed initialized parameter from Get
 --
 --
---  Copyright (c) 2010 - 2014 by SynthWorks Design Inc.  All rights reserved.
+--  Copyright (c) 2010 - 2015 by SynthWorks Design Inc.  All rights reserved.
 --
 --  Verbatim copies of this source file may be used and
 --  distributed without restriction.
@@ -46,6 +47,8 @@
 --  If not download it from,
 --     http://www.perlfoundation.org/artistic_license_2_0
 --
+use work.OsvvmGlobalPkg.all ; 
+use work.AlertLogPkg.all ; 
 
 library ieee ;
 use ieee.std_logic_1164.all ;
@@ -58,7 +61,7 @@ package MessagePkg is
   type MessagePType is protected
 
     procedure Set (MessageIn : String) ;
-    impure function Get (ItemNumber : integer := 1) return string ; 
+    impure function Get (ItemNumber : integer) return string ; 
     impure function GetCount return integer ; 
     impure function IsSet return boolean ; 
     procedure Clear ; -- clear message
@@ -67,6 +70,11 @@ package MessagePkg is
   end protected MessagePType ;
 
 end package MessagePkg ;
+
+--- ///////////////////////////////////////////////////////////////////////////
+--- ///////////////////////////////////////////////////////////////////////////
+--- ///////////////////////////////////////////////////////////////////////////
+
 package body MessagePkg is
 
   -- Local Data Structure Types
@@ -102,18 +110,18 @@ package body MessagePkg is
     end procedure Set ; 
 
     ------------------------------------------------------------
-    impure function Get (ItemNumber : integer := 1) return string is
+    impure function Get (ItemNumber : integer) return string is
     ------------------------------------------------------------
     begin
       if MessageCount > 0 then 
         if ItemNumber >= 1 and ItemNumber <= MessageCount then 
           return MessagePtr(ItemNumber).all ; 
         else
-          report LF & "%% MessagePkg:MessagePType.GetMessage input value out of range" severity failure ; 
+          Alert(OSVVM_ALERTLOG_ID, "%% MessagePkg.Get input value out of range", FAILURE) ; 
           return "" ; -- error if this happens 
         end if ; 
       else 
-        report LF & "%% MessagePkg:MessagePType.GetMessage message is not set" severity failure ; 
+        Alert(OSVVM_ALERTLOG_ID, "%% MessagePkg.Get message is not set", FAILURE) ; 
         return "" ; -- error if this happens 
       end if ;
     end function Get ; 
@@ -153,7 +161,4 @@ package body MessagePkg is
     end procedure Clear ;
 
   end protected body MessagePType ;
-
-end package body MessagePkg ;
-
-
+end package body MessagePkg ;

NamePkg.vhd

@@ -25,7 +25,7 @@
 --    06/2010:  0.1        Initial revision
 --    07/2014:  2014.07    Moved specialization required by CoveragePkg to CoveragePkg
 --                         Separated name handling from message handling to simplify naming
---    07/2014:  2014.07a   Removed initialized pointers which can lead to memory leaks.
+--    12/2014:  2014.07a   Removed initialized pointers which can lead to memory leaks.
 --
 --
 --  Copyright (c) 2010 - 2014 by SynthWorks Design Inc.  All rights reserved.
@@ -55,15 +55,19 @@ package NamePkg is
   type NamePType is protected
     procedure Set (NameIn : String) ;
     impure function Get return string ;
+    impure function GetOpt return string ;
     impure function IsSet return boolean ; 
     procedure Clear ; -- clear name
     procedure Deallocate ; -- effectively alias to clear name
   end protected NamePType ;
 
 end package NamePkg ;
-package body NamePkg is
-
 
+--- ///////////////////////////////////////////////////////////////////////////
+--- ///////////////////////////////////////////////////////////////////////////
+--- ///////////////////////////////////////////////////////////////////////////
+
+package body NamePkg is
   type NamePType is protected body
 
     variable NamePtr   : line ;
@@ -87,6 +91,17 @@ package body NamePkg is
       end if ; 
     end function Get ;
 
+    ------------------------------------------------------------
+    impure function GetOpt return string is
+    ------------------------------------------------------------
+    begin
+      if NamePtr = NULL then 
+        return NUL & "" ; 
+      else
+        return NamePtr.all ; 
+      end if ; 
+    end function GetOpt ;
+
     ------------------------------------------------------------
     impure function IsSet return boolean is 
     ------------------------------------------------------------

OsvvmContext.vhd

@@ -0,0 +1,57 @@
+--
+--  File Name:         OsvvmContext.vhd
+--  Design Unit Name:  OsvvmContext
+--  Revision:          STANDARD VERSION,  revision 2015.01
+--
+--  Maintainer:        Jim Lewis      email:  [email protected]
+--
+--  Description
+--      Context Declaration for OSVVM packages
+--
+--  Developed by/for:
+--        SynthWorks Design Inc.
+--        VHDL Training Classes
+--        11898 SW 128th Ave.  Tigard, Or  97223
+--        http://www.SynthWorks.com
+--
+--  Latest standard version available at:
+--        http://www.SynthWorks.com/downloads
+--
+--  Revision History:      For more details, see CoveragePkg_release_notes.pdf
+--    Date      Version    Description
+--    01/2015   2015.01    Initial Revision
+--
+--
+--  Copyright (c) 2015 by SynthWorks Design Inc.  All rights reserved.
+--
+--  Verbatim copies of this source file may be used and
+--  distributed without restriction.
+--
+--  This source file is free software; you can redistribute it
+--  and/or modify it under the terms of the ARTISTIC License
+--  as published by The Perl Foundation; either version 2.0 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 Artistic License for details.
+--
+--  You should have received a copy of the license with this source.
+--  If not download it from,
+--     http://www.perlfoundation.org/artistic_license_2_0
+--
+--
+
+context OsvvmContext is
+    library OSVVM ;  
+
+    use OSVVM.NamePkg.all ;
+    use OSVVM.TranscriptPkg.all ; 
+    use OSVVM.OsvvmGlobalPkg.all ;
+    use OSVVM.AlertLogPkg.all ; 
+    use OSVVM.RandomPkg.all ;
+    use OSVVM.CoveragePkg.all ;
+
+end context OsvvmContext ; 
+