Adding support for a wave option file that selects signals to be displayed (#121)

Adding support for a wave option file that selects signals to be displayed on the waveform (currently only works with the ghw wave format). Only full signal paths are supported now (no wildcards). Wave option file version set to 1.0.

1 files changed, 62 insertions, 0 deletions

diff --git a/src/grt/grt-wave_opt_file-parse-debug.adb b/src/grt/grt-wave_opt_file-parse-debug.adb
new file mode 100644
index 000000000..2f8c66ec6
--- /dev/null
+++ b/src/grt/grt-wave_opt_file-parse-debug.adb
@@ -0,0 +1,62 @@
+--  GHDL Run Time (GRT) - Wave option file package for debugging.
+--  Copyright (C) 2016 Jonas Baggett
+--
+--  GHDL is free software; you can redistribute it and/or modify it under
+--  the terms of the GNU General Public License as published by the Free
+--  Software Foundation; either version 2, or (at your option) any later
+--  version.
+--
+--  GHDL 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 General Public License
+--  for more details.
+--
+--  You should have received a copy of the GNU General Public License
+--  along with GCC; see the file COPYING.  If not, write to the Free
+--  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+--  02111-1307, USA.
+--
+--  As a special exception, if other files instantiate generics from this
+--  unit, or you link this unit with other files to produce an executable,
+--  this unit does not by itself cause the resulting executable to be
+--  covered by the GNU General Public License. This exception does not
+--  however invalidate any other reasons why the executable file might be
+--  covered by the GNU Public License.
+
+-- Description: See package specifications
+
+with Grt.Astdio; use Grt.Astdio;
+
+package body Grt.Wave_Opt_File.Parse.Debug is
+
+   procedure Dump_Tree is
+   begin
+      New_Line;
+      for Index in Tree_Index_Type'Range loop
+         Put_Line ("----------------------------");
+         if Index = Pkg then
+            Put_Line ("Packages : ");
+         else
+            Put_Line ("Instances : ");
+         end if;
+         Dump_Sub_Tree (Trees (Index), 1);
+      end loop;
+      Put_Line ("----------- END -----------------");
+      New_Line;
+   end Dump_Tree;
+
+   procedure Dump_Sub_Tree (Cursor : Elem_Acc; Level : Positive)
+   is
+      Sibling_Cursor : Elem_Acc;
+   begin
+      Sibling_Cursor := Cursor;
+      while Sibling_Cursor /= null loop
+         Put ((3 .. 2 * Level => ' '));
+         Put ('/');
+         Put_Line (Sibling_Cursor.Name.all);
+         Dump_Sub_Tree (Sibling_Cursor.Next_Child, Level + 1);
+         Sibling_Cursor := Sibling_Cursor.Next_Sibling;
+      end loop;
+   end Dump_Sub_Tree;
+
+end Grt.Wave_Opt_File.Parse.Debug;