From 4a0a51e37f1d7dd770d0306310c82c3aaeb8baa7 Mon Sep 17 00:00:00 2001
From: Jason Molenda <jsm@bugshack.cygnus.com>
Date: Mon, 7 Feb 2000 00:19:45 +0000
Subject: Initial revision

---
 gdb/gdbtk/library/blockframe.ith | 63 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 gdb/gdbtk/library/blockframe.ith

(limited to 'gdb/gdbtk/library/blockframe.ith')

diff --git a/gdb/gdbtk/library/blockframe.ith b/gdb/gdbtk/library/blockframe.ith
new file mode 100644
index 00000000000..a147f7c60a7
--- /dev/null
+++ b/gdb/gdbtk/library/blockframe.ith
@@ -0,0 +1,63 @@
+# Class definitions for blocks and frames for GDBtk.
+# Copyright 1997, 1998, 1999 Cygnus Solutions
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License (GPL) as published by
+# the Free Software Foundation; either version 2 of the License, or (at
+# your option) any later version.
+#
+# This program 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.
+
+class Block {
+
+  public {
+    method constructor {start end args}
+    method destructor {}
+    method variables {}
+    method update {}
+    method info {}
+  }
+
+  private {
+    # Start and end address for this block
+    variable _start
+    variable _end
+
+    # List of variables (new) variables defined in this block
+    variable _variables
+
+    method _findVariables {}
+  }
+}
+
+class Frame {
+
+  public {
+    method constructor {addr}
+    method destructor {}
+    method variables {}
+    method update {}
+    method new {}
+    method old {}
+    method deleteOld {}
+    method address {} { return $_addr }
+  }
+
+  private {
+    method _createBlocks {blocks}
+    method _addBlock {block}
+    method _findBlock {block}
+    method _findBlockIndex {block}
+    method _removeBlock {blockObj}
+    method _oldBlocks {}
+
+    # Our address
+    variable _addr
+
+    # A list of all blocks
+    variable _blocks
+  }
+}
-- 
cgit v1.2.1