From 570ce79323126fecbd746335ae542e3e05c9e700 Mon Sep 17 00:00:00 2001 From: JimLewis Date: Sat, 26 Nov 2016 11:43:08 -0800 Subject: [PATCH] Added procedure BlankLine(count : integer := 1) ; --- TranscriptPkg.vhd | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/TranscriptPkg.vhd b/TranscriptPkg.vhd index 5e0b223..2532195 100644 --- 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 ; \ No newline at end of file