Added procedure BlankLine(count : integer := 1) ;

VLSI-EDA · Nov 26, 2016 · 570ce79 · 570ce79
1 parent 9644078
commit 570ce79
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/TranscriptPkg.vhd b/TranscriptPkg.vhd
@@ -71,6 +71,9 @@ package TranscriptPkg is
   -- Write to TranscriptFile when open.  Write to OUTPUT when not open or IsTranscriptMirrored
   procedure        WriteLine(buf : inout line)  ; 
   procedure        Print(s : string) ; 
+
+  -- Create "count" number of blank lines
+  procedure BlankLine (count : integer := 1) ;
 
 end TranscriptPkg ;
 
@@ -183,5 +186,14 @@ package body TranscriptPkg is
     write(buf, s) ; 
     WriteLine(buf) ; 
   end procedure Print ; 
+
+  ------------------------------------------------------------
+  procedure BlankLine (count : integer := 1) is
+  ------------------------------------------------------------
+  begin
+    for i in 1 to count loop 
+      print(" ") ; 
+    end loop ;
+  end procedure Blankline ; 
 
 end package body TranscriptPkg ;